TC官方合作论坛

标题: 纠结了好一阵子啦，知识竞赛的小程序一直不成功，大神们帮帮我。 [打印本页]
作者: gzh00007    时间: 2013-4-21 20:24
标题: 纠结了好一阵子啦，知识竞赛的小程序一直不成功，大神们帮帮我。
一直想做个小程序，能在按键的控制下，每次读取一行文本文件中的题目和答案。

[attach]8798[/attach]
可是一直不成功。

[attach]8799[/attach]
源码贴出来，大神们给我看看。
[attach]8797[/attach]
作者: 455720650    时间: 2013-4-21 21:52
功能 按钮0_点击()
    线程句柄
     如果(线程句柄==null)
    线程句柄=线程.开启("知识竞赛.读取题目","")
    如果结束
    按钮.设置文本("按钮0","答案")     //改变按钮的文字为“答案”
    标签.设置文本("标签2","正确答案")
    i=1
功能结束



把点击这的改我这样试下  ,我刚刚试了可以,   不过超过你点击超过你设置的问题个数了之后  就会出现数组越界   ,有继续优化空间
作者: pp5201210    时间: 2013-4-21 22:07
  1. 空间 知识竞赛
  2. 返回串=数组[11],内容
  3. 线程句柄=0
  4. i=0
  5. 功能 读取题目()
  6.     题目=文件.打开("rc:\\题目.txt")
  7.    
  8. 循环(真)
  9.     如果(i==0)
  10.         内容=文件.读一行(题目)
  11.         如果(内容!="")
  12.             字符串.分割(内容,"|",返回串)
  13.             标签.设置文本("标签0",返回串[0])  //显示题目
  14.             标签.设置文本("标签1",返回串[1])   //显示选择项
  15.            
  16.         否则
  17.             辅助.消息框("没有题目了")
  18.             控件.有效("按钮1",假)
  19.             返回 0
  20.         如果结束
  21.         i=1
  22.       
  23.     否则
  24.         继续
  25.         
  26.         
  27.     如果结束

  29. 循环结束

  31. 功能结束

  33. 功能 按钮0_点击()
  34.         //按钮.设置文本("按钮0","答案")     //改变按钮的文字为“答案”
  35.         标签.设置文本("标签2","正确答案")
  36.         如果(线程句柄==0)
  37.         线程句柄=线程.开启("知识竞赛.读取题目","")
  38.         如果结束
  39.         
  40. 功能结束
  41. 功能 退出_点击()
  42.     线程.关闭(线程句柄)
  43.     辅助.退出()
  44. 功能结束


  47. 功能 按钮1_点击()
  48. //这里添加你要执行的代码
  49. 标签.设置文本("标签2","正确答案")
  50. i=0
  51. 功能结束


  54. 功能 按钮2_点击()
  55. //这里添加你要执行的代码
  56. 标签.设置文本("标签2",返回串[2])

  58. 功能结束

  60. 空间结束
复制代码

作者: pp5201210    时间: 2013-4-21 22:09
添加了2个按钮 一个下一题 一个答案 附近上传了 需要的话看看
作者: gzh00007    时间: 2013-4-22 22:31
感谢！感谢两位的帮助，尤其是pp5201210的网友！我又学习了新的知识了！非常感谢！解决了一直萦绕我的困惑哦
作者: gzh00007    时间: 2013-4-22 22:32
回复 3楼pp5201210的帖子

太感谢你了！感谢你的乐于助人！谢谢！
作者: gzh00007    时间: 2013-4-22 22:32
回复 2楼455720650的帖子

谢谢你的回复！
作者: gzh00007    时间: 2013-4-22 22:36
大家的乐于助人，又让我燃起了继续用TC写更多功能的兴趣了！
作者: zhkq    时间: 2013-4-23 02:14
你应该采纳，这样就能燃气楼上的大侠们帮助别人解答的兴趣。



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1