1,502
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim sjByt() As Byte
Private Sub Command1_Click() '2进制发送
ReDim sjByt(1 To 10) '设置为10个元素
sjByt(1) = &H31
sjByt(2) = &H32
sjByt(3) = &H12
sjByt(4) = &H31
sjByt(5) = &H32
sjByt(6) = &H33
sjByt(7) = &H34
sjByt(8) = &H35
sjByt(9) = &H36
sjByt(10) = &H37
MSComm1.Output = sjByt '此命令执行一次发送10字节
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub MSComm_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # of chars.
'写接收代码
End Select
End Sub