5800P密保卡查询程序

_14522

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

复制代码

_14522

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

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

晓零辛纳

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

_14522

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

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

晓零辛纳

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

抱歉，我刚刚注意到是5800不是9860