in.frm

社保卡信息读取 使用读卡器对社保卡信息读取,联通公司使用的代码,对硬件控制学习有所帮助吧

VERSION 5.00
Begin VB.Form Frmin 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2655
   ClientLeft      =   5190
   ClientTop       =   3780
   ClientWidth     =   4095
   LinkTopic       =   "Form1"
   Picture         =   "in.frx":0000
   ScaleHeight     =   2655
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2160
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1680
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1680
      Width           =   1095
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   5
      Index           =   0
      X1              =   0
      X2              =   4080
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   5
      Index           =   1
      X1              =   0
      X2              =   4080
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   5
      Index           =   0
      X1              =   4080
      X2              =   4080
      Y1              =   0
      Y2              =   2640
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   5
      Index           =   1
      X1              =   0
      X2              =   0
      Y1              =   0
      Y2              =   2640
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请放上非接触卡..."
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   3855
   End
End
Attribute VB_Name = "Frmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Label1.Caption = "运行中，请等待..."
Open_Serial
Read_Data_Reco
frmds.Show
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Open_Serial()
Dim ret As Long
ret = OpenPort("COM2", "19200, N, 8, 1")
rel = ret
  If ret < 0 Then
      MsgBox "通讯错误"
      End
  End If
End Sub
''  本地读取电子标签卡函数部分

'Public Sub open_port()
'Dim ret As Long
'ret = vsio_open("serial", "COM2", "19200, N, 8, 1")
'rel = ret
'  If ret < 0 Then
'      MsgBox "通讯错误"
'      End
'  End If
'End Sub

Public Sub Close_Port()
vsio_close (rel)
End Sub
Private Sub Read_Data_Reco()
Dim ret As Long
Dim buf_P(0 To 4) As Byte
ret = ISO_ReadSingleBlock(0, 0, 1, buf_P(0))
  If ret < 0 Then
      MsgBox "读取数据出错"
             Else
      hex2str biaoqian(0), buf_P(1), ret - 1
      Score_Data = str(biaoqian(0)) + str(biaoqian(1)) + str(biaoqian(2)) + str(biaoqian(3)) + str(biaoqian(4)) + str(biaoqian(5)) + str(biaoqian(6)) + str(biaoqian(7))
      Score_Data = RTrim(LTrim(Score_Data))
         If Score_Data = "48 48 48 48 48 48 48 48" Then
                  
                    MFS_D(0) = "郭正强"
                    MFS_D(1) = "男"
                    MFS_D(2) = "上海良标智能终端有限公司"
                    MFS_D(3) = "技术服务部门"
                    MFS_D(4) = App.Path + "\photo.bmp"
                                           Else
                    MFS_D(0) = "董长江"
                    MFS_D(1) = "男"
                    MFS_D(2) = "上海良标智能终端有限公司"
                    MFS_D(3) = "总经理办公室"
                    MFS_D(4) = App.Path + "\photo1.bmp"
         End If
  End If
Close_Port
End Sub

Private Sub Form_Load()
Dim Rtn
Rtn = SetWindowPos(Frmin.hwnd, -1, 0, 0, 0, 0, 3)
End Sub