الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

شرح كيفية تحريك الاشياء فى بيئة (visual basic).

مغلق
بدأه el day el 13 في 28 أبريل 2007 · 6 رد · 823 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

شرح كيفية تحريك الاشياء فى بيئة (visual basic).

شرح كيفية تحريك الاشياء فى بيئة (visual basic).

*أولا يجب أن نعرف بعض من الاشياء التى يمكن تحريكهاوهى:

ا- *label* وهو عبارة عن ورقة تخيلية طبعا مرئية بواسطة الاساس المرئى او الـ (visual basic)

نستطيع الكتابة عليها لتوضيح وظيفة معينة.

ب- *image* وهى عبارة عن صورة يمكننا الفجوال بيسك من اضافتها للبرامج المصممة عن طريقة وتظهر

بشكل مستوى على الفورم اى كأنها مرسومة على الفورم.

ج- *picture* وهى ايضا صورة وهى تماما مثل السابقة الا انها تختلف عنها فى طريقة او شكل اظهار

الفجوال بيسك لها حيث تكون مغمورة داخل الفورم.

د- *button* وهذة الاداة نراها كثيرا حيث لا غنى عنها فى اى برنامج حتى ان نظام الويندوز قائم

عليها وهى الزر.

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

** وللاختصار اليكم طريقة التحريك.

1- نقوم بفتح البرنامج ونختار (form.exe) فستظهر لنا واجهة المشروع او الويندو او الفورم

2- نختار الاداة التى نريد تحريكها من شريط الادوات او الـ (toolbox) ولتكن (label)

3- بعد اضافة بواسطة النفر عليا بالزر الايسر بالموس مرتين الاداة وضبط مساحتها نلاحظ ان تلك الاداة مكتوب

عليها (label1) وهذا اذا كانت اول مرة تضاف الى الفورم ومعنى هذا انة اذا تم اضافتها مرة اخرى الى

الفورم فسنجدها مكتوب عليها نفسها (label2) وهكذا ولتغيير او لكتابة اى شئ على هذة الاداة نقوم

بالذهاب الى قائمة الخصائص او الـ (properties) وهى موجودة على يمين الصفحة ونختار منها الخاصية

(caption) ونكتب الاسم او الجمل التى نريد كتابتها بداخل الخانة الموجودة امام خانة الـ (caption)

4- ولتحريك اى شئ فى بيئة الفيجوال بيسك لا بد من اختيار الاداة المسؤلة غن ذلك وهى الـ (timer)

ونقوم بإضافتها من الـ (toolbox) وعندأضافتها فستظهر ان شاء الله قائمة خصائص التوقيت فى الجهة اليمنى

مكان خصائص الفورم واذا قمنا بالضغط على اى مكان من سطح الفورم فستظهر خصائص الفورم مرة اخرى

ولكن لا تفعل ذلك قبل ان نكتب بعض الاشياء بداخل خصائص التوقيت الا وهى القيمة التى سنضيفها فى مربع

الخاصية التى تسمى (interval) وتكتب هذة القيمة بالمربع الموجود امام هذة الخاصية ولتكن هذة القيمة

(40) وتعبر هذة القيمة عن عدد حجم الخطوة التى يقطعها الـ (label)

5- وبعد كتابة هذة القيمة نذهب الى قائمة الاوامر لكتابة الكود الخاص بالحركة ويكون بداخل الجزء الخاص

بالـ (timer) كما يلى:

1- اذا اردنا تحريكة ناحية اليمين فيكون الكود على النحو التالى


Label1.Left = Label1.Left + 40
End Sub
Private Sub Timer1_Timer()

2- اذا اردنا تحريكة ناحية اليسارفيكون الكود على النحو التالى


Label1.Left = Label1.Left - 40
End Sub
Private Sub Timer1_Timer()

3- اذا اردنا تحريكة الى اعلى فيكون الكود على النحو التالى


Label1.Top = Label1.Top - 40
End Sub
Private Sub Timer1_Timer()

4- اذا اردنا تحريكة الى اسفل فيكون الكود على النحو التالى


Label1.Top = Label1.Top + 40
End Sub
Private Sub Timer1_Timer()

تم تعديل هذه المشاركة بواسطة el day el 13 في 28 أبريل 2007 في 20:12

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#2

ايه يا جماعه المشاهدات عدد كويس

مفيش حد عجبه الموضوع ولا ايه

امسحه يعني :lol:

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#3

عدم الرد لا يعني ابدا ان الموضوع غير جيد .

موضوع ممتاز وتشكر عليه

تحياتي لك .

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#4

الله يكرمك اخي عماني

احنا هنبقى اصدقاء اكيد

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#5

شكراً أخي العزيز , بس إذا مثلاً كان عرض الفورم = 5000 واللابل المتحرك تعدى هذه القيمة فماذا سيحصل , يجب كتابة :

if lbl1.left = 5000 Then exit Sub

أو

If lbl1.left = 5000 Then timer1.enabled = False

عدا ذلك فالموضوع رائع , وملاحظة , وهي إن التركيب FOR سيعمل بسرعة كبيرة ولن تلاحظ الحركة تقريباً لذا أرجو تجنبه

علاء VB

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#6

الله يباركل يا صديقي

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

#7

UP

لن اوفي ابدا ما قدمه لي هذا المنتدى

سامر

هذا الموضوع مغلق.

مواضيع مشابهة