Search the web
Sign In
New User? Sign Up
abo_elarbi · مجموعة ابو العربي
? Already a member? Sign in to Yahoo!

Yahoo! Groups Tips

Did you know...
Hear how Yahoo! Groups has changed the lives of others. Take me there.

Best of Y! Groups

   Check them out and nominate your group.
Having problems with message search? Fill out this form to ensure your group is one of the first to be migrated to the new message search system.

Messages

  Messages Help
Advanced
الدرس الحادي عشر   Message List  
Reply | Forward Message #722 of 738 |
 

الدرس الحادي عشر:الجزء الأول

الوســــائل(Methods)


سبق أن تعرفنا من قبل على الكائن وما يتميز به من وسائل تتمثل في سلوكه والنموذج من الكائنات الرئيسية في الفيجوال بيسك الذي سنتعرض لبعض وسائله ،وقبل أن نتعرض لها نوضح صورة استخدام وسيلة الكائن عند كتابة تعليمات الاجراء الخاص به.



صورة كتابة وسيلة كائن معين


عند كتابة وسيلة أي كائن(Object) في نافذة البرمجة،تستخدم الصورة الاتية

Object Name.Method
اسم الكائن.الوسيلة

حيث يتم الفصل بين اسم الكائن والوسيلة بنقطة "." ولا يترك بينهما اي مسافة
ومن الوسائل المستخدمة مع النموذج ما يلي

1- وسيلة CLS

يمكن استخدام هذه الوسيلة بغرض مسح الكتابة والرسومات الموجودة داخل نافذة النموذج،ولكنها لا تمسح الكائنات المرسومة داخل النموذج


مثال:لمسح نافذة النموذج Form1 من الكتابة والرسومات الموجودة بداخله نستخدم
Form1.CLS


اما إذا كان الكائن الحالي المستخدم هو النموذج Form1 ، فيمكنك كتابة الوسيلة فقط بدون كتابة اسم الكائن كالاتي: CLS

حيث:توجد بعض الوسائل التي يمكن استخدامها مع اكثر من كائن

2-وسيلة Print

يمكن استخدام هذه الوسيلة مع نافذة النموذج بغرض اظهار الاتي عليها
أ-رسالة نصية على أن تكتب بين علامتي تنصيص
ب-قيمة عددية
جـ -ناتج عملية حسابية
د-سطر فارغ داخل نافذة النموذج
هـ-قيمة أي مخزن سواء كان ثابتا أو متغيرا

الفصل بين المخرجات

يمكن استخدام الوسيلة Print لإظهار القيم الثابتة أو المتغيرات داخل نافذة النموذج على ان يفصل بينها بالعلامات الاتية

*الفاصلة المنقوطة(;) (Semi Colon) تظهر القيم متجاورة ولا تترك أي مسافة بينها

*الفاصلة(Comma ,) تظهر القيم في مناطق متجاورة متباعدة



مثال عملي
افتح البرنامج
اضغط على زر F7 لاظهار نافذة البرمجة
الان اكتب التعليمات الاتية
ملاحظة:لا تنسى تغير الإجراء من Load إلى Activate


بعد الانتهاء من كتابة تلك التعليمات اخرج من نافذة البرمجة واضغط F5

تظهر لك المخرجات داخل نافذة النموذج بالشكل الاتي


3-وسيلة Line

تستخدم هذه الوسيلة مع النموذج للأغراض التالية

أ-رسم خط بلون معين يصل بين إحداثي النقطتين(X1,Y1) و (X2,Y2) والصورة العامة لها
(Line (X1,Y1)-(X2,Y2),QBColor(n

تمثل قيم(X1,Y1) البعدين الأفقي والرأسي لنقطة البداية.
تكثل قيم(X2,Y2) البعدين الأفقي والرأسي لنقطة النهاية.

ويبدأ البعد الأفقي من أقصى اليسار من نافذة النموذج..والبعد الراسي من شريط عنوان نافذة النموذج

تمثل(n) مخزن لعدد صحيح يتراوح بين 0 و 15 وهي تمثل رقم اللون.

اما اذا لم تكتب دالة QBColor فسيظهر اللون أسود.

والان لنر تدريبا عمليا على رسم الخطوط.
1- إفتح البرنامج ثم افتح نافذة البرمجة(F7)
2- والان اكتب الاتي

ولا تنس التغيير من load إلى Activate

3-بعد الإنتهاء اضغط على(F5) لتظهر لك المخرجات داخل نافذة النموذج


ملاحظة:يمكن تغيير لون الخط بتغيير الرقم السابق ذكره

ب-تستخدم ايضا وسيلة Line لرسم مستطيل أو مربع الصيغة العامة لها كما في الصيغة السابقة مع اضافة حرف B اي كالاتي
Line(X1,Y1)-(X2,Y2),QBColor(n),B

وتكون الاحداثيات(X1,Y1) و (X2,Y2) احداثي نقطتين لرأسين متقابلين من المستطيل (أعلى اليسار وأسفل اليمين-أسفل اليسار وأعلى اليمين)

ويكتب الحرف B مع هذه الصورة وهو يعني أن الرسمة المطلوبة مستطيل وليس خطا

جـ-رسم مستطيل مظلل بلون معين والصورة العامة له هي نفس الصورة العامة للخط مع اضافة BF بعد دالة QBColor وكما ذكرنا سابقا حرف B معناه أن الرسمة مستطيل أما F فمعناها أن المستطيل مظلل برقم اللون المذكور(n).


4-وسيلة Circle
تستخدم هذه الوسيلة مع نافذة النموذج لرسم دائرة.والصورة العامة لها
(Circle(X,Y),R,QBColor(n

احداثي النقطة(X,Y) يمثل مركز الدائرة
تمثل R نصف قطر الدائرة وهي قد تكون مخزنا عدديا أو قيمة عددية.
تمثلn فهي رقم اللون المرسوم به محيط الدائرة
 
 
 
 
 
 
 


With my best wishes
 
Dr. Mona


Get your own web address.
Have a HUGE year through Yahoo! Small Business.

Thu Mar 29, 2007 2:21 pm

mona25_2010
Offline Offline
Send Email Send Email

Forward
Message #722 of 738 |
Expand Messages Author Sort by Date

الدرس الحادي عشر:الجزء الأول الوســــائل(Methods) سبق أن تعرفنا من قبل على الكائن وما يتميز...
Dr. Mona
mona25_2010
Offline Send Email
Mar 29, 2007
2:24 pm
Advanced

Copyright © 2009 Yahoo! Inc. All rights reserved.
Privacy Policy - Terms of Service - Guidelines - Help