fun.bas

中国石化IC开发程序

Attribute VB_Name = "fun"
Declare Function auto_init Lib "mwic_32.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_init Lib "mwic_32.dll" (ByVal port%, ByVal baud&) As Long
Declare Function ic_exit Lib "mwic_32.dll" (ByVal icdev&) As Integer
Declare Function chk_baud Lib "mwic_32.dll" (ByVal port%) As Long

Declare Function asc_hex% Lib "mwic_32.dll" (ByVal asc$, ByRef hex As Byte, ByVal le&)
Declare Function hex_asc% Lib "mwic_32.dll" (ByRef hex As Byte, ByVal asc$, ByVal le&)
Declare Function asc_asc% Lib "mwic_32.dll" (ByVal sorc$, ByVal des$, ByVal le&)

Declare Function DES_Encrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByVal le%, ByRef sorc As Byte, ByVal le%, ByRef ptrdest As Byte)
Declare Function DES_Decrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByVal le%, ByRef des As Byte, ByVal le%, ByRef pretest As Byte)

Declare Function ic_encrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByRef sorc As Byte, ByVal le%, ByRef ptrdest As Byte)
Declare Function ic_decrypt% Lib "mwic_32.dll" (ByRef key As Byte, ByRef des As Byte, ByVal le%, ByRef pretest As Byte)

Declare Function CpuA_Reset% Lib "mwic_32.dll" Alias "cpu_reset" (ByVal icdev&, ByRef data_buffer As Byte)
Declare Function cpu_protocol% Lib "mwic_32.dll" (ByVal icdev&, ByVal le%, ByRef send_cmd As Byte, ByRef receive_data As Byte)

Declare Function SamA_Reset% Lib "mwic_32.dll" Alias "sam_reset" (ByVal icdev&, ByRef lenth As Integer, ByRef data_buffer As Byte)
Declare Function sam_protocol% Lib "mwic_32.dll" (ByVal icdev&, ByVal le%, ByRef send_cmd As Byte, ByRef receive_data As Byte)
Declare Function sam_power_on% Lib "mwic_32.dll" (ByVal icdev&)
Declare Function sam_power_down% Lib "mwic_32.dll" (ByVal icdev&)

Declare Function get_status Lib "mwic_32.dll" (ByVal icdev As Long, card_s 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, ByRef data_buffer As Byte) As Integer
Declare Function swr_dvsc Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByRef data_buffer As Byte) As Integer
Declare Function setsc_md Lib "mwic_32.dll" (ByVal icdev As Long, ByVal mode As Integer) As Integer
Declare Function swr_eeprom Lib "mwic_32.dll" (ByVal icdev As Long, ByVal Offset As Integer, ByVal length As Integer, ByVal data_buffer$) 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, ByRef data_buffer As Byte) 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 swr_snr Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByVal snr As String) As Integer
Declare Function srd_snr Lib "mwic_32.dll" (ByVal icdev As Long, ByVal length As Integer, ByRef snr As Byte) As Integer