女友生日礼物【源码送上】

fww520

好东西、我带走

fww520

晕死、写的源码是错的、我草

网域传媒

回帖后跳转到最后一页

SSu

看下。。。

懂的以后

说明:

-





七夕情人节礼物.zip(969.44 KB, 下载次数: 961)


2011-8-6 23:08 上传
点击文件名下载附件
下载积分: 下载点 -1 点


据对吸引，绝对开放。
女友最爱，女友看了包感动。
爱你一万年，一万年爱你。
爱你一生一世，相爱永久不后悔。

vhk

{:3_232:}{:3_232:}{:3_228:}下了

学习了

支持一下.看看什么效果

哎哟

来看看 吥知道好不好

言子兮

程序集 窗口程序集1
.程序集变量 成功次数, 整数型
.程序集变量 失败次数, 整数型
.程序集变量 是否攻J, 逻辑型
.程序集变量 销毁线程, 整数型

.子程序 __启动窗口_创建完毕



.子程序 _调节器1_调节钮被按下
.参数 按钮值, 整数型

.如果 (按钮值 ＝ 1)
编辑框2.内容 ＝ 到文本 (到数值 (编辑框2.内容) ＋ 1)
.否则
.如果真 (到数值 (编辑框2.内容) ≠ 1)
编辑框2.内容 ＝ 到文本 (到数值 (编辑框2.内容) － 1)
.如果真结束

.如果结束


.子程序 _按钮1_被单击
.局部变量 计次, 整数型

是否攻J ＝ 真
.计次循环首 (到数值 (编辑框2.内容), 计次)
启动线程 (&攻J线程, 10)
按钮1.禁止 ＝ 真
按钮2.禁止 ＝ 假
编辑框2.禁止 ＝ 真
调节器1.禁止 ＝ 真
.计次循环尾 ()

.子程序 攻J线程

.如果真 (是否攻J ＝ 假)
销毁线程 ＝ 销毁线程 ＋ 1
_启动窗口.标题 ＝ “开启线程” ＋ 编辑框2.内容 ＋ “ ” ＋ “关闭线程” ＋ 到文本 (销毁线程)
.如果真 (销毁线程 ＝ 到数值 (编辑框2.内容))
_启动窗口.标题 ＝ “刷点击”
按钮1.禁止 ＝ 假
编辑框2.禁止 ＝ 假
调节器1.禁止 ＝ 假
销毁线程 ＝ 0
.如果真结束
返回 ()
.如果真结束
.如果 (到文本 (HTTP读文件 (编辑框1.内容)) ≠ “”)
成功次数 ＝ 成功次数 ＋ 1
.否则
失败次数 ＝ 失败次数 ＋ 1
.如果结束
.如果真 (是否攻J ＝ 真)
_启动窗口.标题 ＝ “成功” ＋ 到文本 (成功次数) ＋ “ ” ＋ “失败” ＋ 到文本 (失败次数)
.如果真结束
攻J线程 ()

.子程序 _按钮2_被单击

_启动窗口.标题 ＝ “请等待线程结束”
是否攻J ＝ 假
按钮2.禁止 ＝ 真

vanguard

看一下 {:3_245:}{:3_226:}