منتديات مدرسة معاوية أ
 
الرئيسيةس .و .جالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
عبدالله عبيد
طالب فعال
طالب فعال
avatar

عدد الرسائل : 264
العمر : 26
تاريخ التسجيل : 02/04/2008

مُساهمةموضوع: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الثلاثاء 8 أبريل 2008 - 21:15

الدرس الخامس
البرنامج الأول


بالطبع سوف نقوم من الآن بعمل بعض البرامج التي تتدرج في صعوبتها. دعنا نبدأ بالبرنامج الأول.

فكرة البرنامج: يقوم هذا البرنامج بإظهار صورة معينة عند الضغط على زر إظهار، و يقوم بإخفاءها عند الضغط على زر إخفاء.

تصميم البرنامج:
Image - صورة
زرين
CommandButton1 + CommandButton2

ثم نقوم بعمل التعديلات الضرورية عن طريق تغيير الخصائص:
1. خصائص الForm:
قم بالنقر مرة واحدة على الفورم:
1. BorderStyle : 1-Fixed Single
2. Caption : البرنامج الأول
3. StartUpPosition : 2-CenterScreen


2. خصائص الImage1:
1. Picture : الصورة المراد استخدامها


3. خصائص الCommand1:
1. Caption : إظهار

أما الآن نصل إلى المرحلة الختامية، و هي كتابة الكود:
انقر على زر الإظهار مرتين و اكتب الكود التالي:

Private Sub Command1_Click()
Image1.Visible = True
End Sub

ثم انقر على زر الإخفاء مرتين و اكتب الكود التالي:

Private Sub Command2_Click()
Image1.Visible = False
End Sub

قم الآن بتجريب البرنامج عن طريق الضغط على زر F5 أو من قائمة Run اختر Start أو عن طريق الضغط على زر التشغيل في الشريط الموجود في الأعلى، و جرب البرنامج.

و بذلك تكون قد حصلت على برنامج، و لكن هذا البرنامج لا يعمل إلا في بيئة الفيجوال بيسك، فكيف يمكن أن نجعله يعمل دون الحاجة لفيجوال بيسك؟
من قائمة File اختر Make Project1.exe و اضغط زر Ok.

مبروك،، لقد حصلت على برنامج، تابع معنا إلى الدرس السادس لعمل برنامج جديد.
_____________________________________________
الدرس السادس
البرنامج الثاني

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

قد تبدو لك الفكرة معقدة و صعبة بعض الشيء، و لكن الآن سوف نرى كيف يمكن عمل هذا البرنامج.

قم بالنقر على كلمة Forms الموجودة بواسطة زر الفأرة الأيمن، ثم ضع المؤشر على كلمة Add ثم اختر الشيئ الذي تريد إضافته، طبعا في هذا المثال نحتاج لفورم ثاني، إذا قم باختيار Form ثم يظهر لك الفورم الثاني، إذا تمت العملية بنجاح،، أما الآن، فنحتاج لوضع الأدوات من القائمة على اليسار، إذا دعنا نفكر بالأدوات التي نحتاجها.

الفورم الأول
سوف نقوم بسؤال المستخدم عن اسم المستخدم و كلمة المرور، إذا سوف نحتاج لLabel طبعا اثنتين، كما أننا سنحتاج لمربعي نص TextBox، كما أننا نحتاج لزر لكي يقوم المستخدم بالمرور للفورم الثاني، و زر آخر إذا رغب المستخدم في الخروج دون إدخال أي معلومات.

تغيير الخصائص تم شرحه في دروس سابقة، لكن يجب أن تعرف بأن: اسم المستخدم هي Label1
كلمة المرور هي Label2
و الفراغ تحت اسم المستخدم هو Text1
و الفراغ تحت كلمة المرور هو Text2
و زر الدخول هو Command1
أما زر الخروج فهو Command2

هنالك شيء مهم في الخصائص لText2، فبما أنها تحتوي على فراغ لكتابة كلمة المرور، إذا لا بد من جعلها حروف غير واضحة، إذا قم بوضع إشارة * عند الخاصية PasswordChar التي شرحناها سابقا.

