|
|

楼主 |
发表于 2026-2-12 12:36:40
|
显示全部楼层
辽宁省丹东市
很短的代码, 调试程序时正常,编译再运行,程序就崩溃 ,这个程序 用方向键调节电脑时间右键增加 1小时 ,左键减少1 小时
补充内容 (2026-2-12 12:39):
.版本 2
.子程序 _按钮1_被单击
信息框 (“已经运行”, 0, , )
.子程序 __启动窗口_创建完毕
窗口_监视热键_注册 (&监视) ' 注明:响应监视事件,3个参数,都为整数型,第1个为功能键,第2个为键代码,第3个为按键状态(1为按下,2为放开)。
.子程序 监视
.参数 功能键, 整数型
.参数 键代码, 整数型
.参数 按键状态, 整数型, , 1为按下,2为放开
.局部变量 显示, 逻辑型, 静态
.判断开始 (键代码 = 39 且 按键状态 = 1) ' 右方向键
置现行时间 (增减时间 (取现行时间 (), #小时, 1))
.判断 (键代码 = 37 且 按键状态 = 1) ' 左方向键
置现行时间 (增减时间 (取现行时间 (), #小时, -1))
.判断 (键代码 = 32 且 按键状态 = 1) ' 空格键
显示 = 选择 (显示 = 真, 假, 真)
窗口_显示隐藏 (_启动窗口.取窗口句柄 (), 显示)
.默认
.判断结束
.子程序 __启动窗口_将被销毁
窗口_监视热键_卸载 ()
|
|