Private Sub Command1_Click()
Dim send(0 To 3) As Byte
send(0) = &HC0
send(1) = &HC0
send(2) = &H8
send(3) = &H41
MSComm1.Output = send
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
MSComm1.CommPort = 3 '??????
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
MSComm1.InputMode = comInputModeBinary
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.SThreshold = 2
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
End Sub
Private Sub Command4_Click()
MSComm1.OutBufferCount = 0
End Sub
Private Sub Command5_Click()
MSComm1.InBufferCount = 0
End Sub
Private Sub MSComm1_OnComm()
Dim buffer As String
buffer = MSComm1.Input
Text2.Text = buffer
End Sub
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
