Small Basic中文站-快乐编程

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 507|回复: 0

Goto的实例

[复制链接]
发表于 2017-6-28 13:27:58 | 显示全部楼层 |阅读模式

效果图:
sb04.png

GraphicsWindow.Title = "Sand"
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.BackgroundColor = "Black"
Line7:
x = Math.GetRandomNumber(gw)
y = Math.GetRandomNumber(gh)
value = Math.GetRandomNumber(200) + 50
color = GraphicsWindow.GetColorFromRGB(value, value / 2, 0)
GraphicsWindow.BrushColor = color
GraphicsWindow.FillRectangle(x, y, 1, 1)
Goto Line7
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|手机版|Small Basic中文站-快乐编程 ( 闽ICP备09051788号 |

GMT+8, 2019-12-6 06:23 , Processed in 0.246557 second(s), 11 queries , File On.

Powered by Discuz! X3.3

快速回复 返回顶部 返回列表