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

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

网线传输快，但有做前的数控系统不支持网线传输。如果都是新的数控系统都支持网线传输，还是用网线传输好，速度快，传输距离远。

串口连接传颂胡激输速野袜度慢，传输距离近，传送但应用普遍。

方便小御笑白传程序的串口TTL芯片。单片机原理图有两块芯片另外一个是方便携桥小白传程序的串口TTL芯片，在nano版本就没镇隐含有这个了，这时传程序需要外接TTL芯片或USBISP。

---