module1.bas

IC卡信息采集系统

Attribute VB_Name = "ICModule"
Declare Function IC_InitComm Lib "DCIC32.DLL" (ByVal Port%) As Long
Declare Function IC_ExitComm% Lib "DCIC32.DLL" (ByVal IcDev As Long)
Declare Function IC_Down% Lib "DCIC32.DLL" (ByVal IcDev As Long)
Declare Function IC_Pushout% Lib "DCIC32.DLL" (ByVal IcDev As Long)
Declare Function IC_InitType% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal TypeNo%)
Declare Function IC_Status% Lib "DCIC32.DLL" (ByVal IcDev As Long)
Declare Function IC_Erase% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal l%)
Declare Function IC_Read% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal l%, ByVal Databuffer$)
Declare Function IC_Read_Hex% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal l%, ByVal Databuffer$)
Declare Function IC_Read_Float% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, fdata As Single)
Declare Function IC_Read_Int% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, fdata As Long)
Declare Function IC_Write% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)
Declare Function IC_Write_Hex% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)
Declare Function IC_Write_Float% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal fdata As Single)
Declare Function IC_Write_Int% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal fdata As Long)

'ATMEL24C
Declare Function IC_Write24% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)
Declare Function IC_Write24_Hex% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)
Declare Function IC_Write64% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)
Declare Function IC_Write64_Hex% Lib "DCIC32.DLL" (ByVal IcDev As Long, ByVal offset%, ByVal length%, ByVal Databuffer$)


'
Public IcDev As Long  '指明要打开的通讯口
Public IcDev_Com As Integer  '0代表打开串口1，1代表串口2，依次类推到19代表串口20

Public Sex As String
Public WName As String
Public Age As String
Public Year As String
Public Month As String
Public CompanyNum As String
Public ICNum As String
Public Work As String
Public TimeM1 As String
Public TimeM10 As String
Public TimeJ1 As String
Public TimeJ10 As String
Public TimeJX As String