Add the VisBasic version

2026-01-17 10:27:37 -06:00
parent cb15d61c5e
commit f7826bd69f
9 changed files with 936 additions and 0 deletions
--- a/VisBasic/Form1.Designer.vb
+++ b/VisBasic/Form1.Designer.vb
@@ -0,0 +1,388 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class Form1
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    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.
+	<System.Diagnostics.DebuggerStepThrough()>
+	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