vb编写能记录刷的id卡卡号,重复信用卡刷卡手续费提醒提醒。

 上传我的文档
 下载
 收藏
一线资深教师,担任教研组长,教学经验丰富
 下载此文档
正在努力加载中...
利用SDK编写VB程序实现考勤状态智能感知
下载积分:350
内容提示:利用SDK编写VB程序实现考勤状态智能感知
文档格式:PDF|
浏览次数:36|
上传日期: 21:42:00|
文档星级:
该用户还上传了这些文档
利用SDK编写VB程序实现考勤状态智能感知
官方公共微信USB接口ID卡读卡器oem软件/读写卡测试程序及源代码/VB源代码
USB接口ID卡读卡器oem软件/读写卡测试程序及源代码/VB源代码
[摘要:细致代码以下(若有疑问可举行相干发问并解问) '广州枯士电子,,定造 地点:-- '读卡函数声明 Private Declare Function idr_read Lib "OUR_IDR.dll" (ByVal serial As Long) A]
详细代码如下(如有疑问可进行相关提问并解答)
"广州荣士电子,,定制 地址:--
'读卡函数声明Private Declare Function idr_read Lib "OUR_IDR.dll" (ByVal serial As Long) As Byte
'读卡函数声明,仅读一次,重新取放卡才能读到第二次Private Declare Function idr_read_once Lib "OUR_IDR.dll" (ByVal serial As Long) As Byte
'让设备发出声响函数声明Private Declare Function idr_beep Lib "OUR_IDR.dll" (ByVal xms As Long) As Byte
'读取设备编号函数声明Private Declare Function pcdgetdevicenumber Lib "OUR_IDR.dll" (ByVal devicenumber As Long) As Byte&&&&&&&
Private Sub Command1_Click()'轻松读卡'技术支持:'网站:Dim status As Byte '存放返回值
Dim idserial(0 To 4) As Byte '//卡数据缓冲
status = idr_read(VarPtr(idserial(0)))'//在下面设定断点,然后查看idserial'//开发人员根据自己的需要处理idserial中的数据了。'//处理返回函数Select Case status
&&& Case 0:&&& &&&&&&& MsgBox ("读卡成功,卡号为" + Hex(idserial(0)) + "-" + Hex(idserial(1)) + "-" + Hex(idserial(2)) + "-" + Hex(idserial(3)) + "-" + Hex(idserial(4)))&&&&&&& &&& Case 8:&&& &&&&&&& MsgBox "请将卡放在感应区"&&&&&&& &&& Case 23:&&& &&&&&&& MsgBox "机器没连上,或驱动程序未安装!"&&&&&&& &&& &&& Case Else&&&&&&& MsgBox "异常"
End Select
'&&&&&&& //返回解释''&&&&&&& #define ERR_REQUEST 8//寻不到卡''&&&&&&& #define ERR_NONEDLL 21//没有动态库'&&&&&&& #define ERR_DRIVERORDLL 22//动态库或驱动程序异常'&&&&&&& #define ERR_DRIVERNULL 23//驱动程序错误或尚未安装'&&&&&&& #define ERR_TIMEOUT 24//操作超时,一般是动态库没有反映'&&&&&&& #define ERR_TXSIZE 25//发送字数不够'&&&&&&& #define ERR_TXCRC 26//发送的CRC错'&&&&&&& #define ERR_RXSIZE 27//接收的字数不够'&&&&&&& #define ERR_RXCRC 28//接收的CRC错
Private Sub Command2_Click()'轻松读卡'技术支持:'网站:Dim status As Byte '存放返回值
Dim idserial(0 To 4) As Byte '//卡数据缓冲
status = idr_read_once(VarPtr(idserial(0)))'//在下面设定断点,然后查看idserial'//开发人员根据自己的需要处理idserial中的数据了。'//处理返回函数Select Case status
&&& Case 0:&&& &&&&&&& MsgBox ("读卡成功,卡号为" + Hex(idserial(0)) + "-" + Hex(idserial(1)) + "-" + Hex(idserial(2)) + "-" + Hex(idserial(3)) + "-" + Hex(idserial(4)))&&&&&&& &&& Case 8:&&& &&&&&&& MsgBox "请将卡放在感应区"&&&&&&& &&& Case 23:&&& &&&&&&& MsgBox "机器没连上,或驱动程序未安装!"&&&&&&& &&& &&& Case Else&&&&&&& MsgBox "异常"
End Select
'&&&&&&& //返回解释''&&&&&&& #define ERR_REQUEST 8//寻不到卡''&&&&&&& #define ERR_NONEDLL 21//没有动态库'&&&&&&& #define ERR_DRIVERORDLL 22//动态库或驱动程序异常'&&&&&&& #define ERR_DRIVERNULL 23//驱动程序错误或尚未安装'&&&&&&& #define ERR_TIMEOUT 24//操作超时,一般是动态库没有反映'&&&&&&& #define ERR_TXSIZE 25//发送字数不够'&&&&&&& #define ERR_TXCRC 26//发送的CRC错'&&&&&&& #define ERR_RXSIZE 27//接收的字数不够'&&&&&&& #define ERR_RXCRC 28//接收的CRC错End Sub
Private Sub Command4_Click()'让设备发出声音'技术支持:'网站:&&& idr_beep 50End Sub
Private Sub Command5_Click()'读取设备编号,可做为软件加密狗用,也可以根据此编号在公司网站上查询保修期限
'技术支持:'网站:
Dim devno(0 To 3) As Byte '设备编号
status = pcdgetdevicenumber(VarPtr(devno(0)))
If pcdgetdevicenumber(VarPtr(devno(0))) = 0 Then&&& MsgBox Hex(devno(0)) + "-" + Hex(devno(1)) + "-" + Hex(devno(2)) + "-" + Hex(devno(3))End If
'返回解释'#define ERR_REQUEST 8'寻卡错误'#define ERR_READSERIAL 9'读序列吗错误'#define ERR_SELECTCARD 10'选卡错误'#define ERR_LOADKEY 11'装载密码错误'#define ERR_AUTHKEY 12'密码认证错误'#define ERR_READ 13'读卡错误'#define ERR_WRITE 14'写卡错误'#define ERR_NONEDLL 21'没有动态库'#define ERR_DRIVERORDLL 22'动态库或驱动程序异常'#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装'#define ERR_TIMEOUT 24'操作超时,一般是动态库没有反映'#define ERR_TXSIZE 25'发送字数不够'#define ERR_TXCRC 26'发送的CRC错'#define ERR_RXSIZE 27'接收的字数不够'#define ERR_RXCRC 28'接收的CRC错End Sub
感谢关注 Ithao123精品文库频道,是专门为互联网人打造的学习交流平台,全面满足互联网人工作与学习需求,更多互联网资讯尽在 IThao123!
Laravel是一套简洁、优雅的PHP Web开发框架(PHP Web Framework)。它可以让你从面条一样杂乱的代码中解脱出来;它可以帮你构建一个完美的网络APP,而且每行代码都可以简洁、富于表达力。
Hadoop是一个由Apache基金会所开发的分布式系统基础架构。
用户可以在不了解分布式底层细节的情况下,开发分布式程序。充分利用集群的威力进行高速运算和存储。
Hadoop实现了一个分布式文件系统(Hadoop Distributed File System),简称HDFS。HDFS有高容错性的特点,并且设计用来部署在低廉的(low-cost)硬件上;而且它提供高吞吐量(high throughput)来访问应用程序的数据,适合那些有着超大数据集(large data set)的应用程序。HDFS放宽了(relax)POSIX的要求,可以以流的形式访问(streaming access)文件系统中的数据。
Hadoop的框架最核心的设计就是:HDFS和MapReduce。HDFS为海量的数据提供了存储,则MapReduce为海量的数据提供了计算。
产品设计是互联网产品经理的核心能力,一个好的产品经理一定在产品设计方面有扎实的功底,本专题将从互联网产品设计的几个方面谈谈产品设计
随着国内互联网的发展,产品经理岗位需求大幅增加,在国内,从事产品工作的大部分岗位为产品经理,其实现实中,很多从事产品工作的岗位是不能称为产品经理,主要原因是对产品经理的职责不明确,那产品经理的职责有哪些,本专题将详细介绍产品经理的主要职责
IThao123周刊& 2081八字中文无线叫号器与KT-KF01 IC卡读8位卡号的区别
龙卷风2081八字中文无线叫号器与KOBKT-KF01 IC卡读8位卡号哪个好
安信威安宿阿尔卡诺艾斯蓝安创佳澳洛尼澳格纳AnseviABB安尼威尔安居乐业瑧宝柏丽金霸天安博颖邦先生宝星劲力碧安居柏煌百赛施贝宝士宝利欧CNTENGFEI创世安春泉创德利沧鹏CSZWCNOBLECHANGDIAN多嘴猫杜亚滴滴嗒德力西电气多灵德力西德意隆EVOLOGYECCETMANELECALL富盈星FTE福尔澌福田冈弋Geeklink固特格瑞卫康GJSBDG格林钛德恒思安泓锦HTZL虹锐HESUNSE海威士华联视HRSEDZ好易点宏泰和馨合大hosion剑涛佳吉安江铭杰特康JDY节之冠洁丽雅金积嘉金利邦晶科能源刻锐KAWDENKONX卡佳斯KOB卡努比乐旭科技铃精灵龙卷风LCKJ立维腾lnzee铃先生狼眼乐荣立可安龙侨华联泽MITIR民熔玛嘉乐妙管家玛嘉乐麦得宝妙管家玛丁欧唛欧太力欧家PGSTPUDUN浦项品益侨飞群达泉佳宝清风齐鲁安然如诺RMSCShSUNFOR时机威视森驰速比拓SDTI赛尔玛SINBUNSinnaider Electric SNDSUITTCSZYOHOsaful索安SASWELL斯图舜世保TOPHOME通用锁具天图天正VNC唯实Win Min吴派wanscam维赛尔迅铃Xsmartlife迅朗信特安XinSiLu鑫视威易事关怀云视安优翔亿信安一家优因特阳淳易美特雨花泽永康壹秀科技鹰视眼ZUCON征西众家安昭阳科技Z-BEN
猜您会喜欢
乐旭科技LE688A精致六位语音 主机
迅铃工厂专用五键呼叫器APE650
铃精灵TD-8601办公室双项对讲呼叫器
安信威安宿阿尔卡诺艾斯蓝安创佳澳洛尼澳格纳AnseviABB安尼威尔安居乐业瑧宝柏丽金霸天安博颖邦先生宝星劲力碧安居柏煌百赛施贝宝士宝利欧CNTENGFEI创世安春泉创德利沧鹏CSZWCNOBLECHANGDIAN多嘴猫杜亚滴滴嗒德力西电气多灵德力西德意隆EVOLOGYECCETMANELECALL富盈星FTE福尔澌福田冈弋Geeklink固特格瑞卫康GJSBDG格林钛德恒思安泓锦HTZL虹锐HESUNSE海威士华联视HRSEDZ好易点宏泰和馨合大hosion剑涛佳吉安江铭杰特康JDY节之冠洁丽雅金积嘉金利邦晶科能源刻锐KAWDENKONX卡佳斯KOB卡努比乐旭科技铃精灵龙卷风LCKJ立维腾lnzee铃先生狼眼乐荣立可安龙侨华联泽MITIR民熔玛嘉乐妙管家玛嘉乐麦得宝妙管家玛丁欧唛欧太力欧家PGSTPUDUN浦项品益侨飞群达泉佳宝清风齐鲁安然如诺RMSCShSUNFOR时机威视森驰速比拓SDTI赛尔玛SINBUNSinnaider Electric SNDSUITTCSZYOHOsaful索安SASWELL斯图舜世保TOPHOME通用锁具天图天正VNC唯实Win Min吴派wanscam维赛尔迅铃Xsmartlife迅朗信特安XinSiLu鑫视威易事关怀云视安优翔亿信安一家优因特阳淳易美特雨花泽永康壹秀科技鹰视眼ZUCON征西众家安昭阳科技Z-BEN安信威安宿阿尔卡诺艾斯蓝安创佳澳洛尼澳格纳AnseviABB安尼威尔安居乐业瑧宝柏丽金霸天安博颖邦先生宝星劲力碧安居柏煌百赛施贝宝士宝利欧CNTENGFEI创世安春泉创德利沧鹏CSZWCNOBLECHANGDIAN多嘴猫杜亚滴滴嗒德力西电气多灵德力西德意隆EVOLOGYECCETMANELECALL富盈星FTE福尔澌福田冈弋Geeklink固特格瑞卫康GJSBDG格林钛德恒思安泓锦HTZL虹锐HESUNSE海威士华联视HRSEDZ好易点宏泰和馨合大hosion剑涛佳吉安江铭杰特康JDY节之冠洁丽雅金积嘉金利邦晶科能源刻锐KAWDENKONX卡佳斯KOB卡努比乐旭科技铃精灵龙卷风LCKJ立维腾lnzee铃先生狼眼乐荣立可安龙侨华联泽MITIR民熔玛嘉乐妙管家玛嘉乐麦得宝妙管家玛丁欧唛欧太力欧家PGSTPUDUN浦项品益侨飞群达泉佳宝清风齐鲁安然如诺RMSCShSUNFOR时机威视森驰速比拓SDTI赛尔玛SINBUNSinnaider Electric SNDSUITTCSZYOHOsaful索安SASWELL斯图舜世保TOPHOME通用锁具天图天正VNC唯实Win Min吴派wanscam维赛尔迅铃Xsmartlife迅朗信特安XinSiLu鑫视威易事关怀云视安优翔亿信安一家优因特阳淳易美特雨花泽永康壹秀科技鹰视眼ZUCON征西众家安昭阳科技Z-BEN
猜您会喜欢
乐旭科技LE818C 中文语音高档音乐 主机
迅铃餐饮服务/茶楼咖啡厅酒吧KTV无线呼叫器APE310
刻锐多功能无线呼叫器 C1099
[北京 厂商指导价]
[北京 市场零售价]
呼叫容量:
消号方式:
自动或手动
外壳材质:
超薄铝合金
按键数量:
KOB KT-KF01 IC卡读8位卡号
抢沙发,消灭 0 点评
最多可得40个Z金豆()
龙卷风2081八字中文无线叫号器
抢沙发,消灭 0 点评
最多可得40个Z金豆()
KOB KT-KF01 IC卡读8位卡号
该产品下暂无问题,有什么疑问可以告诉我们
龙卷风2081八字中文无线叫号器
该产品下暂无问题,有什么疑问可以告诉我们
KOB KT-KF01 IC卡读8位卡号
迅铃APE1300G是一款性能先进的无线呼叫器主机。在工作中,这款设备可以...
华德安品牌执法记录仪有非常多的交通警察用户,如武宁县交警大队、鞍山...
龙卷风2081八字中文无线叫号器
广大的警察同志在执法办案过程中接触到大量的案件,有时候眼见不一定都...
警翼DSJ-V7执法仪充分调研一线用户实战需求,结合行业标准,厚积薄发,...请教下 USB ID卡 怎么编程 就是做会员卡编程_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:94,063贴子:
请教下 USB ID卡 怎么编程 就是做会员卡编程收藏
我买了个id卡读卡器,没有带任何驱动,我询问了下卖家说是免驱的,我就不知道怎么做了.我想请教几个问题:1,怎样读取ID卡的卡号;2,id卡片 是不是仅仅只存储一个卡号,比如会员的充值和余额和消费记录等都要记录在电脑数据库里 而不是存储在id卡片上的.接口:USB接口产品用途磁卡/条码阅读器专门用于磁卡/条码信息的读取。该产品可广泛用于银行、证券、商业等行业及领域。产品特点◆工作状态声、光双重指示◆支持双向、高低速划卡◆提供多种接口输出方式◆超长磁头寿命◆条码阅读器可兼容明、暗码的读取且能识别多种码制。产品技术指标◆磁卡标准: ISO◆译码方式:F2F(FM)◆拉卡速度:10-120cm/s◆磁头寿命:>60万次◆输出接口:仿XT、AT键盘格式
RS-232◆可辨认码制:Code39
Interleaved 2 of 5
Full ASC II Code 39◆电源:DC
35mA(条码阅读器60 mA)◆工作环境:工作温度0oC-+45oC
工作湿度10%-90%RH
FoxTable 2014,更低难度,10倍效率,可编译,完美融合B/S和C/S优势,快速开发数据管理软件
id卡应该是唯一的吧,数据库里把id卡做为唯一标识字段即可
原来是象USB小键盘一样的,一刷卡,无需编程,直接就将卡号传输到焦点文本框里了,并且加上个回车键,但是问题是我的程序里 卡号输入文本框不是一直都处于得到焦点状态,那样就得不到刷卡的卡号了,有没朋友懂的,怎么通过编程方法在卡号文本框没有焦点的情况下也能得到卡号.
钩子函数听说比较复杂,虽然是USB接口,但说明书上也说是rs-232串口输出,配有转接电缆,直接自USB,这样的话,应该是可以通过rs-232编程获得数据的吧
请联系我,联系电话:,我这边是直接工厂,有专业技术人相信这块会给你一个完美的答复,谢谢
有没有提供dll?
看说明书,应该会提供dll和具体用法的,还有卡片的容量什么,虽然没研究过,应该差不多是这样。
登录百度帐号推荐应用
为兴趣而生,贴吧更懂你。或

我要回帖

更多关于 招行信用卡刷卡提醒 的文章

 

随机推荐