module1.bas

MFONE卡机读写程序,用于宾馆前台使用会员卡时购买发卡机用的

Attribute VB_Name = "Module1"
'首先导入动态库里面的函数
 Declare Function RC500_232_request Lib "RC500_232.dll" (ByVal mode As Byte, ByRef tagtype As Integer) As Byte

Declare Function RC500_232_anticoll Lib "RC500_232.dll" (ByVal bcnt As Byte, ByRef snr As Long) As Byte

Declare Function RC500_232_anticoll2 Lib "RC500_232.dll" (ByVal encoll As Byte, ByVal bcnt As Byte, ByRef snr As Long) As Byte

Declare Function RC500_232_select Lib "RC500_232.dll" (ByVal snr As Long, ByRef size As Byte) As Byte

Declare Function RC500_232_authentication Lib "RC500_232.dll" (ByVal mode As Byte, ByVal secnr As Byte) As Byte

Declare Function RC500_232_authentication2 Lib "RC500_232.dll" (ByVal mode As Byte, ByVal secnr As Byte, ByVal keynr As Byte) As Byte

Declare Function RC500_232_authkey Lib "RC500_232.dll" (ByVal mode As Byte, ByVal secnr As Byte, ByRef key As Byte) As Byte

Declare Function RC500_232_halt Lib "RC500_232.dll" () As Byte

Declare Function RC500_232_read Lib "RC500_232.dll" (ByVal addr As Byte, ByRef data As Byte) As Byte

Declare Function RC500_232_write Lib "RC500_232.dll" (ByVal addr As Byte, ByRef data As Byte) As Byte

Declare Function RC500_232_writeval Lib "RC500_232.dll" (ByVal addr As Byte, ByVal value As Long) As Byte

Declare Function RC500_232_readval Lib "RC500_232.dll" (ByVal addr As Byte, ByRef value As Long) As Byte

Declare Function RC500_232_value Lib "RC500_232.dll" (ByVal mode As Byte, ByVal addr As Byte, ByRef value As Long, ByVal trans_addr As Byte) As Byte

Declare Function RC500_232_load_key Lib "RC500_232.dll" (ByVal mode As Byte, ByVal secnr As Byte, ByRef key As Byte) As Byte

Declare Function RC500_232_reset Lib "RC500_232.dll" (ByVal msec As Byte) As Byte

Declare Function RC500_232_close Lib "RC500_232.dll" () As Byte

Declare Function RC500_232_config Lib "RC500_232.dll" () As Byte

Declare Function RC500_232_get_info Lib "RC500_232.dll" (ByRef info As Byte) As Byte


Declare Function RC500_232_set_control_bit Lib "RC500_232.dll" () As Byte

Declare Function RC500_232_clr_control_bit Lib "RC500_232.dll" () As Byte

Declare Function RC500_232_alarm Lib "RC500_232.dll" (ByVal frquence As Byte, ByVal opentm As Byte, ByVal closetm As Byte, ByVal repcnt As Byte) As Byte

Declare Function RC500_232_read_E2 Lib "RC500_232.dll" (ByVal addr As Byte, ByVal length As Byte, ByRef data As Byte) As Byte

Declare Function RC500_232_write_E2 Lib "RC500_232.dll" (ByVal addr As Byte, ByVal length As Byte, ByRef data As Byte) As Byte

Declare Function RC500_232_init Lib "RC500_232.dll" (ByVal nport As Long, ByVal nbaud As Long) As Byte

Declare Sub RC500_232_exit Lib "RC500_232.dll" ()



