mducommats.bas

一本关于VB串口编程的详细参考资料

Attribute VB_Name = "mduCommATs"
Option Explicit

Public Sub SetRegister(Comm As Control, Reg%, Val%)
    Comm.Output = "ATS" + Str(Reg%) + "=" + Str(Val%) & vbCrLf
End Sub
Public Sub GetRegister(Comm As Control, Reg$)
    Comm.Output = "ATS" + Reg$ + "?" & vbCrLf
End Sub

Public Sub Answer(Comm As Control)
    Comm.Output = "ATA" & vbCrLf
End Sub

Public Sub HalfDuplex(Comm As Control)
    Comm.Output = "ATF0" & vbCrLf
End Sub

Public Sub FullDuplex(Comm As Control)
    Comm.Output = "ATF1" & vbCrLf
End Sub

Public Sub RcInteger(Comm As Control)
        Comm.Output = "ATV0" & vbCrLf
End Sub

Public Sub RcAlpha(Comm As Control)
        Comm.Output = "ATV1" & vbCrLf
End Sub

Public Sub ResultCodesOn(Comm As Control)
    Comm.Output = "ATQ0" & vbCrLf
End Sub

Public Sub ResultCodesOff(Comm As Control)
    Comm.Output = "ATQ1" & vbCrLf
End Sub

Public Sub ProductID(Comm As Control)
    Comm.Output = "ATI0" & vbCrLf
End Sub

Public Sub EchoOn(Comm As Control)
    Comm.Output = "ATE1" & vbCrLf
End Sub

Public Sub EchoOff(Comm As Control)
    Comm.Output = "ATE0" & vbCrLf
End Sub

Public Sub CarrierOn(Comm As Control)
    Comm.Output = "ATC1" & vbCrLf
End Sub

Public Sub CarrierOff(Comm As Control)
    Comm.Output = "ATC0" & vbCrLf
End Sub

Public Sub AnswerAuto(Comm As Control)
    Comm.Output = "ATs0=1" & vbCrLf
End Sub

Public Sub AnswerModeP(Comm As Control, DialStr$)
    Comm.Output = "ATDP " + DialStr$ + "R" & vbCrLf
End Sub

Public Sub AnswerModeT(Comm As Control, DialStr$)
    Comm.Output = "ATDT " + DialStr$ + "R" & vbCrLf
End Sub

Public Sub Attention(Comm As Control, ATStr$)
    Comm.Output = "AT" + ATStr$ & vbCrLf
End Sub

Public Sub ROMChecksum(Comm As Control)
    Comm.Output = "ATI1" & vbCrLf
End Sub

Public Sub CsReturnCode(Comm As Control)
    Comm.Output = "ATI3" & vbCrLf
End Sub

Public Sub SpeakerOn(Comm As Control)
    Comm.Output = "ATM1" & vbCrLf
End Sub

Public Sub SpeakerAlwaysOn(Comm As Control)
    Comm.Output = "ATM2" & vbCrLf
End Sub

Public Sub SpeakerOff(Comm As Control)
    Comm.Output = "ATM0" & vbCrLf
End Sub

Public Sub DialTouch(Comm As Control, DialStr$)
    Comm.Output = "ATDT " + DialStr$ & vbCrLf
End Sub

Public Sub DialPulse(Comm As Control, DialStr$)
    Comm.Output = "ATDP " + DialStr$ & vbCrLf
End Sub

Public Sub OffHook(Comm As Control)
    Comm.Output = "ATH0" & vbCrLf
End Sub

Public Sub OffHookReset(Comm As Control)
    Comm.Output = "ATO1" & vbCrLf
End Sub

Public Sub OnHook(Comm As Control)
    Comm.Output = "ATH1" & vbCrLf
End Sub

Public Sub OffHookSame(Comm As Control)
    Comm.Output = "ATO0" & vbCrLf
End Sub

Public Sub RepeatCommand(Comm As Control)
    Comm.Output = "A/" & vbCrLf
End Sub

Public Sub Reset(Comm As Control)
    Comm.Output = "ATZ" & vbCrLf   'Reset modem
End Sub

Public Sub Volume(Comm As Control, Vol As Integer)
    Select Case Vol
        Case 0
            Comm.Output = "ATL0" & vbCrLf
        Case 1
            Comm.Output = "ATL1" & vbCrLf
        Case 2
            Comm.Output = "ATL2" & vbCrLf
        Case 3
            Comm.Output = "ATL3" & vbCrLf
        Case Else
            MsgBox "Invalid speaker volume!"
    End Select
End Sub