网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
c语言吧 关注：798,985贴子：4,352,432
  • 5回复贴，共1页

计算机网络安全研究协会第一期部分程序源代码

计算机网络安全研究协会第一期部分程序源代码
¬¬-----------一个计数器程序的编写
组稿人：赵飞宇
2004.3.18
 
1，刘杨的计数器（用QB编写）
CLS
SCREEN 12
DIM n0(32), n1(34), n2(34), n3(34), n4(34), n5(34), n6(34), n7(34), n8(32), n9(32)
DIM n10(32), n11(32), n12(32), n13(32), n14(32), n15(32)

COLOR 15
PRINT "1234567890+-*/C="
GET (0, 0)-(7, 16), n1
GET (8, 0)-(15, 16), n2
GET (16, 0)-(23, 16), n3
GET (24, 0)-(31, 16), n4
GET (32, 0)-(39, 16), n5
GET (40, 0)-(47, 16), n6
GET (48, 0)-(55, 16), n7
GET (56, 0)-(63, 16), n8
GET (64, 0)-(71, 16), n9
GET (72, 0)-(79, 16), n0
GET (80, 0)-(87, 16), n10
GET (88, 0)-(95, 16), n11
GET (96, 0)-(103, 16), n12
GET (104, 0)-(111, 16), n13
GET (112, 0)-(119, 16), n14
GET (120, 0)-(127, 16), n15

LOCATE 1
PRINT "                "
PAINT (0, 0), 1

LINE (230, 110)-(430, 350), 0, BF
LINE (220, 100)-(420, 340), 7, BF
LINE (220, 100)-(420, 340), 15, B
LINE (221, 101)-(419, 339), 8, B

LINE (225, 110)-(415, 135), 15, B
LINE (226, 111)-(414, 134), 8, B

LINE (225, 145)-(415, 335), 8, B
LINE (226, 146)-(414, 334), 15, B

LINE (245, 165)-(275, 195), 15, B
LINE (285, 165)-(315, 195), 15, B
LINE (325, 165)-(355, 195), 15, B
LINE (365, 165)-(395, 195), 15, B
LINE (244, 164)-(276, 196), 8, B
LINE (284, 164)-(316, 196), 8, B
LINE (324, 164)-(356, 196), 8, B
LINE (364, 164)-(396, 196), 8, B
PUT (255, 170), n1, XOR
PUT (295, 170), n2, XOR
PUT (335, 170), n3, XOR
PUT (375, 170), n10, XOR

LINE (245, 205)-(275, 235), 15, B
LINE (285, 205)-(315, 235), 15, B
LINE (325, 205)-(355, 235), 15, B
LINE (365, 205)-(395, 235), 15, B
LINE (244, 204)-(276, 236), 8, B
LINE (284, 204)-(316, 236), 8, B
LINE (324, 204)-(356, 236), 8, B
LINE (364, 204)-(396, 236), 8, B
PUT (255, 210), n4, XOR
PUT (295, 210), n5, XOR
PUT (335, 210), n6, XOR
PUT (375, 210), n11, XOR

LINE (245, 245)-(275, 275), 15, B
LINE (285, 245)-(315, 275), 15, B
LINE (325, 245)-(355, 275), 15, B
LINE (365, 245)-(395, 275), 15, B
LINE (244, 244)-(276, 276), 8, B
LINE (284, 244)-(316, 276), 8, B
LINE (324, 244)-(356, 276), 8, B
LINE (364, 244)-(396, 276), 8, B
PUT (255, 250), n7, XOR
PUT (295, 250), n8, XOR
PUT (335, 250), n9, XOR
PUT (375, 250), n12, XOR

LINE (245, 285)-(275, 315), 15, B
LINE (285, 285)-(315, 315), 15, B
LINE (325, 285)-(355, 315), 15, B
LINE (365, 285)-(395, 315), 15, B
LINE (244, 284)-(276, 316), 8, B
LINE (284, 284)-(316, 316), 8, B
LINE (324, 284)-(356, 316), 8, B
LINE (364, 284)-(396, 316), 8, B
PUT (255, 290), n0, XOR
PUT (295, 290), n14, XOR
PUT (335, 290), n15, XOR
PUT (375, 290), n13, XOR

