diff --git a/Form1.Designer.vb b/Form1.Designer.vb
index 378853f..b548377 100644
--- a/Form1.Designer.vb
+++ b/Form1.Designer.vb
@@ -70,6 +70,17 @@ Partial Class Form1
Me.btnZ2Pwr = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
Me.cmbZ2Inputs = New Pioneer_VSX_Series_Remote_Control.NSComboBox()
Me.tabSound = New System.Windows.Forms.TabPage()
+ Me.NsGroupBox4 = New Pioneer_VSX_Series_Remote_Control.NSGroupBox()
+ Me.btnSoundVirtualSB = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.btnSoundPhaseControl = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.btnSoundPassthrough = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.btnSoundEQ = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.btnSoundPQLS = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.btnSoundVirtualHeight = New Pioneer_VSX_Series_Remote_Control.CustomSideButton()
+ Me.Label2 = New System.Windows.Forms.Label()
+ Me.Label1 = New System.Windows.Forms.Label()
+ Me.cmbMCACC = New Pioneer_VSX_Series_Remote_Control.NSComboBox()
+ Me.cmbSoundModes = New Pioneer_VSX_Series_Remote_Control.NSComboBox()
Me.tabNavigation = New System.Windows.Forms.TabPage()
Me.btnNavDown = New System.Windows.Forms.PictureBox()
Me.btnNavRight = New System.Windows.Forms.PictureBox()
@@ -109,6 +120,8 @@ Partial Class Form1
Me.NsGroupBox2.SuspendLayout()
Me.tabZone2.SuspendLayout()
Me.NsGroupBox3.SuspendLayout()
+ Me.tabSound.SuspendLayout()
+ Me.NsGroupBox4.SuspendLayout()
Me.tabNavigation.SuspendLayout()
CType(Me.btnNavDown, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.btnNavRight, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -184,7 +197,7 @@ Partial Class Form1
Me.CustomTheme1.Name = "CustomTheme1"
Me.CustomTheme1.NoRounding = False
Me.CustomTheme1.Sizable = False
- Me.CustomTheme1.Size = New System.Drawing.Size(400, 200)
+ Me.CustomTheme1.Size = New System.Drawing.Size(400, 400)
Me.CustomTheme1.SmartBounds = True
Me.CustomTheme1.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultBounds
Me.CustomTheme1.TabIndex = 3
@@ -240,7 +253,6 @@ Partial Class Form1
Me.btnSound.TabIndex = 27
Me.btnSound.Text = " SOUND"
Me.btnSound.Transparent = True
- Me.btnSound.Visible = False
'
'tabControls
'
@@ -773,12 +785,178 @@ Partial Class Form1
'tabSound
'
Me.tabSound.BackColor = System.Drawing.Color.FromArgb(CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer))
+ Me.tabSound.Controls.Add(Me.NsGroupBox4)
Me.tabSound.Location = New System.Drawing.Point(5, 4)
Me.tabSound.Name = "tabSound"
Me.tabSound.Size = New System.Drawing.Size(386, 189)
Me.tabSound.TabIndex = 3
Me.tabSound.Text = "tabSound"
'
+ 'NsGroupBox4
+ '
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundVirtualSB)
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundPhaseControl)
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundPassthrough)
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundEQ)
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundPQLS)
+ Me.NsGroupBox4.Controls.Add(Me.btnSoundVirtualHeight)
+ Me.NsGroupBox4.Controls.Add(Me.Label2)
+ Me.NsGroupBox4.Controls.Add(Me.Label1)
+ Me.NsGroupBox4.Controls.Add(Me.cmbMCACC)
+ Me.NsGroupBox4.Controls.Add(Me.cmbSoundModes)
+ Me.NsGroupBox4.DrawSeperator = True
+ Me.NsGroupBox4.ForeColor = System.Drawing.Color.White
+ Me.NsGroupBox4.Location = New System.Drawing.Point(0, 0)
+ Me.NsGroupBox4.Name = "NsGroupBox4"
+ Me.NsGroupBox4.Size = New System.Drawing.Size(386, 189)
+ Me.NsGroupBox4.SubTitle = "Change Surround Settings"
+ Me.NsGroupBox4.TabIndex = 4
+ Me.NsGroupBox4.Text = "NsGroupBox4"
+ Me.NsGroupBox4.Title = "Sound Configuration"
+ '
+ 'btnSoundVirtualSB
+ '
+ Me.btnSoundVirtualSB.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundVirtualSB.Customization = ""
+ Me.btnSoundVirtualSB.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundVirtualSB.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundVirtualSB.Image = Nothing
+ Me.btnSoundVirtualSB.Location = New System.Drawing.Point(7, 113)
+ Me.btnSoundVirtualSB.Name = "btnSoundVirtualSB"
+ Me.btnSoundVirtualSB.NoRounding = False
+ Me.btnSoundVirtualSB.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundVirtualSB.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundVirtualSB.TabIndex = 3
+ Me.btnSoundVirtualSB.Text = "Virtual SB"
+ Me.btnSoundVirtualSB.Transparent = False
+ '
+ 'btnSoundPhaseControl
+ '
+ Me.btnSoundPhaseControl.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundPhaseControl.Customization = ""
+ Me.btnSoundPhaseControl.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundPhaseControl.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundPhaseControl.Image = Nothing
+ Me.btnSoundPhaseControl.Location = New System.Drawing.Point(133, 113)
+ Me.btnSoundPhaseControl.Name = "btnSoundPhaseControl"
+ Me.btnSoundPhaseControl.NoRounding = False
+ Me.btnSoundPhaseControl.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundPhaseControl.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundPhaseControl.TabIndex = 3
+ Me.btnSoundPhaseControl.Text = "Phase Control"
+ Me.btnSoundPhaseControl.Transparent = False
+ '
+ 'btnSoundPassthrough
+ '
+ Me.btnSoundPassthrough.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundPassthrough.Customization = ""
+ Me.btnSoundPassthrough.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundPassthrough.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundPassthrough.Image = Nothing
+ Me.btnSoundPassthrough.Location = New System.Drawing.Point(259, 113)
+ Me.btnSoundPassthrough.Name = "btnSoundPassthrough"
+ Me.btnSoundPassthrough.NoRounding = False
+ Me.btnSoundPassthrough.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundPassthrough.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundPassthrough.TabIndex = 3
+ Me.btnSoundPassthrough.Text = "Passthrough"
+ Me.btnSoundPassthrough.Transparent = False
+ '
+ 'btnSoundEQ
+ '
+ Me.btnSoundEQ.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundEQ.Customization = ""
+ Me.btnSoundEQ.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundEQ.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundEQ.Image = Nothing
+ Me.btnSoundEQ.Location = New System.Drawing.Point(259, 77)
+ Me.btnSoundEQ.Name = "btnSoundEQ"
+ Me.btnSoundEQ.NoRounding = False
+ Me.btnSoundEQ.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundEQ.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundEQ.TabIndex = 3
+ Me.btnSoundEQ.Text = " Equalizer"
+ Me.btnSoundEQ.Transparent = False
+ '
+ 'btnSoundPQLS
+ '
+ Me.btnSoundPQLS.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundPQLS.Customization = ""
+ Me.btnSoundPQLS.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundPQLS.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundPQLS.Image = Nothing
+ Me.btnSoundPQLS.Location = New System.Drawing.Point(133, 77)
+ Me.btnSoundPQLS.Name = "btnSoundPQLS"
+ Me.btnSoundPQLS.NoRounding = False
+ Me.btnSoundPQLS.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundPQLS.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundPQLS.TabIndex = 3
+ Me.btnSoundPQLS.Text = " PQLS"
+ Me.btnSoundPQLS.Transparent = False
+ '
+ 'btnSoundVirtualHeight
+ '
+ Me.btnSoundVirtualHeight.Colors = New Pioneer_VSX_Series_Remote_Control.Bloom(-1) {}
+ Me.btnSoundVirtualHeight.Customization = ""
+ Me.btnSoundVirtualHeight.DisplayIcon = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Icon.Circle
+ Me.btnSoundVirtualHeight.Font = New System.Drawing.Font("Verdana", 8.0!)
+ Me.btnSoundVirtualHeight.Image = Nothing
+ Me.btnSoundVirtualHeight.Location = New System.Drawing.Point(7, 77)
+ Me.btnSoundVirtualHeight.Name = "btnSoundVirtualHeight"
+ Me.btnSoundVirtualHeight.NoRounding = False
+ Me.btnSoundVirtualHeight.SideColor = Pioneer_VSX_Series_Remote_Control.CustomSideButton._Color.Red
+ Me.btnSoundVirtualHeight.Size = New System.Drawing.Size(120, 30)
+ Me.btnSoundVirtualHeight.TabIndex = 3
+ Me.btnSoundVirtualHeight.Text = "Virtual Height"
+ Me.btnSoundVirtualHeight.Transparent = False
+ '
+ 'Label2
+ '
+ Me.Label2.AutoSize = True
+ Me.Label2.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label2.Location = New System.Drawing.Point(13, 48)
+ Me.Label2.Name = "Label2"
+ Me.Label2.Size = New System.Drawing.Size(113, 16)
+ Me.Label2.TabIndex = 2
+ Me.Label2.Text = "Surround Mode:"
+ '
+ 'Label1
+ '
+ Me.Label1.AutoSize = True
+ Me.Label1.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.Label1.Location = New System.Drawing.Point(13, 157)
+ Me.Label1.Name = "Label1"
+ Me.Label1.Size = New System.Drawing.Size(117, 16)
+ Me.Label1.TabIndex = 2
+ Me.Label1.Text = "MCACC Memory:"
+ '
+ 'cmbMCACC
+ '
+ Me.cmbMCACC.BackColor = System.Drawing.Color.FromArgb(CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer))
+ Me.cmbMCACC.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+ Me.cmbMCACC.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cmbMCACC.Font = New System.Drawing.Font("Verdana", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cmbMCACC.ForeColor = System.Drawing.Color.White
+ Me.cmbMCACC.FormattingEnabled = True
+ Me.cmbMCACC.Items.AddRange(New Object() {"MCACC MEMORY 1", "MCACC MEMORY 2", "MCACC MEMORY 3", "MCACC MEMORY 4", "MCACC MEMORY 5", "MCACC MEMORY 6"})
+ Me.cmbMCACC.Location = New System.Drawing.Point(130, 152)
+ Me.cmbMCACC.Name = "cmbMCACC"
+ Me.cmbMCACC.Size = New System.Drawing.Size(244, 28)
+ Me.cmbMCACC.TabIndex = 1
+ '
+ 'cmbSoundModes
+ '
+ Me.cmbSoundModes.BackColor = System.Drawing.Color.FromArgb(CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer))
+ Me.cmbSoundModes.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+ Me.cmbSoundModes.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+ Me.cmbSoundModes.Font = New System.Drawing.Font("Verdana", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+ Me.cmbSoundModes.ForeColor = System.Drawing.Color.White
+ Me.cmbSoundModes.FormattingEnabled = True
+ Me.cmbSoundModes.Location = New System.Drawing.Point(128, 43)
+ Me.cmbSoundModes.Name = "cmbSoundModes"
+ Me.cmbSoundModes.Size = New System.Drawing.Size(246, 28)
+ Me.cmbSoundModes.TabIndex = 1
+ '
'tabNavigation
'
Me.tabNavigation.BackColor = System.Drawing.Color.FromArgb(CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(50, Byte), Integer))
@@ -1200,7 +1378,7 @@ Partial Class Form1
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
- Me.ClientSize = New System.Drawing.Size(400, 200)
+ Me.ClientSize = New System.Drawing.Size(400, 400)
Me.Controls.Add(Me.CustomTheme1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -1220,6 +1398,9 @@ Partial Class Form1
Me.NsGroupBox2.ResumeLayout(False)
Me.tabZone2.ResumeLayout(False)
Me.NsGroupBox3.ResumeLayout(False)
+ Me.tabSound.ResumeLayout(False)
+ Me.NsGroupBox4.ResumeLayout(False)
+ Me.NsGroupBox4.PerformLayout()
Me.tabNavigation.ResumeLayout(False)
Me.tabNavigation.PerformLayout()
CType(Me.btnNavDown, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1306,5 +1487,16 @@ Partial Class Form1
Friend WithEvents cmbZ2Inputs As Pioneer_VSX_Series_Remote_Control.NSComboBox
Friend WithEvents NsSeperator2 As Pioneer_VSX_Series_Remote_Control.NSSeperator
Friend WithEvents NsSeperator3 As Pioneer_VSX_Series_Remote_Control.NSSeperator
+ Friend WithEvents cmbSoundModes As Pioneer_VSX_Series_Remote_Control.NSComboBox
+ Friend WithEvents NsGroupBox4 As Pioneer_VSX_Series_Remote_Control.NSGroupBox
+ Friend WithEvents btnSoundVirtualSB As Pioneer_VSX_Series_Remote_Control.CustomSideButton
+ Friend WithEvents btnSoundPhaseControl As Pioneer_VSX_Series_Remote_Control.CustomSideButton
+ Friend WithEvents btnSoundPassthrough As Pioneer_VSX_Series_Remote_Control.CustomSideButton
+ Friend WithEvents btnSoundPQLS As Pioneer_VSX_Series_Remote_Control.CustomSideButton
+ Friend WithEvents btnSoundVirtualHeight As Pioneer_VSX_Series_Remote_Control.CustomSideButton
+ Friend WithEvents Label2 As System.Windows.Forms.Label
+ Friend WithEvents Label1 As System.Windows.Forms.Label
+ Friend WithEvents cmbMCACC As Pioneer_VSX_Series_Remote_Control.NSComboBox
+ Friend WithEvents btnSoundEQ As Pioneer_VSX_Series_Remote_Control.CustomSideButton
End Class
diff --git a/Form1.resx b/Form1.resx
index 791bf30..6fca404 100644
--- a/Form1.resx
+++ b/Form1.resx
@@ -381,6 +381,19 @@
278, 17
+
+
+ iVBORw0KGgoAAAANSUhEUgAAABUAAAAaCAYAAABYQRdDAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+ wwAADsMBx2+oZAAAABZ0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMDvo9WkAAAGPSURBVEhL7ZQ7LwRR
+ GIYnFiFxKSSshmITIbQ611alUiFKEn/BJfTK1fgDGiqNWolOYXUS4hKNS7eZ8byz39mZXZudzaxKvMmz
+ c877fefN2bkc7+8oCIKM7/uj0G1W8yJsGZ5h06z0YocKnIZXxtKulULht8KK9bSYXV80ToILlKpDe+EL
+ 3uEIOq1UWzQMw7WFOVWESvTk4ASKkKen3UqVojgAN6WcCpVDqc8zz4LGHXAACt6TJ3MNtmKcga+UKoWh
+ lPrgE+5gFl+ebsUFPEBORrG0JlFhKFetmYBHeIIRkLcI0oaaGlX874ulMML3d+RRb2OsnZ6nCpVYLApw
+ aZbmx/CWOlQi4BTubap5HorN7vQWfmenFujuaehTj+4pP2me/jjo6etM+Pn0+dF7uh0j6T3NgntP5/Dl
+ 9UD0nlYLsx+SvqgFGMTTOP5F7curKYpDcBVGRSqHOtET//YP6an97TvR1Ogp9QHJp5REiBZOca13nq7C
+ DDR2njqxQCf/C6yb1bzYYQbGCO0y61/15Hnfk1rEJTootr8AAAAASUVORK5CYII=
+
+
iVBORw0KGgoAAAANSUhEUgAAABUAAAAaCAYAAABYQRdDAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -450,19 +463,6 @@
pCcwHo+DYBOQ8lrSExiNRkHIcrOAlNeSnsBwOAyCTUDKa0lPYDAYBOGSX8TyQMprYQL9fj8INgEpryU9
gV6vF4RLZhaQ8lreIkD/8Qkpr6UxgXfBBLrdblQwgU6nExXpCbTb7ahgAjFCArjoSWS0Wj83VCByGbF4
cwAAAABJRU5ErkJggg==
-
-
-
-
- iVBORw0KGgoAAAANSUhEUgAAABUAAAAaCAYAAABYQRdDAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
- wwAADsMBx2+oZAAAABZ0RVh0U29mdHdhcmUAcGFpbnQubmV0IDQuMDvo9WkAAAGPSURBVEhL7ZQ7LwRR
- GIYnFiFxKSSshmITIbQ611alUiFKEn/BJfTK1fgDGiqNWolOYXUS4hKNS7eZ8byz39mZXZudzaxKvMmz
- c877fefN2bkc7+8oCIKM7/uj0G1W8yJsGZ5h06z0YocKnIZXxtKulULht8KK9bSYXV80ToILlKpDe+EL
- 3uEIOq1UWzQMw7WFOVWESvTk4ASKkKen3UqVojgAN6WcCpVDqc8zz4LGHXAACt6TJ3MNtmKcga+UKoWh
- lPrgE+5gFl+ebsUFPEBORrG0JlFhKFetmYBHeIIRkLcI0oaaGlX874ulMML3d+RRb2OsnZ6nCpVYLApw
- aZbmx/CWOlQi4BTubap5HorN7vQWfmenFujuaehTj+4pP2me/jjo6etM+Pn0+dF7uh0j6T3NgntP5/Dl
- 9UD0nlYLsx+SvqgFGMTTOP5F7curKYpDcBVGRSqHOtET//YP6an97TvR1Ogp9QHJp5REiBZOca13nq7C
- DDR2njqxQCf/C6yb1bzYYQbGCO0y61/15Hnfk1rEJTootr8AAAAASUVORK5CYII=
diff --git a/Form1.vb b/Form1.vb
index 1215f30..aa1c34b 100644
--- a/Form1.vb
+++ b/Form1.vb
@@ -20,6 +20,31 @@ Public Class Form1
Public IntArg As Integer
End Class
+ 'Sound Modes, Long List
+ Dim soundmodes() As String = {"STEREO (cyclic)", "STANDARD", "STEREO (direct set)", "(2ch source)", "PRO LOGIC2 MOVIE",
+ "PRO LOGIC2x MOVIE", "PRO LOGIC2 MUSIC", "PRO LOGIC2x MUSIC", "PRO LOGIC2 GAME", "PRO LOGIC2x GAME", "PRO LOGIC2z HEIGHT",
+ "WIDE SURROUND MOVIE", "WIDE SURROUND MUSIC", "PRO LOGIC", "Neo:6 CINEMA", "Neo:6 MUSIC", "XM HD SURROUND", "NEURAL SURROUND",
+ "Neo:X CINEMA", "Neo:X MUSIC", "Neo:X GAME", "NEURAL SURROUND+Neo:X CINEMA", "NEURAL SURROUND+Neo:X MUSIC",
+ "NEURAL SURROUND+Neo:X GAME", "(Multi ch source)", "(Multi ch source)+DOLBY EX", "(Multi ch source)+PRO LOGIC2x MOVIE",
+ "(Multi ch source)+PRO LOGIC2x MUSIC", "(Multi-ch Source)+PRO LOGIC2z HEIGHT", "(Multi-ch Source)+WIDE SURROUND MOVIE",
+ "(Multi-ch Source)+WIDE SURROUND MUSIC", "(Multi ch source)DTS-ES Neo:6", "(Multi ch source)DTS-ES matrix",
+ "(Multi ch source)DTS-ES discrete", "(Multi ch source)DTS-ES 8ch discrete", "(Multi ch source)DTS-ES Neo:X",
+ "ADVANCED SURROUND (cyclic)", "ACTION", "DRAMA", "SCI-FI", "MONO FILM", "ENTERTAINMENT SHOW", "EXPANDED THEATER", "TV SURROUND",
+ "ADVANCED GAME", "SPORTS", "CLASSICAL", "ROCK/POP", "UNPLUGGED", "EXTENDED STEREO", "Front Stage Surround Advance Focus", "Front Stage Surround Advance Wide",
+ "RETRIEVER AIR", "PHONES SURROUND", "THX (cyclic)", "PROLOGIC + THX CINEMA", "PL2 MOVIE + THX CINEMA", "Neo:6 CINEMA + THX CINEMA",
+ "PL2x MOVIE + THX CINEMA", "PL2z HEIGHT + THX CINEMA", "THX SELECT2 GAMES", "THX CINEMA (for 2ch)", "THX MUSIC (for 2ch)",
+ "THX GAMES (for 2ch)", "PL2 MUSIC + THX MUSIC", "PL2x MUSIC + THX MUSIC", "PL2z HEIGHT + THX MUSIC", "Neo:6 MUSIC + THX MUSIC",
+ "PL2 GAME + THX GAMES", "PL2x GAME + THX GAMES", "PL2z HEIGHT + THX GAMES", "THX ULTRA2 GAMES", "PROLOGIC + THX MUSIC", "PROLOGIC + THX GAMES",
+ "Neo:X CINEMA + THX CINEMA", "Neo:X MUSIC + THX MUSIC", "Neo:X GAME + THX GAMES", "THX CINEMA (for multi ch)", "THX SURROUND EX (for multi ch)",
+ "PL2x MOVIE + THX CINEMA (for multi ch)", "PL2z HEIGHT + THX CINEMA (for multi ch)", "ES Neo:6 + THX CINEMA (for multi ch)", "ES MATRIX + THX CINEMA (for multi ch)",
+ "ES DISCRETE + THX CINEMA (for multi ch)", "ES 8ch DISCRETE + THX CINEMA (for multi ch)", "THX SELECT2 CINEMA (for multi ch)", "THX SELECT2 MUSIC (for multi ch)",
+ "THX SELECT2 GAMES (for multi ch)", "THX ULTRA2 CINEMA (for multi ch)", "THX ULTRA2 MUSIC (for multi ch)", "THX ULTRA2 GAMES (for multi ch)", "THX MUSIC (for multi ch)",
+ "THX GAMES (for multi ch)", "PL2x MUSIC + THX MUSIC (for multi ch)", "PL2z HEIGHT + THX MUSIC (for multi ch)", "EX + THX GAMES (for multi ch)",
+ "PL2z HEIGHT + THX GAMES (for multi ch)", "Neo:6 + THX MUSIC (for multi ch)", "Neo:6 + THX GAMES (for multi ch)", "ES MATRIX + THX MUSIC (for multi ch)",
+ "ES MATRIX + THX GAMES (for multi ch)", "ES DISCRETE + THX MUSIC (for multi ch)", "ES DISCRETE + THX GAMES (for multi ch)", "ES 8CH DISCRETE + THX MUSIC (for multi ch)",
+ "ES 8CH DISCRETE + THX GAMES (for multi ch)", "Neo:X + THX CINEMA (for multi ch)", "Neo:X + THX MUSIC (for multi ch)", "Neo:X + THX GAMES (for multi ch)",
+ "AUTO SURR/STREAM DIRECT (cyclic)", "AUTO SURROUND", "Auto Level Control (A.L.C.)", "DIRECT", "PURE DIRECT", "OPTIMUM SURROUND"}
+
'basically builds a ip from the IP bytes then tries to connect to the IP:8102 and if successful assumes it is a pioneer device.
'TODO - Implement SSDP request instead of this bad method to find the AVR.
Private Sub ScanIP(ByVal e As ScannerArgs)
@@ -74,6 +99,10 @@ Public Class Form1
cmbHDZInputs.ValueMember = "Value"
cmbZ2Inputs.DisplayMember = "Key"
cmbZ2Inputs.ValueMember = "Value"
+ cmbSoundModes.DisplayMember = "Key"
+ cmbSoundModes.ValueMember = "Value"
+
+ cmbSoundModes.Items.AddRange(soundmodes)
Do While serverIp Is Nothing
Threading.Thread.Sleep(1000)
@@ -100,6 +129,44 @@ Public Class Form1
End Sub
Private Sub PollInfo()
+ 'Zone 2 Volume
+ SendCommands("?zv")
+
+ 'Main Power
+ SendCommands("?p")
+
+ 'Zone 2 Power
+ SendCommands("?ap")
+
+ 'HDZone Power
+ SendCommands("?zep")
+
+ 'MCACC Status
+ SendCommands("?mc")
+
+ 'Sleep Status
+ SendCommands("?sab")
+
+ 'HDMI Passthrough
+ SendCommands("?ha")
+
+ 'Phase Control
+ SendCommands("?is")
+
+ Threading.Thread.Sleep(1000)
+
+ 'VHT
+ SendCommands("?vht")
+
+ 'VSB
+ SendCommands("?vsb")
+
+ 'PQLS
+ SendCommands("?pq")
+
+ 'EQ
+ SendCommands("?atc")
+
'Main input
SendCommands("?f")
@@ -120,21 +187,6 @@ Public Class Form1
'Volume Up
SendCommands("vu")
-
- 'Zone 2 Volume
- SendCommands("?zv")
-
- 'Main Power
- SendCommands("?p")
-
- 'Zone 2 Power
- SendCommands("?ap")
-
- 'HDZone Power
- SendCommands("?zep")
-
- 'Sleep Status
- SendCommands("?sab")
End Sub
'Connects to VSX if not already.
@@ -327,8 +379,45 @@ Public Class Form1
'A Sub to seperate the output in to various sections and respond appropiately.
Sub ParseScreen(output As String)
Try
- 'SCREEN INFORMATION
output = output.Replace(vbLf, "").Replace(vbCrLf, "")
+
+ If output.ToString.Substring(0, 3) = "IS1" Then
+ btnSoundPhaseControl.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 3) = "IS0" Then
+ btnSoundPhaseControl.SideColor = CustomSideButton._Color.Red
+ End If
+
+ If output.ToString.Substring(0, 4) = "VHT1" Then
+ btnSoundVirtualHeight.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 4) = "VHT0" Then
+ btnSoundVirtualHeight.SideColor = CustomSideButton._Color.Red
+ End If
+
+ If output.ToString.Substring(0, 4) = "VSB1" Then
+ btnSoundVirtualSB.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 4) = "VSB0" Then
+ btnSoundVirtualSB.SideColor = CustomSideButton._Color.Red
+ End If
+
+ If output.ToString.Substring(0, 3) = "PQ1" Then
+ btnSoundPQLS.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 3) = "PQ0" Then
+ btnSoundPQLS.SideColor = CustomSideButton._Color.Red
+ End If
+
+ If output.ToString.Substring(0, 4) = "ATC1" Then
+ btnSoundEQ.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 4) = "ATC0" Then
+ btnSoundEQ.SideColor = CustomSideButton._Color.Red
+ End If
+
+ If output.ToString.Substring(0, 3) = "HA1" Then
+ btnSoundPassthrough.SideColor = CustomSideButton._Color.Green
+ ElseIf output.ToString.Substring(0, 3) = "HA0" Then
+ btnSoundPassthrough.SideColor = CustomSideButton._Color.Red
+ End If
+
+ 'SCREEN INFORMATION
If output.ToString.Contains("FL0") Then
Dim TempScreen = output
Dim decryptedOSD As String = DecryptScreen(TempScreen)
@@ -638,4 +727,56 @@ Public Class Form1
preventZ2toggle = False
SendCommands("?AP")
End Sub
+
+ Private Sub btnSoundPhaseControl_Click(sender As Object, e As EventArgs) Handles btnSoundPhaseControl.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0IS")
+ Else
+ SendCommands("1IS")
+ End If
+ End Sub
+
+ Private Sub btnSoundVirtualHeight_Click(sender As Object, e As EventArgs) Handles btnSoundVirtualHeight.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0VHT")
+ Else
+ SendCommands("1VHT")
+ End If
+ End Sub
+
+ Private Sub btnSoundVirtualSB_Click(sender As Object, e As EventArgs) Handles btnSoundVirtualSB.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0VSB")
+ Else
+ SendCommands("1VSB")
+ End If
+ End Sub
+
+ Private Sub btnSoundPQLS_Click(sender As Object, e As EventArgs) Handles btnSoundPQLS.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0PQ")
+ Else
+ SendCommands("1PQ")
+ End If
+ End Sub
+
+ Private Sub btnEQToggle_Click(sender As Object, e As EventArgs) Handles btnSoundEQ.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0ATC")
+ Else
+ SendCommands("1ATC")
+ End If
+ End Sub
+
+ Private Sub btnSoundOutputToggle_Click(sender As Object, e As EventArgs) Handles btnSoundPassthrough.Click
+ If sender.sidecolor = CustomSideButton._Color.Green Then
+ SendCommands("0HA")
+ Else
+ SendCommands("1HA")
+ End If
+ End Sub
+
+ Private Sub cmbMCACC_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cmbMCACC.SelectionChangeCommitted
+ SendCommands((cmbMCACC.SelectedIndex + 1) & "MC")
+ End Sub
End Class
\ No newline at end of file