by MoDementia » Sun Jul 16, 2006 11:30 pm
A practical example to adjust the equaliser per Genre
Code: Select all
[AdjustEqualiser]
FileName=AdjustEqualiser.vbs
ProcName=AdjustEqualiser
Language=VBScript
ScriptType=2
-------------------------------------------------------
Sub AdjustEqualiser
Select Case itm.Genre
Case "Classical"
SDB.IniFile.StringValue("Equalizer","Enabled") = 1
SDB.IniFile.StringValue("Equalizer","Left4") = 5
SDB.IniFile.StringValue("Equalizer","Right4") = 5
etc
Bands=10
LeftPreamp=0
RightPreamp=0
Left1=0
Right1=0
Left2=0
Right2=0
Left3=0
Right3=0
Left4=0
Right4=0
Left5=0
Right5=0
Left6=0
Right6=0
Left7=0
Right7=0
Left8=0
Right8=0
Left9=0
Right9=0
Left10=0
Right10=0
Enabled=0
End Select
IniReRead("Equalizer", "") ' All Keys in Section
End Sub
A practical example to adjust the equaliser per Genre
[code]
[AdjustEqualiser]
FileName=AdjustEqualiser.vbs
ProcName=AdjustEqualiser
Language=VBScript
ScriptType=2
-------------------------------------------------------
Sub AdjustEqualiser
Select Case itm.Genre
Case "Classical"
SDB.IniFile.StringValue("Equalizer","Enabled") = 1
SDB.IniFile.StringValue("Equalizer","Left4") = 5
SDB.IniFile.StringValue("Equalizer","Right4") = 5
etc
Bands=10
LeftPreamp=0
RightPreamp=0
Left1=0
Right1=0
Left2=0
Right2=0
Left3=0
Right3=0
Left4=0
Right4=0
Left5=0
Right5=0
Left6=0
Right6=0
Left7=0
Right7=0
Left8=0
Right8=0
Left9=0
Right9=0
Left10=0
Right10=0
Enabled=0
End Select
IniReRead("Equalizer", "") ' All Keys in Section
End Sub[/code]