代码.txt

基于VB的非接触IC卡应用

  Option Explicit
Dim flag As Integer
Dim status As Long
Dim i As Long
Dim ReadBuff(16) As Byte
Dim wtdata As String * 32





Private Sub comm_Click()


End Sub



Private Sub Command5_Click()
Dim mode As Long
   Dim actiontime As Long
   Dim intervaltime As Long
   Dim count As Long



   status = ALARM(mode, actiontime, intervaltime, count)




End Sub


Private Sub Command6_Click()

Dim mcmver(20) As Byte
   Dim temp As String
   Dim i As Byte


End Sub

Private Sub EXITT_Click()
   On Error Resume Next


End Sub

Private Sub clear_Click()
    MousePointer = 99
    List1.clear

    MousePointer = 0
End Sub


Public Sub lianjie()
    Dim Port As Long
    Dim mcmno As Long



End Sub





Private Sub Form_Load()

End Sub

Private Sub WIZAP_Click()
   MousePointer = 99

End Sub