كيفية تحريك الاشياء فى بيئة فجوال بيسك

    • كيفية تحريك الاشياء فى بيئة فجوال بيسك

      بسم الله الرحمن الرحيم
      **********************
      أخى المسلم اختى المسلمة السلام عليكم ورحمة اللة وبركاتة....

      سوف نقوم بشرح كيفية تحريك الاشياء فى بيئة (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- اذا اردنا تحريكة ناحية اليمين فيكون الكود على النحو التالى

      كود المصدر

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



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

      كود المصدر

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


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

      كود المصدر

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



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

      كود المصدر

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



      ارجو ان يكون الدرس مفيدا واتمنى لكم التوفيق واتمنى الا اكون قد اثقلت عليكم

      والسلام عليكم ورحمة الله وبركاتة

      [line]
      الموضوع منقول للفائدة

    • اسعد يوم فى حياتى يوم عثورى على هذا الموقع وهذه الساحة و على مشرف لساحة البرمجة لايتوانى عن تقديم كل ما هو رائع ومفيد كالاخ الريامى أفادنا الله من علمه جعل مجهوده هذا فى ميزان حسناته
      لك كل التحية والشكر وبانتظار المزيد

    • مشكور أخوي على المعلومة لكن إذا سمحت لي أحب أقدم هذه الطرقة الاخرى و أنمنى تكون مفيده

      Private Sub Form_Load()
      Form1.ScaleMode = 3
      Timer1.Interval = 100
      End Sub

      Private Sub Timer1_Timer()
      A = A + 10
      Label1.Left = A
      If A > 530 Then
      Timer1.Interval = 0
      Timer2.Interval = 100
      End If
      End Sub

      Private Sub Timer2_Timer()
      A = A - 10
      Label1.Left = A
      If A < 0 Then
      Timer1.Interval = 100
      Timer2.Interval = 0
      End If
      End Sub
      الموضوع منقول

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