Question

怎么在vb中通过mscomm控件的output 向外以十六进制发送“01”？是“01”不是“1”哦，今天在线等

Answer 1

在窗体上添加一个mscomm控件
function trs_data()
dim A as byte
A=&H01
MSComm1.Settings = “9600,n,1,1"
MSComm1.CommPort =1
MSComm1.PortOpen = True

MSComm1.Output = A '输出指令
end function

追问

外面的仪器接收到十六进制的“01”信号后，会以ascii码的方式返回数据，我要怎么接收才能正确显示呢？能写下完整的程序么？

追答

dim str as string
MSComm1.InputLen = 0
str = MSComm1.Input

字符串str中的数据就是接收到的ASCII数据

追问

但是我要把它显示在文本框里面，这样也可以么？要怎么写？

追答

加多一句 text1.text=str 就可以了

追问

能把整个程序完整写一遍么？这边还是不行。

追答

按照图片所示在窗体上添加控件
Private Sub Command1_Click()
Dim A(0) As Byte
MSComm1.InputLen = 0
A(0) = 1
MSComm1.Output = A '发送1个字节
'
Timer1.Interval = 500 '延迟500毫秒后接收
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 500

With MSComm1
.CommPort = 2
.Settings = "9600,n,8,1"
.PortOpen = True
.InputMode = comInputModeText
End With
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
MSComm1.InputLen = 0
Text1.Text = MSComm1.Input
End Sub