أما الآن نصل إلى البرمجة، يجب أن تكون بالشكل التالي:
* ملاحظة هامة: في هذا البرنامج اسم المستخدم هو Visual و كلمة المرور هي Basic
* ملاحظة 2 : هنالك فرق بين الحروف الكبيرة و الصغيرة.

Private Sub Command1_Click()
If Text1.Text = "Visual" And Text2.Text = "Basic" Then
Unload Form1
Load Form2
Form2.Show
Else
d = MsgBox("هنالك خطأ في اسم المستخدم أو في كلمة المرور، هل ترغب بإعادة المحاولة؟", vbCritical + vbYesNo, "تنبيه")
Select Case d
Case vbNo
End
End Select
End If
End Sub


Private Sub Command2_Click()
End
End Sub


أما الآن فتبقى علينا تصميم و برمجة الفورم الثاني.
قم بوضع المؤقت أو الTimer في أي مكان على الفورم لأنه لن يظهر للمستخدم، ثم قم بإضافة صورة أو Image ترحب من خلالها بالمستخدم، ثم ضع اثنتان من Label الأولى لطباعة الوقت (Label1) و الثانية لطباعة التاريخ (Label2)
تماما كما في الشكل التالي:
* ملاحظة : اترك Label1 و Label2 كما هي و لا تغير ما هو مكتوب بداخلهما.
* ملاحظة هامة : قم بتغيير خاصية Interval لTimer وضع قيمتها 1000 لعمل الزيادة كل ثانية.


أما الآن نكتب الجمل البسيطة التالية في الكود. طبعا بعد النقر على الTimer مرتين بالفأرة، لأن الكود يجب أن يكون داخله.

Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
End Sub


استمتع الآن ببرنامجك و لا تنسى بأنه يمكنك عمله مشروع تنفيذي أي .exe
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
أبو الرعد
طالب فعال
طالب فعال
avatar

عدد الرسائل : 516
العمر : 26
تاريخ التسجيل : 02/04/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الأربعاء 9 أبريل 2008 - 11:56

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

عدد الرسائل : 865
العمر : 25
تاريخ التسجيل : 01/04/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الجمعة 11 أبريل 2008 - 16:13

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

عدد الرسائل : 252
العمر : 26
تاريخ التسجيل : 31/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   السبت 12 أبريل 2008 - 13:22

شكرا كتير الك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
_-_-AS_-_-
طالب نشيط
طالب نشيط
avatar

عدد الرسائل : 158
العمر : 25
تاريخ التسجيل : 08/04/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الخميس 17 أبريل 2008 - 17:37

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


عدد الرسائل : 648
العمر : 26
تاريخ التسجيل : 30/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الخميس 17 أبريل 2008 - 18:07

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


عدد الرسائل : 648
العمر : 26
تاريخ التسجيل : 30/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الخميس 17 أبريل 2008 - 18:07

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


عدد الرسائل : 648
العمر : 26
تاريخ التسجيل : 30/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الخميس 17 أبريل 2008 - 18:08

بجد المعلومات حلوة كتير
وللى ما فهم من الاستاز بيفهم هان
شكرا كتير كتير الكـ
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
أ-عبدالله أبوعيطة
Admin
avatar

عدد الرسائل : 279
تاريخ التسجيل : 25/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الخميس 17 أبريل 2008 - 21:36

يعطيك العافية عزيزي // عبدالله عبيد

على مشاركتك الطيبة

_________________
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://mo3aweya.mam9.com
محمود
طالب فعال
طالب فعال


عدد الرسائل : 648
العمر : 26
تاريخ التسجيل : 30/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الجمعة 18 أبريل 2008 - 21:03

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


عدد الرسائل : 648
العمر : 26
تاريخ التسجيل : 30/03/2008

مُساهمةموضوع: رد: دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)   الجمعة 18 أبريل 2008 - 21:04

يعطيكـ العافية
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
دروس تعليم الفيجوال بيسك ( الدرس الخامس والسادس)
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
( منتدى مدرسة معاوية ) :: قسم الدروس :: الدروس التعليمية-
انتقل الى: