技术标签: library string 测试 function integer subroutine
界面
详细代码如下:
$PBExportHeader$w_test.srw
$PBExportComments$ST-803U读写器
forward
global type w_test from window
end type
type cb_5 from commandbutton within w_test
end type
type cb_4 from commandbutton within w_test
end type
type cb_3 from commandbutton within w_test
end type
type cb_2 from commandbutton within w_test
end type
type cb_1 from commandbutton within w_test
end type
end forward
global type w_test from window
integer width = 2464
integer height = 1128
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
end type
global w_test w_test
type prototypes
//ST-803U读写器
//020-82301718 138-26029618 王生 [email protected]
FUNCTION Integer piccreadex ( Char ctrlword , REF Char serial[4] , Integer area , Integer keyA1B0 , Char picckey[6] , REF Char piccdata0_2[48] ) LIBRARY "OUR_MIFARE.dll" //读卡
FUNCTION Integer piccwriteex ( Char ctrlword , Char serial[4] , Integer area , Integer keyA1B0 , Char picckey[6] , Char piccdata0_2[48] ) LIBRARY "OUR_MIFARE.dll" //写卡
FUNCTION Integer pcdbeep ( Integer xms ) LIBRARY "OUR_MIFARE.dll" //设备发声
FUNCTION Integer piccchangesinglekey ( Char ctrlword , Char serial[4] , Integer area , Integer keyA1B0 , Char piccoldkey[6] , Char piccnewkey[6] ) LIBRARY "OUR_MIFARE.dll" //修改密码
FUNCTION Integer pcdgetdevicenumber ( REF Char devicenumber[4] ) LIBRARY "OUR_MIFARE.dll" //读设备编号
FUNCTION Integer piccrequest ( REF Char serial[4] ) LIBRARY "OUR_MIFARE.dll" //寻卡并返回该卡的序列号
FUNCTION Integer piccrequestex ( REF Char serial[4] ) LIBRARY "OUR_MIFARE.dll" //寻卡并选中指定序列号的IC卡
FUNCTION Integer piccauthkey1 ( Char serial[4] , Integer area , Integer keyA1B0 , Char picckey[6] ) LIBRARY "OUR_MIFARE.dll" //密码认证方式1
FUNCTION Integer piccauthkey2 ( Char serial[4] , Integer area , Integer keyA1B0 ) LIBRARY "OUR_MIFARE.dll" //密码认证方式2
FUNCTION Integer pcdwritekeytoe2 ( Integer area , Integer keyA1B0 , Char picckey[6] ) LIBRARY "OUR_MIFARE.dll" //将密码写入芯片内部保密性极高的只写区域
FUNCTION Integer piccread ( Integer block , REF Char piccdata[48] ) LIBRARY "OUR_MIFARE.dll" //读块
FUNCTION Integer piccwrite ( Integer block , Char piccdata[48] ) LIBRARY "OUR_MIFARE.dll" //写块
FUNCTION Integer picchalt ( ) LIBRARY "OUR_MIFARE.dll" //休眠选中卡
end prototypes
type variables
PRIVATE:
CONSTANT PRIVATE Integer BLOCK0_EN = 1
CONSTANT PRIVATE Integer BLOCK1_EN = 2
CONSTANT PRIVATE Integer BLOCK2_EN = 4
CONSTANT PRIVATE Integer NEEDSERIAL = 8
CONSTANT PRIVATE Integer EXTERNKEY = 16
CONSTANT PRIVATE Integer NEEDHALT = 32
end variables
forward prototypes
public subroutine msgbox (string as_msg)
end prototypes
public subroutine msgbox (string as_msg);MessageBox ( "标题" , as_msg )
end subroutine
on w_test.create
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.Control[]={this.cb_5,&
this.cb_4,&
this.cb_3,&
this.cb_2,&
this.cb_1}
end on
on w_test.destroy
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
end on
type cb_5 from commandbutton within w_test
integer x = 91
integer y = 676
integer width = 457
integer height = 128
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "设备编号"
end type
event clicked;//设备编号
String ls_tmp
Integer li_rtn
Char devicenumber[4]
li_rtn = pcdgetdevicenumber ( devicenumber )
ls_tmp = String ( Asc (devicenumber[1]) ) +"-"+ String ( Asc (devicenumber[2]) ) +"-"+ String ( Asc (devicenumber[3]) ) +"-"+ String ( Asc (devicenumber[4]) )
debugbreak ()
MsgBox ( ls_tmp )
end event
type cb_4 from commandbutton within w_test
integer x = 91
integer y = 528
integer width = 457
integer height = 128
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "设备发声"
end type
event clicked;//设备发声
Integer li_rtn
li_rtn = pcdbeep (1000)
end event
type cb_3 from commandbutton within w_test
integer x = 91
integer y = 380
integer width = 457
integer height = 128
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "修改密码"
end type
event clicked;//修改密码
Integer li_rtn, area, keya1b0
Char ctrlword, serial[4], piccoldkey[6], piccnewkey[6]
area = 1
keya1b0 = 1
ctrlword = Char ( BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY )
piccoldkey = { "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" }
piccnewkey = { "~h31" , "~h31" , "~h31" , "~h31" , "~h31" , "~h31" }
li_rtn = piccchangesinglekey ( ctrlword , serial , area , keya1b0 , piccoldkey , piccnewkey )
DebugBreak ()
CHOOSE CASE li_rtn
CASE 0
MsgBox("操作成功")
CASE 8
MsgBox("请将卡放在感应区")
CASE 21 //没有动态库
MsgBox("找不到接口文件ICUSB.DLL和OUR_MIFARE.dll")
CASE ELSE
MsgBox("异常")
END CHOOSE
end event
type cb_2 from commandbutton within w_test
integer x = 91
integer y = 232
integer width = 457
integer height = 128
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "写卡操作"
end type
event clicked;//写卡
Integer li_rtn, i, area, keya1b0
Char ctrlword, serial[4], picckey[6], piccdata0_2[48]
area = 1
keya1b0 = 1
ctrlword = Char ( BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY )
picckey = { "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" }
for i = 1 to 48
piccdata0_2[i] = "~h33"
next
li_rtn = piccwriteex ( ctrlword , serial , area , keya1b0 , picckey , piccdata0_2 )
DebugBreak ()
CHOOSE CASE li_rtn
CASE 0
MsgBox("操作成功")
CASE 8
MsgBox("请将卡放在感应区")
CASE 21 //没有动态库
MsgBox("找不到接口文件ICUSB.DLL和OUR_MIFARE.dll")
CASE ELSE
MsgBox("异常")
END CHOOSE
end event
type cb_1 from commandbutton within w_test
integer x = 91
integer y = 84
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "读卡操作"
end type
event clicked;//读卡
Integer i, li_rtn, area, keya1b0
Char ctrlword, serial[4], picckey[6], piccdata0_2[48]
area = 1
keya1b0 = 1
ctrlword = Char ( BLOCK0_EN + BLOCK1_EN + BLOCK2_EN + EXTERNKEY ) // + NEEDSERIAL
picckey = { "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" , "~hFF" }
li_rtn = piccreadex ( ctrlword , serial , area , keya1b0 , picckey , piccdata0_2 )
DebugBreak ()
CHOOSE CASE li_rtn
CASE 0
MsgBox("操作成功")
CASE 8
MsgBox("请将卡放在感应区")
CASE 21 //没有动态库
MsgBox("找不到接口文件ICUSB.DLL和OUR_MIFARE.dll")
CASE ELSE
MsgBox("异常")
END CHOOSE
end event
文章浏览阅读3.2k次。本文研究全球与中国市场分布式光纤传感器的发展现状及未来发展趋势,分别从生产和消费的角度分析分布式光纤传感器的主要生产地区、主要消费地区以及主要的生产商。重点分析全球与中国市场的主要厂商产品特点、产品规格、不同规格产品的价格、产量、产值及全球和中国市场主要生产商的市场份额。主要生产商包括:FISO TechnologiesBrugg KabelSensor HighwayOmnisensAFL GlobalQinetiQ GroupLockheed MartinOSENSA Innovati_预计2026年中国分布式传感器市场规模有多大
文章浏览阅读1.1k次,点赞2次,收藏12次。常用组合逻辑电路结构——为IC设计的延时估计铺垫学习目的:估计模块间的delay,确保写的代码的timing 综合能给到多少HZ,以满足需求!_基4布斯算法代码
文章浏览阅读3.3k次,点赞3次,收藏5次。OpenAI Manager助手(基于SpringBoot和Vue)_chatgpt网页版
文章浏览阅读2.2k次。USACO自1992年举办,到目前为止已经举办了27届,目的是为了帮助美国信息学国家队选拔IOI的队员,目前逐渐发展为全球热门的线上赛事,成为美国大学申请条件下,含金量相当高的官方竞赛。USACO的比赛成绩可以助力计算机专业留学,越来越多的学生进入了康奈尔,麻省理工,普林斯顿,哈佛和耶鲁等大学,这些同学的共同点是他们都参加了美国计算机科学竞赛(USACO),并且取得过非常好的成绩。适合参赛人群USACO适合国内在读学生有意向申请美国大学的或者想锻炼自己编程能力的同学,高三学生也可以参加12月的第_usaco可以多次提交吗
文章浏览阅读394次。1.1 存储程序1.2 创建存储过程1.3 创建自定义函数1.3.1 示例1.4 自定义函数和存储过程的区别1.5 变量的使用1.6 定义条件和处理程序1.6.1 定义条件1.6.1.1 示例1.6.2 定义处理程序1.6.2.1 示例1.7 光标的使用1.7.1 声明光标1.7.2 打开光标1.7.3 使用光标1.7.4 关闭光标1.8 流程控制的使用1.8.1 IF语句1.8.2 CASE语句1.8.3 LOOP语句1.8.4 LEAVE语句1.8.5 ITERATE语句1.8.6 REPEAT语句。_mysql自定义函数和存储过程
文章浏览阅读188次。半导体二极管——集成电路最小组成单元。_本征半导体电流为0
文章浏览阅读2.8k次,点赞3次,收藏18次。游戏水面特效实现方式太多。咱们这边介绍的是一最简单的UV动画(无顶点位移),整个mesh由4个顶点构成。实现了水面效果(左图),不动代码稍微修改下参数和贴图可以实现岩浆效果(右图)。有要思路是1,uv按时间去做正弦波移动2,在1的基础上加个凹凸图混合uv3,在1、2的基础上加个水流方向4,加上对雾效的支持,如没必要请自行删除雾效代码(把包含fog的几行代码删除)S..._unity 岩浆shader
文章浏览阅读5k次。广义线性模型是线性模型的扩展,它通过连接函数建立响应变量的数学期望值与线性组合的预测变量之间的关系。广义线性模型拟合的形式为:其中g(μY)是条件均值的函数(称为连接函数)。另外,你可放松Y为正态分布的假设,改为Y 服从指数分布族中的一种分布即可。设定好连接函数和概率分布后,便可以通过最大似然估计的多次迭代推导出各参数值。在大部分情况下,线性模型就可以通过一系列连续型或类别型预测变量来预测正态分布的响应变量的工作。但是,有时候我们要进行非正态因变量的分析,例如:(1)类别型.._广义线性回归模型
文章浏览阅读69次。环境保护、 保护地球、 校园环保、垃圾分类、绿色家园、等网站的设计与制作。 总结了一些学生网页制作的经验:一般的网页需要融入以下知识点:div+css布局、浮动、定位、高级css、表格、表单及验证、js轮播图、音频 视频 Flash的应用、ul li、下拉导航栏、鼠标划过效果等知识点,网页的风格主题也很全面:如爱好、风景、校园、美食、动漫、游戏、咖啡、音乐、家乡、电影、名人、商城以及个人主页等主题,学生、新手可参考下方页面的布局和设计和HTML源码(有用点赞△) 一套A+的网_垃圾分类网页设计目标怎么写
文章浏览阅读614次,点赞7次,收藏11次。之前找到一个修改 exe 中 DLL地址 的方法, 不太好使,虽然能正确启动, 但无法改变 exe 的工作目录,这就影响了.Net 中很多获取 exe 执行目录来拼接的地址 ( 相对路径 ),比如 wwwroot 和 代码中相对目录还有一些复制到目录的普通文件 等等,它们的地址都会指向原来 exe 的目录, 而不是自定义的 “lib” 目录,根本原因就是没有修改 exe 的工作目录这次来搞一个启动程序,把 .net 的所有东西都放在一个文件夹,在文件夹同级的目录制作一个 exe._.net dll 全局目录
文章浏览阅读1.5k次。本文为转载,原博客地址:http://blog.csdn.net/hujingshuang/article/details/46910259简介 BRIEF是2010年的一篇名为《BRIEF:Binary Robust Independent Elementary Features》的文章中提出,BRIEF是对已检测到的特征点进行描述,它是一种二进制编码的描述子,摈弃了利用区域灰度..._breif description calculation 特征点
文章浏览阅读4.1k次,点赞21次,收藏79次。本文是《基于SpringBoot的房屋租赁管理系统》的配套原创说明文档,可以给应届毕业生提供格式撰写参考,也可以给开发类似系统的朋友们提供功能业务设计思路。_基于spring boot的房屋租赁系统论文