开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 4178|回复: 21
收起左侧

[易语言纯源码] 这个是论坛的大佬发出来的,我加啦一些功能!计算题

[复制链接]
结帖率:95% (143/151)
发表于 2021-7-26 21:07:38 | 显示全部楼层 |阅读模式   江西省上饶市
分享源码
界面截图: -
是否带模块: -
备注说明: -
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
已经答题整数型  
错误题数整数型  
正确题数整数型  
共计题数整数型  
想要的分钟文本型  
想要的秒文本型  
整数型  
整数型  

子程序名返回值类型公开备 注
_按钮_开始_被单击  
变量名类 型静态数组备 注
确定是否整数型 
列表框1.清空 ()
已经答题 = 0
错误题数 = 0
正确题数 = 0
共计题数 = 0
标签共计题数.标题 = “0”
标签正确.标题 = “0”
标签错误.标题 = “0”
标签用时.标题 = “00分00秒”
分 = 0
秒 = 0
判断 (单选框1.选中)
确定是否 = 信息框 (“是否开始出10道题?”, 4, “系统提示”, )
按钮_开始.禁止 = 真

判断 (单选框2.选中)
确定是否 = 信息框 (“是否开始出20道题?”, 4, “系统提示”, )
按钮_开始.禁止 = 真
判断 (单选框3.选中)
如果 (编辑框3.内容 = “”)
信息框 (“你还没有输入练习的题目数”, 0, )
返回 ()


确定是否 = 信息框 (“是否开始出” + 编辑框3.内容 + “道题?”, 4, “系统提示”)
按钮_开始.禁止 = 真
判断 (单选框4.选中)
确定是否 = 信息框 (“是否开始出50道题?”, 4, “系统提示”, )
按钮_开始.禁止 = 真
判断 (单选框5.选中)
确定是否 = 信息框 (“是否开始出100道题?”, 4, “系统提示”, )
按钮_开始.禁止 = 真




如果 (确定是否 = 5)
调试输出 (“你按下了是”)
标签数1.可视 = 真
标签符号.可视 = 真
标签数2.可视 = 真
标签等号.可视 = 真
编辑框2.可视 = 真
编辑框2.禁止 = 假
编辑框2.获取焦点 ()
按钮_确定.可视 = 真
按钮_确定.禁止 = 假
按钮_确定.标题 = “确定”
编辑框1.内容 = “00分00秒”
时钟1.时钟周期 = 1000
子程序出题 ()
调试输出 (“你按下了否”)
标签数1.可视 = 假
标签符号.可视 = 假
标签数2.可视 = 假
标签等号.可视 = 假
编辑框2.可视 = 假
按钮_确定.可视 = 假
编辑框1.内容 = “00分00秒”
时钟1.时钟周期 = 0

编辑框倒计时.可视 = 假
时钟3.时钟周期 = 1000
按钮_答案.可视 = 假
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
_启动窗口.标题 = “简单的加减乘除自动出题 版本:V2.1  作者:阿丁仔 ”
按钮_答案.禁止 = 真
标签9.标题 = 时间到文本 (取现行时间 (), )
置随机数种子 ()
XP风格 (2)
子程序名返回值类型公开备 注
子程序出题  
变量名类 型静态数组备 注
变量减法文本型 
符号整数型 
最大数整数型 
最小数整数型 
算法选择选择框 
数字整数型 
命令文本型 
a逻辑型 
最大数 = 到整数 (编辑框最大数.内容)
最小数 = 到整数 (编辑框最小数.内容)
标签数1.标题 = 到文本 (取随机数 (最小数, 最大数))
标签数2.标题 = 到文本 (取随机数 (最小数, 最大数))
循环判断首 ()
数字 = 取随机数 (1, 4)
如果真 (数字 = 1)  ' 加法
算法选择 = 选择框_加法
标签符号.标题 = “+”
如果真 (数字 = 2)  ' 减法
算法选择 = 选择框_减法
标签符号.标题 = “-”
判断循环首 (到数值 (标签数1.标题)到数值 (标签数2.标题))
标签数1.标题 = 到文本 (取随机数 (最小数, 最大数))
标签数2.标题 = 到文本 (取随机数 (最小数, 最大数))
判断循环尾 ()
如果真 (数字 = 3)  ' 乘法
算法选择 = 选择框_乘法
标签符号.标题 = “×”
如果真 (数字 = 4)  ' 除法
算法选择 = 选择框_除法
标签符号.标题 = “÷”
标签数1.标题 = 到文本 (取随机数 (最小数, 最大数))
标签数2.标题 = 到文本 (取随机数 (最小数, 最大数))
判断循环首 (到数值 (标签数1.标题)到数值 (标签数2.标题) ≠ 0 到数值 (标签数1.标题)到数值 (标签数2.标题))
标签数1.标题 = 到文本 (取随机数 (最小数, 最大数))
标签数2.标题 = 到文本 (取随机数 (最小数, 最大数))
判断循环尾 ()

循环判断尾 (算法选择.选中 ≠ )
子程序名返回值类型公开备 注
_按钮_确定_被单击  
如果 (标签符号.标题 = “+”)
如果 (编辑框2.内容 = 到文本 (到数值 (标签数1.标题)到数值 (标签数2.标题)))
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“对”, )
正确题数 = 正确题数 + 1
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“错”, )
错误题数 = 错误题数 + 1

如果 (标签符号.标题 = “-”)
如果 (编辑框2.内容 = 到文本 (到数值 (标签数1.标题)到数值 (标签数2.标题)))
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“对”, )
正确题数 = 正确题数 + 1
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“错”, )
错误题数 = 错误题数 + 1

