Friday 18 July 2014

GraphicsWindow.PenColor = "white"
GraphicsWindow.BrushColor = "black"
lingkaran1 = Shapes.AddEllipse(10,10)
GraphicsWindow.BrushColor = "red"
lingkaran2 = Shapes.AddEllipse(20,20)
Shapes.Move(lingkaran1, 5, 5)
Shapes.SetOpacity(lingkaran2, 50)

Monday 14 July 2014

Firman Harian

03/11/12
Maz 90:12 :"Ajarlah kami menghitung hari-hari kami sedemikian, hingga kami beroleh hati yang bijaksana."

Saturday 12 July 2014

j = 50
'spasi antar bulatan
space = 20

For i = 0 To 20
  Shapes[i] = Shapes.AddEllipse(i, j)
  Shapes.Move(Shapes[i], i * (10 + space), 0)
EndFor