精易论坛

标题: 萌新求助，怎么让下列代码跑起来 [打印本页]

作者: 大张飞 时间: 2024-8-9 17:18
标题: 萌新求助，怎么让下列代码跑起来
.版本 2
.支持库 EThread

.程序集窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量时钟1周期
.局部变量买价刷新时间
.局部变量卖价刷新时间
.局部变量网络时间获取线程
.局部变量表格1

时钟1周期＝ 1000  ' 时钟 1 周期设为 1 秒
买价刷新时间＝计算买价刷新时间 ()
卖价刷新时间＝计算卖价刷新时间 ()
启动线程 (&网络时间获取线程, , 网络时间获取线程)  ' 启动获取网络时间的线程

表格1.创建(取窗口句柄(), 0, 0, 400, 200, 3, 2)  '创建表格
表格1.置列宽(0, 133)  '设置列宽
表格1.置列宽(1, 133)
表格1.置列宽(2, 134)
表格1.置表头高度(0)  '隐藏表头
表格1.加入项目(0, 0, "长安商人1")  '添加表格项目
表格1.加入项目(1, 0, "长安商人2")
表格1.加入项目(2, 0, "傲来商人1")
表格1.加入项目(0, 1, "傲来商人2")
表格1.加入项目(1, 1, "长寿商人1")
表格1.加入项目(2, 1, "长寿商人2")
商人颜色[1] = 0
商人颜色[2] = 0
商人颜色[3] = 0
商人颜色[4] = 0
商人颜色[5] = 0
商人颜色[6] = 0

编辑框1.可视 = 真
编辑框1.左边 = 10
编辑框1.顶边 = 220
编辑框1.宽度 = 100
编辑框1.高度 = 20
标签1.可视 = 真
标签1.左边 = 10
标签1.顶边 = 250
标签1.标题 = “设置卖价刷新时间（秒）：”
编辑框2.可视 = 真
编辑框2.左边 = 10
编辑框2.顶边 = 280
编辑框2.宽度 = 100
编辑框2.高度 = 20
标签2.可视 = 真
标签2.左边 = 10
标签2.顶边 = 310
标签2.标题 = “设置买价刷新时间（秒）：”
按钮1.可视 = 真
按钮1.左边 = 10
按钮1.顶边 = 340
按钮1.宽度 = 100
按钮1.高度 = 30
按钮1.标题 = “确定”

