mc32_gl.bas

来自「接触式IC卡的上电」· BAS 代码 · 共 25 行

Attribute VB_Name = "MC32Gl"
Public icdev As Long
Public st As Integer
Declare Function auto_init Lib "mwic_32.dll" (ByVal port%, ByVal baud As Long) As Long
Declare Function ic_init Lib "mwic_32.dll" (ByVal port%, ByVal baud As Long) As Long
'Declare Function get_status Lib "MWIC_32.dll" (ByVal icdev As Long, card_S As Integer) As Integer
Declare Function get_status Lib "mwic_32.dll" (ByVal icdev As Long, ByRef status As Integer) As Integer
Declare Function set_baud Lib "mwic_32.dll" (ByVal icdev As Long, ByVal baud As Long) As Integer

Declare Function cmp_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function srd_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Long, ByVal data_buffer$) As Integer
Declare Function swr_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal data_buffer$) As Integer
Declare Function setsc_md Lib "mwic_32.dll" (ByVal icdev As Long, ByVal mode As Integer) As Integer

Declare Function turn_on Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function turn_off Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function srd_ver Lib "mwic_32.dll" (ByVal icdev As Long, ByVal le As Integer, ByVal data_buffer$) As Integer
Declare Function auto_pull Lib "mwic_32.dll" (ByVal icdev As Long) As Integer
Declare Function dv_beep Lib "mwic_32.dll" (ByVal icdev As Long, ByVal time As Integer) As Integer
Declare Function ic_exit% Lib "mwic_32.dll" (ByVal icdev As Long)