Option ExplicitPrivate Sub Command1_Click() MSComm1.Output = Trim(txtSend.Text) End SubPrivate Sub Command2_Click() Dim buf$ buf = Trim(MSComm1.Input) If Len(buf) = 0 Then txtReceive.Text = "Empty" Else txtReceive.Text = buf End If End SubPrivate Sub Command3_Click() MSComm1.PortOpen = False End End SubPrivate Sub Form_Load() MSComm1.PortOpen = True End Sub最簡單的一個回路測試,你測試能不能收倒的數據
MSComm1.Output = Trim(txtSend.Text)
End SubPrivate Sub Command2_Click()
Dim buf$
buf = Trim(MSComm1.Input)
If Len(buf) = 0 Then
txtReceive.Text = "Empty"
Else
txtReceive.Text = buf
End If
End SubPrivate Sub Command3_Click()
MSComm1.PortOpen = False
End
End SubPrivate Sub Form_Load()
MSComm1.PortOpen = True
End Sub最簡單的一個回路測試,你測試能不能收倒的數據
你这个程序应该是一个范例吧,没问题的:-)
由于我昨日有些着急,,没有把问题说清楚,,
那么我把我的问题再详细的说一遍:
我这有:一个LED屏,一个向LED屏发送信息的软件。
可是,,我没有LED屏的通讯协议,,
所以我用监听软件来监听这个软件向LED屏发送信息的过程,,得到一组数据,
然后,,我想用我自己的软件来向LED屏发送文字信息,而且就用上面得到的信息,,
我确保LED屏接收到了信息,,但是屏上并没有显示信息,,更不用说有文字显示了。