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

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

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

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

تصميم البرنامج:
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

مشكور عبد الله عبيد على الموضوع الجميل
مع تحيات الفهد الاسود

شكرا كتير الك

مشكور عبدالله على الموضوع
مع تحيات أبو العبد

مشكور اخ عبدالله

يعطيكـ الف عافية

بجد المعلومات حلوة كتير
وللى ما فهم من الاستاز بيفهم هان
شكرا كتير كتير الكـ

مشكور استاز على كلامكت الحلو

يعطيكـ العافية