Хөдөө талын үзэсгэлэн эх код

Энэ кодны хэсгээс тоолуурт давталтыг судлаж, өөрсдөө өөр зориулалтаар хэрэглэж үзээрэй.


GraphicsWindow.Show()
GraphicsWindow.Title="Хөдөө талын үзэсгэлэн"
GraphicsWindow.Width = 800
GraphicsWindow.Height = 600
GraphicsWindow.CanResize= "False"
'Зүлэг
GraphicsWindow.BrushColor = "Green"
GraphicsWindow.FillRectangle(0,350,800,250)
'Тэнгэр
GraphicsWindow.BrushColor = "Cyan"
GraphicsWindow.FillRectangle(0,0,800,350)
'Нар
GraphicsWindow.BrushColor = "Yellow"
GraphicsWindow.FillEllipse(70,50,60,60)
'Нарны цацраг
GraphicsWindow.PenColor = "Yellow"
GraphicsWindow.PenWidth = 2
For i = 1 To 80
  x = 100 + 100 * Math.Cos(i/Math.Pi)
  y = 80 + 100 * Math.Sin(i/Math.Pi)
  GraphicsWindow.DrawLine(100,80,x,y)
EndFor
'Уулс
x1=0
x2=50
x3=100
y1=350
y2=300
y3=350
GraphicsWindow.BrushColor = "Brown"
For i = 1 To 12
  GraphicsWindow.FillTriangle(x1,y1,x2,y2,x3,y3)
  x1=x1+70
  x2=x2+70
  x3=x3+70
EndFor