Microsoft Small Basic

Program Listing: ZXP122

List Program

' Small Basic Known Issue: 24406 - Shapes.GetOpacity() Causes Cast Error ()
gw = 598
gh = 428
GraphicsWindow.Width = gw
GraphicsWindow.Height = gh
GraphicsWindow.PenColor = "Green"
GraphicsWindow.BrushColor = "Lime"
rect = Shapes.AddRectangle(100, 100)
Shapes.Move(rect, 100, 100)
While "True"
Shapes.SetOpacity(rect, Math.GetRandomNumber(100))
Program.Delay(300)
opacity = Shapes.GetOpacity(rect)
GraphicsWindow.Title = opacity
Program.Delay(1000)
EndWhile