مساء الخير جميعا
لدي سؤال لم اعرف كيف ابدا في الحل فيه
يقول السؤال :
سيتم تلوين الــ pixel الموجودة بالمركز بــ اللون الازرق و هي محاطة بــ 8 pixels باللون الاخضر حسب الشكل التالي :
علما ان حجمها هي
300×pixel 300
ارسمي هذا الشكل
اتمنى ممن عنده خلفية في كيفية الرسم بالفيجوال افادتي و شكرا لكم
لايوجد احد لديه خلفية رسم بالفيجوال ؟
:( B) :(
بانتظار ردودكم و تعليقاتكم
up
اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا
رفع
Private Sub Command1_Click() For i = 0 To 2100 Line (0, i)-(2100, i), vbGreen Next For i = 301 To 600 Line (300, i)-(600, i), vbBlue Next For i = 301 To 600 Line (900, i)-(1200, i), vbBlue Next For i = 301 To 600 Line (1500, i)-(1800, i), vbBlue Next '************************ For i = 901 To 1200 Line (300, i)-(600, i), vbBlue Next For i = 901 To 1200 Line (900, i)-(1200, i), vbBlue Next For i = 901 To 1200 Line (1500, i)-(1800, i), vbBlue Next '************************ For i = 1501 To 1800 Line (300, i)-(600, i), vbBlue Next For i = 1501 To 1800 Line (900, i)-(1200, i), vbBlue Next For i = 1501 To 1800 Line (1500, i)-(1800, i), vbBlue Next End Sub
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
هذا الموضوع مغلق.