vb串口調(diào)試編程word版-在線瀏覽
2024-10-01 16:44本頁面
【正文】 （2） 設(shè)置定時(shí)發(fā)送的數(shù)據(jù)和時(shí)間間隔；（3） 自動顯示接收到的數(shù)據(jù)，并能在在字符串、十進(jìn)制、十六進(jìn)制之間進(jìn)行自由切換；（4） 自動保存設(shè)置參數(shù)。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。 窗體控件控件就是構(gòu)成或者說建造Visual Basic應(yīng)用程序的圖形化工具，包括窗體、按鈕、復(fù)選框、列表框、數(shù)據(jù)控件、表格控件和圖片控件等等...。默認(rèn)的屬性值會在控件創(chuàng)建的時(shí)候提供，但是程序員也可以進(jìn)行更改。 VB的組件既可以擁有用戶界面，也可以沒有。 VB的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體。事件的示例有擊鍵、單擊鼠標(biāo)(Click)、雙擊鼠標(biāo)(DblClick)、一段時(shí)間的限制，或從端口接收數(shù)據(jù)。串口同時(shí)也是儀器儀表設(shè)備通用的通信協(xié)議；很多GPIB兼容的設(shè)備也帶有RS232口。 電氣特性：RS232標(biāo)準(zhǔn)的信號傳輸?shù)淖畲箅娎|長度為30M； RS232C上傳送的數(shù)字量采用負(fù)邏輯，且與地對稱。盡管比按字節(jié)（byte）的并行通信慢，但是串口可以在使用一根線發(fā)送數(shù)據(jù)的同時(shí)用另一根線接收數(shù)據(jù)。典型地，串口用于ASCII碼字符的傳輸。由于串口通信是異步的，端口能夠在一根線上發(fā)送數(shù)據(jù)同時(shí)在另一根線上接收數(shù)據(jù)。串口通信最重要的參數(shù)是波特率、數(shù)據(jù)位、停止位和奇偶校驗(yàn)。它表示每秒鐘傳送的bit的個數(shù)。當(dāng)我們提到時(shí)鐘周期時(shí)，我們就是指波特率例如如果協(xié)議需要4800波特率，那么時(shí)鐘是4800Hz。通常電話線的波特率為14400，28800和36600。高波特率常常用于放置的很近的儀器間的通信，典型的例子就是GPIB設(shè)備的通信。當(dāng)計(jì)算機(jī)發(fā)送一個信息包，實(shí)際的數(shù)據(jù)不會是8位的，標(biāo)準(zhǔn)的值是7和8位。比如，標(biāo)準(zhǔn)的ASCII碼是0～127（7位）。如果數(shù)據(jù)使用簡單的文本（標(biāo)準(zhǔn) ASCII碼），那么每個數(shù)據(jù)包使用7位數(shù)據(jù)。由于實(shí)際數(shù)據(jù)位取決于通信協(xié)議的選取，術(shù)語“包”指任何通信的情況。典型的值為1。因此停止位不僅僅是表示傳輸?shù)慕Y(jié)束，并且提供計(jì)算機(jī)校正時(shí)鐘同步的機(jī)會。 ：在串口通信中一種簡單的檢錯方式。當(dāng)然沒有校驗(yàn)位也是可以的。例如，如果數(shù)據(jù)是011，那么對于偶校驗(yàn)，校驗(yàn)位為0，保證邏輯高的位數(shù)是偶數(shù)個。高位和低位不真正的檢查數(shù)據(jù)，簡單置位邏輯高或者邏輯低校驗(yàn)。具體過程如下：（1）啟動ＶＢ，選擇“文件”—— “新建工程”命令。（3）選擇“文件” ——“保存工程”命令，（4）在控件工具欄上單擊鼠標(biāo)右鍵，在彈出的對話框中選擇“部件”，選擇Microsoft CommControl6,0，單擊“確定”按鈕把它加入到控件工具欄中。（2）選擇模塊圖標(biāo)后，單擊“打開”按鈕，則模塊已經(jīng)添加到項(xiàng)目中了。在模塊中定義整個項(xiàng)目的公共變量。串行口號Public strSet As String 39。發(fā)送時(shí)間間隔Public blnAutoSendFlag As Boolean 39。接收標(biāo)志Public intOutMode As Integer 39。發(fā)送文本數(shù)據(jù)Public bytSendByte() As Byte 39。十六進(jìn)制編碼標(biāo)志Public intAsciiChk As Integer 39。地址標(biāo)志Public intAdd48Chk As Integer 39。接收模塊Public bytReceiveByte() As Byte 39。接收到的字節(jié)數(shù)39。地址信息Public strHex As String 39。ASCII碼Public intHexWidth As Integer 39。橫向原點(diǎn)(像素)Public intOriginY As Integer 39。總行數(shù)39。單位寬度Public Const ChrHeight = 2 * ChrWidth 39。預(yù)留邊界Public Const LineMax = 16 39。**********************************39。處理接收到的字節(jié)流,并保存在全局變量39。**********************************Public Sub InputManage(bytInput() As Byte, intInputLenth As Integer)Dim n As Integer 39。為輸出準(zhǔn)備文本39。strText39。strAddress39。intLinePublic Sub GetDisplayText()Dim n As IntegerDim intValue As IntegerDim intHighHex As IntegerDim intLowHex As IntegerDim strSingleChr As String * 1Dim intAddress As IntegerDim intAddressArray(8) As IntegerDim intHighAddress As Integer strAscii = 39。***************************************** 39。*****************************************For n = 1 To intReceiveLenintValue = bytReceiveByte(n 1) If intValue 32 Or intValue 128 Then 39。對于不能顯示的ASCII碼,Else 39。設(shè)置換行strAscii = strAscii + Chr$(13) + Chr$(10)strHex = strHex + Chr$(13) + Chr$(10)ElseEnd IfNext n39。獲得地址字符串39。設(shè)置換行 Next n 39。*************************************39。*************************************Public Sub display() Dim intViewWidth As Long 39。縱向?qū)挾?行) Dim strDisplayAddress As String Dim strDisplayHex As String Dim strDisplayAscii As S
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1