📄 gold.frm
字号:
strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 240
TabIndex = 9
Top = 2400
Width = 2655
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 240
TabIndex = 8
Top = 2640
Width = 2655
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 12
Left = 240
TabIndex = 7
Top = 2880
Width = 2655
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 13
Left = 240
TabIndex = 6
Top = 3120
Width = 2775
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 14
Left = 240
TabIndex = 5
Top = 3360
Width = 2775
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 15
Left = 240
TabIndex = 4
Top = 3600
Width = 2775
End
Begin VB.Label Label1
BeginProperty Font
name = "Terminal"
charset = 1
weight = 400
size = 9
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 255
Index = 16
Left = 240
TabIndex = 3
Top = 3840
Width = 2775
End
End
Begin VB.Label TEXT3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = " "
BeginProperty Font
name = "MS Sans Serif"
charset = 1
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 0
TabIndex = 24
Top = 5040
Width = 4095
End
End
Begin VB.Menu mFile
Caption = "File"
Begin VB.Menu mLoad
Caption = "Load"
Shortcut = ^L
End
Begin VB.Menu mSave
Caption = "Save"
Shortcut = ^S
Visible = 0 'False
End
Begin VB.Menu About
Caption = "About"
Shortcut = ^A
End
End
Begin VB.Menu mIDst
Caption = "Ids"
Visible = 0 'False
Begin VB.Menu mIDs
Caption = ""
Index = 1
End
Begin VB.Menu mIDs
Caption = ""
Index = 2
End
Begin VB.Menu mIDs
Caption = ""
Index = 3
End
Begin VB.Menu mIDs
Caption = ""
Index = 4
End
Begin VB.Menu mIDs
Caption = ""
Index = 5
End
Begin VB.Menu mIDs
Caption = ""
Index = 6
End
Begin VB.Menu mIDs
Caption = ""
Index = 7
End
Begin VB.Menu mIDs
Caption = ""
Index = 8
End
Begin VB.Menu mIDs
Caption = ""
Index = 9
End
Begin VB.Menu mIDs
Caption = ""
Index = 10
End
Begin VB.Menu mIDs
Caption = ""
Index = 11
End
Begin VB.Menu mIDs
Caption = ""
Index = 12
End
Begin VB.Menu mIDs
Caption = ""
Index = 13
End
Begin VB.Menu mIDs
Caption = ""
Index = 14
End
Begin VB.Menu mIDs
Caption = ""
Index = 15
End
Begin VB.Menu mIDs
Caption = ""
Index = 16
End
End
Begin VB.Menu mHelp
Caption = "Help"
Begin VB.Menu mAbout
Caption = "About"
Shortcut = {F1}
End
End
End
Attribute VB_Name = "GOLDCARD"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub openform2()
For a = 1 To 50
Buffin = LTrim$(RTrim$(""))
Datln = 0
Cmdln = 0
buffout = ""
Handle = 0
Datlnout = 255
cmdst = "Device,Info,lotnr"
response = ScardComand(Handle, cmdst, 0, Buffin, Datln, buffout, Datlnout)
lotnr = RTrim$(buffout)
If RTrim$(lotnr) = "1100" Then Exit For
Next a
If Val(lotnr) <> 1100 Then
MsgBox "Invalid Reader"
End
End If
Buffin = LTrim$(RTrim$(""))
Datln = 0
Cmdln = 0
buffout = ""
Handle = 0
DatoutLN = 255
cmdst = "Device,Info,Serial,"
response = ScardComand(Handle, cmdst, 0, Buffin, Datln, buffout, Datlnout)
serialNo = RTrim$(buffout)
End Sub
Private Sub Exit_Click()
If Val(lotnr) <> 1100 Then
MsgBox "Invalid Reader"
End
End If
' exit and unload the forms
Unload GOLDCARD
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Width) / 2 ' Center form horizontally.
Top = (Screen.Height - Height) / 2 ' Center form vertically.
' Call the first routine to open the link from the computer to the
' chip drive unit
Call OPENPORT
Call openform2
SelectComport.Show 1
' Clear the main values used
' Text box for the return of the card info command on hte rest button
status = ""
' Used for the size of the card being used.
Memsize = 2040
' this commands look for the chipdrive on on available com ports, and opens it on the
' first available com port with the unit connected.
cmdst = "Device,SearchComport," + Trim$(Str$(comport)) + ","
buffout = ""
Buffin = LTrim$(RTrim$(""))
Datln = 0
Maxln = Len(LTrim$(RTrim$(buffout)))
Cmdln = 0
outbuff = ""
Handle = 0
DatoutLN = 0
response.Text = ScardComand(Handle, cmdst, 0, Buffin, Datln, buffout, Datln)
End Sub
Private Sub getcardstatus()
cmdst = "Device,Info,Status,"
buffout = ""
Buffin = LTrim$(RTrim$(""))
Datln = 0
Maxln = Len(LTrim$(RTrim$(buffout)))
Cmdln = 0
outbuff = ""
Handle = 0
DatoutLN = 0
response.Text = ScardComand(Handle, cmdst, 0, Buffin, Datln, buffout, Datln)
End Sub
Private Sub mExit_Click()
Unload GOLDCARD
End Sub
Private Sub mAbout_Click()
Aboutbox.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -