易语言代转帮忙转换成易安卓代码

5588

.版本 2

.局部变量 网格数量长, 小数型
.局部变量 网格数量宽, 小数型
.局部变量 长, 小数型
.局部变量 宽, 小数型
.局部变量 i, 整数型
.局部变量 实际内径长, 小数型
.局部变量 实际内径宽, 小数型

画板1.清除 (, , , )
画板1.宽度 ＝ 到数值 (编辑框1.内容) ÷ 2 ＋ 1
画板1.高度 ＝ 到数值 (编辑框2.内容) ÷ 2 ＋ 1
处理事件 ()  ' 不然处理不出来
画板1.画笔颜色 ＝ #红色
网格数量长 ＝ 到整数 (到数值 (编辑框1.内容) ÷ 100)
网格数量宽 ＝ 到整数 (到数值 (编辑框2.内容) ÷ 100)
.如果真 (网格数量长 ＞ 取整 (网格数量长))
    网格数量长 ＝ 取整 (网格数量长) ＋ 1
.如果真结束
.如果真 (网格数量宽 ＞ 取整 (网格数量宽))
    网格数量宽 ＝ 取整 (网格数量宽) ＋ 1
.如果真结束

长 ＝ 到数值 (编辑框1.内容) ÷ 网格数量长 ÷ 2
宽 ＝ 到数值 (编辑框2.内容) ÷ 网格数量宽 ÷ 2
.计次循环首 (网格数量长, i)
    画板1.画直线 (长 × i, 0, 长 × i, 到整数 (编辑框2.内容))
.计次循环尾 ()
画板1.画直线 (0, 0, 画板1.宽度, 0)
.计次循环首 (网格数量宽, i)
    画板1.画直线 (0, 宽 × i, 到整数 (编辑框1.内容), 宽 × i)
.计次循环尾 ()
画板1.画直线 (0, 0, 0, 画板1.高度)




.如果 (选择框1.选中 ＝ 真)
    实际内径长 ＝ (到数值 (编辑框1.内容) － (网格数量长 ＋ 1) × 4.5) ÷ 网格数量长
    实际内径宽 ＝ (到数值 (编辑框2.内容) － (网格数量宽 ＋ 1) × 4.5) ÷ 网格数量宽
    选择框1.标题 ＝ “45*75”



.否则
    实际内径长 ＝ (到数值 (编辑框1.内容) － (网格数量长 ＋ 1) × 8) ÷ 网格数量长
    实际内径宽 ＝ (到数值 (编辑框2.内容) － (网格数量宽 ＋ 1) × 8) ÷ 网格数量宽
    选择框1.标题 ＝ “80*80”
.如果结束


画板1.定位写出 (20, 5, 实际内径长)
画板1.字体.角度 ＝ 2700
画板1.定位写出 (15, 20, 实际内径宽)
画板1.字体.角度 ＝ 0

_计算管子数量 (网格数量长, 网格数量宽)


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

画板1.清除 (, , , )






.子程序 _计算管子数量
.参数 宽整只数量, 小数型
.参数 长整只数量, 小数型
.局部变量 宽度总长, 小数型
.局部变量 长度总长, 小数型
.局部变量 总长度, 小数型
.局部变量 只数, 整数型



宽度总长 ＝ 到数值 (编辑框1.内容) × (长整只数量 ＋ 1)
长度总长 ＝ 到数值 (编辑框2.内容) × (宽整只数量 ＋ 1)
总长度 ＝ 宽度总长 ＋ 长度总长
只数 ＝ 四舍五入 (总长度 ÷ 600, )

标签2.标题 ＝ “长度总长：” ＋ 到文本 (宽度总长) ＋ “    长度只数：” ＋ 到文本 (长整只数量 ＋ 1) ＋ #换行符
标签2.标题 ＝ 标签2.标题 ＋ “宽度总长：” ＋ 到文本 (长度总长) ＋ “    宽度度只数：” ＋ 到文本 (宽整只数量 ＋ 1) ＋ #换行符
标签2.标题 ＝ 标签2.标题 ＋ “总长度：” ＋ 到文本 (总长度) ＋ #换行符
标签2.标题 ＝ 标签2.标题 ＋ “只数:” ＋ 到文本 (只数) ＋ #换行符



画板 1.e (8.9 KB, 下载次数: 1)

3 天前 上传

点击文件名下载附件







补充内容 (2025-10-7 16:08):
源码已上，坐等大佬！

ouooyo

{:7_432:}{:7_432:}

wizardwj

用仓颉，不过看上去不太容易上手~

莫小乐

  

窗口程序集名	保 留	保 留	备 注
账号管理

.数据结构 账号节点

数据类型名	公开	备 注
(未定义数据类型名)
成员名	类 型	传址	数组	备 注
账号名	文本型
剩余次数	整数型
时间列表	文本型数组  // 存“2025年10月6日11:35:19”这种
最近到期时间	日期时间型

.版本 2<br /> <br /> .程序集 账号管理<br /> <br /> .数据结构 账号节点<br />     .成员 账号名, 文本型<br />     .成员 剩余次数, 整数型<br />     .成员 时间列表, 文本型数组  // 存“2025年10月6日11:35:19”这种<br />     .成员 最近到期时间, 日期时间型

  

.全局 账号字典, 字典型<文本型, 账号节点>
.全局 到期队列, 列表型<账号节点>  // 按“最近到期时间”升序排序

.全局 账号字典, 字典型<文本型, 账号节点><br /> .全局 到期队列, 列表型<账号节点>  // 按“最近到期时间”升序排序

  

子程序名	返回值类型	公开	备 注
定时器_检查到期

如果 (到期队列.取首节点 ().最近到期时间 ≤ 现在时间)
节点 ＝ 到期队列.弹出首节点 ()
节点.剩余次数 ＝ 节点.剩余次数 － 1
如果 (节点.剩余次数 ≤ 0)
账号字典.删除 (节点.账号名)
删除配置项 (节点.账号名)  // 写磁盘
重新计算下一个到期时间（从时间列表中找下一个24小时后）
到期队列.按时间插入 (节点)
.结束
.结束

.子程序 定时器_检查到期<br /> .如果 (到期队列.取首节点().最近到期时间 ≤ 现在时间)<br />     节点 ＝ 到期队列.弹出首节点()<br />     节点.剩余次数 ＝ 节点.剩余次数 － 1<br />     .如果 (节点.剩余次数 ≤ 0)<br />         账号字典.删除(节点.账号名)<br />         删除配置项(节点.账号名)  // 写磁盘<br />     .否则<br />         重新计算下一个到期时间（从时间列表中找下一个24小时后）<br />         到期队列.按时间插入(节点)<br />     .结束<br /> .结束

5588

莫小乐 发表于 2025-10-7 19:42
[e=0].版本 2

.程序集 账号管理

你这写的啥？