习语言轻轻松松学编程（二）小小恶作剧程序

xiyuyan · 发表于 2010-6-18 20:08:58

欢迎您注册加入！这里有您将更精采！

您需要登录才可以下载或查看，没有账号？注册

x

【习语言示例代码-视窗测试1_1.习    作者：微风  2010.6 梦飞翔创作坊 2007-2010 】

【本程序实现：打开虚拟显示器，通过定时器控制显示器显示和隐藏，用户按特定键后关闭显示器
本程序使用习语言1.5版以上版本编译  】

#包含 "习语言系统.接口"
#包含 “习语言视窗.接口”

【=====全局参数=====】
整数类型  显示器状态 = 0；

整数类型  定时器回调 ( 双字类型定时器号码 )
{
整数类型结果= -1；
如果（显示器状态等于 1 ） {
  结果 = 图形设置显示器状态( ‘隐藏’)；
  显示器状态 = 0；
}否则{
  结果 = 图形设置显示器状态( ‘显示’)；
  显示器状态 = 1；
}
返回 0；
}

【主程序】
整数类型主函数（整数类型参数个数, 字符类型 *参数表[]）
{
整数类型键码；

图形初始化显示器( 空指针， 320, 240，空指针， 0，空指针);
图形打开显示器();
显示器状态 = 1；
图形输出文字(10, 30 ，“哈哈，你好，握个手吧！”);
图形输出文字(10, 200 ，“按‘1’键退出”);
图形初始化定时器（定时器回调）；
图形创建定时器（定时器1， 2000 ）；
重复{
  键码 = 获取按键()；
}当（键码 && 键码！= ‘1’ ）；
图形销毁定时器（定时器1）；
图形关闭显示器()；
返回 0;
}

视窗测试1_1.rar (52.67 KB, 下载次数: 867)

tzhx · 发表于 2010-7-6 18:05:39

习语言视窗.接口???

wangmf11 · 发表于 2010-10-21 20:38:38

这个好玩呀

班海龙 · 发表于 2010-11-8 08:56:40

呵呵呵

账号		自动登录	找回密码
密码			注册

[习语言教程] 习语言轻轻松松学编程（二） 小小恶作剧程序

欢迎您注册加入！这里有您将更精采！

[习语言教程] 习语言轻轻松松学编程（二）小小恶作剧程序