تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 402 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 546 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 622 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 375 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 660 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القيام باغلاق ال forms المختلفة RaggiTech 0 340 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية القراءة والكتابة إلى INI File RaggiTech 0 357 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 363 17-10-12, 12:50 AM
آخر رد: RaggiTech

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


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