I'm trying to put together a script to control my new Integra PreAmp. Mostly working, but I get a type mismatch error when trying to obtain listening mode for Case "0C" (the complete data string is !1LMD0C but I parse out the last portion which defines the listening mode). Can anyone figure out what I'm doing wrong? I've tried using Cstr(pa_param) with no luck.
Select Case pa_param
Case "00" ' sets STEREO
hs.SetDeviceString "P78", "STEREO", True
Case "01" ' sets DIRECT
hs.SetDeviceString "P78", "DIRECT", True
Case "02" ' sets SURROUND
hs.SetDeviceString "P78", "SURROUND", True
Case "03" ' sets FILM
hs.SetDeviceString "P78", "FILM", True
Case "04" ' sets THX
hs.SetDeviceString "P78", "THX", True
Case "05" ' sets ACTION
hs.SetDeviceString "P78", "ACTION", True
Case "06" ' sets MUSICAL
hs.SetDeviceString "P78", "MUSICAL", True
Case "08" ' sets ORCHESTRA
hs.SetDeviceString "P78", "ORCHESTRA", True
Case "09" ' sets UNPLUGGED
hs.SetDeviceString "P78", "UNPLUGGED", True
Case "0A" ' sets STUDIO-MIX
hs.SetDeviceString "P78", "STUDIO-MIX", True
Case "0B" ' sets TV LOGIC
hs.SetDeviceString "P78", "TV LOGIC", True
Case "0C" ' sets ALL CH STEREO
hs.SetDeviceString "P78", "ALL CH STEREO", True
End Select
Select Case pa_param
Case "00" ' sets STEREO
hs.SetDeviceString "P78", "STEREO", True
Case "01" ' sets DIRECT
hs.SetDeviceString "P78", "DIRECT", True
Case "02" ' sets SURROUND
hs.SetDeviceString "P78", "SURROUND", True
Case "03" ' sets FILM
hs.SetDeviceString "P78", "FILM", True
Case "04" ' sets THX
hs.SetDeviceString "P78", "THX", True
Case "05" ' sets ACTION
hs.SetDeviceString "P78", "ACTION", True
Case "06" ' sets MUSICAL
hs.SetDeviceString "P78", "MUSICAL", True
Case "08" ' sets ORCHESTRA
hs.SetDeviceString "P78", "ORCHESTRA", True
Case "09" ' sets UNPLUGGED
hs.SetDeviceString "P78", "UNPLUGGED", True
Case "0A" ' sets STUDIO-MIX
hs.SetDeviceString "P78", "STUDIO-MIX", True
Case "0B" ' sets TV LOGIC
hs.SetDeviceString "P78", "TV LOGIC", True
Case "0C" ' sets ALL CH STEREO
hs.SetDeviceString "P78", "ALL CH STEREO", True
End Select
Comment