如果 (标签符号.标题 = “×”)
如果 (编辑框2.内容 = 到文本 (到数值 (标签数1.标题) × 到数值 (标签数2.标题)))
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“对”, )
正确题数 = 正确题数 + 1
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“错”, )
错误题数 = 错误题数 + 1

如果 (标签符号.标题 = “÷”)
如果 (编辑框2.内容 = 到文本 (到数值 (标签数1.标题) ÷ 到数值 (标签数2.标题)))
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“对”, )
正确题数 = 正确题数 + 1
列表框1.加入项目 (“ ” + 标签数1.标题 + “ ” + 标签符号.标题 + “ ” + 标签数2.标题 + “ ” + 标签等号.标题 + 编辑框2.内容 + “ ”“错”, )
错误题数 = 错误题数 + 1







已经答题 = 已经答题 + 1
标签共计题数.标题 = 到文本 (已经答题)
如果 (正确题数 = 正确题数 + 1)

标签错误.标题 = 到文本 (错误题数)
如果 (错误题数 = 错误题数 + 1)
标签正确.标题 = 到文本 (正确题数)

子程序出题 ()
如果真 (单选框1.选中)
如果真 (已经答题 = 10)
时钟1.时钟周期 = 0
信息框 (“系统自动出10道题完毕”“,”“用时”到文本 (编辑框1.内容), 0, , )
编辑框1.内容 = “00分00秒”
按钮_开始.禁止 = 真
按钮_确定.禁止 = 真
按钮_确定.标题 = “重新选择上”#换行符“方题目类别”
透明标签1.标题 = 到文本 (正确题数)“分”
时钟3.时钟周期 = 0
标签数1.标题 = “0”
标签数2.标题 = “0”
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
编辑框2.禁止 = 真


如果真 (单选框2.选中)
如果真 (已经答题 = 20)
时钟1.时钟周期 = 0
信息框 (“系统自动出20道题完毕”“,”“用时”到文本 (编辑框1.内容), 0, , )
编辑框1.内容 = “00分00秒”
按钮_开始.禁止 = 真
按钮_确定.禁止 = 真
按钮_确定.标题 = “重新选择上”#换行符“方题目类别”
透明标签1.标题 = 到文本 (正确题数)“分”
时钟3.时钟周期 = 0
标签数1.标题 = “0”
标签数2.标题 = “0”
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
编辑框2.禁止 = 真


如果真 (单选框3.选中)
如果真 (已经答题 = 到数值 (编辑框3.内容))
时钟1.时钟周期 = 0
信息框 (“系统自动出”到文本 (已经答题)“道题完毕”“,”“用时”到文本 (编辑框1.内容), 0, )
编辑框1.内容 = “00分00秒”
按钮_开始.禁止 = 真
按钮_确定.禁止 = 真
按钮_确定.标题 = “重新选择上”#换行符“方题目类别”
透明标签1.标题 = 到文本 (正确题数)“分”
时钟3.时钟周期 = 0
标签数1.标题 = “0”
标签数2.标题 = “0”
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
编辑框2.禁止 = 真
编辑框3.可视 = 假


如果真 (单选框4.选中)
如果真 (已经答题 = 50)
时钟1.时钟周期 = 0
信息框 (“系统自动出50道题完毕”“,”“用时”到文本 (编辑框1.内容), 0, , )
编辑框1.内容 = “00分00秒”
按钮_开始.禁止 = 真
按钮_确定.禁止 = 真
按钮_确定.标题 = “重新选择上”#换行符“方题目类别”
透明标签1.标题 = 到文本 (正确题数)“分”
时钟3.时钟周期 = 0
标签数1.标题 = “0”
标签数2.标题 = “0”
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
编辑框2.禁止 = 真


如果真 (单选框5.选中)
如果真 (已经答题 = 100)
时钟1.时钟周期 = 0
信息框 (“系统自动出100


i支持库列表   支持库注释   
spec特殊功能支持库
xplibXP风格界面库
iext扩展界面支持库一

评分

参与人数 1精币 +1 收起 理由
ghost12 + 1 支持开源~!感谢分享

查看全部评分


结帖率:81% (26/32)

签到天数: 2 天

发表于 2022-2-1 11:00:31 | 显示全部楼层   上海市上海市
全论坛易友发来贺电
回复 支持 反对

使用道具 举报

发表于 2021-8-24 21:57:36 | 显示全部楼层   山西省太原市
多谢分享
回复 支持 反对

使用道具 举报

结帖率:95% (143/151)

签到天数: 6 天

 楼主| 发表于 2021-8-16 12:49:11 | 显示全部楼层   江西省上饶市
学习中5555
回复 支持 反对

使用道具 举报

签到天数: 19 天

发表于 2021-8-15 22:42:42 | 显示全部楼层   四川省成都市
路过围观一下,顺便帮顶
回复 支持 反对

使用道具 举报

结帖率:59% (16/27)

签到天数: 12 天

发表于 2021-8-12 23:32:43 | 显示全部楼层   山东省济南市
软件界面呢。。
回复 支持 反对

使用道具 举报

结帖率:86% (19/22)
发表于 2021-8-5 12:08:01 | 显示全部楼层   四川省成都市
回复 支持 反对

使用道具 举报

结帖率:97% (467/482)

签到天数: 14 天

发表于 2021-8-2 11:00:48 | 显示全部楼层   河北省保定市
回复 支持 反对

使用道具 举报

签到天数: 3 天

发表于 2021-7-31 13:52:44 | 显示全部楼层   山东省菏泽市
回复 支持 反对

使用道具 举报

结帖率:93% (210/225)

签到天数: 18 天

发表于 2021-7-30 20:33:12 | 显示全部楼层   黑龙江省伊春市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:91% (10/11)

签到天数: 8 天

发表于 2021-7-30 04:06:09 | 显示全部楼层   江苏省淮安市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表