vb串口調(diào)試編程word版(參考版)
2024-09-01 16:44本頁面
【正文】 基本熟悉了這種語言工具的使用，同時也更加深刻的理解了串行通信的基本知識。然后對兩個兩個串口調(diào)試進行設(shè)置，一個作為發(fā)送方，端口設(shè)置為1，發(fā)送字符串，一個作為接收方，端口設(shè)置為2，其他均為默認情況，在單擊“手動發(fā)送”按鈕。初始化串行口 intPort = 2 intTime = 1000 strSet = 9600,n,8,1 If Not Then = intPort = strSet = True End If = FalseEnd SubPrivate Sub sldLenth_Change(Index As Integer) intHexWidth = (0).Value Call SlideRedisplayEnd Sub．4參數(shù)設(shè)置程序在這個窗體中包含3個文本框，用以接收信息，還有兩個按鈕，用以確定和取消操作。默認各復選框處于選定狀態(tài) intHexChk = 1 intAsciiChk = 1 intAddressChk = 1 intAdd48Chk = 1 = intAddressChk = intAsciiChk = intHexChk = intAdd48Chk 39。默認發(fā)送方式為ASCII intOutMode = 0 = 按ASCII碼 39。設(shè)置默認發(fā)送接收關(guān)閉狀態(tài) blnAutoSendFlag = False blnReceiveFlag = False 39。初始化39。add code longth = strHexToByteArray(strSendText, bytSendByte()) If longth 0 Then = bytSendByte End If End IfEnd Sub39。如果是空串,則不會進入循環(huán)體strHexToByteArray = 0ElsestrHexToByteArray = HexDataLen + 1End IfEnd FunctionPrivate Sub bo_Click() If = 按ASCII碼 ThenintOutMode = 0 ElseintOutMode = 1 End IfEnd SubPrivate Sub chkAddress_Click() If = 0 Then intAddressChk = 0 Else intAddressChk = 1 End If Call ScrollRedisplayEnd SubPrivate Sub chkAddress48_Click() If = 1 Then intAdd48Chk = 1 Else intAdd48Chk = 0 End If Call SlideRedisplayEnd SubPrivate Sub chkAscii_Click() If = 1 Then intAsciiChk = 1 Else intAsciiChk = 0 End If Call ScrollRedisplayEnd SubPrivate Sub chkHex_Click() If = 0 Then intHexChk = 0 Else intHexChk = 1 End If Call ScrollRedisplayEnd SubPrivate Sub send_Click() If blnAutoSendFlag Then = False If Not blnReceiveFlag Then = False End If = 自動發(fā)送 Else If Not Then = intPort = strSet = True End If = intTime = True = 停止發(fā)送 End If blnAutoSendFlag = Not blnAutoSendFlagEnd SubPrivate Sub clear_Click() Dim bytTemp(0) As Byte ReDim bytReceiveByte(0) intReceiveLen = 0 Call InputManage(bytTemp, 0) Call GetDisplayText Call displayEnd SubPrivate Sub send2_Click() If Not Then = intPort = strSet = True End If Call ctrTimer_Timer If Not blnAutoSendFlag Then = False End IfEnd SubPrivate Sub Receive_Click() If blnReceiveFlag Then If Not blnAutoSendFlag And Not blnReceiveFlag Then = False End If = 開始接收 Else If Not Then = intPort = strSet = True End If = 0 = 0 = 0 = 1 = 停止接收 End If blnRece
教學教案相關(guān)推薦
鄂ICP備17016276號-1