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

习语言轻轻松松学编程(二) 小小恶作剧程序

http://img313.ph.126.net/cgmuDnoEZQPm2hXsp0QaRA==/3681692695375682850.jpg
【 习语言示例代码-视窗测试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;
}

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

习语言视窗.接口???

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

这个好玩呀

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

呵呵呵
:)
页: [1]
查看完整版本: 习语言轻轻松松学编程(二) 小小恶作剧程序