Bola Asik (aplikasi game menggunakan Smallbasic)

Copas code berikut ini ke editor bahasa program Smallbasic kamu dan jalankan (run/F5):

bola1 = Shapes.AddEllipse(25,25)
GraphicsWindow.BrushColor = "Red"
bola2 = Shapes.AddEllipse(25,25)
GraphicsWindow.BrushColor = "Green"
bola3 = Shapes.AddEllipse(25,25)
awal:
shapes.animate(bola1, Math.GetRandomNumber(500), Math.GetRandomNumber(500),1000)
shapes.animate(bola2, Math.GetRandomNumber(500), Math.GetRandomNumber(500),1000)
shapes.animate(bola3, Math.GetRandomNumber(500), Math.GetRandomNumber(500),1000)
Program.Delay(1000)
Goto awal

Program pengacakan kata

'Penambahan tombol-tombol control
kata = Controls.AddTextBox(0,0)
translate = Controls.AddButton("acak bro..",200,0)
hasil = Controls.AddMultiLineTextBox(0,100)
GraphicsWindow.show()

teks1 = Shapes.AddText("Kata yang akan diacak:")
xtext1 = Shapes.GetLeft(teks1)
Shapes.Move(kata, xtext1, 20)
ykata = Shapes.GetTop(kata)
xkata = Shapes.GetLeft(kata)
Shapes.Move(translate, xkata + 160, ykata)

'pendefensian even-handlers untuk controls
controls.ButtonClicked = tomboldiklik

'sub-sub
sub tomboldiklik
  If Controls.LastClickedButton = translate then
    datapengacakan = Controls.GetTextBoxText(kata)
    For i = 1 To Text.GetLength(datapengacakan)
    a[i] = Text.GetSubText(datapengacakan, i,1)
    b[i] = Text.GetCharacterCode(a[i]) + 1
    c[i] = Text.GetCharacter(b[i])
    d = Text.Append(d, c[i])
    Controls.SetTextBoxText(hasil, d )
    EndFor
  EndIf
EndSub