基于spcp技术串口实现双机通信(6)

第5章 程序的测试与运行

5.1 软件及硬件测试

本程序的测试运行需要把两台计算机用串口线连接起来进行，或者在把一台机器上的两个串行口连接起来，本论文采用的是前一种方式。 5.1.1 发送消息时

发送方和收信方见下图。

图5.1 发送方窗口

输入中文“04级通信工程毕业设计”点“发送”收信方窗口如图5.2：

- 20 -

图5.2 收信方窗口

同时发送方也可以作为接受方，例如输入中文“于向阳”点“发送”如图5.1。 5.1.2 发送文件时

当发送方选定文件路径即文件名后，接收端将弹出一个标准的“另存为”对话框由接收方选择存盘路径，如果所选择的路径指向的文件已存在，则程序会询问是否覆盖原有的文件，确定后即可开始接收。

图5.3 选择要发送的文件

- 21 -

图5.4 发送方窗口

图5.4 保存收到的文件

- 22 -

图5.5 收信方窗口

至此，完成了双机通信程序的发送消息和发送文件两个功能，达到了预期的效果。

5.2 总结

随着计算机应用领域的不断扩展，计算机之间的远程通信用得也越来越广泛。作为RAD开发工具代表的VisualBasic同样提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）、还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件等，可以满足通常情况下的串口通信需求。如果在实际应用过程中，能够很好的掌握MSComm控件的特性，灵活变通，就可以达到安全、稳定、高效通信的目的。

在本文中，以控件作为底层接口，在此基础上建立了一个简单的串行通信协议SPCP，并由此实现了实时通信和文件传输功能。当然还有一些缺点，比如文件传输效率较低，安全性也较差，由于是做聊天和数据的传输，为了减少传输的负担，就没有设置校验位，还有待于进一步的完善和优化。

- 23 -

附录

(1)相关代码

Dim RHead, RType, One, IsStr As Boolean Dim RStr, Sendstr As String Dim b(0 To 1) As Byte

Dim strSet As String Dim intPort As Long Dim intOutBuffer As Long

Private Sub OpenPort_Click()

If frmMain.ctrMSComm.PortOpen = False Then Call CommPortOpen

Sendstr = \设置:打开串行口!\ Else

Sendstr = \设置:串行口已经打开!\ End If End Sub

Private Sub ClearRecV_Click() RecV.Text = \End Sub

Private Sub CommPortClose_Click() If ctrMSComm.PortOpen = True Then ctrMSComm.PortOpen = False

Sendstr = MsgBox(\串行口已关闭!\ Else

Sendstr = MsgBox(\串行口已关闭!\

- 24 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库基于spcp技术串口实现双机通信(6)在线全文阅读。