كيفية رسم هرم - نسخة قابلة للطباعة

كود :
Private Sub Command1_Click()

'تعريف المتغيرات

Dim i, j, X1, X2, Y1, Y2, endxasInteger

'تثبيت قيمة

Const d = 200

'فتح امكانية الرسم

Form1.AutoRedraw = True

Form1.DrawStyle = 6

'تحديد قيمة معينة

Y1 = 2 * d

'تحديد الاحداثي السيني لنقطة القمة في الشكل الهرمي

X1 = Form1.ScaleWidth / 2

'حديد الاحداثي الصادي لنقطة القمة في الشكل الهرمي

Y2 = Form1.ScaleHeight - 2 * d

'تحديد نقطة القاع في الشكل الهرمي

endx = Form1.ScaleWidth - d

For i = d To endx Step d

'تكرار رسم الخط لتكوين الشكل الهرمي

Form1.Line (X1, Y1)-(i, Y2), RGB(j, 255, 0)

j = j + 7

Next i

End Sub