QB64(3)
来源:互联网 发布:淘宝客不小心退出了 编辑:程序博客网 时间:2024/05/01 03:35
SCREEN 1
COLOR 10, 1
PSET (190, 120)
PSET (192, 122)
COLOR 10, 4
PSET (160, 120)
LINE -(190, 290)
CIRCLE (50, 50), 20
PAINT (55, 55)
COLOR 10, 1
PSET (190, 120)
PSET (192, 122)
COLOR 10, 4
PSET (160, 120)
LINE -(190, 290)
CIRCLE (50, 50), 20
PAINT (55, 55)
SCREEN 2
WINDOW (-300, -100)-(300, 100)
PSET (-190, 20)
PSET (-192, 22)
PSET (-160, 20)
LINE -(190, 90)
CIRCLE (50, 50), 20
PAINT (55, 55)
动画,移动的小球,并配乐
declare sub gameCircle
DIM gcircle%(300)
SCREEN 1
WINDOW (-10, -10)-(310, 190)
COLOR 10, 1
CALL gameCircle
GET (1, 1)-(26, 26), gcircle%()
CLS
FOR nowx = 15 TO 280 STEP 5
FOR nowy = 15 TO 170 STEP 5
PUT (nowx, nowy), gcircle%(), PSET
SOUND 50, 1
SLEEP (1)
PUT (nowx, nowy), gcircle%(), XOR
NEXT nowy
NEXT nowx
SUB gameCircle
CIRCLE (15, 15), 10
PAINT (15, 15)
END SUB
RANDOMIZE TIMER
FOR n% = 1 TO 10
PRINT INT(RND * 1000) + 1
NEXT n%
0 0
- QB64(3)
- qb64手记(1)
- qb64手记(2)
- 3
- 3
- 3
- 3
- 3
- (3)
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- 3
- [王垠系列]谈语法
- linux下实时查看tomcat运行日志
- 2016最新iOS开发者证书申请及安装教程
- [王垠系列]程序语言的常见设计错误(1) - 片面追求短小
- Masonry布局框架的使用
- QB64(3)
- 学会使用IntelliJ IDEA 12 之教程二 (字体设置,光标设置)
- windows10安装Sql server 2000
- [王垠系列]“解决问题”与“消灭问题”
- ibatis动态查询条件
- android checkBox setTextColor无效
- 慕课网的在线Android教学视频讲解(循序渐进)
- Masonry简单使用
- ios collectionView