《vb串口調(diào)試編程》word版-全文預(yù)覽
【正文】 中斷轉(zhuǎn)化HexDataLen = HexDataLen 1Exit ForElseHexData = HighHexData * 16 + LowHexDatabytByte(HexDataLen) = HexDataHexDataLen = HexDataLen + 1End IfNext n IfHexDataLen0Then 39。字符串長(zhǎng)度Dim Account As Integer 39。低位字符Dim HighHexData As Integer 39。返回轉(zhuǎn)化后的字節(jié)數(shù)39。**********************************Function ConvertHexChr(str As String) As IntegerDim test As Integertest = Asc(str)If test = Asc(0) And test = Asc(9) Thentest = test Asc(0)ElseIf test = Asc(a) And test = Asc(f) Thentest = test Asc(a) + 10ElseIf test = Asc(A) And test = Asc(F) Thentest = test Asc(A) + 10Elsetest = 1 39。39。******************************************Public Sub ScrollRedisplay() Call displayEnd Sub39。橫向?qū)挾?像素) Dim intViewLine As Integer 39。***************************************End Sub39。***************************************39。處理非法字符strSingleChr = Chr(46) 39。設(shè)置初值strHex = strAddress = 39。strHex39。定義變量及初始化ReDim Preserve bytReceiveByte(intReceiveLen + intInputLenth)For n = 1 To intInputLenth Step 1bytReceiveByte(intReceiveLen + n 1) = bytInput(n 1)Next nintReceiveLen = intReceiveLen + intInputLenthEnd Sub39。輸入處理39。單位高度Public Const BorderWidth = 210 39。縱向原點(diǎn)(行)Public intLine As Integer 39。十六進(jìn)制編碼Public strAscii As String 39。接收到的字節(jié)Public intReceiveLen As Integer 39。ASCII碼標(biāo)志Public intAddressChk As Integer 39。發(fā)送模式Public strSendText As String 39。協(xié)議設(shè)置Public intTime As Integer 39。將此模塊命名為Main。（２）在工程模板中選擇“標(biāo)準(zhǔn)EXE”，Visual Basic將自動(dòng)產(chǎn)生一個(gè)Form窗體，屬行都是默認(rèn)設(shè)置。如果是奇校驗(yàn)，校驗(yàn)位位1，這樣就有3個(gè)邏輯高位。有四種檢錯(cuò)方式：偶、奇、高和低。由于數(shù)據(jù)是在傳輸線上定時(shí)的，并且每一個(gè)設(shè)備有其自己的時(shí)鐘，很可能在通信中兩臺(tái)設(shè)備間出現(xiàn)了小小的不同步。每個(gè)包是指一個(gè)字節(jié)，包括開(kāi)始/停止位，數(shù)據(jù)位和奇偶校驗(yàn)位。如何設(shè)置取決于你想傳送的信息。波特率可以遠(yuǎn)遠(yuǎn)大于這些值，但是波特率和距離成反比。例如300波特表示每秒鐘發(fā)送300個(gè)bit。其他線用于握手，但是不是必須的。它很簡(jiǎn)單并且能夠?qū)崿F(xiàn)遠(yuǎn)距離通信。 （單片機(jī)一般為10V）邏輯0：+3～+15V同時(shí)，串口通信協(xié)議也可以用于獲取遠(yuǎn)程采集設(shè)備的數(shù)據(jù)。有很少功能的對(duì)話框窗口（比如沒(méi)有最大化和最小化按鈕的窗體）可以用來(lái)提供彈出功能事件——由用戶或操作系統(tǒng)引發(fā)的動(dòng)作。很多的屬性值可以在運(yùn)行時(shí)候隨著用戶的動(dòng)作和修改進(jìn)行改動(dòng)，這樣就形成了一個(gè)動(dòng)態(tài)的程序。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。Visual Basic與RS232串口通信論文題目： Visual Basic與RS232串口通信實(shí) 作者： 高麗君 班級(jí)： 自動(dòng)化0803班學(xué)號(hào)： 0806050303 時(shí)間： 2011年5月8日Visual Basic與RS232串口通信實(shí)驗(yàn)一、實(shí)驗(yàn)?zāi)康模和ㄟ^(guò)軟件Visual Basic編寫(xiě)程序和硬件計(jì)算機(jī)、RS232實(shí)現(xiàn)比較完善的通信：數(shù)據(jù)的接收與發(fā)送。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建ActiveX控件。默認(rèn)的屬性值會(huì)在控件創(chuàng)建的時(shí)候提供，但是程序員也可以進(jìn)行更改。 VB的程序可以包含一個(gè)或多個(gè)窗體，或者是一個(gè)主窗體和多個(gè)子窗體。串口同時(shí)也是儀器儀表設(shè)備通用的通信協(xié)議；很多GPIB兼容的設(shè)備也帶有RS232口。盡管比按字節(jié)（byte）的并行通信慢，但是串口可以在使用一根線發(fā)送數(shù)據(jù)的同時(shí)用另一根線接收數(shù)據(jù)。由于串口通信是異步的，端口能夠在一根線上發(fā)送數(shù)據(jù)同時(shí)在另一根線上接收數(shù)據(jù)。它表示每秒鐘傳送的bit的個(gè)數(shù)。通常電話線的波特率為14400，28800和36600。當(dāng)計(jì)算機(jī)發(fā)送一個(gè)信息包，實(shí)際的數(shù)據(jù)不會(huì)是8位的，標(biāo)準(zhǔn)的值是7和8位。如果數(shù)據(jù)使用簡(jiǎn)單的文本（標(biāo)準(zhǔn) ASCII碼），那么每個(gè)數(shù)據(jù)包使用7位數(shù)據(jù)。典型的值為1。 ：在串口通信中一種簡(jiǎn)單的檢錯(cuò)方式。例如，如果數(shù)據(jù)是011，那么對(duì)于偶校驗(yàn)，校驗(yàn)位為0，保證邏輯高的位數(shù)是偶數(shù)個(gè)。具體過(guò)程如下：（1）啟動(dòng)ＶＢ，選擇“文件”—— “新建工程”命令。（2）選擇模塊圖標(biāo)后，單擊“打開(kāi)”按鈕，則模塊已經(jīng)添加到項(xiàng)目中了。串行口號(hào)Public strSet As String 39。接收標(biāo)志Public intOutMode As Integer 39。十六進(jìn)制編碼標(biāo)志Public intAsciiChk As Integer 39。接收模塊Public bytReceiveByte() As Byte 39。地址信息Public strHex As String
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1