Public Declare Function zlg500B_init Lib "zlg500b.dll" (ByVal nport As Long, ByVal nbaud As Long) As Byte
Public Declare Sub zlg500B_exit Lib "zlg500b.dll" ()
Public Declare Function zlg500B_request Lib "zlg500b.dll" (ByVal mode%, ByRef tagtype) As Byte
Public Declare Function zlg500B_anticoll Lib "zlg500b.dll" (ByVal bcnt As Byte, ByRef snr As Long) As Byte
Public Declare Function zlg500B_anticoll2 Lib "zlg500b.dll" (ByVal encoll As Byte, ByVal bcnt As Byte, ByVal snr As Byte) As Byte
Public Declare Function zlg500B_select Lib "zlg500b.dll" (ByVal snr As Long, ByRef size As Byte) As Byte
Public Declare Function zlg500B_authentication Lib "zlg500b.dll" (ByVal mode As Byte, ByVal secnr As Byte) As Byte
Public Declare Function zlg500B_authentication2 Lib "zlg500b.dll" (ByVal mode As String, ByVal secnr As String, ByVal keynr As String) As Byte
Public Declare Function zlg500B_halt Lib "zlg500b.dll" () As Integer
Public Declare Function zlg500B_read Lib "zlg500b.dll" (ByVal addr As Byte, ByRef data As Byte) As Byte
Public Declare Function zlg500B_write Lib "zlg500b.dll" (ByVal addr As Byte, ByRef data As Byte) As Byte
Public Declare Function zlg500B_increment Lib "zlg500b.dll" (ByVal addr As Byte, ByVal value As Long) As Byte
Public Declare Function zlg500B_decrement Lib "zlg500b.dll" (ByVal addr As Byte, ByVal value As Long) As Byte
Public Declare Function zlg500B_writeval Lib "zlg500b.dll" (ByVal addr As Byte, ByVal value As Long) As Byte
Public Declare Function zlg500B_readval Lib "zlg500b.dll" (ByVal addr As Byte, ByRef value As Long) As Byte
Public Declare Function zlg500B_restore Lib "zlg500b.dll" (ByVal addr As Byte) As Byte
Public Declare Function zlg500B_transfer Lib "zlg500b.dll" (ByVal addr As Byte) As Byte
Public Declare Function zlg500B_value Lib "zlg500b.dll" (ByVal mode As Byte, ByVal addr As Byte, ByVal value As Long, ByVal addr As Byte) As Byte
Public Declare Function zlg500B_load_key Lib "zlg500b.dll" (ByVal mode As Byte, ByVal secnr As Byte, ByRef key As Byte) As Byte
Public Declare Function zlg500B_reset Lib "zlg500b.dll" (ByVal msec As Byte)
Public Declare Function zlg500B_close Lib "zlg500b.dll" ()
Public Declare Sub zlg500B_config Lib "zlg500b.dll" ()
Public Declare Function zlg500B_get_info Lib "zlg500b.dll" (ByVal info As Byte) As Byte
Public Declare Function zlg500B_check_write Lib "zlg500b.dll" (ByVal snr As Byte, ByVal authenmode As Byte, ByVal addr As Byte, ByVal data As Byte) As Byte
Public Declare Function zlg500B_set_control_bit Lib "zlg500b.dll" ()
Public Declare Function zlg500B_clr_control_bit Lib "zlg500b.dll" ()
Public Declare Function zlg500B_buzzer Lib "zlg500b.dll" (ByVal frquence As Byte, ByVal opentm As Byte, ByVal closetm As Byte, ByVal repcnt As Byte) As Byte
Public Declare Function zlg500B_read_E2 Lib "zlg500b.dll" (ByVal addr As Byte, ByVal length As Byte, ByVal data As Byte) As Byte
Public Declare Function zlg500B_write_E2 Lib "zlg500b.dll" (ByVal addr As Byte, ByVal length As Byte, ByVal data As Byte) As Byte
 Public Function stonum(s As String) As Integer
Select Case s
     Case "草"
       stonum = 0
     Case "家"
       stonum = 1
     Case "原"
       stonum = 2
     Case "馨"
       stonum = 3
     Case "宾"
       stonum = 4
     Case "馆"
       stonum = 5
     Case "有"
       stonum = 6
     Case "限"
       stonum = 7
     Case "公"
       stonum = 8
     Case "司"
       stonum = 9
End Select
End Function
Public Function numtos(s As Integer) As String
Select Case s
     Case 0
     numtos = "草"
     Case 1
     numtos = "家"
     Case 2
     numtos = "原"
     Case 3
     numtos = "馨"
     Case 4
     numtos = "宾"
     Case 5
     numtos = "馆"
     Case 6
     numtos = "有"
     Case 7
     numtos = "限"
     Case 8
     numtos = "公"
     Case 9
     numtos = "司"
    End Select
End Function
Public Function prnt1(X As Integer, Y As Integer, font As Single, txt As String)
     Printer.CurrentX = X
     Printer.CurrentY = Y
     Printer.FontBold = False
     Printer.FontSize = font
     Printer.Print txt
 End Function

Public Function locasum(one As String) As Integer
Dim truetext As String
Dim lensum, lensumtru, ii As Integer
Dim num1 As String
truetext = one

lensum = Len(truetext)
lensumtru = 0
For ii = 1 To lensum
    num1 = Asc(truetext)
    truetext = Right(truetext, lensum - ii)
    If num1 > 0 Then lensumtru = lensumtru + 1 Else lensumtru = lensumtru + 2
Next ii
locasum = lensumtru

End Function