编程C,C ++,Java,PHP,Ruby,VB
计算机科学加拿大 
编程C,C ++,Java,PHP,Ruby,VB  

用户名:   Password: 
 登记登记   
  阁楼,厨房和卧室灯
指数 -> 编程, -> 提交
查看上一个主题 可打印的版本下载主题利率主题订阅本主题私人信息刷新页面 查看下一个主题
作者 信息
丹麦语2525.




 邮政 发布: 星期五2013年5月24日上午9:28  帖子主题:阁楼,厨房和卧室灯

%装载栏
颜色返回(黑色)
白颜色)
CLS.

放“按左箭头打开厨房光线”
放“向右箭头打开卧室灯”
将“按向下箭头打开厨房和卧室灯”
将“按向上箭头放弃程序”
对于我:0 .. 300
Buxbox(170 + I,40,170,20,白色)
delay (30)
locate (22, 40)
put i div 3, "%"
结束


套接(“图形:MAX; MAX”)

%字体1(标题)
var font1:int
font1:= font.new(“timenewroman:30”)
font.draw(“丹麦的阁楼”,100,200,font1,黑色)



%厨房和卧室
draw.fillbox(56,600,370,280,绿色)
draw.fillbox(370,600,690,280,红色)
%退出框
draw.fillbox(850,20,950,100,蓝色)
找到(38,110)
把“出口”



var char:zholean的数组char
环形

INPUT.KEYDOWN(字符)
locate (1, 1)
如果chars(key_up_arrow)那么
quit
else

end if

如果chars(key_right_arrow)那么
draw.fillbox(370,600,690,280,40)
delay (110)
把“卧室灯”放在上面“
else
把“卧室灯熄灭”
draw.fillbox(370,600,690,280,红色)
end if

如果chars(key_left_arrow)那么
draw.fillbox(56,600,370,280,48)
delay (110)
把“厨房光线”放在上面“
else
把“厨房光线关闭”
draw.fillbox(56,600,370,280,绿色)
end if
如果chars(key_down_arrow)那么
draw.fillbox(370,600,690,280,40)
draw.fillbox(56,600,370,280,48)
delay (110)
把“kitc和床上都在”

else
把“kitc和床上都关闭”
draw.fillbox(56,600,370,280,绿色)
draw.fillbox(370,600,690,280,红色)
end if
结束循环
赞助
赞助
赞助
赞助
虫子




 邮政 发布: 星期五2013年5月24日10:23 AM  帖子主题:Re:Loft,厨房和卧室灯

如果您概述了这是什么,以及为什么要分享它会很好。
从上一个显示帖子:   
    指数 -> 编程, -> 提交
查看上一个主题 告诉一个朋友可打印的版本下载主题利率主题订阅本主题私人信息刷新页面 查看下一个主题

11  [ 2 Posts ]
跳到:   


Style:  
搜索: