Kerajinan tangan Small Basic: menempatkan shape pas ditengah graphic window

1. Buat ilustrasi

Ditentukan gambar sebagai berikut:

Diketahui nilai a, b, x dan y, tentukanlah nilai l dan nilai p

2. Lakukan sedikit aritmatika

Dari gambar bisa dibuat 2 buah persamaan yaitu:
a = 2 * l + y
b = 2 * p + x

Jadi:
l = (a - y ) / 2
p = (b - x) / 2
Ketemu sudah rumus untuk mencari nilai l dan nilai p.

3. Source code-nya:

'variabel yang digunakan primer dan variabel turunan (variabel yang menyimpan hasil
'dari pengoperasian variabel primer contoh: p = ( b - x ) / 2 dan l = (a - y) /2
'jadi p dan l adalah variabel turunan, sementara b, x, a dan y adalah variabel primer.
'variabel primer = b, x, a, y
'variabel turunan = p, l

a = 1000
b = 600
x = 200
y = 300

GraphicsWindow.Width = a
GraphicsWindow.Height = b

p = (a-x)/2
l = (b-y)/2

shapes = Shapes.AddRectangle(x,y)
Shapes.Move(shapes,p,l)