1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&HA) & Chr(&H1) & Chr(&H8)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 0A 01 08"
End Sub
Private Sub Command2_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H1) & Chr(&H4) & Chr(&H6)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 01 04 06"
End Sub
Private Sub Command3_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H1) & Chr(&H5) & Chr(&H7)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 01 05 07"
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H1) & Chr(&H1) & Chr(&H3)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 01 01 03 "
End Sub
Private Sub Command6_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H1) & Chr(&H3) & Chr(&H1)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 01 03 01 "
End Sub
Private Sub Command7_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H2) & Chr(&H5) & Chr(&H4)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 02 05 04"
End Sub
Private Sub Form1_Load()
'MSComm1控件串行通信初始化
With MSComm1 '注:此项也可在MSComm1的属性中直接设置。
.CommPort = 4 '根据用户具体情况选择串口
.Settings = "9600,n,8,1" '设置波特率为9600bit/s,无校验,8位数据位,1位停止位
.InputMode = comInputModeText '以字符串格式读取接收缓冲区
.RThreshold = 1 '接收到的字符大于1就会产生接收事件
.InputLen = 1 '读取接收缓冲区中的全部内容(设备中发送多少字节这里就写多少)
End With
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True '打开通信端口
End If
End Sub
Private Sub Command8_Click()
Text3.Text = "" '清空文本框信息
Text4.Text = "" '清空文本框信息
'向读写器发送的指令
MSComm1.Output = Chr(&H55) & Chr(&H55) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H3) & Chr(&H1) & Chr(&H2) & Chr(&H0)
'提示用户在文本框中显示指令代码
Text1.Text = "55 55 00 00 00 03 01 02 00"
End Sub
Private Sub MSComm1_OnComm()
'变量初始化定义
Dim i As Integer
Dim ascii As Integer
If MSComm1.CommEvent = comEvReceive Then
Text2.Text = MSComm1.Input
For i = 1 To Len(Text2.Text)
ascii = Asc(Mid(Text2.Text, i, 1))
Text3.Text = Text3.Text & CStr(Hex(ascii)) & " " '文本赋值
Text4.Text = Text4.Text & CStr(ascii) & " " '文本赋值
Next i
End If
End Sub