基于射频IC卡的考勤系统

附录A 发卡子程序清单 45

附录A 发卡子程序清单

Option Explicit Dim a As Integer

Dim BytReceived(11) As Byte Dim strData As String Dim lenInput As Integer

Dim bytSendByte() As Byte '发送二进制数据 Dim strSendText As String '发送文本数据 Dim blnAutoSendFlag As Boolean Dim openFlag As Boolean Dim SEND(26) As Byte Dim i As Integer Dim j As Integer Dim S As Integer Dim sj(27) As Byte Dim temp As Byte Dim KEYB(6) As Byte Dim DATA(16) As Byte Dim Counter As Integer Dim receiveData As String Dim ReceiveCount As Integer

Private Sub cmdOpen_Click() '打开关闭端口 If openFlag Then

cmdOpen.Caption = \打开串口\ MSComm1.PortOpen = False '打开端口 Shape1.FillColor = vbRed Label2 = \关闭\ Else

46 基于IC卡的考勤管理系统设计

OpenPortNum

cmdOpen.Caption = \关闭串口\ Shape1.FillColor = vbGreen Label2 = \打开\ End If

openFlag = Not openFlag End Sub

Private Sub OpenPortNum() On Error GoTo uerror For a = 1 To 16

MSComm1.CommPort = a MSComm1.PortOpen = True If MSComm1.PortOpen = True Then 'Print \可用Com号= \ Exit Sub Else End If Next Exit Sub uerror:

'Print \出错或占用Com号= \ Resume Next End Sub

Private Sub Command2_Click() Unload Me End Sub