基于VB做的串口编程调试软件

                    Main.ctrMSComm.Settings = strSet
                    Main.ctrMSComm.PortOpen = True
                End If
               
                '此处添加处理接收的代码
               
                Main.ctrMSComm.InputMode = comInputModeBinary
                intInputLen = Main.ctrMSComm.InBufferCount
                ReDim bytInput(intInputLen)
                bytInput = Main.ctrMSComm.Input
                Call InputManage(bytInput, intInputLen)
                Call GetDisplayText
                Call display
     
               
                If Not blnAutoSendFlag And Not blnReceiveFlag Then
                    Main.ctrMSComm.PortOpen = False
                End If
            End If
           
    End Select
   
End Sub

Private Sub ctrTimer_Timer()
    Dim longth As Integer
   
    strSendText = Main.txtSend.Text
    If intOutMode = 0 Then
        Main.txtReceive.Text = "ascii"
        Main.ctrMSComm.Output = strSendText
    Else
        'add code
        longth = strHexToByteArray(strSendText, bytSendByte())
       
        If longth > 0 Then
            Main.ctrMSComm.Output = bytSendByte
        End If
       
    End If

End Sub

'*****************************************
'初始化
'*****************************************

Private Sub Form_Load()
If ctrMSComm.PortOpen = False Then

ctrMSComm.PortOpen = True

End If

    '设置默认发送接收关闭状态
    blnAutoSendFlag = False
    blnReceiveFlag = False
   
    '接收初始化
    intReceiveLen = 0
   
    '默认发送方式为ASCII
    intOutMode = 0
    Main.combo.Text = "按ASCII码"
   
    '默认显示宽度位数为8
    intHexWidth = 8
   
   
    '默认各复选框处于选定状态
    intHexChk = 1
    intAsciiChk = 1
    intAddressChk = 1
    intAdd48Chk = 1
   
    Main.chkAddress.Value = intAddressChk
    Main.chkAscii.Value = intAsciiChk
    Main.chkHex.Value = intHexChk
    Main.chkAddress48.Value = intAdd48Chk
   
  
   
    '显示初始化
    Call clear_Click
   
     '初始化串行口
    intPort = 2
    intTime = 1000
    strSet = "9600,n,8,1"
  
   
    If Not Main.ctrMSComm.PortOpen Then
        Main.ctrMSComm.CommPort = intPort
        Main.ctrMSComm.Settings = strSet
        Main.ctrMSComm.PortOpen = True
    End If
   
    Main.ctrMSComm.PortOpen = False
   
   
End Sub

Private Sub sldLenth_Change(Index As Integer)

    intHexWidth = Main.sldLenth(0).Value
    Call SlideRedisplay
   

End Sub

'**********************************

'***************************************************************

'窗体 config(config.frm)_程序

'***************************************************************

'**********************************

Private Sub CANcel_Click()
   
    config.Hide
    Unload config

End Sub

Private Sub ok_Click()
       
    On Error GoTo SettingError
       
    intPort = Val(config.Port.Text)
    intTime = Val(config.time.Text)
    strSet = config.setting.Text
   
   
   
    If Not Main.ctrMSComm.PortOpen Then
       
        Main.ctrMSComm.CommPort = intPort
        Main.ctrMSComm.Settings = strSet
        Main.ctrMSComm.PortOpen = True
    End If
   
    If Not blnAutoSendFlag And Not blnReceiveFlag Then
        Main.ctrMSComm.PortOpen = False
    End If
    config.Hide
    Unload config
   
    Exit Sub
   
SettingError:
    intPort = 2
    intTime = 1000
    strSet = "9600,n,8,1"
    config.Show
    config.Port.Text = str(intPort)
    config.setting.Text = strSet
    config.time.Text = str(intTime)
   
    MsgBox (Error(Err.Number))
   
End Sub

'**********************************

'模块 Modeule(Modeule.bas)_程序
'**********************************

' 基本设置

Public intPort As Integer       '串行口号

上一页  [1] [2] [3] [4] [5]  下一页

本文关键字：软件  自动控制-单片机，电子制作 - 自动控制-单片机