易语言做测试两人亲密度软件(测爱神器)

时间:2024-10-12 13:46:17

1、首先要用易语言建新一个windows窗口!

易语言做测试两人亲密度软件(测爱神器)

2、进入了设计界面,像图中一样放上几个组件,当然也可自己排版!

易语言做测试两人亲密度软件(测爱神器)

3、注意了,这两个进度条的位置都要调到10000,且方向要调成纵向!如图。

易语言做测试两人亲密度软件(测爱神器)

4、然后双击启动窗口,进入窗口程序集写代码,代码如下!.版本 2.支持库 vclbase.程序集 窗口程又挨喁钒序集_启动窗口.子程序 _按钮1_被单击.局部变量 m, 整数型.如果 (编辑框1.内容 = “” 或 编辑框2.内容 = “”) 信息框 (“都没起名儿呢!”, 0, , ).否则 置随机数种子 () .计次循环首 (1000, m) 进度条1.位置 = 取随机数 (1, 10000) 进度条2.位置 = 取随机数 (1, 10000) .计次循环尾 () 标签1.标题 = “亲密度:” + 到文本 (到数值 (进度条1.位置) + 到数值 (进度条2.位置) ÷ 到数值 (2) ÷ 到数值 (2)) .如果真 (进度条1.位置 > 进度条2.位置) 信息框 (“还是” + 编辑框1.内容 + “更喜欢” + 编辑框2.内容, 0, , ) .如果真结束 .如果真 (进度条2.位置 > 进度条1.位置) 信息框 (“还是” + 编辑框2.内容 + “更love” + 编辑框1.内容, 0, , ) .如果真结束 编辑框1.内容 = “” 编辑框2.内容 = “”.如果结束

易语言做测试两人亲密度软件(测爱神器)

5、按下f5键调试,看看效果如何!!!(这里的“我”和“你”可以改写!)

易语言做测试两人亲密度软件(测爱神器)
© 手抄报圈