x = 245: y = 165: c = 230
DO
  LINE (x, y)-(x + 30, y + 30), 14, B
    DO
      k$ = INKEY$
    LOOP WHILE k$ = ""
  SELECT CASE ASC(RIGHT$(k$, 1))
    CASE 27
      GOSUB zimu
      END
    CASE 107
      END
    CASE 72
      IF y > 165 THEN LINE (x, y)-(x + 30, y + 30), 15, B: y = y - 40
    CASE 80
      IF y < 275 THEN LINE (x, y)-(x + 30, y + 30), 15, B: y = y + 40
    CASE 75
      IF x > 245 THEN LINE (x, y)-(x + 30, y + 30), 15, B: x = x - 40



    CASE 77
      IF x < 355 THEN LINE (x, y)-(x + 30, y + 30), 15, B: x = x + 40
    CASE 32
      LINE (x, y)-(x + 30, y + 30), 8, B
      FOR i = 0 TO 9999: NEXT
      LINE (x, y)-(x + 30, y + 30), 14, B
      
    IF c < 300 THEN
      IF x = 245 AND y = 165 THEN s1& = VAL(STR$(s1&) + "1"): c = c + 8: PUT (c, 115), n1, XOR: PLAY "mbt255n10"
      IF x = 285 AND y = 165 THEN s1& = VAL(STR$(s1&) + "2"): c = c + 8: PUT (c, 115), n2, XOR: PLAY "mbt255n15"
      IF x = 325 AND y = 165 THEN s1& = VAL(STR$(s1&) + "3"): c = c + 8: PUT (c, 115), n3, XOR: PLAY "mbt255n20"
      IF x = 245 AND y = 205 THEN s1& = VAL(STR$(s1&) + "4"): c = c + 8: PUT (c, 115), n4, XOR: PLAY "mbt255n25"
      IF x = 285 AND y = 205 THEN s1& = VAL(STR$(s1&) + "5"): c = c + 8: PUT (c, 115), n5, XOR: PLAY "mbt255n30"
      IF x = 325 AND y = 205 THEN s1& = VAL(STR$(s1&) + "6"): c = c + 8: PUT (c, 115), n6, XOR: PLAY "mbt255n35"
      IF x = 245 AND y = 245 THEN s1& = VAL(STR$(s1&) + "7"): c = c + 8: PUT (c, 115), n7, XOR: PLAY "mbt255n40"
      IF x = 285 AND y = 245 THEN s1& = VAL(STR$(s1&) + "8"): c = c + 8: PUT (c, 115), n8, XOR: PLAY "mbt255n45"
      IF x = 325 AND y = 245 THEN s1& = VAL(STR$(s1&) + "9"): c = c + 8: PUT (c, 115), n9, XOR: PLAY "mbt255n50"
      IF x = 245 AND y = 285 THEN s1& = VAL(STR$(s1&) + "0"): c = c + 8: PUT (c, 115), n0, XOR: PLAY "mbt255n55"
    END IF
     
    IF x = 365 AND y = 165 AND f = 0 THEN f = 1: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF
    IF x = 365 AND y = 205 AND f = 0 THEN f = 2: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF
    IF x = 365 AND y = 245 AND f = 0 THEN f = 3: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF
    IF x = 365 AND y = 285 AND f = 0 THEN f = 4: s2& = s1&: s1& = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF
    IF x = 285 AND y = 285 THEN s1& = 0: s2& = 0: f = 0: c = 230: LINE (226, 111)-(414, 134), 7, BF
    IF x = 325 AND y = 285 AND f <> 0 THEN
      GOSUB yunsuan
      s1& = 0: c = 230
      LINE (226, 111)-(414, 134), 7, BF
      FOR i = 1 TO LEN(STR$(s2&))
        IF MID$(STR$(s2&), i, 1) = "0" THEN c = c + 8: PUT (c, 115), n0, XOR
        IF MID$(STR$(s2&), i, 1) = "1" THEN c = c + 8: PUT (c, 115), n1, XOR
        IF MID$(STR$(s2&), i, 1) = "2" THEN c = c + 8: PUT (c, 115), n2, XOR
        IF MID$(STR$(s2&), i, 1) = "3" THEN c = c + 8: PUT (c, 115), n3, XOR
        IF MID$(STR$(s2&), i, 1) = "4" THEN c = c + 8: PUT (c, 115), n4, XOR
        IF MID$(STR$(s2&), i, 1) = "5" THEN c = c + 8: PUT (c, 115), n5, XOR
        IF MID$(STR$(s2&), i, 1) = "6" THEN c = c + 8: PUT (c, 115), n6, XOR
        IF MID$(STR$(s2&), i, 1) = "7" THEN c = c + 8: PUT (c, 115), n7, XOR
        IF MID$(STR$(s2&), i, 1) = "8" THEN c = c + 8: PUT (c, 115), n8, XOR
        IF MID$(STR$(s2&), i, 1) = "9" THEN c = c + 8: PUT (c, 115), n9, XOR
      NEXT
    END IF
  END SELECT
LOOP

yunsuan:
  IF s1& <> 0 AND f = 1 THEN s2& = s2& + s1&: f = 0
  IF s1& <> 0 AND f = 2 THEN s2& = s2& - s1&: f = 0
  IF s1& <> 0 AND f = 3 THEN s2& = s2& * s1&: f = 0



以上是我们协会第一期的程序打印原稿，非常简单，适合处学者，我把它贴了出来，也许对一些人有帮助。其实计算器的编写太简单了，我当时给协会人员下达这个任务的时候就是先让他们学会文字菜单的编写。
我们协会的学习方法是由我这个唯一负责人下达任务，然后大家一起去完成，协会从一开始就面向客户，逐步走向商业化，至于程序会从简入繁，做几个例子后就学编程工具。
这是我办协会的初衷，虽然现在协会办不下去了（因为他们感觉学程序太难了），我希望有人把我的想法继续下去，帮助更多的人。


以上程序中的人名都是真名，希望大家不要乱贴，程序所有权仍归计算机网络安全研究协会所有。
以后我会把我们以前打印过的程序原稿贴出来。希望大家支持，更希望大家帮我把协会继续做下去


你要觉得公开可能会被侵犯你的版权，就别贴了，你说明一下我帮你把这个也删掉，
我先声明：如果因为你的代码贴在这里被别人转贴而引起任何纠纷，本吧及我不承担任何责任！
这里是公众场合，这些事情请你自己把握好！！
你要觉得不合适继续发表你的代码，在这里回贴说明一下，我立刻删除本主题！


其实也没关系的，我们协会已经名存实亡了，我也只是为了大家好，这也只是我们自己做的，没有任何老师指导，我贴出来的另一个目的也是请高手给些意见


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 5回复贴，共1页
分享到: