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

《基于vb程序的串口通信实验.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、基于vb程序的串口通信实验一：实验目的：1通过实验，了解网络通讯的原理。2了解TCP和UDP协议的基本知识。3使用WINSLCK控件编写简单的网络应用程序。4了解VB的WITH语句及枚举方法。二：实验器材：两台pc机，一根电缆线。三：实验原理：1.通信部分:RS-232定义了21条接口电路的功能，接口连线叫做互换电路，简称电路。21条电路按照功能可分为五类，每个电路都有一个具体的功能。在本实验中，我们只是用到了其PIN2：发送数据TXD;PIN3:接收数据等引脚。2.网络协议部分:协议就是一组程序或者标准,通过它们

2、,不同类型和配置的计算机得以通讯.目前所有的计算机网络互连协议,都是基于ISO制定的OSI标准,OSI模型把网络连接从低到高划分为7个层次,物理层是最低的一层.在这一层上,主要解决电气上的技术问题.TCP协议是一个基于连结的允许创建和维护与远程计算机的连接.连结两台计算机就可以彼此进行数据传输.UDP协议则是一个无连结的协议.3.VB部分:在里面我们用到了WINSOCK控件.四：实验运行结果:1.发送:2.接收:3.设置参数:4．实验程序：五.实验总结:经过本次实验,使我学到了关于VB的相关知识,虽然我对VB的编程

3、还不是很熟练,但是我相信在今后的学习中我一定可以加强编程能力的.六．程序清单：PrivateSubCommand1_Click()IfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfMSComm1.Settings="9600,N,8,1"MSComm1.RThreshold=1MSComm1.PortOpen=TrueMSComm1.InputLen=0EndSubPrivateSubCommand2_Click()CallCommPortCloseintC

4、ommFlag=0EndSubCallFileSendManager(0)intCommFlag=1EndIfFileError:IfintCommFlag>0ThenintCommFlag=1ElseMsgBoxEndIfEndSubPrivateSubxSend_Click()abc=tc.TextIfMSComm1.PortOpen=TrueThenMSComm1.PortOpen=FalseEndIfMSComm1.Settings="9600,N,8,1"MSComm1.PortOpen=TrueMSCo

5、mm1.Output=abcMSComm1.PortOpen=FalseEndSubPrivateSubCommand5_Click()abc=MSComm1.Inputtt.Text=abcEndSubPrivateSubForm_Load()Text1=Winsock1.LocalIPIfMSComm1.PortOpen=FalseThenMSComm1.PortOpen=TrueEndIfabc=0blnShowFlag=TrueMain.Height=7000CallSetComm("9600,N,8,1"

6、,2,4096)intOutBufferSize=2048imtCommFlag=0Main.CommonDialog1.Flags=&HOrH2Main.CommonDialog1.CancelError=TrueblnFileTransFlag=FalselReceive.Text=""intArrayCount=0EndSub基于vb程序的串口通信实验