'======================================
' Sync Gains Script
'======================================
' Name of each Input to get Gain value for
Dim Channels(,) As String = New String(,) {{"10", "Pulpit"}, {"11", "Spanish"}, {"12", "Wireless"}, {"13", "Choir"}, {"14", "Organ"}, {"15", "Piano"}, {"16", "Congregation"}, {"17", "Inst. - Rostrum"}}
'{"??", "Inst. - Piano"}

'State variables
Dim state as new system.xml.xmldocument
Dim CurrentGain As Double
Dim SetLED As Double

Console.WriteLine("Getting Gain(s)")

'=========Setup Midi Control=======
'Launch an application
Dim ExtApp As New ProcessStartInfo
ExtApp.FileName = "C:\Users\samuel\Downloads\sendmidi-windows-1.2.1\sendmidi.exe"
ExtApp.UseShellExecute = True
ExtApp.WindowStyle = ProcessWindowStyle.Hidden

'=========Get Current Volume========
'Current status
state.loadxml(API.XML())

Dim channel As Integer
For channel = 0 To Channels.GetUpperBound(0)
Dim Name As String = Channels(channel, 1)
Dim MIDICh As String = Channels(channel, 0)
Console.WriteLine(Name)
CurrentGain = (state.SelectSingleNode("//input[@title='" & Name & "']/@gainDb").Value)
Console.WriteLine(Name + " gain is set to : " + CurrentGain.ToString() + "dB")
SetLED = CurrentGain / 24 * 127
ExtApp.Arguments = "dev ""X-TOUCH COMPACT SendMIDI"" cc " & MIDICh & " " & SetLED.ToString()
Dim proc As Process = Process.Start(ExtApp)
Next

'Console.WriteLine(state.OuterXml)