TC官方合作论坛

标题: 感谢夏末大大和shine宝宝大大。在他们辛勤的指导下,偶终于完成了偶的爱情测试器。 [打印本页]

作者: 252253494    时间: 2012-10-6 13:48
标题: 感谢夏末大大和shine宝宝大大。在他们辛勤的指导下,偶终于完成了偶的爱情测试器。
感谢夏末大大和shine宝宝大大,在他们的辛勤指导下,偶终于完成了偶的爱情测试器主体代码的编写。
小小在这说声:“谢谢了,非常感谢你们的指导”。
以下是偶的代码,不知道有木有不对的地方。或是有BUG存在?

空间 爱情测试器
功能 逻辑型 按钮0_点击()   
    整型 男,女,分数,下标,大小
    字符型 男符,女符,分数符,路径=系统.获取程序路径()
      男符=编辑框.获得文本("编辑框0")
      女符=编辑框.获得文本("编辑框1")         
      男=字符串.长度(男符)
      女=字符串.长度(女符)
         
         如果(男<=0)||(女<=0)           
                  辅助.消息框("请输入姓名")                  
             否则
                   字符型[] 名分//此处名分指的是名字和分数的统称
                   字符型[] 分割后的值=字符型[2]
                   字符型   文件内容=文件.读文件(路径+"\\1.txt")
                       如果(文件内容!="")
                              字符串.分割(文件内容,"\r\n",名分)  //   \r\n是换行符
                                数组.大小(名分,大小)//此处的大小指的是文件内容被分割成好多组。
                                                     
                             循环(下标<大小)
                                字符串.分割(名分[下标],"!",分割后的值)
                                     如果(男符+女符==分割后的值[0])
                                                编辑框.设置文本("编辑框2",分割后的值[1])                              
                                              跳出
                                     否则                                
                                               下标=下标+1                           
                                      如果结束                          
                              循环结束
                          如果结束                    
                  如果(男符+女符==分割后的值[0])
                       否则                  
                      男=辅助.随机数(25,50)
                      女=辅助.随机数(25,50)        
                      分数=男+女
                      分数符=转换.整型转字符型(分数)  
                整型 文件句柄=文件.打开(路径+"\\1.txt")
                        文件.设置游标位置(文件句柄,"结束")
                        文件.写一行(文件句柄,男符+女符+"!"+分数符)
                        文件.关闭(文件句柄)
                        编辑框.设置文本("编辑框2",分数符)
                  如果结束                       
          如果结束   
      
返回 真
功能结束

空间结束

作者: shine宝宝    时间: 2012-10-6 14:06

作者: 496411679    时间: 2012-10-6 18:22
回复 1楼252253494的帖子

kankanzenmeyang
作者: 最爱念    时间: 2012-10-6 19:04
这是神马?》
作者: feng123144    时间: 2012-10-6 19:26
这是爱情马
作者: pest    时间: 2012-10-8 04:53
学习中




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