T6-ulc型读卡器例程

IC_ExitComm (ICDev)
ICDev ＝ IC_InitComm (100)
.如果 (ICDev ≤ 0)
编辑框1.加入文本 (“端口初始化失败，检查是否有其他程序占用！！！” ＋ #换行符)
返回 ()
.否则
编辑框1.加入文本 (“端口初始化成功！！” ＋ #换行符)
.如果结束
返回值 ＝ IC_Status (ICDev)
.如果 (返回值 ＜ 0)
编辑框1.加入文本 (“读卡器连接错误，可能是有其它程序占用该端口！” ＋ #换行符)
返回 ()
.否则
.如果 (返回值 ＝ 1)
编辑框1.加入文本 (“读卡器连接正确，但是没有插卡！” ＋ #换行符)
.否则
.如果 (返回值 ＝ 0)
编辑框1.加入文本 (“读卡器连接正确，并且已经插卡” ＋ #换行符)

.如果 (返回值 ＝ 0)
编辑框1.加入文本 (“卡类型初始化正确” ＋ #换行符)
.否则
编辑框1.加入文本 (“卡类型初始化失败” ＋ #换行符)
.如果结束
返回值 ＝ IC_ReadCount_SLE4442 (ICDev)
.如果 (返回值 ＜ 0)
编辑框1.加入文本 (“读取密码计数器失败！！” ＋ #换行符)
.否则
编辑框1.加入文本 (“读取密码计数器正确！ 剩余读卡次数是：” ＋ 到文本 (返回值) ＋ #换行符)
.如果结束
返回值 ＝ IC_ReadPass_SLE4442 (ICDev, password)
.如果 (返回值 ＝ 0)
编辑框1.加入文本 (“密码读取正确！！----密码是：” ＋ 取十六进制文本 (password [1]) ＋ 取十六进制文本 (password [2]) ＋ 取十六进制文本 (password [3]) ＋ #换行符)
.否则
编辑框1.加入文本 (“密码读取失败！！”)
.如果结束
checkpass ＝ { 255, 255, 255 }
返回值 ＝ IC_CheckPass_SLE4442 (ICDev, checkpass)