1、 接口形式
a)接口类型:RS232
b)传输协议:波特率19200bps、8位数据位、1位停止位、无校验
c) 采用二进制码;多字节数据传送时,低字节在前、高字节在后
2、发送的通信协议如下
此主题相关图片如下:0011.png
发送按钮代码如下
If e.form.Controls("sd").Enabled = False Then
Dim s,s2,s3 As String
s = DecToBin(e.form.Controls("sd").text)
If s.Length > 8 Then
s2 = s.SubString(s.Length-8)
s3 = s.SubString(0,s.Length-8)
Else
s2 = 0
s3 = s
End If
Dim v2,v3 As Integer
v2 = BinToDec(s2)
v3 = BinToDec(s3)
Dim Val() As Byte = New Byte() {235,144,v2,v3,v2,v3,v2,v3,0,0}
If Ports.Contains(vars("com")) = True Then
Ports(vars("com")).close()
Ports(vars("com")).open()
Ports(vars("com")).Write(Val, 0, Val.Length)
End If
e.form.Controls("sd").Enabled = True
e.form.Controls("sd").text = ""
Else
msgbox("请先对输入时转速进行确认,谢谢合作!",64,"温馨提示")
End If
为什么会不成功呢?
[此贴子已经被作者于2017/11/3 15:51:42编辑过]