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

        strHexToByteArray = 0
    Else
        strHexToByteArray = HexDataLen + 1
    End If
   
   
End Function

Private Sub combo_ClICk()

   
   
    If Main.combo.Text = "按ASCII码" Then
        intOutMode = 0
       
    Else
        intOutMode = 1
       
    End If
       
End Sub

Private Sub chkAddress_Click()
   
    If chkAddress.Value = 0 Then
        intAddressChk = 0
    Else
        intAddressChk = 1
    End If
   
    Call ScrollRedisplay
   
End Sub

Private Sub chkAddress48_Click()
   
    If chkAddress48.Value = 1 Then
        intAdd48Chk = 1
    Else
        intAdd48Chk = 0
    End If
   
    Call SlideRedisplay
   
End Sub

Private Sub chkAscii_Click()
   
    If chkAscii.Value = 1 Then
        intAsciiChk = 1
    Else
        intAsciiChk = 0
    End If
   
    Call ScrollRedisplay
   
End Sub

Private Sub chkHex_Click()
   
    If chkHex.Value = 0 Then
        intHexChk = 0
    Else
        intHexChk = 1
    End If
   
    Call ScrollRedisplay
   
End Sub

Private Sub send_Click()
   
    If blnAutoSendFlag Then
       
        Main.CTRTimer.EnabLED = False
       
        If Not blnReceiveFlag Then
            Main.ctrMSComm.PortOpen = False
        End If
       
        Main.send.Caption = "自动发送"
    Else
        If Not Main.ctrMSComm.PortOpen Then
            Main.ctrMSComm.CommPort = intPort
            Main.ctrMSComm.Settings = strSet
            Main.ctrMSComm.PortOpen = True
        End If
       
        Main.ctrTimer.Interval = intTime
        Main.ctrTimer.Enabled = True
        Main.send.Caption = "停止发送"
    End If
       
   
       
    blnAutoSendFlag = Not blnAutoSendFlag
   
   
End Sub

Private Sub clear_Click()

    Dim bytTemp(0) As Byte
   
    ReDim bytReceiveByte(0)
    intReceiveLen = 0
   
    Call InputManage(bytTemp, 0)
   
    Call GetDisplayText
    Call display
   
   
End Sub

Private Sub send2_Click()
   
    If Not Main.ctrMSComm.PortOpen Then
        Main.ctrMSComm.CommPort = intPort
        Main.ctrMSComm.Settings = strSet
        Main.ctrMSComm.PortOpen = True
    End If
   
        Call ctrTimer_Timer
       
    If Not blnAutoSendFlag Then
   
    Main.ctrMSComm.PortOpen = False
    End If
   
End Sub

Private Sub Receive_Click()
   
   
    If blnReceiveFlag Then
       
        If Not blnAutoSendFlag And Not blnReceiveFlag Then
            Main.ctrMSComm.PortOpen = False
        End If
       
        Main.Receive.Caption = "开始接收"
    Else
       
        If Not Main.ctrMSComm.PortOpen Then
            Main.ctrMSComm.CommPort = intPort
            Main.ctrMSComm.Settings = strSet
            Main.ctrMSComm.PortOpen = True
        End If
       
        Main.ctrMSComm.InputLen = 0
        Main.ctrMSComm.InputMode = 0
       
   
        Main.ctrMSComm.InBufferCount = 0
        Main.ctrMSComm.RThreshold = 1
        Main.Receive.Caption = "停止接收"
    End If
   
    blnReceiveFlag = Not blnReceiveFlag
   
       
End Sub

Private Sub setting_Click()
   
    config.Show
    config.Port.Text = str(intPort)
    config.Setting.Text = strSet
    config.Time.Text = str(intTime)

End Sub

Private Sub ctrMSComm_OnComm()
   
    Dim bytInput() As Byte
    Dim intInputLen As Integer
   
   
    Select Case Main.ctrMSComm.CommEvent
       
       
        Case comEvReceive
            If blnReceiveFlag Then
           
                If Not Main.ctrMSComm.PortOpen Then
                    Main.ctrMSComm.CommPort = intPort

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

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