- Public zhuanxiang As String
- Private Sub Combo1_Change()
- '這個里面什么也不寫正好
- End Sub
- Private Sub Command1_click()
- If Command1.Caption = "啟動" Then
- MSComm1.Settings = "2400,n,8,1"
- MSComm1.PortOpen = True
- Command1.Caption = "停止"
- MSComm1.Output = "F" '停機
- MSComm1.InputMode = comInputModeBinary
- MSComm1.InputLen = 0
- Else
- Command1.Caption = "啟動"
- MSComm1.Output = "E" '開機
- MSComm1.PortOpen = False
- End If
- End Sub
- Private Sub Command2_Click()
- End '退出 這個 End 就是退出語句
- End Sub
- Private Sub Form_Load()
- If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
-
- Combo1.AddItem "COM1" '1： 這個串口語句放在Form_Load窗口上運行程序就能看見串口號
- Combo1.AddItem "COM2" '2： 再一個放在那個按鍵的語句上就是按那個按鍵才會看見串口號
- Combo1.AddItem "COM3" '3: 第二種還愛死機 盡量不使用
- Combo1.AddItem "COM4"
- Combo1.AddItem "COM5"
- Combo1.AddItem "COM6"
- Combo1.AddItem "COM7"
- Combo1.AddItem "COM8"
- Combo1.AddItem "COM9"
- Combo1.ListIndex = 0 '讀取com口號
- End Sub
- Private Sub LEET_Click()
- MSComm1.Output = "B" '左轉，left
- zhuanxiang = "正轉"
- Text3.Text = zhuanxiang
- End Sub
- Private Sub MSComm1_OnComm()
- '這個串口控件在別處設置好后這里也不用放什么 ，也主要是用他的控件“名稱”
- End Sub
- Private Sub Text1_Change()
- '這個控件就是用他的名稱，別的控件找到他的名稱就是給他數據
- End Sub
- Private Sub Text3_Change()
- '這個控件就是用他的名稱，別的控件找到他的名稱就是給他數據
- End Sub
- Private Sub Timer1_Timer()
- Dim speed As Variant '這幾段語句是時間設置的地方
- Dim indate As Byte '也是基準串口波特率在這兒
- If MSComm1.InBufferCount > 0 Then
- speed = MSComm1.Input
- indate = AscB(speed)
- Text1.Text = indate
- End If
- End Sub
- Private Sub UP_Click()
- MSComm1.Output = "C" '加速
- zhuanxiang = "加速"
- Text3.Text = zhuanxiang
- End Sub
- Private Sub DOWN_Click()
- MSComm1.Output = "D" '減速
- zhuanxiang = "減速"
- Text3.Text = zhuanxiang
- End Sub
- Private Sub RIGHT_Click()
- MSComm1.Output = "A" '右轉，right
- zhuanxiang = "反轉"
- Text3.Text = zhuanxiang
- End Sub
|
