تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية رسم هرم
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم