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

基于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 = 0 End Sub Private Sub Command2_Click() Call CommPortClose intCommFlag = 0 End Sub Call FileSendManager(0) intCommFlag = 1 End If FileError: If intCommFlag 0 Then intCommFlag = 1 Else MsgBox End If End Sub Private Sub xSend_Click() abc = tc.Text If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If MSComm1.Settings = 9600,N,8,1 MSComm1.PortOpen = True MSComm1.Output = abc MSComm1.PortOpen = False End Sub Private Sub Command5_Click() abc = MSComm1.Input tt.Text = abc End Sub Private Sub Form_Load() Text1 = Winsock1.LocalIP If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If abc = 0 blnShowFlag = True Main.Height = 7000 Call SetComm(9600,N,8,1, 2, 4096) intOutBufferSize = 2048 imtCommFlag = 0 Main.CommonDialog1.Flags = H200000 Or H2 Main.CommonDialog1.CancelError = True blnFileTransFlag = False lReceive.Text = intArrayCount = 0 End Sub 基于vb程序的串口通信实验