vb串口調試編程word版-閱讀頁
2024-09-09 16:44本頁面
【正文】 tring strDisplayAddress = strDisplayHex = strDisplayAscii = Dim intStart As Integer Dim intLenth As Integer intStart = intOriginY * (intHexWidth + 2) + 1 intLenth = intViewLine * (intHexWidth + 2) strDisplayAscii = Mid(strAscii, intStart, intLenth)End Sub39。文本無變化的刷新39。******************************************39。******************************************Public Sub SlideRedisplay() Call GetDisplayText Call displayEnd Sub 主窗體程序設置初始的發(fā)送和接收參數(shù)；設置各復選框的初始狀態(tài)；初始串行口。**********************************39。錯誤則返回 139。出錯信息End IfConvertHexChr = testEnd Function39。字符串表示的十六進制數(shù)據(jù)轉化為相應的字節(jié)串39。**********************************Function strHexToByteArray(strText As String, bytByte() As Byte) As IntegerDim HexData As Integer 39。高位字符Dim lstr As String * 1 39。高位數(shù)值Dim LowHexData As Integer 39。字節(jié)數(shù)Dim StringLen As Integer 39。計數(shù)strTestn = 39。清除空格hstr = Mid(strText, n, 1) n = n + 1If (n 1) StringLen ThenHexDataLen = HexDataLen 1 Exit ForEnd IfLoop While hstr = Dolstr = Mid(strText, n, 1)n = n + 1If (n 1) StringLen ThenHexDataLen = HexDataLen 1Exit ForEnd IfLoop While lstr = n = n 1If n StringLen ThenHexDataLen = HexDataLen 1Exit ForEnd IfHighHexData = ConvertHexChr(hstr)LowHexData = ConvertHexChr(lstr)If HighHexData = 1 Or LowHexData = 1 Then 39。修正最后一次循環(huán)改變的數(shù)值HexDataLen = HexDataLen 1ReDim Preserve bytByte(HexDataLen)ElseReDim Preserve bytByte(0)End IfIf StringLen = 0 Then 39。此處添加處理接收的代碼 = InputModeBinaryintInputLen = ReDim bytInput(intInputLen)bytInput= Call InputManage(bytInput, intInputLen)Call GetDisplayTextCall displayIf Not blnAutoSendFlag And Not blnReceiveFlag Then = False End IfEnd SelectEnd SubPrivate Sub ctrTimer_Timer() Dim longth As Integer strSendText = If intOutMode = 0 Then = ascii = strSendText Else 39。*****************************************39。*****************************************Private Sub Form_Load()If = False Then = TrueEnd If 39。接收初始化 intReceiveLen = 0 39。默認顯示寬度位數(shù)為8 intHexWidth = 8 39。顯示初始化 Call clear_Click 39?！按_定”按鈕的程序如下：Private Sub ok_Click() On Error GoTo SettingError intPort = Val() intTime = Val() strSet = If Not Then = intPort = strSet = True End If If Not blnAutoSendFlag And Not blnReceiveFlag Then = False End If Unload config Exit SubSettingError: intPort = 2 intTime = 1000 strSet = 9600,n,8,1 = str(intPort) = strSet = str(intTime) MsgBox (Error())End Sub “取消”按鈕程序：Private Sub cancel_Click() Unload configEnd Sub5．6運行程序：將兩臺計算機通過串口線連接在一臺哦計算機上進行測試。實驗總結通過兩周時間對VB的自學，讓我真正體會到這種匯編語言的功能之強大
教學教案相關推薦
鄂ICP備17016276號-1