From 72fe27a8190eedfca91e0f8f5bd47c904e8ea243 Mon Sep 17 00:00:00 2001 From: Fma965 Date: Sun, 6 Jul 2014 23:17:03 +0100 Subject: [PATCH] Added lots of stuff Note that some buttons on Sound tab are broken. WIP --- Form1.Designer.vb | 198 +++++++++++++++++++++++++++++++++++++++++++++- Form1.resx | 26 +++--- Form1.vb | 173 ++++++++++++++++++++++++++++++++++++---- 3 files changed, 365 insertions(+), 32 deletions(-) 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