_14522 发表于 2013-8-2 13:53:51

5800P密保卡查询程序

Cls
"MBK+"                                                    //程序标题
For 2→J To 4                                           //键盘扫描开始
Do                                                         //字母识别
GetKey→D
D=73》Stop                                           //》是=>，程序页面第三页第三个
If (D-51)(D-56)≤0
Then D-50→Y
Y=1》Locate 12,J,"A"
Y=2》Locate 12,J,"B"
Y=3》Locate 12,J,"C"
Y=4》Locate 12,J,"D"
Y=5》Locate 12,J,"E"
Y=6》Locate 12,J,'"F"
Break
IfEnd
If (D-43)(D-46)≤0
Then D-36→Y
Y=7》Locate 12,J,"G"
Y=8》Locate 12,J,"H"
Y=9》Locate 12,J,"I"
Y=10》Locate 12,J,"J"
Break
IfEnd
LpWhile 1                                          //字母识别结束
Do                                                      //数字识别开始
GetKey↕→D
D=73》Stop
If (D-23)(D-21)≤0
Then D-17→Z
Break
IfEnd
If (D-37)(D-35)≤0
Then D-34→Z
Break
IfEnd
If (D-32)(D-31)=0
Then D-24→Z
Break
IfEnd
LpWhile 1                                        //数字识别结束
Mat F→W                              //读取数据
Locate 13,J,Z
If W<10
Then Locate 15,J,0
Locate 16,J,W
Else Locate 15,J,W
IfEnd
Next                                                      //键盘扫描结束
Locate 1,2,//密保卡序列号前4
Locate 1,3,//密保卡序列号中4
Locate 1,4,//密保卡序列号后4

_14522 发表于 2013-8-2 14:14:06

ExAcler 发表于 2013-8-2 14:01 static/image/common/back.gif
不错，改天我写个密保卡坐标查询器好了

TX官方已经停止了新密保卡的发放及注册，2年前我就写好了，等到它停工了我才想起来发。。。。

晓零辛纳 发表于 2013-8-2 19:57:38

这东西......好吧，为什么不能做一个图形界面

_14522 发表于 2013-8-2 20:42:11

中国好程序 发表于 2013-8-2 19:57 static/image/common/back.gif
这东西......好吧，为什么不能做一个图形界面

就5800 4行屏幕能做什么样的图形呢？

晓零辛纳 发表于 2013-8-3 01:06:24

_14522 发表于 2013-8-2 20:42
就5800 4行屏幕能做什么样的图形呢？

抱歉，我刚刚注意到是5800不是9860
页: [1]
查看完整版本: 5800P密保卡查询程序