Exploring shapes
Draw (menggambar), rotate (memutar), animate (menggerak-gerakkan) shapes.

Operasi yang akan digunakan:
1. Addimage (untuk menggambarkan image / gambar .jpg)
2. Addrectangle (untuk menggambarkan persegi atau rectangle)
3. Hideshape (untuk menyembunyikan shape tertentu)
4. Showshape (untuk mengeluarkan dari persembunyian suatu shape tertentu)
5. Setopacity (untuk mengatur ketembus-pandangan suatu shape tertentu)
6. Move (untuk menggeser shape)
7. Animate (untuk menggeser shape perlahan-lahan)
8. Zoom (untuk men-zoom in atau men-zoom out suatu shape)

Tujuan: untuk lebih menghidupkan bagaimana shape bergerak.

LAB 1 :
Pada lab ini, program pada dasarnya hanya menunjukkan(ShowShape), menyembunyikan (HideShape), membeningkan(SetOpacity) sebanyak 10 kali menggunakan loop for.. endfor..

rectangle = Shapes.AddRectangle(400, 300)
For i = 1 To 10
  Shapes.ShowShape(rectangle)
  Program.Delay(1000)
  Shapes.HideShape(rectangle)
  Shapes.SetOpacity(rectangle, 100 - i * 10)
  Program.delay(800)
EndFor

Ini pada dasarnya seperti menimbul tenggelamkan suatu shape dalam hal ini shape persegi panjang.

LAB 2:
'Sebelum memulai lab ini, taruh suatu gambar .jpg di drive D: milik mu. Program ini pada dasarnya hanya men-zoom-in suatu gambar. Oke, silahkan di paste ke editor small basic milik mu:

imagepath = "D:\pic1.jpg"
gambaryangakandizoom = Shapes.AddImage(imagepath)
Shapes.Move(gambaryangakandizoom, 5,5)
Shapes.Animate(gambaryangakandizoom, 20, 20, 1000)
Shapes.zoom(gambaryangakandizoom, 0.1, 0.1)
For i = 0 To 1 Step 0.1
  Program.Delay(1000)
  Shapes.zoom(gambaryangakandizoom, 0.1 + i, 0.1 + i)
EndFor

LAB 3:

GraphicsWindow.PenWidth = 2
GraphicsWindow.PenColor = "Black"
GraphicsWindow.BrushColor = "Purple"
rectangle1 = Shapes.AddRectangle(100, 100)
Shapes.Move(rectangle1, 50, 80)
rectangle2 = Shapes.AddRectangle(100, 100)
Shapes.Move(rectangle2, 300, 80)
For i = 1 To 4
  Program.Delay(1000)
  Shapes.Zoom(rectangle1, i * 0.4, i * 0.4)
  Shapes.SetOpacity(rectangle1, i * 5)
EndFor

LAB 4:
Sball = Shapes.AddEllipse(100, 100)
Shapes.Move(Sball, 0, 340)
x = 450
GraphicsWindow.DrawRectangle(550, 0, 80, 450)
GraphicsWindow.BrushColor = "Purple"
GraphicsWindow.FillRectangle(550, 0, 80, 450)
Shapes.Animate(Sball, x, 40, 490)
Program.Delay(500)
If (Shapes.GetLeft(Sball) = x ) Then
  Shapes.animate(Sball, 0, 340, 500)
EndIf

LAB 5
Pada dasarnya program ini hanya membuat rectangle baru atau addrectangle dan menggesernya ke posisi sebanding dengan i. Jumlah rectangle yang akan dibuat sebanyak 21 karena jumlah for adalah dari 0 sampai 20.

For i = 0 To 20
  GraphicsWindow.PenWidth = "0.5"
  GraphicsWindow.BrushColor = GraphicsWindow.GetRandomColor()
  rectangle1 = Shapes.AddRectangle(i * 20, i * 10)
  Shapes.move(rectangle1, i * 10, i * 10)
  Program.Delay(500)
EndFor

Selamat! Kamu sekarang sudah tahu cara menggunakan beberapa operation atau function dari obyek shape. Juga kamu sudah mencoba membuat beberapa animasi.