ls.bas

一份串口通信的好资料,对初学串口者很有用滴

Attribute VB_Name = "LS"
Public Function COMLoad()

    
    
    
    Fmain.CF.CancelError = True
    On Error GoTo ErrHandle
    Fmain.CF.Filter = "*.COMS|*.COMS"
    Fmain.CF.ShowOpen
        
        
    Open Fmain.CF.FileName For Binary As #1
        Get #1, , TCOM
    Close #1
    
    Setcom
    
    Fmain.Caption = "当前连" & TCOM.COMNAME
    Fmain.StatusBar.Panels(1).Text = TCOM.COMPORT & "已连接"
    
    Fmain.Tsend.Enabled = True
    Fmain.M_SAVE.Enabled = True
    Fmain.M_SET.Enabled = True
    
    is_cominuse = True

    
ErrHandle:
    Exit Function
    
End Function



Public Function COMSAVE()

    
    
    Fmain.CF.CancelError = True
    On Error GoTo ErrHandle
    Fmain.CF.Filter = "*.COMS|*.COMS"
    Fmain.CF.FileName = TCOM.COMNAME & ".COMS"
    Fmain.CF.ShowSave
    
    With TCOM
        '.COMNAME = CHO.T_name.Text
        .COMSITTINGS = Fmain.MSComm.Settings
        .COMIBUFFER = Fmain.MSComm.InBufferSize
        .COMOBUFFER = Fmain.MSComm.OutBufferSize
        .COMMODE = Fmain.MSComm.InputMode
        .COMR = Fmain.MSComm.RThreshold
        .COMS = Fmain.MSComm.SThreshold
        '.COMPORT = CHO.list.Text
    End With
    
    Open Fmain.CF.FileName For Binary As #1
        Put #1, , TCOM
    Close #1
    
    
ErrHandle:
    Exit Function
    
End Function

Public Function showdetail()
    Fmain.NOTE.Text = "----------------------DEBUG----------------------" & vbCrLf
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:INBUFFERS = " & Fmain.MSComm.InBufferSize & vbCrLf
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:OUBUFFERS = " & Fmain.MSComm.OutBufferSize & vbCrLf
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:INBUFFERC = " & Fmain.MSComm.InBufferCount & vbCrLf
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:OUBUFFERC = " & Fmain.MSComm.OutBufferCount & vbCrLf
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:INPUTMODE = " & Fmain.MSComm.InputMode & vbCrLf
    
    Fmain.NOTE.Text = Fmain.NOTE.Text & TCOM.COMPORT & " 属性:CSETTINGS = " & Fmain.MSComm.Settings & vbCrLf


End Function