Microsoft Small Basic

Program Listing: DHP377

List Program

'Стандартньій пример
результат = Shapes.AddRectangle(120, 12)
шар = Shapes.AddEllipse(16, 16)

GraphicsWindow.FontSize = 14
GraphicsWindow.MouseMove = OnMouseMove

Очки = 0
PrintОчки()
Sound.PlayBellRingAndWait()

x = 0
y = 0
deltaX = 1
deltaY = 2

RunLoop:
x = x + deltaX
y = y + deltaY

gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If (x >= gw - 16 Or x <= 0) Then
deltaX = -deltaX
EndIf
If (y <= 0) Then
deltaY = -deltaY
EndIf

padX = Shapes.GetLeft(результат)
If (y = gh - 28 And x >= padX And x <= padX + 120) Then
Sound.PlayClick()
Очки = Очки + 10
PrintОчки()
deltaY = -deltaY
EndIf

Shapes.Move(шар, x, y)
Program.Delay(5)

If (y < gh) Then
Goto RunLoop
EndIf

GraphicsWindow.ShowMessage("Вьі набрали: " + Очки + " очков.", "Результат")

Sub OnMouseMove
грацX = GraphicsWindow.MouseX
Shapes.Move(результат, грацX - 60, GraphicsWindow.Height - 12)
EndSub

Sub PrintОчки
GraphicsWindow.BrushColor = "White"
GraphicsWindow.FillRectangle(10, 10, 200, 20)
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(10, 10, "Очки: " + Очки)
EndSub