main.bas

VB做的

Attribute VB_Name = "Module1"
Option Explicit

Sub Main()
Dim icdev As Long

    icdev = rf_init(1, 9600)
    If icdev < 0 Then
        MsgBox "连接失败，请检查串口1！"
        End
    End If
    
    CheckCommand (rf_test(icdev)) '测试通讯
    CheckCommand (rf_beep(icdev, 5))
    
    rf_exit (icdev)
    
End Sub

Sub CheckCommand(rtnCode As Integer)

    Select Case rtnCode
        Case RF_NOCONNECTION:               MsgBox "软件超时"
        Case RF_RECEIVECHECKFAILED:         MsgBox "接收校验错"
        Case RF_NOREASONERR:                MsgBox "未知错误"
        Case RF_OTHERERR:                   MsgBox "其它错误"
        Case RF_SENDCHECKFAILED:            MsgBox "发送校验错"
        Case RF_WRITECARDVIOLATE:           MsgBox "写密码违规"
        Case RF_AUTHENTICATIONERR:          MsgBox "密码验证错误"
        Case RF_SENDTIMEOUT:                MsgBox "硬件超时"
        Case RF_OK:
    End Select

End Sub