《vb串口調(diào)試編程》word版-文庫(kù)吧
2025-08-06 16:44 本頁(yè)面
【正文】 strSet As String 39。協(xié)議設(shè)置Public intTime As Integer 39。發(fā)送時(shí)間間隔Public blnAutoSendFlag As Boolean 39。發(fā)送標(biāo)志Public blnReceiveFlag As Boolean 39。接收標(biāo)志Public intOutMode As Integer 39。發(fā)送模式Public strSendText As String 39。發(fā)送文本數(shù)據(jù)Public bytSendByte() As Byte 39。發(fā)送二進(jìn)制數(shù)據(jù)Public intHexChk As Integer 39。十六進(jìn)制編碼標(biāo)志Public intAsciiChk As Integer 39。ASCII碼標(biāo)志Public intAddressChk As Integer 39。地址標(biāo)志Public intAdd48Chk As Integer 39。4/8位地址標(biāo)志 定義模塊變量39。接收模塊Public bytReceiveByte() As Byte 39。接收到的字節(jié)Public intReceiveLen As Integer 39。接收到的字節(jié)數(shù)39。顯示模塊Public strAddress As String 39。地址信息Public strHex As String 39。十六進(jìn)制編碼Public strAscii As String 39。ASCII碼Public intHexWidth As Integer 39。顯示列數(shù)Public intOriginX As Long 39。橫向原點(diǎn)(像素)Public intOriginY As Integer 39?？v向原點(diǎn)(行)Public intLine As Integer 39?？傂袛?shù)39。顯示常量Public Const ChrWidth = 105 39。單位寬度Public Const ChrHeight = 2 * ChrWidth 39。單位高度Public Const BorderWidth = 210 39。預(yù)留邊界Public Const LineMax = 16 39。最大顯示行數(shù)39。**********************************39。輸入處理39。處理接收到的字節(jié)流,并保存在全局變量39。bytReceiveRyte()39。**********************************Public Sub InputManage(bytInput() As Byte, intInputLenth As Integer)Dim n As Integer 39。定義變量及初始化ReDim Preserve bytReceiveByte(intReceiveLen + intInputLenth)For n = 1 To intInputLenth Step 1bytReceiveByte(intReceiveLen + n 1) = bytInput(n 1)Next nintReceiveLen = intReceiveLen + intInputLenthEnd Sub39。為輸出準(zhǔn)備文本39。保存在全局變量39。strText39。strHex39。strAddress39?？傂袛?shù)保存在39。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。設(shè)置初值strHex = strAddress = 39。***************************************** 39。獲得16進(jìn)制碼和ASCII碼的字符串 39。*****************************************For n = 1 To intReceiveLenintValue = bytReceiveByte(n 1) If intValue 32 Or intValue 128 Then 39。處理非法字符strSingleChr = Chr(46) 39。對(duì)于不能顯示的ASCII碼,Else 39。用.表示strSingleChr = Chr(intValue)End If strAscii = strAscii + strSingleChr intHighHex = intValue \ 16 intLowHex = intValue intHighHex * 16 If intHighHex 10 Then intHighHex = intHighHex + 48 Else intHighHex = intHighHex + 55 End If If intLowHex 10 Then intLowHex = intLowHex + 48 Else intLowHex = intLowHex + 55 End If strHex = strHex + + Chr$(intHighHex) + Chr$(intLowHex) + If (n Mod intHexWidth) = 0 Then 39。設(shè)置換行strAscii = strAscii + Chr$(13) + Chr$(10)strHex = strHex + Chr$
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1