?? sample.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "32位動態(tài)庫調(diào)用示例 "
ClientHeight = 7170
ClientLeft = 60
ClientTop = 345
ClientWidth = 6465
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7170
ScaleWidth = 6465
StartUpPosition = 2 'CenterScreen
WhatsThisHelp = -1 'True
Begin VB.CommandButton Command7
Caption = "修改密碼"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
TabIndex = 6
Top = 2640
Width = 1455
End
Begin VB.CommandButton Command6
Caption = "設(shè)備函數(shù)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4560
TabIndex = 5
Top = 3240
Width = 1455
End
Begin VB.CommandButton Command4
Caption = "退出"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
TabIndex = 4
Top = 4320
Width = 1455
End
Begin VB.CommandButton Command3
Caption = "卡函數(shù)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
TabIndex = 3
Top = 1920
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "裝載密碼"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
TabIndex = 2
Top = 1200
Width = 1455
End
Begin VB.ListBox List1
BackColor = &H00FFFFC0&
Height = 6360
Left = 360
TabIndex = 1
Top = 360
Width = 3615
End
Begin VB.CommandButton Command1
Caption = "初始化"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4560
TabIndex = 0
Top = 480
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hexkey As String * 12
Dim snr, tagtype As Long
Dim data32 As String * 32
Dim databuff32 As String * 32
Dim alldata As String * 3000
Dim rvalue As Long
Dim wvalue As Long
Dim cardmode As Integer
Dim loadmode As Integer
Dim sector As Integer
Dim displaydata(8) As Byte
Dim address As Integer
Dim size As Byte
Private Sub Command1_Click()
If icdev < 0 Then
icdev = dc_init(0, 115200) '這里初始化串口一，波特率為115200
End If
If icdev < 0 Then
List1.AddItem ("調(diào)用 dc_init()函數(shù)出錯!")
Exit Sub
End If
List1.AddItem ("調(diào)用 dc_init()函數(shù)成功!")
End Sub
Private Sub Command2_Click()
hexkey = "ffffffffffff"
st = dc_load_key_hex(ByVal icdev, 0, 1, ByVal hexkey) '裝載1扇區(qū)的密碼到讀寫器，這和后面要
If st <> 0 Then '校驗1扇區(qū)的密碼是相對應(yīng)的
List1.AddItem ("調(diào)用 dc_Load_key_hex()函數(shù)出錯!")
Exit Sub
End If
List1.AddItem ("調(diào)用 dc_Load_key_hex()函數(shù)成功!")
End Sub
Private Sub Command3_Click()
cardmode = 0
address = 5
sector = 1
st = dc_card(ByVal icdev, cardmode, snr) '尋卡函數(shù) cardmode=1 可對卡連續(xù)操作，為0時如果執(zhí)行了HALT操作
If st <> 0 And st <> 1 Then '則卡必須離開感應(yīng)區(qū)后才能再次操作
List1.AddItem ("調(diào)用 dc_card()函數(shù)出錯,請檢查設(shè)備連接是否正常")
Exit Sub
End If
If st = 1 Then
List1.AddItem ("沒有找到卡片")
Exit Sub
End If
List1.AddItem ("感應(yīng)區(qū)內(nèi)發(fā)現(xiàn)了卡片")
List1.AddItem Str(snr)
DoEvents
st = dc_authentication(ByVal icdev, 0, sector) '核對卡密碼
If st <> 0 Then
List1.AddItem "調(diào)用 dc_authentication()函數(shù)出錯!"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_authentication()函數(shù)成功!"
DoEvents
data32 = "1234567890abcdef1234567890abcdef"
st = dc_write_hex(ByVal icdev, address, ByVal data32) '數(shù)據(jù)寫入卡片中
If st <> 0 Then
List1.AddItem "調(diào)用 dc_write_hex()函數(shù)出錯!"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_write_hex()函數(shù)成功!"
DoEvents
''data32 = "1234567890abcdef"
data32 = "1234567890abcdef1234567890abcdef"
st = dc_check_writehex(icdev, snr, 0, address, data32) ''檢測指定數(shù)據(jù)是否與卡中數(shù)據(jù)一致
If st <> 0 Then
List1.AddItem "調(diào)用 dc_check_writehex()函數(shù)出錯!"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_check_writehex()函數(shù)成功!"
DoEvents
st = dc_read_hex(ByVal icdev, address, databuff32) '讀卡內(nèi)的數(shù)據(jù)
If st <> 0 Then
List1.AddItem "調(diào)用 dc_read_hex函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_read_hex函數(shù)成功"
DoEvents
'以下是把扇區(qū)的數(shù)據(jù)塊當作一個值塊來操作
wvalue = 10000
st = dc_initval(ByVal icdev, address, ByVal wvalue) '初始化值
If st <> 0 Then
List1.AddItem "調(diào)用 dc_initval()函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_initval()函數(shù)成功"
DoEvents
st = dc_increment(ByVal icdev, address, 888) '加值
If st <> 0 Then
List1.AddItem "調(diào)用 dc_increment()函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_increment()函數(shù)成功"
DoEvents
st = dc_decrement(ByVal icdev, address, 88) '減值
If st <> 0 Then
List1.AddItem "調(diào)用 dc_decrement()函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_decrement()函數(shù)成功"
DoEvents
st = dc_readval(ByVal icdev, address, rvalue) '讀值
If st <> 0 Then
List1.AddItem "調(diào)用 dc_readval()函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_readval()函數(shù)成功"
List1.AddItem rvalue
DoEvents
'
st = dc_halt(ByVal icdev) '該函數(shù)執(zhí)行后，如果卡不離開感應(yīng)區(qū)不能再次操作
If st <> 0 Then
List1.AddItem "調(diào)用 dc_halt()函數(shù)出錯"
Exit Sub
End If
List1.AddItem "調(diào)用 dc_halt()函數(shù)成功"
DoEvents
List1.AddItem "讀寫設(shè)備測試通過!"
End Sub
Private Sub Command4_Click()
dc_exit (icdev)
quit
End Sub
Private Sub Command6_Click()
Dim dispdata(8) As Byte
Dim ctt(7) As Byte
dispdata(0) = &H44
dispdata(1) = &H46
dispdata(2) = &H5
dispdata(3) = &H5
dispdata(4) = &H85
dispdata(5) = &H5
dispdata(6) = &H5F
st = dc_gettime(icdev, ctt(0))
If st <> 0 Then
List1.AddItem "Gettime Error"
Exit Sub
End If
List1.AddItem "gettime ok"
ctt(0) = &H4
ctt(1) = &H2
ctt(2) = &H5
ctt(3) = &H15
ctt(4) = &H4
ctt(5) = &H3
ctt(6) = &H2
st = dc_settime(icdev, ctt(0))
If st <> 0 Then
List1.AddItem "settime Error"
Exit Sub
End If
List1.AddItem "settime ok"
Exit Sub
st = dc_high_disp(icdev, 1, 5, dispdata(0))
st = dc_beep(ByVal icdev, 10)
If st <> 0 Then
List1.AddItem ("調(diào)用 dc_beep()函數(shù)出錯")
Exit Sub
End If
List1.AddItem ("調(diào)用 dc_beep()函數(shù)成功")
DoEvents
data32 = "1122334455"
st = dc_swr_eepromhex(ByVal icdev, 100, 5, data32)
If st <> 0 Then
List1.AddItem ("調(diào)用 dc_swr_eepromhex()函數(shù)出錯")
Exit Sub
End If
List1.AddItem ("調(diào)用 dc_swr_eepromhex()函數(shù)成功")
DoEvents
st = dc_srd_eepromhex(ByVal icdev, 100, 5, databuff32)
If st <> 0 Then
List1.AddItem ("調(diào)用 dc_srd_eepromhex()函數(shù)出錯")
Exit Sub
End If
List1.AddItem ("調(diào)用 dc_srd_eepromhex()函數(shù)成功")
DoEvents
End Sub
Private Sub Command7_Click()
Dim akey(6) As Byte
Dim bkey(6) As Byte
'其實修改密碼的操作就是用dc_write函數(shù)來寫每個扇區(qū)的密碼塊，dc_changeb3是封裝了dc_write操作
' dc_changeb3 (ByVal adr As Long, ByVal secer As Integer, ByRef KeyA As Byte, ByVal B0 As Integer, ByVal B1 As Integer, ByVal B2 As Integer, ByVal B3 As Integer, ByVal Bk As Integer, ByRef KeyB As Byte) As Integer
sector = 1
cardmode = 1
st = 0
st = dc_card(ByVal icdev, cardmode, snr)
If st <> 0 Then
List1.AddItem "調(diào)用 dc_card()函數(shù)出錯!。請退出"
Exit Sub
End If
st = dc_authentication(ByVal icdev, 0, sector)
If st <> 0 Then
List1.AddItem "調(diào)用 dc_authentication()函數(shù)出錯!請退出。"
Exit Sub
End If
'修改密碼和控制位
akey(0) = &HFF 'A0
akey(1) = &HFF 'A1
akey(2) = &HFF 'A2
akey(3) = &HFF 'A3
akey(4) = &HFF 'A4
akey(5) = &HFF 'A5
bkey(0) = &HFF 'B0
bkey(1) = &HFF 'B1
bkey(2) = &HFF 'B2
bkey(3) = &HFF 'B3
bkey(4) = &HFF 'B4
bkey(5) = &HFF 'B5
'下列控制位參數(shù)值保證與原密碼和控制位一致，一般建議不要改參數(shù)3，4，5，6，7
st = dc_changeb3(ByVal icdev, sector, akey(0), 0, 0, 0, 1, 0, bkey(0))
If st <> 0 Then
List1.AddItem "調(diào)用 dc_changeb3()函數(shù)出錯!請退出。"
Exit Sub
End If
List1.AddItem "修改密碼成功！！！"
End Sub
Private Sub Form_Load()
icdev = -1
End Sub
Private Sub Form_Unload(Cancel As Integer)
quit
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -