易语言小游戏：猜数字

新人试一试水文章的，大佬就不要看了

众所周知，所有语言能编写最简单的游戏

那么我们来用易语言编写猜数字吧

首先我们看看程序设计

 

 

我吧编辑框名称改为guess_number

 然后是程序集

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 程序集_随机数, 整数型
.程序集变量 剩余次数, 整数型

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

置随机数种子 ()  ' 取随机数
程序集_随机数 ＝ 取随机数 (1, 100)
调试输出 (程序集_随机数)  ' 创建随机数
剩余次数 ＝ 5

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

调试输出 (guess_number.内容)
.如果 (到整数 (guess_number.内容) ＝ 程序集_随机数)  ' 用如果函数判断正误
    A ＝ 信息框 (“太棒啦，你竟然猜对了喵，你的得分是” ＋ 到文本 (剩余次数 × 20) ＋ “分！你想要重新开始吗？”, 4, , )
    .如果 (A ＝ 5)
        guess_number.内容 ＝ “”
        置随机数种子 ()
        程序集_随机数 ＝ 取随机数 (1, 100)
        调试输出 (程序集_随机数)
        信息框 (“重置成功喵”, 0, , )
        剩余次数 ＝ 5
        cores.标题 ＝ “剩余次数：” ＋ 到文本 (剩余次数)
    .否则
        A ＝ 6
        结束 ()
    .如果结束


.否则
    .如果 (到整数 (guess_number.内容) ＞ 程序集_随机数)
        信息框 (“だたい，太大了哟，要再小点喵”, 0, , )
        guess_number.内容 ＝ “”
        剩余次数 ＝ 剩余次数 － 1
        cores.标题 ＝ “剩余次数：” ＋ 到文本 (剩余次数)
    .否则
        信息框 (“だたい，太小了哟，要再大点喵”, 0, , )
        guess_number.内容 ＝ “”
    .如果结束
    剩余次数 ＝ 剩余次数 － 1
    cores.标题 ＝ “剩余次数：” ＋ 到文本 (剩余次数)
.如果结束
.如果 (剩余次数 ＝ 0)
    A ＝ 信息框 (“太遗憾啦，使用次数用完了，正确答案是：” ＋ 到文本 (程序集_随机数) ＋ “  差点就猜中了呢,你想要重新开始吗？”, 4, , )
    .如果 (A ＝ 5)
        guess_number.内容 ＝ “”
        置随机数种子 ()
        程序集_随机数 ＝ 取随机数 (1, 100)
        调试输出 (程序集_随机数)
        信息框 (“重置成功喵”, 0, , )
        剩余次数 ＝ 5
        cores.标题 ＝ “剩余次数：” ＋ 到文本 (剩余次数)

    .否则
        A ＝ 6
        结束 ()
    .如果结束

.否则

.如果结束




.子程序 _restart_被单击

guess_number.内容 ＝ “”  ' 重置按钮
置随机数种子 ()
程序集_随机数 ＝ 取随机数 (1, 100)
调试输出 (程序集_随机数)
信息框 (“重置成功喵”, 0, , )
剩余次数 ＝ 5
cores.标题 ＝ “剩余次数：” ＋ 到文本 (剩余次数)

这样，一个简单的猜数字小游戏就做好了