⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 这是利用Mifare SDK开发的读写基于ISO14443标准RF卡的程序。
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Mifare Testing Platform"
   ClientHeight    =   7485
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10575
   LinkTopic       =   "Form1"
   ScaleHeight     =   7485
   ScaleWidth      =   10575
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox cbKeyType 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   46
      Top             =   1560
      Width           =   975
   End
   Begin VB.ComboBox cbPortNo 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   45
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Read S/N"
      Height          =   255
      Index           =   19
      Left            =   9000
      TabIndex        =   43
      Top             =   4080
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Get Lib Version"
      Height          =   255
      Index           =   5
      Left            =   7440
      TabIndex        =   42
      Top             =   5280
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Short Beep"
      Height          =   255
      Index           =   27
      Left            =   9000
      TabIndex        =   41
      Top             =   6720
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Long Beep"
      Height          =   255
      Index           =   26
      Left            =   7440
      TabIndex        =   40
      Top             =   6720
      Width           =   1455
   End
   Begin VB.CommandButton btnToHex 
      Caption         =   "To HEX >>"
      Height          =   255
      Index           =   25
      Left            =   2400
      TabIndex        =   39
      Top             =   7080
      Width           =   975
   End
   Begin VB.TextBox txtAscii 
      Height          =   270
      Left            =   120
      MaxLength       =   16
      TabIndex        =   38
      ToolTipText     =   "Write your text here and convert it to HEX format for transferring to the card."
      Top             =   7080
      Width           =   2175
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Sel E Write"
      Height          =   255
      Index           =   24
      Left            =   9000
      TabIndex        =   37
      Top             =   6000
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "E Write"
      Height          =   255
      Index           =   23
      Left            =   9000
      TabIndex        =   36
      Top             =   5760
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Sel Write"
      Height          =   255
      Index           =   22
      Left            =   9000
      TabIndex        =   35
      Top             =   5520
      Width           =   1455
   End
   Begin VB.TextBox txtData 
      Height          =   270
      Left            =   4200
      MaxLength       =   32
      TabIndex        =   34
      Text            =   "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
      Top             =   7080
      Width           =   3135
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Write"
      Height          =   255
      Index           =   21
      Left            =   9000
      TabIndex        =   32
      Top             =   5280
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Halt Card"
      Height          =   255
      Index           =   18
      Left            =   7440
      TabIndex        =   31
      Top             =   6480
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Trigger OFF"
      Height          =   255
      Index           =   17
      Left            =   7440
      TabIndex        =   30
      Top             =   4800
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Trigger ON"
      Height          =   255
      Index           =   16
      Left            =   7440
      TabIndex        =   29
      Top             =   4560
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Turn off RF"
      Height          =   255
      Index           =   15
      Left            =   9000
      TabIndex        =   28
      Top             =   6480
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Turn on RF"
      Height          =   255
      Index           =   14
      Left            =   9000
      TabIndex        =   27
      Top             =   6240
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Wake up"
      Height          =   255
      Index           =   13
      Left            =   7440
      TabIndex        =   26
      Top             =   6000
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Reset"
      Height          =   255
      Index           =   12
      Left            =   7440
      TabIndex        =   25
      Top             =   5760
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Load Key"
      Height          =   255
      Index           =   11
      Left            =   7440
      TabIndex        =   24
      Top             =   6240
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Sel E Read"
      Height          =   255
      Index           =   10
      Left            =   9000
      TabIndex        =   23
      Top             =   5040
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "E Read"
      Height          =   255
      Index           =   9
      Left            =   9000
      TabIndex        =   22
      Top             =   4800
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Sel Read"
      Height          =   255
      Index           =   8
      Left            =   9000
      TabIndex        =   21
      Top             =   4560
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Read"
      Height          =   255
      Index           =   7
      Left            =   9000
      TabIndex        =   20
      Top             =   4320
      Width           =   1455
   End
   Begin VB.TextBox txtSerialNo 
      Height          =   270
      Left            =   8760
      MaxLength       =   8
      TabIndex        =   19
      Text            =   "FFFFFFFF"
      Top             =   2880
      Width           =   1455
   End
   Begin VB.TextBox txtKeyValue 
      Height          =   270
      Left            =   8760
      MaxLength       =   12
      TabIndex        =   17
      Text            =   "FFFFFFFFFFFF"
      Top             =   2520
      Width           =   1455
   End
   Begin VB.ComboBox cbKeyAddr 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   15
      Top             =   2040
      Width           =   975
   End
   Begin VB.ComboBox cbBlockNo 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Stop Reader"
      Height          =   255
      Index           =   6
      Left            =   7440
      TabIndex        =   11
      Top             =   5520
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Set Reader ID"
      Height          =   255
      Index           =   4
      Left            =   7440
      TabIndex        =   10
      Top             =   5040
      Width           =   1455
   End
   Begin VB.ComboBox cbReaderID 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   9
      Top             =   840
      Width           =   975
   End
   Begin VB.ComboBox cbStationID 
      Height          =   315
      Left            =   9480
      Style           =   2  'Dropdown List
      TabIndex        =   8
      Top             =   480
      Width           =   975
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Trigger IO"
      Height          =   255
      Index           =   3
      Left            =   7440
      TabIndex        =   5
      Top             =   4320
      Width           =   1455
   End
   Begin VB.CheckBox chkHaltCard 
      Caption         =   "Halt Card After Success"
      Height          =   375
      Left            =   7560
      TabIndex        =   4
      Top             =   3240
      Width           =   2415
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Close Reader"
      Height          =   255
      Index           =   2
      Left            =   7440
      TabIndex        =   3
      Top             =   7080
      Width           =   3015
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Read Reader ID"
      Height          =   255
      Index           =   1
      Left            =   7440
      TabIndex        =   2
      Top             =   4080
      Width           =   1455
   End
   Begin VB.CommandButton MF_Button 
      Caption         =   "Open Reader"
      Height          =   255
      Index           =   0
      Left            =   7440
      TabIndex        =   1
      Top             =   3720
      Width           =   3015
   End
   Begin VB.ListBox List1 
      BeginProperty Font 
         Name            =   "MS Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6885
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7215
   End
   Begin VB.Label Label9 
      Caption         =   "Key type"
      Height          =   255
      Left            =   7560
      TabIndex        =   47
      Top             =   1560
      Width           =   1695
   End
   Begin VB.Label Label8 
      Caption         =   "Port No."
      Height          =   255
      Left            =   7560

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -