急求！VB下用MSCOMM实现两台计算机之间RS232通信
急求！VB下用MSCOMM实现两台计算机之间RS232通信， --------------------编程问答-------------------- 参考《串口通讯》电子版第一部分和《串口通讯》电子版第二部分。 --------------------编程问答-------------------- 先用串口调试助手试试:下载地址:http://download.csdn.net/source/1626094 --------------------编程问答-------------------- 我也来一个：
串口通信调试器（含代码）：http://download.csdn.net/source/1262066
VB 使用API实现串口通信：http://download.csdn.net/source/1339593
《串口通信》一书，江南大侠发了地址，我就不发了。 --------------------编程问答-------------------- 这个是我用的
sub ms_ini()
MSComm1.CommPort = 1 'COM端口号
On Error GoTo err
MSComm1.PortOpen = True
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '采用二进制接收
MSComm1.InBufferCount = 0 '清空接受缓冲区
MSComm1.OutBufferCount = 0 '清空传输缓冲区
MSComm1.RThreshold = 34 '产生MSComm事件
MSComm1.SThreshold = 0
end sub
’响应事件
Private Sub MSComm1_OnComm()
Dim av() As Byte
Dim receivedata() As Byte
On Error Resume Next
Select Case MSComm1.CommEvent
Case comEvReceive
'Text4 = Text4 & MSComm1.InBufferCount
MSComm1.InputLen = 0
av = MSComm1.Input
receivedata() = av
End Select
indata() = receivedata()
mscomm1_used = False
If form1_show Then
Call Form1.form1_MSComm1_OnComm
ElseIf form2_show Then
Call Form2.form2_MSComm1_OnComm
ElseIf form3_show Then
Call Form3.form3_MSComm1_OnComm
ElseIf form4_show Then
Call Form4.form4_MSComm1_OnComm
ElseIf form5_show Then
Call Form5.form5_MSComm1_OnComm
ElseIf form8_show Then
Call Form8.form8_MSComm1_OnComm
ElseIf form11_show Then
Call Form11.form11_MSComm1_OnComm
Else
Exit Sub
End If
End Sub
'数据的发送下面
'函数： SendData
'功能：发送数据
'创建日期：09.6.12
'创建人 ：马艳
'出处：X
Public Function SendData(ByRef bytData() As Byte) As Long
On Error Resume Next
MSComm1.Output = bytData '发送数据
Do
DoEvents
Loop Until MSComm1.OutBufferCount = 0 '等待，直到数据发送完毕
End Function
'发送
Call MDIForm1.SendData(bytData) '发送
你根据你的应用做下修改 --------------------编程问答-------------------- 学习一下，哈。不是学软件，但自己想做个测试界面 --------------------编程问答-------------------- 我也是遇到串口通讯的难题，一直是第二次读数据时读到错误的数据，郁闷！！！ --------------------编程问答-------------------- --------------------编程问答-------------------- up~~
补充：VB , COM/DCOM/COM+
