请教各位编程高手!SOS有关rs232接口的问题
用VB编写程序能在rs232接口上读出,并在此基础上再写一段小程序能运行得出~拜托各位指点迷津.
[解决办法]
Private Sub cmdTest_Click()
Dim SendHead(4) As Byte '定义字节型数组
Dim str As String
SendHead(0) = &HAA '给数组付值
SendHead(1) = &HAA
SendHead(2) = &HAA
SendHead(3) = &H4E
'字节总数
str = "asasdf "
MSComm1.CommPort = 1 '串口1
MSComm1.Settings = "57600,n,8,1 " '初始化串口设置
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '打开串口
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.Output = SendHead '发送数据
MSComm1.Output = str '发送数据
MSComm1.PortOpen = False '关闭串口
End Sub
[解决办法]
Dim cc(255) As Byte
For i = 0 To 255
cc(i) = i
Next i
MSComm1.Output = cc
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0
'接收过程 MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant, b1, i
MSComm1.InputMode = comInputModeBinery
MSComm1.InputLen = 0
Buffer = MSComm1.Input
For i = LBound(Buffer) To UBound(Buffer)
Debug.Print Buffer(i);
Next i
