m_5_6_1987
28-08-2002, 02:38 PM
.اولا ارجو تثبيت الموضوع.....
يمكنك الاستفادة منه خاصة عند تصميم برامج قواعد البيانات قبل أن ابدأ فى شرح هذا البرنامج اوجه نظركم إلى أن هذا البرنامج صمم فقط لنتعلم منه كيف ندخل على برامجنا واجهة تطالب المستخدم بإدخال كلمة مرور (password). ولذا عليك أن تفهم وتستوعب هذا البرنامج ثم تبدأ فى تطبيقه على برامجك .
أهداف البرنامج
يهدف هذا البرنامج الي تعريف المبرمج على :
التدريب والتطبيق على أوامر البرمجة فى مشروع متكامل .
التعرف على كيفية إنشاء وحفظ الملفات باستخدام الأوامر أو الكود .
تطبيق على فتح ملف كقاعدة بيانات والتخزين بداخله وقراءة محتوياته .
تغيير لون خلفية(Backcolor) أداة الأوامر(CommandButton) .
تعريف المبرمج كيف يستطيع إظهار رسالة(Message Box) الي مستخدم البرنامج .
جعل البرنامج يبدأ بنموذج(Form) معين بدون التقيد بأسبقية إنشاء النماذج .(Forms)
تعريف المبرمج كيف يحدد لأداة النص(TextBox) عددا معينا من الحروف يمكن كتابته بداخلها .
جعل الحروف داخل أداة النص(TextBox) تظهر كرمز (*) .
إنشأ ملف تشغيل (File Exe) للمشروع .
تحديد شكل ملف التشغيل(File Exe) .
خطوات تنفيذ البرنامج
تنقسم مراحل إنشاء البرنامج إلى ثلاثة مراحل :
المرحلة الأولى : تصميم نماذج البرنامج وإدراج الأدوات عليها .
المرحلة الثانية : ضبط خصائص الأدوات .
المرحلة الثالثة : كتابة الكود الخاص بكل نموذج .
أولا : ( تصميم نماذج البرنامجForms وإدراج الأدوات )
وهذا البرنامج يتكون من ثلاث نماذج
تصميم النموذج الأول :
ابدأ مشروعا جديدا كما يلى :
1 من قائمةStart\Programs اختر Microsoft Visual Studio 6.0 ومنها اختر Microsoft Visual Basic 6.0
2, حدد النوع(Standard.exe) ثم انقر زر(Open) .
3 تجد أنه تم إدراج نموذج(Form1) إلى مشروعك .
قم بإدراج أداة عنوان(Label) وأداتي زر أوامر(CommandButton) تصميم النموذج الثانى :
لإدراج نموذج ثان (Form2 ) إلى مشروعك اتبع الخطوات التالية :
1 من القائمة(Project) أنقر على(Add Form)) .
2 تظهر لك الواجهة حدد (Form) ثم أنقر زر(Open) .
3 تجد أنه تم إدراج نموذج(Form2) جديد إلى مشروعك .
قم بإدراج أداة نص(TextBox) وأداتي زر أوامر (CommandButton) وأداة عنوان (Label) .
تصميم النموذج الثالث :
لإدراج نموذج ثالث (Form3)إلى مشروعك اتبع الخطوات السابقة كما هو موضح بالشكلين ( 2 ) و ( 3 ) فتجد أنة تم إدراج نموذج ثالث(Form3) لمشروعك .
قم بإدراج ثلاث أدوات نص(TextBox)وثلاث أدوات عنوان(Label) وأربع أدوات زر أوامر (CommandButton) على النموذج الثالث .
الآن نكون قد انتهينا من تجهيز نماذج البرنامج وإدراج الأدوات عليها .. وعليك الآن حفظ هذا المشروع بإسم(Password) .
ثانيا : ( ضبط خصائص الأدوات )
لابد من ملاحظة أنه قبل أن نبدأ فى ضبط خصائص الأدوات التى تم إدراجها على النماذج يجب أن نلفت نظركم إلى أن الخصائص التى لم نذكر قيمتها فإننا نتركها كما هى بقيمها الافتراضية
ضبط خصائص أدوات النموذج الأول :
اضبط قيم خصائص النموذج الأول ( 1 )
أما بالنسبة للخاصية(Icon) فانقر عليها فتفتح لك صندوق حوار(Load Icon) ومنه حدد الأيقونة التى ترغب فى تغيير شكل ملف التشغيل(File Exe) إليها , فتجد أن فى المجلد الفرعى الذى يحتوى على البرنامج أيقونة باسم(Password.ico) .
بعد ضبط خصائص أدوات النموذج الأول(Form1)
ضبط خصائص أدوات النموذج الثانى :
اضبط قيم خصائص النموذج الثانى
بعد ضبط خصائص أدوات النموذج الثانى(Form2)
ضبط خصائص أدوات النموذج الثالث :
اضبط قيم خصائص النموذج الثالث .
أما بالنسبة للخاصية(Icon) فانقر عليها فتفتح لك صندوق حوار (Load Icon) ومنه حدد الأيقونة التى ترغب فى تغيير شكل ملف التشغيل(File Exe) إليها , فتجد فى المجلد الفرعى الذى يحتوى على البرنامج أيقونة باسم(Password.ico) .
بعد ضبط خصائص أدوات النموذج الثالث(Form3)
الآن نكون قد انتهينا من المرحلة الثانية وهى ضبط خصائص النماذج والأدوات للبرنامج وعند تشغيل البرنامج نجد أنه يبدأ بالنموذج الأول(Form1) حسب أسبقية إنشاء النماذج(Forms) ولكننا نرغب فى هذا البرنامج أن نجعل البرنامج يبدأ العمل بالنموذج الثانى ولتنفيذ ذلك نتبع الخطوات التالية :
1 من القائمة(Project) انقر الخيار (Project properties...)
2 يظهر لك صندوق حوار(Project properties) .
3 من القائمة المنسدلة(Startup object :) اختر النموذج الثانى(Form2) ثم أنقر زر(Ok) .
4 بعد الانتهاء من الخطوات السابقة وعند تشغيل البرنامج نجد أنه يبدأ بالنموذج الثانى(Form2) وليس الأول .
الآن نكون قد انتهينا من تصميم نماذج البرنامج وضبط الخصائص الخاصة بالأدوات التى تم إدراجها عليها. ويبقى لنا الآن الخطوة الثالثة والأخيرة وهى كتابة الكود ( الأوامر ) الخاص بكل نموذج وهذا الكود مع سهولته إلا أنه يعتمد على فتح الملفات وقراءة ما بداخلها من بيانات(Data) . ولذلك ننصحك بقراءة هذا البرنامج والتدريب عليه جيدا قبل أن تبدأ فى تنفيذه داخل برامجك وذلك تجنبا لحدوث أخطاء فى البرنامج مما يهدد بضياع وفقدان الملفات .
--------------------------------------------------------------------------------
المرحلة الثالثة ( كتابة الكود الخاص بكل نموذج )
كتابة الكود الخاص بالنموذج الأول :
داخل الإجراءClick للأداةCommand1 أكتب الكود التالى
Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء:
السطر الأول يؤدى إلى ظهور النموذج الثالث(Form3) لأن المستخدم يطلب من البرنامج ظهور النموذج الخاص بتغيير كلمة السر وهو النموذج الثالث (Form3) .
السطر الثاني يؤدى إلى إزالة النموذج الأول من الذاكرة وبالتالي يؤدى إلى إخفائه .
داخل الإجراءClick للأداةCommand2 أكتب الكود التالى
Private Sub Command2_Click()
Beep
End
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء
السطر الأول يؤدى إلى خروج صوت موسيقى باستخدام الأمرBeep
السطر الثاني يؤدى إلى إنهاء البرنامج باستخدام الأمرEnd
كتابة الكود الخاص بالنموذج الثانى :
مع إن هذا النموذج هو رقم ( 2 ) من حيث الترتيب وأسبقية الإنشاء إلا إننا جعلناه يبدأ أولا وجعلنا البرنامج يفتح عليه أولا بدلا من النموذج الأول (Form1) .
داخل قسم المتغيرات العامة (General) يتم تعريف المتغير التالىDim p والذي سوف يتم تخزين كلمة السر بداخله .
داخل الإجراءLoad للنموذج الثانيForm2 اكتب الكود التالي :
Private Sub Form_Load()
On Error GoTo er1:
Open "c:\windows\pw" For Input As #1
Input #1, p
Close #1
If p = "" Then GoTo er1:
Exit Sub
er1:
Form1.Show
Unload Me
End Sub
وفيما يلى شرح ذلك الإجراء:
السطر الأول(On Error GoTo er1:) هذا الشرط ينفذ فى حالة حدوث خطأ حيث يؤدى إلى الانتقال مباشرة إلى العنوان(er1:) وسوف نشرح هذا العنوان بعد قليل , والخطأ هنا هو عدم وجود الملف(pw) الذي يخزن بداخله كلمة السر التى يكتبها المستخدم. والمفترض فى البرنامج أن هذا الملف لم يتم إنشاؤه حتى الآن حيث يتم تشغيل البرنامج لأول مرة .
السطر الثاني(Open "c:\windows\pw" For Input As #1) هذا الأمر يؤدى إلى فتح الملف(pw) من المجلد الفرعي(Windows) وذلك فى حالة وجوده فى حالة تسجيل كلمة سر للبرنامج وهو ما سيأتي شرحه فى أوامر النموذج الثالث(Form3) .
السطر الثالث(Input #1, p) يتم إسناد القيمة المسجلة داخل الملف (pw) إلى المتغير (p) الذى سبق تعريفه فى قسم المتغيرات العامة .
السطر الرابع(Close #1) يؤدي إلى إغلاق الملف رقم (#1) من حيث الترتيب فى فتح الملفات وهو الملف(pw) .
السطر الخامس(If p = "" Then GoTo er1:) هذا شرط يتم تنفيذه فى حالة وجود الملف(pw) ولكنه يكون خاليا أى أن القيمة المسجلة بداخله التى تم إسنادها للمتغير(p) تساوى "" وتنفيذ هذا الشرط يؤدى إلى الانتقال إلى العنوان (er1:)وسوف يأتى شرحه بعد قليل .
السطر السابع(Exit Sub) يؤدى هذا الأمر إلى الخروج من الإجراء وعدم تنفيذ باقي أوامر الإجراء, ونرغب فى ذلك عندما يكون هناك كلمة سر أى أن المتغير(p) يحمل قيمة معينة ولذلك نطلب من البرنامج الخروج من الإجراء قبل الوصول إلى العنوان(er1:) .
السطر الثامن يعلن عن العنوان(er1:) الذي ينتقل البرنامج إليه فى حالتين هما :
1 عدم وجود الملف (pw ) .
2 وجود الملف(pw) ولكنة خال.
وفيما يلى أوامر ذلك العنوان :
السطر التاسع(Form1.Show) وهذا الأمر يؤدى إلى ظهور النموذج الأول الذى يعتبر النموذج الرئيسى فى البرنامج .
السطر العاشر(Unload Me) يؤدى هذا الأمر إلى إزالة النموذج الثانى من الذاكرة .
داخل الإجراءClick للأداةCommand2 اكتب الكود التالى
Private Sub Command2_Click()
Beep
End
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء
السطر الأول يؤدى إلى خروج صوت موسيقى باستخدام الأمرBeep
السطر الثاني يؤدى إلى إنهاء البرنامج باستخدام الأمرEnd
داخل الإجراءClick للأداةCommand1 اكتب الكود التالى
Private Sub Command1_Click()
If p <> Text1.Text Then
ms = MsgBox" ) من فضلك ادخل كلمة السر مرة أخرى"16, " خطأ فى كلمة السر)
Text1.Text =""
End If
If p = Text1.Text Then
Form1.Show
Unload Me
End If
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء:
السطر الأول(If p <> Text1.Text Then) عبارة عن شرط حيث يتم اختبار القيمة التى أدخلها المستخدم للبرنامج داخل الأداة(Text1) , فإذا كانت غير مساوية للقيمة المسجلة داخل الملف(pw) التى تم تخزينها داخل المتغير(P) فإنه تم تنفيذ الأوامر التالية:
1 السطر الثانى عبارة عن رسالة تخبر المستخدم أن كلمة السر التى أدخلها خطأ وعليه إعادة كتابة كلمة السر مرة أخرى .
2 السطر الثالث يؤدى إلى مسح أداة النص(Text1) لكى يدخل المستخدم كلمة السر مرة أخرى .
3 السطر الرابع(End If) عبارة عن إنهاء للشرط .
السطر الخامس (If p = Text1.Text Then) عبارة عن شرط حيث يتم اختبار القيمة التى أدخلها المستخدم للبرنامج داخل الأداة(Text1) , فإذا كانت مساوية للقيمة المسجلة داخل الملف(pw) التى تم تخزينها داخل المتغير (P) فإنه تم تنفيذ الأوامر التالية :
1 السطر السادس(Form1.Show) يؤدى إلى ظهور النموذج الأول الذى يعتبر النموذج الرئيسى للبرنامج. ويحدث ذلك إذا كانت كلمة السر التى أدخلها المستخدم مطابقة لكلمة السر التى سبق تخزينها داخل الملف(pw) .
2 السطر السابع(Unload Me) يؤدى هذا الأمر إلى إزالة النموذج الثانى من الذاكرة .
3 السطر الثامن(End If) هذا الامر هو نهاية الشرط .
يمكنك الاستفادة منه خاصة عند تصميم برامج قواعد البيانات قبل أن ابدأ فى شرح هذا البرنامج اوجه نظركم إلى أن هذا البرنامج صمم فقط لنتعلم منه كيف ندخل على برامجنا واجهة تطالب المستخدم بإدخال كلمة مرور (password). ولذا عليك أن تفهم وتستوعب هذا البرنامج ثم تبدأ فى تطبيقه على برامجك .
أهداف البرنامج
يهدف هذا البرنامج الي تعريف المبرمج على :
التدريب والتطبيق على أوامر البرمجة فى مشروع متكامل .
التعرف على كيفية إنشاء وحفظ الملفات باستخدام الأوامر أو الكود .
تطبيق على فتح ملف كقاعدة بيانات والتخزين بداخله وقراءة محتوياته .
تغيير لون خلفية(Backcolor) أداة الأوامر(CommandButton) .
تعريف المبرمج كيف يستطيع إظهار رسالة(Message Box) الي مستخدم البرنامج .
جعل البرنامج يبدأ بنموذج(Form) معين بدون التقيد بأسبقية إنشاء النماذج .(Forms)
تعريف المبرمج كيف يحدد لأداة النص(TextBox) عددا معينا من الحروف يمكن كتابته بداخلها .
جعل الحروف داخل أداة النص(TextBox) تظهر كرمز (*) .
إنشأ ملف تشغيل (File Exe) للمشروع .
تحديد شكل ملف التشغيل(File Exe) .
خطوات تنفيذ البرنامج
تنقسم مراحل إنشاء البرنامج إلى ثلاثة مراحل :
المرحلة الأولى : تصميم نماذج البرنامج وإدراج الأدوات عليها .
المرحلة الثانية : ضبط خصائص الأدوات .
المرحلة الثالثة : كتابة الكود الخاص بكل نموذج .
أولا : ( تصميم نماذج البرنامجForms وإدراج الأدوات )
وهذا البرنامج يتكون من ثلاث نماذج
تصميم النموذج الأول :
ابدأ مشروعا جديدا كما يلى :
1 من قائمةStart\Programs اختر Microsoft Visual Studio 6.0 ومنها اختر Microsoft Visual Basic 6.0
2, حدد النوع(Standard.exe) ثم انقر زر(Open) .
3 تجد أنه تم إدراج نموذج(Form1) إلى مشروعك .
قم بإدراج أداة عنوان(Label) وأداتي زر أوامر(CommandButton) تصميم النموذج الثانى :
لإدراج نموذج ثان (Form2 ) إلى مشروعك اتبع الخطوات التالية :
1 من القائمة(Project) أنقر على(Add Form)) .
2 تظهر لك الواجهة حدد (Form) ثم أنقر زر(Open) .
3 تجد أنه تم إدراج نموذج(Form2) جديد إلى مشروعك .
قم بإدراج أداة نص(TextBox) وأداتي زر أوامر (CommandButton) وأداة عنوان (Label) .
تصميم النموذج الثالث :
لإدراج نموذج ثالث (Form3)إلى مشروعك اتبع الخطوات السابقة كما هو موضح بالشكلين ( 2 ) و ( 3 ) فتجد أنة تم إدراج نموذج ثالث(Form3) لمشروعك .
قم بإدراج ثلاث أدوات نص(TextBox)وثلاث أدوات عنوان(Label) وأربع أدوات زر أوامر (CommandButton) على النموذج الثالث .
الآن نكون قد انتهينا من تجهيز نماذج البرنامج وإدراج الأدوات عليها .. وعليك الآن حفظ هذا المشروع بإسم(Password) .
ثانيا : ( ضبط خصائص الأدوات )
لابد من ملاحظة أنه قبل أن نبدأ فى ضبط خصائص الأدوات التى تم إدراجها على النماذج يجب أن نلفت نظركم إلى أن الخصائص التى لم نذكر قيمتها فإننا نتركها كما هى بقيمها الافتراضية
ضبط خصائص أدوات النموذج الأول :
اضبط قيم خصائص النموذج الأول ( 1 )
أما بالنسبة للخاصية(Icon) فانقر عليها فتفتح لك صندوق حوار(Load Icon) ومنه حدد الأيقونة التى ترغب فى تغيير شكل ملف التشغيل(File Exe) إليها , فتجد أن فى المجلد الفرعى الذى يحتوى على البرنامج أيقونة باسم(Password.ico) .
بعد ضبط خصائص أدوات النموذج الأول(Form1)
ضبط خصائص أدوات النموذج الثانى :
اضبط قيم خصائص النموذج الثانى
بعد ضبط خصائص أدوات النموذج الثانى(Form2)
ضبط خصائص أدوات النموذج الثالث :
اضبط قيم خصائص النموذج الثالث .
أما بالنسبة للخاصية(Icon) فانقر عليها فتفتح لك صندوق حوار (Load Icon) ومنه حدد الأيقونة التى ترغب فى تغيير شكل ملف التشغيل(File Exe) إليها , فتجد فى المجلد الفرعى الذى يحتوى على البرنامج أيقونة باسم(Password.ico) .
بعد ضبط خصائص أدوات النموذج الثالث(Form3)
الآن نكون قد انتهينا من المرحلة الثانية وهى ضبط خصائص النماذج والأدوات للبرنامج وعند تشغيل البرنامج نجد أنه يبدأ بالنموذج الأول(Form1) حسب أسبقية إنشاء النماذج(Forms) ولكننا نرغب فى هذا البرنامج أن نجعل البرنامج يبدأ العمل بالنموذج الثانى ولتنفيذ ذلك نتبع الخطوات التالية :
1 من القائمة(Project) انقر الخيار (Project properties...)
2 يظهر لك صندوق حوار(Project properties) .
3 من القائمة المنسدلة(Startup object :) اختر النموذج الثانى(Form2) ثم أنقر زر(Ok) .
4 بعد الانتهاء من الخطوات السابقة وعند تشغيل البرنامج نجد أنه يبدأ بالنموذج الثانى(Form2) وليس الأول .
الآن نكون قد انتهينا من تصميم نماذج البرنامج وضبط الخصائص الخاصة بالأدوات التى تم إدراجها عليها. ويبقى لنا الآن الخطوة الثالثة والأخيرة وهى كتابة الكود ( الأوامر ) الخاص بكل نموذج وهذا الكود مع سهولته إلا أنه يعتمد على فتح الملفات وقراءة ما بداخلها من بيانات(Data) . ولذلك ننصحك بقراءة هذا البرنامج والتدريب عليه جيدا قبل أن تبدأ فى تنفيذه داخل برامجك وذلك تجنبا لحدوث أخطاء فى البرنامج مما يهدد بضياع وفقدان الملفات .
--------------------------------------------------------------------------------
المرحلة الثالثة ( كتابة الكود الخاص بكل نموذج )
كتابة الكود الخاص بالنموذج الأول :
داخل الإجراءClick للأداةCommand1 أكتب الكود التالى
Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء:
السطر الأول يؤدى إلى ظهور النموذج الثالث(Form3) لأن المستخدم يطلب من البرنامج ظهور النموذج الخاص بتغيير كلمة السر وهو النموذج الثالث (Form3) .
السطر الثاني يؤدى إلى إزالة النموذج الأول من الذاكرة وبالتالي يؤدى إلى إخفائه .
داخل الإجراءClick للأداةCommand2 أكتب الكود التالى
Private Sub Command2_Click()
Beep
End
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء
السطر الأول يؤدى إلى خروج صوت موسيقى باستخدام الأمرBeep
السطر الثاني يؤدى إلى إنهاء البرنامج باستخدام الأمرEnd
كتابة الكود الخاص بالنموذج الثانى :
مع إن هذا النموذج هو رقم ( 2 ) من حيث الترتيب وأسبقية الإنشاء إلا إننا جعلناه يبدأ أولا وجعلنا البرنامج يفتح عليه أولا بدلا من النموذج الأول (Form1) .
داخل قسم المتغيرات العامة (General) يتم تعريف المتغير التالىDim p والذي سوف يتم تخزين كلمة السر بداخله .
داخل الإجراءLoad للنموذج الثانيForm2 اكتب الكود التالي :
Private Sub Form_Load()
On Error GoTo er1:
Open "c:\windows\pw" For Input As #1
Input #1, p
Close #1
If p = "" Then GoTo er1:
Exit Sub
er1:
Form1.Show
Unload Me
End Sub
وفيما يلى شرح ذلك الإجراء:
السطر الأول(On Error GoTo er1:) هذا الشرط ينفذ فى حالة حدوث خطأ حيث يؤدى إلى الانتقال مباشرة إلى العنوان(er1:) وسوف نشرح هذا العنوان بعد قليل , والخطأ هنا هو عدم وجود الملف(pw) الذي يخزن بداخله كلمة السر التى يكتبها المستخدم. والمفترض فى البرنامج أن هذا الملف لم يتم إنشاؤه حتى الآن حيث يتم تشغيل البرنامج لأول مرة .
السطر الثاني(Open "c:\windows\pw" For Input As #1) هذا الأمر يؤدى إلى فتح الملف(pw) من المجلد الفرعي(Windows) وذلك فى حالة وجوده فى حالة تسجيل كلمة سر للبرنامج وهو ما سيأتي شرحه فى أوامر النموذج الثالث(Form3) .
السطر الثالث(Input #1, p) يتم إسناد القيمة المسجلة داخل الملف (pw) إلى المتغير (p) الذى سبق تعريفه فى قسم المتغيرات العامة .
السطر الرابع(Close #1) يؤدي إلى إغلاق الملف رقم (#1) من حيث الترتيب فى فتح الملفات وهو الملف(pw) .
السطر الخامس(If p = "" Then GoTo er1:) هذا شرط يتم تنفيذه فى حالة وجود الملف(pw) ولكنه يكون خاليا أى أن القيمة المسجلة بداخله التى تم إسنادها للمتغير(p) تساوى "" وتنفيذ هذا الشرط يؤدى إلى الانتقال إلى العنوان (er1:)وسوف يأتى شرحه بعد قليل .
السطر السابع(Exit Sub) يؤدى هذا الأمر إلى الخروج من الإجراء وعدم تنفيذ باقي أوامر الإجراء, ونرغب فى ذلك عندما يكون هناك كلمة سر أى أن المتغير(p) يحمل قيمة معينة ولذلك نطلب من البرنامج الخروج من الإجراء قبل الوصول إلى العنوان(er1:) .
السطر الثامن يعلن عن العنوان(er1:) الذي ينتقل البرنامج إليه فى حالتين هما :
1 عدم وجود الملف (pw ) .
2 وجود الملف(pw) ولكنة خال.
وفيما يلى أوامر ذلك العنوان :
السطر التاسع(Form1.Show) وهذا الأمر يؤدى إلى ظهور النموذج الأول الذى يعتبر النموذج الرئيسى فى البرنامج .
السطر العاشر(Unload Me) يؤدى هذا الأمر إلى إزالة النموذج الثانى من الذاكرة .
داخل الإجراءClick للأداةCommand2 اكتب الكود التالى
Private Sub Command2_Click()
Beep
End
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء
السطر الأول يؤدى إلى خروج صوت موسيقى باستخدام الأمرBeep
السطر الثاني يؤدى إلى إنهاء البرنامج باستخدام الأمرEnd
داخل الإجراءClick للأداةCommand1 اكتب الكود التالى
Private Sub Command1_Click()
If p <> Text1.Text Then
ms = MsgBox" ) من فضلك ادخل كلمة السر مرة أخرى"16, " خطأ فى كلمة السر)
Text1.Text =""
End If
If p = Text1.Text Then
Form1.Show
Unload Me
End If
End Sub
فيما يلي شرح الكود الخاص بذلك الإجراء:
السطر الأول(If p <> Text1.Text Then) عبارة عن شرط حيث يتم اختبار القيمة التى أدخلها المستخدم للبرنامج داخل الأداة(Text1) , فإذا كانت غير مساوية للقيمة المسجلة داخل الملف(pw) التى تم تخزينها داخل المتغير(P) فإنه تم تنفيذ الأوامر التالية:
1 السطر الثانى عبارة عن رسالة تخبر المستخدم أن كلمة السر التى أدخلها خطأ وعليه إعادة كتابة كلمة السر مرة أخرى .
2 السطر الثالث يؤدى إلى مسح أداة النص(Text1) لكى يدخل المستخدم كلمة السر مرة أخرى .
3 السطر الرابع(End If) عبارة عن إنهاء للشرط .
السطر الخامس (If p = Text1.Text Then) عبارة عن شرط حيث يتم اختبار القيمة التى أدخلها المستخدم للبرنامج داخل الأداة(Text1) , فإذا كانت مساوية للقيمة المسجلة داخل الملف(pw) التى تم تخزينها داخل المتغير (P) فإنه تم تنفيذ الأوامر التالية :
1 السطر السادس(Form1.Show) يؤدى إلى ظهور النموذج الأول الذى يعتبر النموذج الرئيسى للبرنامج. ويحدث ذلك إذا كانت كلمة السر التى أدخلها المستخدم مطابقة لكلمة السر التى سبق تخزينها داخل الملف(pw) .
2 السطر السابع(Unload Me) يؤدى هذا الأمر إلى إزالة النموذج الثانى من الذاكرة .
3 السطر الثامن(End If) هذا الامر هو نهاية الشرط .