e语言调不通了

程序小白

.版本 2
.支持库 xplib
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 客户次序, 整数型

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

XP风格 (2)

.子程序 _按钮_信息录入_被单击

.判断开始 (编辑框_客户名称.内容 ＝ “” 或 编辑框_手机号.内容 ＝ “”)
    信息框 (“您输入信息不完整请重新输入”, 0, , )
.默认
    客户次序 ＝ 客户次序 ＋ 1
    写配置项 (取运行目录 () ＋ “\摇奖系统.ini”, “客户信息”, “客户名称” ＋ 到文本 (客户次序), 编辑框_客户名称.内容)
    写配置项 (取运行目录 () ＋ “\摇奖系统.ini”, “客户信息”, “手机号” ＋ 到文本 (客户次序), 编辑框_手机号.内容)
.判断结束
编辑框_客户名称.内容 ＝ “”
编辑框_手机号.内容 ＝ “”

.子程序 _时钟1_周期事件
.参数 随机数, 整数型

置随机数种子 ()
随机数 ＝ 取随机数 (1, 客户次序)
编辑框_客户名称.内容 ＝ 读配置项 (取运行目录 () ＋ “\摇奖系统.ini”, “客户信息”, “客户名称” ＋ 到文本 (随机数), )
编辑框_手机号.内容 ＝ 读配置项 (取运行目录 () ＋ “\摇奖系统.ini”, “客户信息”, “手机号” ＋ 到文本 (随机数), )
调试输出 (随机数)

.子程序 _按钮_开始摇奖_被单击

时钟1.时钟周期 ＝ 5000

.子程序 _按钮_摇奖结束_被单击

时钟1.时钟周期 ＝ 0







附件里面有程序，我点击开始摇奖和摇奖结束都没有反应，哪位大神能帮我看看

程序小白

linqing4 发表于 2019-6-28 15:55
发错地方了，求助去求助区发吧，下你的源码还要费精币。。。

谢谢..............

linqing4

发错地方了，求助去求助区发吧，下你的源码还要费精币。。。

程序小白

这个是程序