Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose(disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() components = New ComponentModel.Container() btnSendReady = New Button() ButtonSend3 = New Button() ListBoxReceived = New ListBox() ComboBoxPorts = New ComboBox() ComboBoxBaud = New ComboBox() ComboBoxHandshake = New ComboBox() ButtonConnect = New Button() ButtonDisconnect = New Button() LabelStatus = New Label() CheckBoxRTS = New CheckBox() CheckBoxCTS = New CheckBox() TimerCTS = New Timer(components) GroupBox1 = New GroupBox() btnPowerZone1Off = New Button() btnPowerZone1On = New Button() ButtonMasterVolDown = New Button() ButtonMasterVolUp = New Button() CheckBoxMasterMute = New CheckBox() GroupBox2 = New GroupBox() btnPowerZone2Off = New Button() btnPowerZone2On = New Button() ButtonZone2VolDown = New Button() ButtonZone2VolUp = New Button() CheckBoxZone2Mute = New CheckBox() GroupBoxPower = New GroupBox() btnPowerOff = New Button() btnPowerOn = New Button() txtPartialInput = New TextBox() GroupBox1.SuspendLayout() GroupBox2.SuspendLayout() GroupBoxPower.SuspendLayout() SuspendLayout() ' ' btnSendReady ' btnSendReady.Location = New Point(18, 227) btnSendReady.Name = "btnSendReady" btnSendReady.Size = New Size(90, 23) btnSendReady.TabIndex = 0 btnSendReady.Text = "Send Ready" btnSendReady.UseVisualStyleBackColor = True ' ' ButtonSend3 ' ButtonSend3.Location = New Point(315, 227) ButtonSend3.Name = "ButtonSend3" ButtonSend3.Size = New Size(75, 23) ButtonSend3.TabIndex = 2 ButtonSend3.Text = "Button3" ButtonSend3.UseVisualStyleBackColor = True ' ' ListBoxReceived ' ListBoxReceived.FormattingEnabled = True ListBoxReceived.HorizontalScrollbar = True ListBoxReceived.Location = New Point(12, 97) ListBoxReceived.Name = "ListBoxReceived" ListBoxReceived.Size = New Size(387, 124) ListBoxReceived.TabIndex = 3 ' ' ComboBoxPorts ' ComboBoxPorts.FormattingEnabled = True ComboBoxPorts.Location = New Point(6, 12) ComboBoxPorts.Name = "ComboBoxPorts" ComboBoxPorts.Size = New Size(68, 23) ComboBoxPorts.TabIndex = 4 ' ' ComboBoxBaud ' ComboBoxBaud.FormattingEnabled = True ComboBoxBaud.Location = New Point(80, 12) ComboBoxBaud.Name = "ComboBoxBaud" ComboBoxBaud.Size = New Size(75, 23) ComboBoxBaud.TabIndex = 5 ' ' ComboBoxHandshake ' ComboBoxHandshake.FormattingEnabled = True ComboBoxHandshake.Location = New Point(161, 12) ComboBoxHandshake.Name = "ComboBoxHandshake" ComboBoxHandshake.Size = New Size(157, 23) ComboBoxHandshake.TabIndex = 6 ' ' ButtonConnect ' ButtonConnect.Enabled = False ButtonConnect.Location = New Point(324, 12) ButtonConnect.Name = "ButtonConnect" ButtonConnect.Size = New Size(75, 23) ButtonConnect.TabIndex = 7 ButtonConnect.Text = "Connect" ButtonConnect.UseVisualStyleBackColor = True ' ' ButtonDisconnect ' ButtonDisconnect.Enabled = False ButtonDisconnect.Location = New Point(324, 41) ButtonDisconnect.Name = "ButtonDisconnect" ButtonDisconnect.Size = New Size(75, 23) ButtonDisconnect.TabIndex = 8 ButtonDisconnect.Text = "Disconnect" ButtonDisconnect.UseVisualStyleBackColor = True ' ' LabelStatus ' LabelStatus.Location = New Point(6, 45) LabelStatus.Name = "LabelStatus" LabelStatus.Size = New Size(182, 19) LabelStatus.TabIndex = 9 LabelStatus.Text = "Serial Port Status Appears Here" ' ' CheckBoxRTS ' CheckBoxRTS.AutoSize = True CheckBoxRTS.Location = New Point(194, 44) CheckBoxRTS.Name = "CheckBoxRTS" CheckBoxRTS.Size = New Size(58, 19) CheckBoxRTS.TabIndex = 10 CheckBoxRTS.Text = "RTS(7)" CheckBoxRTS.UseVisualStyleBackColor = True ' ' CheckBoxCTS ' CheckBoxCTS.AutoSize = True CheckBoxCTS.Checked = True CheckBoxCTS.CheckState = CheckState.Indeterminate CheckBoxCTS.Enabled = False CheckBoxCTS.Location = New Point(258, 44) CheckBoxCTS.Name = "CheckBoxCTS" CheckBoxCTS.Size = New Size(60, 19) CheckBoxCTS.TabIndex = 11 CheckBoxCTS.Text = "CTS(8)" CheckBoxCTS.ThreeState = True CheckBoxCTS.UseVisualStyleBackColor = True ' ' TimerCTS ' ' ' GroupBox1 ' GroupBox1.Controls.Add(btnPowerZone1Off) GroupBox1.Controls.Add(btnPowerZone1On) GroupBox1.Controls.Add(ButtonMasterVolDown) GroupBox1.Controls.Add(ButtonMasterVolUp) GroupBox1.Controls.Add(CheckBoxMasterMute) GroupBox1.FlatStyle = FlatStyle.Flat GroupBox1.Location = New Point(12, 256) GroupBox1.Name = "GroupBox1" GroupBox1.Size = New Size(84, 168) GroupBox1.TabIndex = 13 GroupBox1.TabStop = False GroupBox1.Text = "Zone 1" ' ' btnPowerZone1Off ' btnPowerZone1Off.Location = New Point(6, 56) btnPowerZone1Off.Name = "btnPowerZone1Off" btnPowerZone1Off.Size = New Size(66, 23) btnPowerZone1Off.TabIndex = 19 btnPowerZone1Off.Text = "O&ff" btnPowerZone1Off.UseVisualStyleBackColor = True ' ' btnPowerZone1On ' btnPowerZone1On.Location = New Point(6, 27) btnPowerZone1On.Name = "btnPowerZone1On" btnPowerZone1On.Size = New Size(66, 23) btnPowerZone1On.TabIndex = 18 btnPowerZone1On.Text = "&On" btnPowerZone1On.UseVisualStyleBackColor = True ' ' ButtonMasterVolDown ' ButtonMasterVolDown.Location = New Point(6, 114) ButtonMasterVolDown.Name = "ButtonMasterVolDown" ButtonMasterVolDown.Size = New Size(66, 23) ButtonMasterVolDown.TabIndex = 15 ButtonMasterVolDown.Text = "Vol Down" ButtonMasterVolDown.UseVisualStyleBackColor = True ' ' ButtonMasterVolUp ' ButtonMasterVolUp.Location = New Point(6, 85) ButtonMasterVolUp.Name = "ButtonMasterVolUp" ButtonMasterVolUp.Size = New Size(66, 23) ButtonMasterVolUp.TabIndex = 14 ButtonMasterVolUp.Text = "Vol Up" ButtonMasterVolUp.UseVisualStyleBackColor = True ' ' CheckBoxMasterMute ' CheckBoxMasterMute.AutoSize = True CheckBoxMasterMute.Location = New Point(6, 143) CheckBoxMasterMute.Name = "CheckBoxMasterMute" CheckBoxMasterMute.Size = New Size(54, 19) CheckBoxMasterMute.TabIndex = 13 CheckBoxMasterMute.Text = "Mute" CheckBoxMasterMute.UseVisualStyleBackColor = True ' ' GroupBox2 ' GroupBox2.Controls.Add(btnPowerZone2Off) GroupBox2.Controls.Add(btnPowerZone2On) GroupBox2.Controls.Add(ButtonZone2VolDown) GroupBox2.Controls.Add(ButtonZone2VolUp) GroupBox2.Controls.Add(CheckBoxZone2Mute) GroupBox2.FlatStyle = FlatStyle.Flat GroupBox2.Location = New Point(104, 256) GroupBox2.Name = "GroupBox2" GroupBox2.Size = New Size(84, 168) GroupBox2.TabIndex = 14 GroupBox2.TabStop = False GroupBox2.Text = "Zone 2" ' ' btnPowerZone2Off ' btnPowerZone2Off.Location = New Point(6, 56) btnPowerZone2Off.Name = "btnPowerZone2Off" btnPowerZone2Off.Size = New Size(66, 23) btnPowerZone2Off.TabIndex = 21 btnPowerZone2Off.Text = "O&ff" btnPowerZone2Off.UseVisualStyleBackColor = True ' ' btnPowerZone2On ' btnPowerZone2On.Location = New Point(6, 27) btnPowerZone2On.Name = "btnPowerZone2On" btnPowerZone2On.Size = New Size(66, 23) btnPowerZone2On.TabIndex = 20 btnPowerZone2On.Text = "&On" btnPowerZone2On.UseVisualStyleBackColor = True ' ' ButtonZone2VolDown ' ButtonZone2VolDown.Location = New Point(6, 114) ButtonZone2VolDown.Name = "ButtonZone2VolDown" ButtonZone2VolDown.Size = New Size(66, 23) ButtonZone2VolDown.TabIndex = 15 ButtonZone2VolDown.Text = "Vol Down" ButtonZone2VolDown.UseVisualStyleBackColor = True ' ' ButtonZone2VolUp ' ButtonZone2VolUp.Location = New Point(6, 85) ButtonZone2VolUp.Name = "ButtonZone2VolUp" ButtonZone2VolUp.Size = New Size(66, 23) ButtonZone2VolUp.TabIndex = 14 ButtonZone2VolUp.Text = "Vol Up" ButtonZone2VolUp.UseVisualStyleBackColor = True ' ' CheckBoxZone2Mute ' CheckBoxZone2Mute.AutoSize = True CheckBoxZone2Mute.Location = New Point(6, 143) CheckBoxZone2Mute.Name = "CheckBoxZone2Mute" CheckBoxZone2Mute.Size = New Size(54, 19) CheckBoxZone2Mute.TabIndex = 13 CheckBoxZone2Mute.Text = "Mute" CheckBoxZone2Mute.UseVisualStyleBackColor = True ' ' GroupBoxPower ' GroupBoxPower.Controls.Add(btnPowerOff) GroupBoxPower.Controls.Add(btnPowerOn) GroupBoxPower.FlatStyle = FlatStyle.Flat GroupBoxPower.Location = New Point(315, 341) GroupBoxPower.Name = "GroupBoxPower" GroupBoxPower.Size = New Size(84, 83) GroupBoxPower.TabIndex = 15 GroupBoxPower.TabStop = False GroupBoxPower.Text = "Power" ' ' btnPowerOff ' btnPowerOff.Location = New Point(6, 51) btnPowerOff.Name = "btnPowerOff" btnPowerOff.Size = New Size(66, 23) btnPowerOff.TabIndex = 18 btnPowerOff.Text = "O&ff" btnPowerOff.UseVisualStyleBackColor = True ' ' btnPowerOn ' btnPowerOn.Location = New Point(6, 22) btnPowerOn.Name = "btnPowerOn" btnPowerOn.Size = New Size(66, 23) btnPowerOn.TabIndex = 17 btnPowerOn.Text = "&On" btnPowerOn.UseVisualStyleBackColor = True ' ' txtPartialInput ' txtPartialInput.Location = New Point(12, 70) txtPartialInput.Name = "txtPartialInput" txtPartialInput.Size = New Size(387, 23) txtPartialInput.TabIndex = 16 txtPartialInput.Text = "partial messages appear here..." ' ' Form1 ' AutoScaleDimensions = New SizeF(7F, 15F) AutoScaleMode = AutoScaleMode.Font AutoSize = True AutoSizeMode = AutoSizeMode.GrowAndShrink ClientSize = New Size(413, 436) Controls.Add(txtPartialInput) Controls.Add(GroupBoxPower) Controls.Add(GroupBox2) Controls.Add(GroupBox1) Controls.Add(CheckBoxCTS) Controls.Add(CheckBoxRTS) Controls.Add(LabelStatus) Controls.Add(ButtonDisconnect) Controls.Add(ButtonConnect) Controls.Add(ComboBoxHandshake) Controls.Add(ComboBoxBaud) Controls.Add(ComboBoxPorts) Controls.Add(ListBoxReceived) Controls.Add(ButtonSend3) Controls.Add(btnSendReady) Name = "Form1" RightToLeft = RightToLeft.No Text = "Yamaha RX-2400 Controller" GroupBox1.ResumeLayout(False) GroupBox1.PerformLayout() GroupBox2.ResumeLayout(False) GroupBox2.PerformLayout() GroupBoxPower.ResumeLayout(False) ResumeLayout(False) PerformLayout() End Sub Friend WithEvents btnSendReady As Button Friend WithEvents ButtonSend3 As Button Friend WithEvents ListBoxReceived As ListBox Friend WithEvents ComboBoxPorts As ComboBox Friend WithEvents ComboBoxBaud As ComboBox Friend WithEvents ComboBoxHandshake As ComboBox Friend WithEvents ButtonConnect As Button Friend WithEvents ButtonDisconnect As Button Friend WithEvents LabelStatus As Label Friend WithEvents CheckBoxRTS As CheckBox Friend WithEvents CheckBoxCTS As CheckBox Friend WithEvents TimerCTS As Timer Friend WithEvents GroupBox1 As GroupBox Friend WithEvents CheckBoxMasterMute As CheckBox Friend WithEvents ButtonMasterVolDown As Button Friend WithEvents ButtonMasterVolUp As Button Friend WithEvents GroupBox2 As GroupBox Friend WithEvents ButtonZone2VolDown As Button Friend WithEvents ButtonZone2VolUp As Button Friend WithEvents CheckBoxZone2Mute As CheckBox Friend WithEvents GroupBoxPower As GroupBox Friend WithEvents txtPartialInput As TextBox Friend WithEvents btnPowerZone1On As Button Friend WithEvents btnPowerOff As Button Friend WithEvents btnPowerOn As Button Friend WithEvents btnPowerZone1Off As Button Friend WithEvents btnPowerZone2Off As Button Friend WithEvents btnPowerZone2On As Button End Class