微波EDA网,见证研发工程师的成长!
首页 > 硬件设计 > 嵌入式设计 > PTP2000及其在不停车收费系统中的应用

PTP2000及其在不停车收费系统中的应用

时间:03-12 来源:互联网 点击:

5.2 PC机接收部分编程

本例中PC机接收部分通过对Visual Basic中的MSComm控件编程实现对计算机串口通讯的程序设计。

PC 串口的RTS经电平转换与PTR2000无线MODEM的TXEN相连。计算机要发送数据时,RTS变为逻辑1有效,亦即PTR2000的Pin7 (TXEN)被置为1,此时可发送数据;计算机接收数据时,RTS变为逻辑0有效,亦即PTR2000的Pin7(TXEN)被置为0,此时可接收数据。

程序的设计窗体如图5所示。

PC机接收部分程序介绍如下:
Option Explicit
Public ReceiveStr As String
Private Sub Form_Load()
MSComm2.CommPotr = 2
MSComm2.Settings = 9600,n,8,1
MSComm2.InBufferSize = 256
MSComm2.PotrOpen = True
MSComm2.Trhreshold = 1
End Sub
Private Sub MSComm2_OnComm ()
Select Case MSComm2.CommEvent
Case comEvReceive
ReceiveStr = ReceiveStr + MSComm2.Input
If InStr(ReceiveStr,##) > 0 Then
txtVIN.Text = Mid$(ReceiveStr, InStr(ReceiveStr,##)+2,10)
txtCarNO.Text = Mid$(ReceiveStr,InStr(ReceiveStr,##)+12,7)
txtCount.Text = Mid$(ReceiveStr,InStr(ReceiveStr,##)+19,12)
End If
End Select
End Sub

程序运行结果如图6所示。

Copyright © 2017-2020 微波EDA网 版权所有

网站地图

Top