|
8#
楼主 |
发表于 2024-1-25 13:45:40
|
只看该作者
<火山程序 类型 = "通常" 版本 = 1 />
包 火山.程序
类 启动类 <公开 基础类 = 窗口程序类>
{
变量 主窗口对象 <类型 = 我的主窗口>
变量 循环测试 <类型 = 类_测试变量>
方法 启动方法 <公开 类型 = 整数>
{
主窗口对象.创建主窗口 ()
循环测试.循环取数 ()
返回 (1)
}
}
# ===
类 类_测试变量 <公开 @全局类 = 真>
{
变量 次数 <公开 类型 = 整数 值 = 6 编辑时信息 = "0, 4EAA5, 0, 0" "">
方法 循环取数 <公开 "">
{
计次循环 (1000000)
{
处理事件 ()
延时 (1000)
次数 = 取循环索引 ()
}
}
}
类 我的主窗口 <基础类 = 窗口 注释 = "样例主窗口" @视窗.布局 = "client_size = \"500, 300\"" 标题 = "我的主窗口">
{
变量 时钟1 <类型 = 时钟 折叠2 隐藏值属性 = "0" @视窗.布局 = "id = 101\r\npos = \"109, 38, 64, 64\"" 时钟周期 = 200>
方法 时钟_周期事件 <接收事件 类型 = 整数 注释 = "每当经过了指定的时钟周期,将发送本事件.">
参数 来源对象 <类型 = 时钟 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
如果 (来源对象 == 时钟1)
{
变量 测试变量 <类型 = 类_测试变量>
调试输出 (测试变量.次数)
}
返回 (0)
}
}
|
|