|
|
- Public zhuanxiang As String
- Private Sub Combo1_Change()
- '這個(gè)里面什么也不寫正好
- End Sub
- Private Sub Command1_click()
- If Command1.Caption = "啟動(dòng)" Then
- MSComm1.Settings = "2400,n,8,1"
- MSComm1.PortOpen = True
- Command1.Caption = "停止"
- MSComm1.Output = "F" '停機(jī)
- MSComm1.InputMode = comInputModeBinary
- MSComm1.InputLen = 0
- Else
- Command1.Caption = "啟動(dòng)"
- MSComm1.Output = "E" '開(kāi)機(jī)
- MSComm1.PortOpen = False
- End If
- End Sub
- Private Sub Command2_Click()
- End '退出 這個(gè) End 就是退出語(yǔ)句
- End Sub
- Private Sub Form_Load()
- If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
-
- Combo1.AddItem "COM1" '1： 這個(gè)串口語(yǔ)句放在Form_Load窗口上運(yùn)行程序就能看見(jiàn)串口號(hào)
- Combo1.AddItem "COM2" '2： 再一個(gè)放在那個(gè)按鍵的語(yǔ)句上就是按那個(gè)按鍵才會(huì)看見(jiàn)串口號(hào)
- Combo1.AddItem "COM3" '3: 第二種還愛(ài)死機(jī) 盡量不使用
- Combo1.AddItem "COM4"
- Combo1.AddItem "COM5"
- Combo1.AddItem "COM6"
- Combo1.AddItem "COM7"
- Combo1.AddItem "COM8"
- Combo1.AddItem "COM9"
- Combo1.ListIndex = 0 '讀取com口號(hào)
- End Sub
- Private Sub LEET_Click()
- MSComm1.Output = "B" '左轉(zhuǎn)，left
- zhuanxiang = "正轉(zhuǎn)"
- Text3.Text = zhuanxiang
- End Sub
- Private Sub MSComm1_OnComm()
- '這個(gè)串口控件在別處設(shè)置好后這里也不用放什么 ，也主要是用他的控件“名稱”
- End Sub
- Private Sub Text1_Change()
- '這個(gè)控件就是用他的名稱，別的控件找到他的名稱就是給他數(shù)據(jù)
- End Sub
- Private Sub Text3_Change()
- '這個(gè)控件就是用他的名稱，別的控件找到他的名稱就是給他數(shù)據(jù)
- End Sub
- Private Sub Timer1_Timer()
- Dim speed As Variant '這幾段語(yǔ)句是時(shí)間設(shè)置的地方
- Dim indate As Byte '也是基準(zhǔn)串口波特率在這兒
- 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" '右轉(zhuǎn)，right
- zhuanxiang = "反轉(zhuǎn)"
- Text3.Text = zhuanxiang
- End Sub
|
|
