VB程序间通信问题

来源：百度知道 编辑：UC知道 时间：2024/07/08 23:53:53
十分简单 一个程序能向另一个程序发送简单的数据 一个0 或1
串口 什么都行 测试的时候是在同一台机子上运行的 最好是串口的嘛

LZ:你机器具有2个COM口,可以实施串口通信.
ASCII字符收发:
Option Explicit
Dim strInput As String

Private Sub Command1_Click()
Dim strSend As String
strSend = "1"
MSComm1.Output = strSend
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 '一个设置为1,另一个设置为2
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
MSComm1.InputLen = 0
strInput = strInput & MSComm1.Input
Text1 = strInput
End Select
End Sub

2进制接收:
Option Explicit
Dim strInput As String

Private Sub Command1_Click()
Dim binSend(0) As Byte
binSend = &H1
MSComm1.Output = binSend
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MS