这是汉语编程的模板,你去forth里给我翻译去,切.你弄出来才能证明呀.弄不出来就不要再混淆视听了.
\ ==================================
6 给 基址总数
编 置基址总数 ( n --- ) 写入 基址总数 。
扩展模板 按钮基址结构模板 继承自 对象基模板
基址总数 4 / 1+ 4 * 结构空间空给 显示状态结构
基址总数 4 * 结构空间空给 基址结构空间
模板事件 块显示状态: ( <序号>---<标志> ) 显示状态结构 + 字节读 255 = 模板事件。
模板事件 置块显示: ( <序号>--- ) 显示状态结构 + 真 ↑↓ 字节写 模板事件。
模板事件 置块不显示: ( <序号>--- ) 显示状态结构 + 假 ↑↓ 字节写 模板事件。
模板事件 初始显示状态结构: ( --- ) 基址总数 0
循环 -1 显示状态结构 内环数 + 字节写
回环
模板事件。
模板事件 坐标存结构: ( x y <序号> --- ) 4 * 基址结构空间 + ∵ 坐标存基址 模板事件。
模板事件 结构转坐标: ( <序号> --- x y ) 4 * 基址结构空间 + 基址转坐标 模板事件。
模板事件 模板初始: 初始显示状态结构: 自本身 模板事件。
模板。
\ ========= 模板2 ==================================================
扩展模板 按钮积分模板 继承自 对象基模板
32位变量 图片处理库
32位变量 实物图片项
32位变量 屏蔽图片项
32位变量 图像加载对象
32位变量 图名称项
32位变量 横坐标项
32位变量 纵坐标项
32位变量 窗口句柄
32位变量 按钮序号
32位变量 奇数触发状态
32位变量 时间显示X偏移
32位变量 时间显示Y偏移
32位变量 分数显示X偏移
32位变量 分数显示Y偏移
32位变量 分数字体高度
32位变量 分数字体宽度
32位变量 时间字体高度
32位变量 时间字体宽度
32位变量 时间字体颜色
32位变量 分数字体颜色
32位变量 分数显示
32位变量 时间显示
32位变量 画布左边距
32位变量 画布上边距
4 结构空间空给 时间坐标
4 结构空间空给 分数坐标
按钮基址结构模板 按钮基址对象
句柄位图模板 按钮句柄对象
句柄位图模板 按钮屏蔽句柄对象
句柄位图模板 时间句柄对象
句柄位图模板 时间屏蔽句柄对象
句柄位图模板 分数句柄对象
句柄位图模板 分数屏蔽句柄对象
\ ==================字体设置====================
字体对象 时间框字体
字体对象 分数框字体
对象事件 时间框置换字体: 时间字体高度 高度: 时间框字体 时间字体宽度 宽度: 时间框字体
创建: 时间框字体 句柄: 时间框字体
设置字体: 时间句柄对象
对象事件。
对象事件 分数框置换字体: 分数字体高度 高度: 分数框字体 分数字体宽度 宽度: 分数框字体
创建: 分数框字体 句柄: 分数框字体
设置字体: 分数句柄对象
对象事件。
预编 选中时光标
模板事件 置时间字样名: ( <地址><长度>--- ) 置字样名: 时间框字体 模板事件。
模板事件 置分数字样名: ( <地址><长度>--- ) 置字样名: 分数框字体 模板事件。
模板事件 置时间文本宽高: ( <宽度> <高度>--- ) 写入 时间字体高度 写入 时间字体宽度 模板事件。
模板事件 置分数文本宽高: ( <宽度> <高度>--- ) 写入 分数字体高度 写入 分数字体宽度 模板事件。
模板事件 置时间文本颜色: ( <颜色> --- ) 写入 时间字体颜色 模板事件。
模板事件 置分数文本颜色: ( <颜色> --- ) 写入 分数字体颜色 模板事件。
模板事件 置画布坐标: ( <左边距><上边距>--- ) 写入 画布上边距 写入 画布左边距 模板事件。
模板事件 读画布坐标: ( ---<左边距><上边距> ) 画布左边距 画布上边距 模板事件。
模板事件 存时间坐标: ( X Y --- ) 合成双字数 时间坐标 写 模板事件。
模板事件 存分数坐标: ( X Y --- ) 合成双字数 分数坐标 写 模板事件。
模板事件 转相对位置: ( X Y X0 YO --- X' Y' )
∴ ↑↓ - ( X X0 Y' )
∵ ( Y' X X0 )
- ( Y' X' )
↑↓ ( X' Y' )
模板事件。
编 坐标转画布相对位置 ( X Y --- X0 Y0 ) 读画布坐标: 自本身 转相对位置: 自本身 。
编 基址转相对坐标 ( <基址>--- X Y ) 读 按字分开 坐标转画布相对位置 。
模板事件 求时间坐标: ( --- x y ) 时间坐标 基址转相对坐标 模板事件。
模板事件 求分数坐标: ( --- x y ) 分数坐标 基址转相对坐标 模板事件。
模板事件 置分数: ( n --- ) 写入 分数显示 模板事件。
模板事件 置时间: ( n --- ) 写入 时间显示 模板事件。
模板事件 读分数: ( --- n ) 分数显示 模板事件。
模板事件 读时间: ( --- n ) 时间显示 模板事件。
模板事件 置分数: ( n --- ) 写入 分数显示 模板事件。
模板事件 时间增量转时间: ( n1 ---n2 ) +写入 时间显示 时间显示 模板事件。
模板事件 分数增量转分数: ( n1 ---n2 ) +写入 分数显示 分数显示 模板事件。
模板事件 置时间显示偏移: ( x y --- ) 写入 时间显示Y偏移 写入 时间显示X偏移 模板事件。
模板事件 置分数显示偏移: ( x y --- ) 写入 分数显示Y偏移 写入 分数显示X偏移 模板事件。
编 计算偏移 ( x0 y0 DX DY --- X Y ) ∴ + ∵ + ↑↓ 。
编 分数时间数字输出 ( x y N <颜色>--- )
置文本颜色: 时间句柄对象 0 置背景混合方式: 时间句柄对象
数>串 文本输出: 时间句柄对象 。
模板事件 时间数字输出: 时间框置换字体: 自本身 求时间坐标: 自本身 ( x0 y0 )
时间显示X偏移 时间显示Y偏移 计算偏移 ( x y )
读时间: 自本身 时间字体颜色 分数时间数字输出
模板事件。
模板事件 分数数字输出: 分数框置换字体: 自本身 求分数坐标: 自本身 ( x0 y0 )
分数显示X偏移 分数显示Y偏移 计算偏移 ( x y )
读分数: 自本身 分数字体颜色 分数时间数字输出
模板事件。
模板事件 加载图像加载对象: 内存加载图象: 图像加载对象 模板事件。
\ ===============按钮对象==========================
模板事件 变形显示按钮: 变形显示图像: 按钮句柄对象 模板事件。
\ =============时间框对象================
模板事件 变形显示时间: 变形显示图像: 时间句柄对象 模板事件。
\ =============分数框对象==================
模板事件 变形显示分数: 变形显示图像: 分数句柄对象 模板事件。
模板事件 显示分数框: 0 求分数坐标: 自本身 变形显示分数: 自本身 分数数字输出: 自本身 模板事件。
模板事件 显示时间框: 0 求时间坐标: 自本身 变形显示时间: 自本身 时间数字输出: 自本身 模板事件。
模板事件 显时间分数框: 显示分数框: 自本身 显示时间框: 自本身 模板事件。
模板事件 坐标存按钮结构: ( x y <序号>--- ) 坐标存结构: 按钮基址对象 模板事件。
模板事件 结构转按钮坐标: ( <序号>--- x y ) 结构转坐标: 按钮基址对象 模板事件。
模板事件 置按钮块显示: ( <序号>--- ) 置块显示: 按钮基址对象 模板事件。
模板事件 置按钮块不显示: ( <序号>--- ) 置块不显示: 按钮基址对象 模板事件。
模板事件 读按钮序号: 按钮序号 模板事件。
模板事件 置奇数触发状态: ( <状态>--- ) 写入 奇数触发状态 模板事件。
模板事件 读按钮块点属性: 读块点属性: 按钮屏蔽句柄对象 模板事件。
模板事件 按块显按钮: ( <序号>--- ) ♂ 结构转按钮坐标: 自本身 坐标转画布相对位置 变形显示按钮: 自本身
模板事件。
模板事件 显示时间分数按钮: ( --- ) 求图片总幅数: 按钮句柄对象 0
循环 按钮序号 1 与
就 按钮序号 按块显按钮: 自本身 然后
内环数 块显示状态: 按钮基址对象 奇数触发状态
就 内环数 1 与 1 = 非 否则 -1 然后 与
就 内环数 按钮序号 1- <> 就 内环数 按块显按钮: 自本身 然后 然后
回环 显时间分数框: 自本身
模板事件。
模板事件 坐标转按钮序号: ( X Y ---<按钮序号> | <按钮序号>/-1 )
-1 写入 按钮序号 求图片总幅数: 按钮句柄对象 0
循环 内环数 块显示状态: 按钮基址对象 ( <状态> )
奇数触发状态
就 内环数 1 与 否则 -1 然后 与
就 双♂ ( X Y X Y )
内环数 结构转按钮坐标: 自本身
内环数 读按钮块点属性: 自本身 0 =
就 内环数 写入 按钮序号 选中时光标 ( 手箭头光标 ) 然后
然后
回环 双♀ 按钮序号
模板事件。
模板事件 显示开始按钮: 0 置按钮块显示: 自本身 1 置按钮块显示: 自本身
2 置按钮块不显示: 自本身 3 置按钮块不显示: 自本身
模板事件。
模板事件 显示继续按钮: 2 置按钮块显示: 自本身 3 置按钮块显示: 自本身
0 置按钮块不显示: 自本身 1 置按钮块不显示: 自本身
模板事件。
模板事件 绘制标志: ( <坐标双字>---<按钮序号><标志> )
读按钮序号: 自本身 ↑↓ ( <前按钮序号><坐标双字> )
按字分开 ( <前按钮序号> X Y )
坐标转按钮序号: 自本身 ( <前按钮序号><按钮序号> )
♂ ( <前按钮序号><按钮序号><按钮序号> )
∴ ( <按钮序号><按钮序号><前按钮序号> )
<> ( <按钮序号><标志> )
模板事件。
模板事件 显示标志: ( <坐标双字>---<按钮序号><标志> )
按字分开 坐标转按钮序号: 自本身 ♂ -1 <> ( <按钮序号><标志> )
模板事件。
\ ==================图片库设置====================
编 库项对应处理 ( <项>---<地址><长度> /字串型 | N /整数型 ) 图片处理库 项对应处理 。
模板事件 置实物图片项: ( <项>--- ) 写入 实物图片项 模板事件。
模板事件 置屏蔽图片项: ( <项>--- ) 写入 屏蔽图片项 模板事件。
模板事件 置图片处理库: 写入 图片处理库 模板事件。
模板事件 置图名称项: ( <项>--- ) 写入 图名称项 模板事件。
模板事件 置横坐标项: ( <项>--- ) 写入 横坐标项 模板事件。
模板事件 置纵坐标项: ( <项>--- ) 写入 纵坐标项 模板事件。
编 图像句柄加载图像 写入 图像加载对象 加载图像加载对象: 自本身 。
编 记录实物屏蔽项 ( <基址1><基址2><记录>--- )
图片处理库 为当前记录 ( <基址1><基址2> )
屏蔽图片项 库项对应处理 ∴ 图像句柄加载图像
实物图片项 库项对应处理 ∴ 图像句柄加载图像
。
模板事件 数据库加载图象: 对象基址: 按钮句柄对象 对象基址: 按钮屏蔽句柄对象 1 记录实物屏蔽项
对象基址: 时间句柄对象 对象基址: 时间屏蔽句柄对象 2 记录实物屏蔽项
对象基址: 分数句柄对象 对象基址: 分数屏蔽句柄对象 3 记录实物屏蔽项
模板事件。
编 总搜索范围 图片处理库 记录数 1 + 1 。
编 是对应记录 ( <地址><长度>---<标志> ) 图名称项 库项对应处理 去前后空格 串比较 0 = 。
编 求对应记录坐标 ( ---X Y ) 横坐标项 库项对应处理 纵坐标项 库项对应处理 。
编 存明暗坐标 ( X Y <结构起始点>--- )
♂ 2 + ↑↓ 循环 双♂ 内环数 坐标存按钮结构: 自本身 回环 双♀
。
模板事件 设置初始坐标: 总搜索范围
循环 内环数 图片处理库 为当前记录
字串" 开始" 是对应记录 就 求对应记录坐标 0 存明暗坐标 然后
字串" 继续" 是对应记录 就 求对应记录坐标 2 存明暗坐标 然后
字串" 结束" 是对应记录 就 求对应记录坐标 4 存明暗坐标 然后
字串" 时间" 是对应记录 就 求对应记录坐标 存时间坐标: 自本身 然后
字串" 分数" 是对应记录 就 求对应记录坐标 存分数坐标: 自本身 然后
字串" 时间偏移" 是对应记录 就 求对应记录坐标 置时间显示偏移: 自本身 然后
字串" 分数偏移" 是对应记录 就 求对应记录坐标 置分数显示偏移: 自本身 然后
回环
模板事件。
\ ======================================
模板事件 置句柄: ( <句柄>--- )
♂ 置句柄: 按钮句柄对象
♂ 置句柄: 按钮屏蔽句柄对象
♂ 置句柄: 分数句柄对象
♂ 置句柄: 分数屏蔽句柄对象
♂ 置句柄: 时间句柄对象
置句柄: 时间屏蔽句柄对象
读位图句柄: 按钮屏蔽句柄对象 置变形屏蔽句柄: 按钮句柄对象
读位图句柄: 时间屏蔽句柄对象 置变形屏蔽句柄: 时间句柄对象
读位图句柄: 分数屏蔽句柄对象 置变形屏蔽句柄: 分数句柄对象
模板事件。
模板事件 置窗口句柄: ( <窗口句柄>--- )
6 置源列块数: 按钮句柄对象 1 置行块数: 按钮句柄对象
6 置源列块数: 按钮屏蔽句柄对象 1 置行块数: 按钮屏蔽句柄对象
数据库加载图象: 自本身
设置初始坐标: 自本身
♂ 写入 窗口句柄
♂ 置窗口句柄: 按钮句柄对象
♂ 置窗口句柄: 按钮屏蔽句柄对象
♂ 置窗口句柄: 分数句柄对象
♂ 置窗口句柄: 分数屏蔽句柄对象
♂ 置窗口句柄: 时间句柄对象
置窗口句柄: 时间屏蔽句柄对象
模板事件。
模板事件 置处理库及句柄: ( <区块><窗口句柄>--- ) ↑↓ 置图片处理库: 自本身 置窗口句柄: 自本身 模板事件。
模板事件 植入选中时光标: ( <属性域>--- ) 植入 选中时光标 模板事件。
模板事件 模板初始:
15 写入 分数字体宽度 30 写入 分数字体高度
15 写入 时间字体宽度 30 写入 时间字体高度
9 写入 实物图片项 15 写入 屏蔽图片项
3 写入 图名称项 5 写入 横坐标项
6 写入 纵坐标项
0 写入 分数显示 300 写入 时间显示
浅红色 写入 时间字体颜色 浅红色 写入 分数字体颜色
真 置奇数触发状态: 自本身
显示开始按钮: 自本身
找编 手箭头光标 植入 选中时光标
模板事件。
模板。
本文内容为我个人原创作品,申请原创加分