PRG of RPG
08-12-2002, 11:33 AM
السلام عليكم....
هل من الممكن عمل اشكال جميلة بإستخدام اوامر بيسك فقط ... نعم ممكن ذلك وهذا مايتناوله الدرس
معليش الدرس حيكون على السريع
مقدمة عن الموضوع :
الامر Line ....
ماهو هذا الامر ؟ من اسمه يقوم برسم خط على النافذة(الفورم) ..
وكيف احدد احداثيات هذا الخط ؟
Line (X1, Y1)-(X2, Y2) 'this will draw line
حيث :
X1 : يحدد الاحداثي السيني لبداية الخط
Y1 : يحدد الاحداثي الصادي لبداية الخط
X2 : يحدد الاحداثي السيني لنهاية الخط
Y2 : يحدد الاحداثي الصادي لنهاية الخط
فمثلا عند كتابة الامر
Line (0, 0)-(1000, 1000) ' this will draw line
سينتج لدينا الشكل التالي :
http://www.arab3.com/upload/images/Dec02/game_maker_line.jpg
___________________________________________________
كيف نتحكم بعرض هذا الخط ؟
عرض الخط :Form1.DrawWidth = X
بحيث كلما زادت X زاد عرض الخط
___________________________________________________
كيف سنتحكم بلون الخط ؟
قبل ذلك احب ان اشرح النظام RGB
R = Red , G = Green , B = Blue
وهذا النظام يقوم بمزج هذه الالوان لينتج لنا لون معين
فمثلا اذا كان الR = 0 و ال B = 0 وال G = 0 ...
سيكون شكل الكود كالتالي
RGB(0,0,0) ' this is black color
فالنتيجة هي لون اسود . لانها الالوان الثلاثة قيمها صفر اي لا لون .
ماهي الارقام اللممكنة ادخالها في هذا النظام ؟
للR وال G وال B لها نفس الحدود من 0 الى 255
فمثلا اذا كان الR = 255 و ال B = 255 وال G = 255...
سيكون شكل الكود كالتالي
RGB(255,255,255) ' this is white color
فالنتيجة هي لون ابيض لان الالوان الثلاثة جميعا 255
جرب تغير هذه القيم وانظر الى اللون الناتج
والان كيف سنتحكم بلون الخط ؟
Form1.ForeColor = RGB(0,0,0) ' control the color
___________________________________________________
___________________________________________________
* ترتيب اكواد اضهار الخط :
اولاً / ذكر خصائص الخط اللون العرض ..الخ
ثانياً/ اضهار النافذة بالامر Form1.show
ثالثا/ الامر Line
التطبيق (3-1) :
مثال لذلك :
Private Sub Form_Load()
Form1.DrawWidth = 4
Form1.ForeColor = RGB(200, 100, 100)
Form1.Show
Line (0, 0)-(1000, 1000)
End Sub
سأرفق ملفا لهذا المثال البسيط ..
هذه مقدمه لهذا الدرس
وسأكمل بقية الدرس في أقرب وقت ممكن
هل من الممكن عمل اشكال جميلة بإستخدام اوامر بيسك فقط ... نعم ممكن ذلك وهذا مايتناوله الدرس
معليش الدرس حيكون على السريع
مقدمة عن الموضوع :
الامر Line ....
ماهو هذا الامر ؟ من اسمه يقوم برسم خط على النافذة(الفورم) ..
وكيف احدد احداثيات هذا الخط ؟
Line (X1, Y1)-(X2, Y2) 'this will draw line
حيث :
X1 : يحدد الاحداثي السيني لبداية الخط
Y1 : يحدد الاحداثي الصادي لبداية الخط
X2 : يحدد الاحداثي السيني لنهاية الخط
Y2 : يحدد الاحداثي الصادي لنهاية الخط
فمثلا عند كتابة الامر
Line (0, 0)-(1000, 1000) ' this will draw line
سينتج لدينا الشكل التالي :
http://www.arab3.com/upload/images/Dec02/game_maker_line.jpg
___________________________________________________
كيف نتحكم بعرض هذا الخط ؟
عرض الخط :Form1.DrawWidth = X
بحيث كلما زادت X زاد عرض الخط
___________________________________________________
كيف سنتحكم بلون الخط ؟
قبل ذلك احب ان اشرح النظام RGB
R = Red , G = Green , B = Blue
وهذا النظام يقوم بمزج هذه الالوان لينتج لنا لون معين
فمثلا اذا كان الR = 0 و ال B = 0 وال G = 0 ...
سيكون شكل الكود كالتالي
RGB(0,0,0) ' this is black color
فالنتيجة هي لون اسود . لانها الالوان الثلاثة قيمها صفر اي لا لون .
ماهي الارقام اللممكنة ادخالها في هذا النظام ؟
للR وال G وال B لها نفس الحدود من 0 الى 255
فمثلا اذا كان الR = 255 و ال B = 255 وال G = 255...
سيكون شكل الكود كالتالي
RGB(255,255,255) ' this is white color
فالنتيجة هي لون ابيض لان الالوان الثلاثة جميعا 255
جرب تغير هذه القيم وانظر الى اللون الناتج
والان كيف سنتحكم بلون الخط ؟
Form1.ForeColor = RGB(0,0,0) ' control the color
___________________________________________________
___________________________________________________
* ترتيب اكواد اضهار الخط :
اولاً / ذكر خصائص الخط اللون العرض ..الخ
ثانياً/ اضهار النافذة بالامر Form1.show
ثالثا/ الامر Line
التطبيق (3-1) :
مثال لذلك :
Private Sub Form_Load()
Form1.DrawWidth = 4
Form1.ForeColor = RGB(200, 100, 100)
Form1.Show
Line (0, 0)-(1000, 1000)
End Sub
سأرفق ملفا لهذا المثال البسيط ..
هذه مقدمه لهذا الدرس
وسأكمل بقية الدرس في أقرب وقت ممكن