'设置背景图片
图片框1.可视 = 真
图片框1.左边 = 0
图片框1.顶边 = 0
图片框1.宽度 = 取窗口宽度()
图片框1.高度 = 取窗口高度()
图片框1.图片 = 载入图片(#图片资源1)  '这里假设您有一个名为"图片资源1"的图片资源

.子程序网络时间获取线程

'持续获取网络时间
延迟(1000)  '每隔 1 秒获取一次
互联网_取现行时间()  '获取网络时间的具体实现，此处使用示例函数

.子程序计算买价刷新时间

'根据当前网络时间和游戏规则计算买价刷新时间
'返回买价刷新的时间（以秒为单位）
返回 0  '示例，需根据实际情况修改

.子程序计算卖价刷新时间

'根据用户设置计算卖价刷新时间
'返回卖价刷新的时间（以秒为单位）
返回到整数(编辑框1.内容)  '示例，需根据实际情况修改

.子程序按钮1_被单击

卖价刷新时间 = 到整数(编辑框1.内容)
买价刷新时间 = 到整数(编辑框2.内容)

.子程序表格1_表项被单击

局部变量列, 整数型
局部变量行, 整数型
列 = 表格1.取光标列()
行 = 表格1.取光标行()
点击位置 = 列 + 行 * 3  '计算点击位置
商人颜色[点击位置] = 1  '点击的商人颜色变为红色
'根据点击位置设置对应商人的颜色
选择 (点击位置)
案例 1
商人颜色[1] = 1
商人颜色[2] = 2
案例 2
商人颜色[2] = 1
商人颜色[1] = 2
案例 3
商人颜色[3] = 1
商人颜色[4] = 2
案例 4
商人颜色[4] = 1
商人颜色[3] = 2
案例 5
商人颜色[5] = 1
商人颜色[6] = 2
案例 6
商人颜色[6] = 1
商人颜色[5] = 2
'设置表格颜色
表格1.置颜色(列, 行, RGB(255, 0, 0))  '设置红色
表格1.置颜色(列 - 1, 行, RGB(0, 255, 0))  '设置绿色

.子程序时钟1_周期事件

局部变量当前时间, 整数型
当前时间 = 取现行时间()  '获取当前时间（秒）
'判断买价刷新提醒
如果 (买价刷新时间 - 当前时间 <= 30)
闹钟提醒("刷新买价")
结束如果
'判断卖价刷新提醒
如果 (卖价刷新时间 - 当前时间 <= 30)
闹钟提醒("二刷了")
结束如果

.子程序闹钟提醒

运行("C:\Windows\System32\rundll32.exe", "shell32.dll,Control_RunDLL mmsys.cpl,,0", 真)  '打开系统闹钟设置

.子程序互联网_取现行时间

'实际获取网络时间的代码
'此处可使用互联网支持库中的相关函数进行实现
返回 0  '示例返回值，需根据实际情况修改

.子程序窗口程序集_启动窗口_周期事件

'根据商人颜色设置表格颜色
表格1.置颜色(0, 0, IIF(商人颜色[1] = 1, RGB(255, 0, 0), IIF(商人颜色[1] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(1, 0, IIF(商人颜色[2] = 1, RGB(255, 0, 0), IIF(商人颜色[2] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(2, 0, IIF(商人颜色[3] = 1, RGB(255, 0, 0), IIF(商人颜色[3] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(0, 1, IIF(商人颜色[4] = 1, RGB(255, 0, 0), IIF(商人颜色[4] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(1, 1, IIF(商人颜色[5] = 1, RGB(255, 0, 0), IIF(商人颜色[5] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
表格1.置颜色(2, 1, IIF(商人颜色[6] = 1, RGB(255, 0, 0), IIF(商人颜色[6] = 2, RGB(0, 255, 0), RGB(255, 255, 255))))
----------------------------------------------------------------------------------------------------------
萌新啊qiuqiu了，谁能帮我写下啊

作者: LEOONL 时间: 2024-8-9 17:22
我是学生 V我50

作者: 笨来无一悟 时间: 2024-8-9 17:34
我是学死 V我50

作者: 大张飞 时间: 2024-8-9 17:39

笨来无一悟发表于 2024-8-9 17:34
我是学死 V我50

看不懂你说什么，萌新一个

作者: 大张飞 时间: 2024-8-9 17:39

LEOONL 发表于 2024-8-9 17:22
我是学生 V我50

我是中老年人，V我250

作者: 大张飞 时间: 2024-8-9 17:40

笨来无一悟发表于 2024-8-9 17:34
我是学死 V我50

账号是22年的但是今天是第一次登录把，应该是，近几年

作者: 大张飞 时间: 2024-8-9 17:55
那到底怎么写啊，有没有大佬指导下？

补充内容 (2024-8-9 17:55):
可以留地球偿

作者: 大张飞 时间: 2024-8-9 17:56

大张飞发表于 2024-8-9 17:55
那到底怎么写啊，有没有大佬指导下？

补充内容 (2024-8-9 17:55):

可以留个地球偿

作者: 大张飞 时间: 2024-8-9 17:56

笨来无一悟发表于 2024-8-9 17:34
我是学死 V我50

能写吗？大佬

作者: 走一回 时间: 2024-8-9 18:07
这个发源码上来也不一定有人会帮你改的吧。这么多组件，要死人的。V我1000

作者: 大张飞 时间: 2024-8-9 18:16

走一回发表于 2024-8-9 18:07
这个发源码上来也不一定有人会帮你改的吧。这么多组件，要死人的。V我1000 ...

1000r？那当我放了个p。我只是写一个方便自己的工具，写不了就算了。

作者: 大张飞 时间: 2024-8-9 18:18

走一回发表于 2024-8-9 18:07
这个发源码上来也不一定有人会帮你改的吧。这么多组件，要死人的。V我1000 ...

你的这个1000是r？我只是写个工具方便自己用下，如果是这么高的代价，当我没说吧

作者: 乐鱼驴 时间: 2024-8-9 18:24
源码打包发,你这掐头去尾的代码没有500 跑不起来.
我是学生 V我500

作者: 大张飞 时间: 2024-8-9 18:24

笨来无一悟发表于 2024-8-9 17:34
我是学死 V我50

我连回形针在哪都瞧不见

瞧了半天

作者: 笨来无一悟 时间: 2024-8-9 18:35

大张飞发表于 2024-8-9 18:24
我连回形针在哪都瞧不见瞧了半天

不是纯函数依赖窗口组件的都应该这样上传源码不依赖窗口组件的纯算法才是粘贴文本就可以

回形针.png (24.83 KB, 下载次数: 0)

作者: xf702 时间: 2024-8-9 18:37

回形针，发附件；高级模式直接复制拷贝源码。。

作者: 大张飞 时间: 2024-8-9 18:39
发上来了

时间提醒.e

962.57 KB, 下载次数: 0

作者: 大张飞 时间: 2024-8-9 18:40
就这玩意，逻辑很简单，到时间了闹钟提示，然后里面商人是方便我区分哪个价格高，

时间提醒.e

962.57 KB, 下载次数: 1

作者: 大张飞 时间: 2024-8-9 18:42

乐鱼驴发表于 2024-8-9 18:24
源码打包发,你这掐头去尾的代码没有500 跑不起来.
我是学生 V我500

50我都嫌多，顶多不用呗。

欢迎光临精易论坛 (https://125.confly.eu.org/)