基于vb程序的串口通信实验

下载后可任意编辑 基于 vb 程序的串口通信实验一：实验目的：1 通过实验，了解网络通讯的原理。 2 了解 TCP 和 UDP 协议的基本知识。 3 使用 WINSLCK 控件编写简单的网络应用程序。4 了解VB 的 WITH 语句及枚举方法。二：实验器材：两台 pc 机，一根电缆线。下载后可任意编辑三：实验原理：1. 通信部分:RS-232 定义了 21 条接口电路的功能，接口连线叫做互换电路，简称电路。21 条电路根据功能可分为五类，每个电路都有一个具体的功能。在本实验中，我们只是用到了其 PIN2：发送数据 TXD;PIN3:接收数据等引脚。2.网络协议部分:协议就是一组程序或者标准,通过它们,不同类型和配置的计算机得以通讯.目前所有的计算机网络互连协议,都是基于 ISO 制定的 OSI 标准,OSI 模型把网络连接从低到高划分为 7 个层次,物理层是最低的一层.在这一层上,主要解决电气上的技术问题.TCP 协议是一个基于连结的允许创建和维护与远程计算机的连接.连结两台计算机就可以彼此进行数据传输.UDP 协议则是一个无连结的协议.3.VB 部分:在里面我们用到了 WINSOCK 控件.四：实验运行结果:下载后可任意编辑1.发送:下载后可任意编辑2.接收:3.设置参数:下载后可任意编辑4．实验程序：五.实验总结: 经过本次实验,使我学到了关于 VB 的相关知识,虽然我对 VB 的编程还不是很熟练,但是我信任在今后的学习中我一定可以加强编程能力的.六．程序清单：Private Sub Command1_Click()If MSComm1.PortOpen = True Then MSComm1.PortOpen = False下载后可任意编辑 End If MSComm1.Settings = "9600,N,8,1" MSComm1.RThreshold = 1 MSComm1.PortOpen = True MSComm1.InputLen = 0End SubPrivate Sub Command2_Click()Call CommPortCloseintCommFlag = 0End Sub Call FileSendManager(0) intCommFlag = 1 End IfFileError: If intCommFlag > 0 Then intCommFlag = 1 Else MsgBox End IfEnd SubPrivate Sub xSend_Click()abc = tc.TextIf MSComm1.PortOpen = True ThenMSComm1.PortOpen = FalseEnd IfMSComm1.Settings = "9600,N,8,1"MSComm1.PortOpen = TrueMSComm1.Output = abcMSComm1.PortOpen = FalseEnd SubPrivate Sub Command5_Click()abc = MSComm1.Input tt.Text = abcEnd SubPrivate Sub Form_Load()Text1 = Winsock1.LocalIP If MSComm1.PortOpen...