《自-基于vb程序的串口通信实验2》由会员分享,可在线阅读,更多相关《自-基于vb程序的串口通信实验2(8页珍藏版)》请在金锄头文库上搜索。
1、 基于vb程序的串口通信实验一:实验目的:通过实验,了解网络通讯的原理。 2了解TC和UDP协议的基本知识。使用WINSLCK控件编写简单的网络应用程序。4了解VB的WIT语句及枚举方法。二:实验器材:两台机,一根电缆线。三:实验原理:. 通信部分:RS32定义了2条接口电路的功能,接口连线叫做互换电路,简称电路。2条电路按照功能可分为五类,每个电路都有一个具体的功能。在本实验中,我们只是用到了其PI2:发送数据TXD;IN3:接收数据等引脚。2.网络协议部分:协议就是一组程序或者标准,通过它们,不同类型和配置的计算机得以通讯目前所有的计算机网络互连协议,都是基于SO制定的OSI标准,OS模型
2、把网络连接从低到高划分为7个层次,物理层是最低的一层在这一层上,主要解决电气上的技术问题.T协议是一个基于连结的允许创建和维护与远程计算机的连接.连结两台计算机就可以彼此进行数据传输UD协议则是一个无连结的协议V部分:在里面我们用到了WIOCK控件四:实验运行结果:1.发送:.接收:3.设置参数:4实验程序:五.实验总结:经过本次实验,使我学到了关于VB的相关知识,虽然我对的编程还不是很熟练,但是我相信在今后的学习中我一定可以加强编程能力的.六.程序清单:Private ub Cmmnd1Clik()If MSCom1.Porten = rehen Momm1.Ptp = Fase EndIf
3、 MSommSetting 96,N,8,1 MSomm1RThreshold= MSComm1.ortOpen True MSC1InputLen = 0EndSbPivat ub ommand2_Clck()Call omortClosentommFl ESub Call (0) itCmFag 1 End f: f intCmmg 0 hen intommFlag=1 e Msgo End nd SuPrivae ub xSend_Click()abc = tc.TetIf MSCom1.PortOpen = Tu henSCom1PrOpen FlseEdIfMSm1.Seting =
4、 600,N,8,1MSCo1.Portp uMCommOtpu acMSCom1.PrOn alend SubPrivate SbCommand5_ik()abc MComm1.Ipt t.Text = bcn SubPriva u Form_Lod()Txt1 = nscoalI IfMSComm1.Pren =alseThenSCmm1.PortOpen Trend If bc =0 blnShowFlag= True a.Hght=7000 Call StCm(90,N,8,1, 2, 40) intutuffeSe =208 itCommFlag = MainCmnDialog1.Fags &000 Or 2 Mai.CommonDalog1CnclError =Tue bln = as lReceiv.Te= ntArraCoun = 0Ed Sub基于b程序的串口通信实验