国产肉体XXXX裸体137大胆,国产成人久久精品流白浆,国产乱子伦视频在线观看,无码中文字幕免费一区二区三区 国产成人手机在线-午夜国产精品无套-swag国产精品-国产毛片久久国产

新聞中心

EEPW首頁 > 嵌入式系統(tǒng) > 設(shè)計應(yīng)用 > PTP2000及其在不停車收費系統(tǒng)中的應(yīng)用

PTP2000及其在不停車收費系統(tǒng)中的應(yīng)用

作者: 時間:2012-03-12 來源:網(wǎng)絡(luò) 收藏

5.2 PC機接收部分編程

本例中PC機接收部分通過對Visual Basic中的MSComm控件編程實現(xiàn)對計算機串口通訊的程序設(shè)計。

PC 串口的RTS經(jīng)電平轉(zhuǎn)換與PTR2000無線MODEM的TXEN相連。計算機要發(fā)送數(shù)據(jù)時,RTS變?yōu)檫壿?有效,亦即PTR2000的Pin7 (TXEN)被置為1,此時可發(fā)送數(shù)據(jù);計算機接收數(shù)據(jù)時,RTS變?yōu)檫壿?有效,亦即PTR2000的Pin7(TXEN)被置為0,此時可接收數(shù)據(jù)。

程序的設(shè)計窗體如圖5所示。

31.jpg

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

程序運行結(jié)果如圖6所示。

32.jpg


上一頁 1 2 3 4 下一頁

評論


相關(guān)推薦

技術(shù)專區(qū)

關(guān)閉
×

有奖问卷
英飞凌400V CoolSiC™重新定义高性能电源设计的功率密度和效率,含有奖小问卷,限前200名工程师!