极语言5-9 查无线密码、弹球游戏

小程序 初始启动
文本 名称[32],查看[64];
命令行("netsh wlan show profiles")
写文字("请输入无线网名称")
重读@
读文字(名称)
格式化(查看,"netsh wlan show profiles name=''%s'' key=clear",名称)
命令行(查看)
跳到 重读;
结束;

程序段 窗体消息(窗口,消息,参数,数据)

判断(消息)为 窗口关闭{停止(0)}
为 绘制静态{绘制颜色(参数)}
为 单击左键{左键点击(参数)}
为 键盘松开{获取键值(参数)}
否则 处理窗口(窗口,消息,参数,数据)

结束
整数 字体,得分,横向=5,竖向=5,球左=150,球顶=30,板左=120
逻辑字体类 字号(高度=-24,名字="微软雅黑")
程序段 窗体启动
字体=新建字体(字号)

结束
程序段 绘制颜色(设备)
选择对象(设备,字体)
文本改色(设备,$FF00)固有对象(5)
结束
程序段 获取键值(键值)

判断(键值)为 37{如果(板左>0)板左-10}
为 39{如果(板左<240)板左+10}
移动窗口(档板,板左,250,100,10,1)

结束
程序段 定时器事件(窗口,消息,编号,毫秒)

文本 内容[16]
如果(球左<=0 或者 球左>320)横向=-横向
如果(球顶<=0)竖向=-竖向
如果(球顶>220)
{    如果(球左+10>板左 而且 球左-板左<110)
    {竖向=-竖向;得分+10;
    内容="游戏得分:"+得分;窗体~内容}
    否则{定时器(窗体,1,0)信息框(0,"游戏失败")
    显隐窗口(游戏,1)显隐窗口(小球,0)
    显隐窗口(档板,0)球左=150;球顶=30}
}球左+横向;球顶+竖向;

移动窗口(小球,球左,球顶,25,25,1)
结束

程序段 游戏_点击

显隐窗口(游戏,0)显隐窗口(小球,1)
显隐窗口(档板,1)定时器(窗体,1,120)

结束