vb串口調(diào)試編程word版-資料下載頁(yè)
2025-08-21 16:44本頁(yè)面
【正文】 blnAutoSendFlag And Not blnReceiveFlag Then = False End If = 開始接收 Else If Not Then = intPort = strSet = True End If = 0 = 0 = 0 = 1 = 停止接收 End If blnReceiveFlag = Not blnReceiveFlagEnd SubPrivate Sub setting_Click() = str(intPort) = strSet = str(intTime)End SubPrivate Sub ctrMSComm_OnComm() Dim bytInput() As Byte Dim intInputLen As Integer Select Case Case EvReceive If blnReceiveFlag ThenIf Not Then = intPort = strSet = TrueEnd If39。此處添加處理接收的代碼 = 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。add code longth = strHexToByteArray(strSendText, bytSendByte()) If longth 0 Then = bytSendByte End If End IfEnd Sub39。*****************************************39。初始化39。*****************************************Private Sub Form_Load()If = False Then = TrueEnd If 39。設(shè)置默認(rèn)發(fā)送接收關(guān)閉狀態(tài) blnAutoSendFlag = False blnReceiveFlag = False 39。接收初始化 intReceiveLen = 0 39。默認(rèn)發(fā)送方式為ASCII intOutMode = 0 = 按ASCII碼 39。默認(rèn)顯示寬度位數(shù)為8 intHexWidth = 8 39。默認(rèn)各復(fù)選框處于選定狀態(tài) intHexChk = 1 intAsciiChk = 1 intAddressChk = 1 intAdd48Chk = 1 = intAddressChk = intAsciiChk = intHexChk = intAdd48Chk 39。顯示初始化 Call clear_Click 39。初始化串行口 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è)置程序在這個(gè)窗體中包含3個(gè)文本框，用以接收信息，還有兩個(gè)按鈕，用以確定和取消操作?！按_定”按鈕的程序如下：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運(yùn)行程序：將兩臺(tái)計(jì)算機(jī)通過串口線連接在一臺(tái)哦計(jì)算機(jī)上進(jìn)行測(cè)試。然后對(duì)兩個(gè)兩個(gè)串口調(diào)試進(jìn)行設(shè)置，一個(gè)作為發(fā)送方，端口設(shè)置為1，發(fā)送字符串，一個(gè)作為接收方，端口設(shè)置為2，其他均為默認(rèn)情況，在單擊“手動(dòng)發(fā)送”按鈕。實(shí)驗(yàn)總結(jié)通過兩周時(shí)間對(duì)VB的自學(xué)，讓我真正體會(huì)到這種匯編語(yǔ)言的功能之強(qiáng)大?；臼煜ち诉@種語(yǔ)言工具的使用，同時(shí)也更加深刻的理解了串行通信的基本知
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1