icfunc.bas

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

Attribute VB_Name = "ICFunc"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：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
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Function chkDevStatus() As Integer
'status
    AppendStatusInfo "检查IC卡设备状态", icoBLUE
    SaveLog "检查IC卡设备状态", 0
    
Dim f_ICStatus As Integer
    chkDevStatus = -1
    
    If icdev >= 0 Then
        f_ICStatus = IC_Status(ByVal icdev)
        If f_ICStatus >= 0 Then
            chkDevStatus = f_ICStatus
            If f_ICStatus = 1 Then
'                If Not IC_init_Flag Then
'status
                    AppendStatusInfo "设备已正确联接,但还未正确插入IC卡  请插入IC卡再试", icoYELLOW
                    SaveLog "设备已正确联接,但还未正确插入IC卡  请插入IC卡再试", 2
                    MsgBox "", , "设备状态检测"
 '               End If
            Else
                If IC_InitType(ByVal icdev, &H40) >= 0 Then
                Else
  '                  If Not IC_init_Flag Then
'status
                        AppendStatusInfo "无法识别的卡型   请确认插入正确类型的IC卡", icoBLUE
                        SaveLog "无法识别的卡型   请确认插入正确类型的IC卡", 0
                        MsgBox "无法识别的卡型" + Chr(10) + "请确认插入正确类型的IC卡", , "卡型检测"
   '                 End If
                End If
            End If
        Else
            IC_ExitComm (icdev)
            icdev = -1
        End If
    End If
    f_DevStatus = chkDevStatus
'status
    AppendStatusInfo "检查IC卡设备状态  " & IIf(chkDevStatus = 0, "正常", "错误"), icoBLUE
    SaveLog "检查IC卡设备状态  " & IIf(chkDevStatus = 0, "正常", "错误"), 0
    
End Function


Function InitICDev() As Boolean
'status
    AppendStatusInfo "初始化IC卡设备", icoBLUE
    SaveLog "初始化IC卡设备", 0
    IC_init_Flag = True
    If icdev < 0 Then
        InitICDev = reChkDev
    Else
        IC_init_Flag = False
        Select Case chkDevStatus
            Case 0
                InitICDev = True
            Case 1
                InitICDev = False
            Case Is < 0
                InitICDev = reChkDev
        End Select
    End If
    If Not InitICDev And f_DevStatus < 0 Then
'status
        AppendStatusInfo "检测不到可用的设备!  请检查IC卡读写器是否已经正确连接到一个串口上.", icoRED
        SaveLog "检测不到可用的设备!  请检查IC卡读写器是否已经正确连接到一个串口上.", 1
        MsgBox "检测不到可用的设备!" + Chr(10) + "请检查IC卡读写器是否已经正确连接到一个串口上.", 64, "读写器检查"
    End If
End Function


Function reChkDev() As Boolean
'status
    AppendStatusInfo "重新检测串口上的IC卡设备", icoBLUE
    SaveLog "重新检测串口上的IC卡设备", 0
    reChkDev = False
    For COM = 0 To 3 Step 1
'status
        AppendStatusInfo "检测串口" & COM & "...", icoBLUE
        SaveLog "检测串口" & COM & "...", 0
        icdev = IC_InitComm(COM)
        If icdev >= 0 Then
'status
            AppendStatusInfo "串口" & COM & "检测到可用设备", icoBLUE
            SaveLog "串口" & COM & "检测到可用设备", 0
            Select Case chkDevStatus
                Case 0
'status
                    AppendStatusInfo "检测串口" & COM & "设备状态 正常", icoBLUE
                    SaveLog "检测串口" & COM & "设备状态 正常", 0
                    reChkDev = True
                    Exit Function
                Case 1
'status
                    AppendStatusInfo "检测串口" & COM & "设备状态 错误", icoBLUE
                    SaveLog "检测串口" & COM & "设备状态 错误", 0
                    reChkDev = False
                    Exit Function
                Case Is < 0
'status
                    AppendStatusInfo "检测串口" & COM & "设备状态 错误", icoBLUE
                    SaveLog "检测串口" & COM & "设备状态 错误", 0
                    reChkDev = False
            End Select
        End If
    Next COM
End Function