vb串口通信源代码
- 格式:pdf
- 大小:86.54 KB
- 文档页数:12
Private Declare Function ShellExecute Lib"shell32.dll"Alias "ShellExecuteA"(ByVal hwnd As Long,ByVal lpOperation As String,ByVal lpFile As String,ByVal lpParameters As String,ByVal lpDirectory As String,ByVal nShowCmd As Long)As Long
Private Sub Combo1_Click()
If MSComm1.PortOpen=True Then'如果串口打开先关闭后再进行其他操作
MSComm1.PortOpen=False
End If
mPort=Combo1.ListIndex+1'读取com口号
End Sub
Private Sub Command1_Click()'发送到窗口现在时间
time1=Time
date1=Date
now1=Now
Text1.Text=Hour(Time)&"时"&Minute(Time)&"分"& Second(Time)&"秒"&vbNewLine&Year(Date)&"年"& Month(Date)&"月"&Day(Date)&"日"
End Sub
Private Sub Command2_Click()
Text1.Text="详情参考"&vbNewLine&"淘宝店铺:/"'说明内容输出
End Sub
Private Sub Command3_Click()'清空文本内容
Text1.Text=""'接收窗口
End Sub
Private Sub Command4_Click()'清空文本内容
Text2.Text=""'发送窗口
End Sub
Private Sub Command5_Click()
On Error GoTo uerror'发现错误跳转到错误处理
If Command5.Caption="关闭串口"Then
MSComm1.PortOpen=False
Command5.Caption="打开串口"'按钮文字改变
Shape1.FillColor=&HFFFFC0'灯颜色改变Else
MSComm1.PortOpen=True
Command5.Caption="关闭串口"
Shape1.FillColor=&HFF
End If
Exit Sub
uerror:
msg$="无效端口号"'错误显示
Title$="串口调试助手"
x=MsgBox(msg$,48,Title$)'48标示显示警告图标
End Sub
Private Sub Command6_Click()
Dim Temp(0)As Byte
Dim strBuff As String
If Option5.Value=True Then'如果显示16进制发送则进行16进制处理,这里只发送一个
Temp(0)="&H"&Text2
MSComm1.Output=Temp'发送一个16进制
Else
strBuff=Text2
End If
If MSComm1.PortOpen=False Then
MsgBox"请打开串口"
End If
On Error GoTo uerror
MSComm1.Output=strBuff
Label11.Caption=Label11.Caption+Len(strBuff)'发送计数uerror:
End Sub
Private Sub Command7_Click()'自动发送If Command7.Caption="自动发送"Then Command7.Caption="关闭自动发送"
Timer2.Interval=Text3.Text
Timer2.Enabled=True
Else
Command7.Caption="自动发送"
Timer2.Enabled=False
End If
End Sub
Private Sub Command8_Click()'清零计数器Label10.Caption=0
Label11.Caption=0
End Sub
Private Sub Form_Load()
If MSComm1.PortOpen=True Then
MSComm1.PortOpen=False
Else
End If
Combo1.AddItem"COM1"
Combo1.AddItem"COM2"
Combo1.AddItem"COM3"
Combo1.AddItem"COM4"
Combo1.AddItem"COM5"
Combo1.AddItem"COM6"
Combo1.AddItem"COM7"
Combo1.AddItem"COM8"
Combo1.AddItem"COM9"
Combo1.AddItem"COM10"
Combo1.AddItem"COM11"
Combo1.AddItem"COM12"
Combo1.AddItem"COM13"
Combo1.AddItem"COM14"
Combo1.AddItem"COM15"
Combo1.AddItem"COM16"
Combo1.ListIndex=0
mPort=Combo1.ListIndex+1