icvar.bas

一个功能比较完善的远程抄表软件

Attribute VB_Name = "ICVar"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/07/09
'描    述：CBB三表户外计量系统 Ver 5.2
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Global msgSave As String    'frmSaveMsg1 Message displayed
Global msgBack1 As Integer  'frmSaveMsg1 return value
                                '1---是(覆盖)
                                '2---全部
                                '3---否
                                '4---取消(中止)
Global COM As Integer
Global IC_DataPage As Integer   'IC卡数据存放页
Global IC_BytesPerPage As Integer 'IC卡每页字节数
Global IC_BaseAddr As Integer   'IC卡数据基准起始地址

Global IC_init_Flag As Boolean
Global f_DevStatus As Integer
'###########################################################################################################################
Global icdev As Long
'useful function.
Declare Function IC_InitComm Lib "mwic32.dll" (ByVal Port%) As Long
Declare Function IC_ExitComm% Lib "mwic32.dll" (ByVal icdev As Long)
Declare Function IC_Down% Lib "mwic32.dll" (ByVal icdev As Long)
Declare Function IC_Pushout% Lib "mwic32.dll" (ByVal icdev As Long)
Declare Function IC_InitType% Lib "mwic32.dll" (ByVal icdev As Long, ByVal TypeNo%)
Declare Function IC_Status% Lib "mwic32.dll" (ByVal icdev As Long)
Declare Function IC_Erase% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%)
Declare Function IC_Read% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal dataBuffer$)
Declare Function IC_Read_Hex% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal l%, ByVal dataBuffer$)
Declare Function IC_Read_Float% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, fdata As Single)
Declare Function IC_Read_Int% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, fdata As Long)
Declare Function IC_Write% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)
Declare Function IC_Write_Hex% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal length%, ByVal dataBuffer$)
Declare Function IC_Write_Float% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal fdata As Single)
Declare Function IC_Write_Int% Lib "mwic32.dll" (ByVal icdev As Long, ByVal offset%, ByVal fdata As Long)
'
Global Const MW_OK = &H0         '操作正确
Global Const MW_READ_ERR = -&H80 '发送数据错
Global Const MW_WRITE_ERR = -&H81 '接收数据错
Global Const MW_COMM_ERR = -&H82  '通讯错误
Global Const MW_PASS_ERR = -&H83  '密码效验错
Global Const MW_TIME_OUT = -&H84  '通讯超时
Global Const MW_SUM_ERR = -&H85   '奇偶效验错
Global Const MW_NO_ICC = -&H86    '没有插卡
Global Const MW_FORMAT_ERR = -&H87 '格式错


'###########################################################################################################################