Question

求VB用串口在两台计算机上进行传输数据的程序

要求：相当于获取数据的仪器通过串口传输到一台计算机上，而获取数据的仪器被另一台计算机程序输入数据代替了。只求代替的这台计算机的程序！说得更明白点，就是在这台计算机输入数据，转换成仪器的获取的原始数据.

Answer 1

1. 声明com控件
Public WithEvents moCom As SCCIATLLib.WinCom
2. 进行连接
Set moCom = New SCCIATLLib.WinCom
moCom.Setup 9600, 8, 0, 0
moCom.SetupBlockModel 0
moCom.SetupHandshaking 1
moCom.Open "comx" 'com口设备
3 . 发送数据
moCom.Write “少时诵诗书”
4. 接收数据
Private Sub moCom_OnComEvent(ByVal comEvent As Integer, ByVal eError As Integer)
comEvent=1时表示接收数据
‘下面用循环读出缓冲里的全部数据。读完后会自动清除已读数据。
sA = frmMain.moCom.Read
Do While sA <> ""

mScom = mScom & sA
'lblMsg = "目前的连接状况：良好"

sA = frmMain.moCom.Read
Loop

Answer 2

你是要一个仪器的模拟器吧，首先需要知道仪器的通讯协议（数据格式），然后用程序按格式发送数据。很简单的

追问

说对了，仪器模拟器。数据格式是十六进制的数字，求程序，您发个代码给我吧

追答

不好意思，年底很忙。VB串口编程一般用微软的串口控件，你随便找一个VB的串口编程源程序看一下就明白了，MSCOMM控件的方法和属性查一下就知道了，主要是设置波特率、串口号等，要根据模拟器要求的格式设置，比较简单的，因为要输出十六进制数，你可能需要用到数据转换，也很好弄的

Answer 3

有个 VB的串口调试精灵代码

需要 联系 homewaygd@gmail.com