منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيفية رسم هرم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم والشرح بين السطور ...


كود :
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