vb程序串口通信实验.docxVIP

自 动 化 网 络 串 口 通 信 实 验 RS232串口通信实验 一、 实验目的： 实现PC机通过RS232串口进行数据的收发。 熟悉并掌握 RS232串口标准及通信原理。 二、 实验设备： PC机一台，RS232串口通信线一条，跳线一个 三、 实验内容： RXD与1）将RS232串口通信线与 PC机连接，并用跳线将 RS232 RXD与 TXD 两针短接。b5E2RGbCAP 2）在VB程序环境下，完成相关的程序编写及初始设置。 3）调试程序完成数据的发送和接受。 四、 实验编程及设置： 1）实验程序： Private Sub Form1_load（ MSComml.PortOpen = True End Sub Private Sub Command1_Click（ MSComml.Output = Textl.Text End Sub Private Sub Command2_Click( Dim buf$ buf = MSComm1」nput If Len(buf = 0 Then Text2.Text = empty Else Text2.Text = buf End If End Sub Private Sub Command3_Click( MSComm1.PortOpen = False End End Sub Private Sub Command4_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 (2实验设置界面 3).发送界面 4).接收界面  5).程序代码界面 科，工程 I ■ Ki^rosof t Visual Basic [设计]- [FotbI (Code)] Q文件① 踹辑⑥ 观图世】工程世）格式? 调试运行? 查询⑩ 削表① 工具⑴ 外接程序迦 窗口逬） 3 0 ” 2 0 右 #4 o■財窗邑替歩區功行亿列1 3 0 ” 2 0 右 #4 o ■財窗邑替歩區功行亿列1 (Jerteral t Lq d Private Sub FQrml_load C) OSComml. PartOpen = True End Sut Private Sub C^mmandl.Cli ek () MSCoiTiml. Output - Textl. Text End Sub (7 a同 (7 a同ES @ □ 口圍 Private Sul C^mand2_Cli ck 0 Dim bufS buf = Input If Len (buf) = 0 Then Text?. Test = *wptjr^ Else Text2. Text = buf End If 氐d 3讪 Private Sub Cortimarid3_Cli ck () MSComml. Par tOpeit = ￥alse End End Sub Private Sub Comm?id4_Cli ck0 If NSComml. FortOpen = Trua Tlktb MSComml, F^rtOpen = F%lse End If MSCommL S?ttin^s = *5600, 8, 1 MSComml. RThreshold = 1 MSComml, FortOp^n 二 True MEComml. InputLen 二 0 End..Sub Private Sub Form Load 0 I ? End Sub 五、实验心得： 通过本次对 RS232串口通信实验，成功的实现了在 PC机串口 标准和串口通信原理下的数据接收与发送，达到了实验的目的。虽 然实验不是很难，但是本次实验让我对 RS232串口通信和VB的使 用有了更进一步的认识，提高了动手能力，而且增加了实验经验， 可谓一举两得。所以说，再简单的实验只要你认真去做，你都能得 到意想不到的效果。在以后的事情中，我也要拿出这种做事态度， 把每件事做到最好。 plEanqFDPw