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

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键调试，看看效果如何！！！(这里的“我”和“你”可以改写！）