|
我要做一个发送和接受简单程序<br />我软件发送时我用导线把发送和接受端短接应该是发送什么在文本里面应该显示什么可是什么也没有请大家看看是什么原因呀!<br />Private Sub Command2_Click()<br />Text1.Text = buf<br />End Sub<br /><br />Private Sub Form_Load()<br />Dim instring As String<br />MSComm1.InputMode = comInputModeText<br />MSComm1.InBufferSize = 1024<br />MSComm1.CommPort = 1<br />If Not MSComm1.PortOpen Then<br />MSComm1.PortOpen = True<br />End If<br />MSComm1.Settings = "2400,N,8,1"<br />MSComm1.InputLen = 0<br />MSComm1.InBufferCount = 0<br />MSComm1.RThreshold = 8<br />End Sub<br />Private Sub Command1_Click()<br />Dim buf1 As Variant<br />Dim Data1(8) As Byte<br />If Not MSComm1.PortOpen Then<br />MSComm1.PortOpen = True<br />End If<br />Data1(0) = &H0<br />Data1(1) = &H11<br />Data1(2) = &H22<br />Data1(3) = &H33<br />Data1(4) = &H44<br />Data1(5) = &H55<br />Data1(6) = &H66<br />Data1(7) = &HAA<br />buf1 = Data1<br />MSComm1.Output = buf1<br />MSComm1.PortOpen = False<br />End Sub<br /><br />Private Sub MSComm1_OnComm()<br />If Not MSComm1.PortOpen Then<br />MSComm1.PortOpen = True<br />End If<br />Select Case MSComm1.CommEvent<br />Case comEvReceive<br /> buf = MSComm1.Input<br />End Select<br />MSComm1.PortOpen = False<br /><br />End Sub |
|
楼主
