其实小编我自己也比较闲,那么今天就给大家分享一款用易语言开发的银行流水生成器,别说,做的还挺像的~~~~~~~~~~
我先把界面给大家奉上来,大家看下
然后核心代码部分我会在这里给大家贴出来,然后软件的话可以去我自己的博客能下载到的!!!
====================================================================
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
置剪辑板文本 (编辑框1.内容)
_启动窗口.标题 = “复制成功”
延迟 (1000)
_启动窗口.标题 = “...”
.子程序 _按钮2_被单击
.局部变量 当前数, 文本型
当前数 = 编辑框6.内容
变量1 = 到整数 (编辑框6.内容)
.子程序 _按钮3_被单击
变量1 = 变量1 + 1
调试输出 (变量1)
编辑框1.加入文本 (编辑框4.内容 + “年-” + 编辑框5.内容 + “月-” + 到文本 (变量1) + “号” + #换行符)
.子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _按钮4_被单击
.局部变量 a, 整数型
.局部变量 最小值, 整数型
.局部变量 最大值, 整数型
.局部变量 取随机, 整数型
.局部变量 b, 整数型
.局部变量 生成的余额, 文本型, , "0"
.计次循环首 (到整数 (编辑框2.内容), a)
最小值 = 到整数 (编辑框3.内容) ÷ 到整数 (编辑框2.内容) - 500
最大值 = 到整数 (编辑框3.内容) ÷ 到整数 (编辑框2.内容)
取随机 = 取随机数 (最小值, 最大值)
编辑框1.加入文本 (到文本 (取随机) + “.00” + #换行符)
加入成员 (生成的余额, 到文本 (取随机))
.计次循环尾 ()
编辑框1.加入文本 (“-----------以下为余额” + #换行符)
.计次循环首 (取数组成员数 (生成的余额), b)
编辑框1.加入文本 (到文本 (到整数 (编辑框3.内容) - 到整数 (生成的余额 [b])) + “.00” + #换行符)
.计次循环尾 ()
.子程序 _按钮5_被单击
.局部变量 a, 整数型
.计次循环首 (到整数 (编辑框2.内容), a)
编辑框1.加入文本 (编辑框7.内容 + 文本_取随机数字 (到整数 (编辑框8.内容)) + #换行符)
.计次循环尾 ()
.子程序 _按钮6_被单击
.局部变量 a, 整数型
.计次循环首 (到整数 (编辑框2.内容), a)
编辑框1.加入文本 (编辑框9.内容 + #换行符)
.计次循环尾 ()
.子程序 _按钮7_被单击
.局部变量 数据, 文本型, , "0"
.局部变量 a, 整数型
数据 = 分割文本 (#常量2, “#”, )
.计次循环首 (到整数 (编辑框2.内容), a)
编辑框1.加入文本 (数据 [取随机数 (1, 取数组成员数 (数据))] + #换行符)
.计次循环尾 ()
.子程序 _按钮9_被单击
信息框 (文本_取行数 (编辑框1.内容), 0, , )
.子程序 _按钮8_被单击
.子程序 _按钮10_被单击
.局部变量 收支, 文本型
.局部变量 a, 整数型
.局部变量 数据, 文本型, , "0"
数据 = 分割文本 (#常量3, “#”, )
.计次循环首 (到整数 (编辑框2.内容), a)
编辑框1.加入文本 (数据 [取随机数 (1, 取数组成员数 (数据))] + #换行符)
.计次循环尾 ()
.子程序 _按钮11_被单击
.局部变量 收支, 文本型
.局部变量 a, 整数型
.局部变量 数据, 文本型, , "0"
数据 = 分割文本 (#常量5, #换行符, )
.计次循环首 (到整数 (编辑框2.内容), a)
编辑框1.加入文本 (编辑框10.内容 + 数据 [取随机数 (1, 取数组成员数 (数据))] + #换行符)
.计次循环尾 ()
==============================================================================
标签:计次,生成器,局部变量,整数型,流水,仅供,文本,编辑框,子程序 From: https://www.cnblogs.com/xkrj5/p/17778087.html