أبو المجتبى
29-08-2002, 01:39 AM
السلام عليكم و رحمة الله و بركاته
الدرس الأول لكم مني في الفيجوال بيسك "مستوى متوسط"
سيكون عبارة عن درس في التعويض و الجمل الشرطية
و المثال سيكون برنامج خاص يتوجب لدخولك إليه إدخال كلمة سرية محفوظة عند إعداد البرنامج و إسم المستخدم يكون أي إسم يتم إختياره ليرحب بك البرنامج
عند الدخول إليه
بسم الله نبدأ :
1 -أولا أعمل فورمتين فورم واحد و سميها موجه الأوامر و فورم إثنين و سميها البرنامج
2 -أضف للفورم واحد عدد 2 مربعات نص و زر واحد بحيث تكون بالترتيب التالي
مربع نص
مربع نص
زر
و إجعل نص مربع النص الأول من الخيارات ::إسم المستخدم::
و إجعل نص مربع النص الثاني من الخيارات :: كلمة المرور::
و اجعل إسم الزر من الخيارات ::موافق::
أنتهيت من التصميم بقي البناء و إضافة الحركة
3 -أضف لكود الزر الجملة الشرطية التالية :
If Text2.Text = "123" Then Form2.Show
الشرح
إذا نص مربع النص الثاني = 123 إذا اعرض الفورم الثاني
4 -اجعل برنامجك اكثر سلاسة :) و اخدم المستخدم اكثر بحيث إذا ضغط على مربع النص للكتابة تمسح الموجودة دون الحاجة إلى تحديدها كلها و مسحها
إذا أكتب في كود مربع النص الأول عند الضغط التالي :
"" = text1.text
بحيث يظهر في نافذة الأكواد كالتالي :
Private Sub Text1_Click()
Text1.Text = ""
End Sub
إنتهيت من مربع النص الأول .
ثم تفعل كما فعلت مع الأول في الثاني
"" = text2.text
بحيث يظهر في نافذة الأكواد كالتالي :
Private Sub Text2_Click()
Text2.Text = ""
End Sub
إنتهيت
ربما كثير من المستخدمين متعودون على ضغط زر إنتر بعد الإنتهاء أتريد توفير هذا لهم ؟
فقط أضف هذا الكود مع كود مربع النص الثاني :
Command1.Default = True
إنتهينا من الجمل الشرطية بقي التعويض
الأن نبدأ بالعمل في الفورم 2
1 - أضف ليبلو إجعل النص الموجود فيه مثلا " تم الوصول بنجاح "
ثم أضف ليبل أخر و إجعله في أقصى اليمين من البرنامج و إجعل نصه "مرحبا بك يا"
ثم أضف ليبل ثالث و إجعل نصه فارغا و إجعله قريبا من الليبل الثاني ثم أكتب في كود تحميل الفورم ::الفورم لود:: إكتب الكود التالي :
Label3.Caption = Form1.Text1.Text
ثم أضف زر و إجعل نصه كالتالي : "خروج" و أكتب في كوده
End
يمكنك تحميل الدرس من المرفقات لتجربة البرنامج الباسوورد "123"
أنتهينا من الدرس الأول بحمد الله
أتمنى أن يكون الدرس قد نال على حسن رضااكم
مع تحاتي اخوكم ابو المجتبى
الدرس الأول لكم مني في الفيجوال بيسك "مستوى متوسط"
سيكون عبارة عن درس في التعويض و الجمل الشرطية
و المثال سيكون برنامج خاص يتوجب لدخولك إليه إدخال كلمة سرية محفوظة عند إعداد البرنامج و إسم المستخدم يكون أي إسم يتم إختياره ليرحب بك البرنامج
عند الدخول إليه
بسم الله نبدأ :
1 -أولا أعمل فورمتين فورم واحد و سميها موجه الأوامر و فورم إثنين و سميها البرنامج
2 -أضف للفورم واحد عدد 2 مربعات نص و زر واحد بحيث تكون بالترتيب التالي
مربع نص
مربع نص
زر
و إجعل نص مربع النص الأول من الخيارات ::إسم المستخدم::
و إجعل نص مربع النص الثاني من الخيارات :: كلمة المرور::
و اجعل إسم الزر من الخيارات ::موافق::
أنتهيت من التصميم بقي البناء و إضافة الحركة
3 -أضف لكود الزر الجملة الشرطية التالية :
If Text2.Text = "123" Then Form2.Show
الشرح
إذا نص مربع النص الثاني = 123 إذا اعرض الفورم الثاني
4 -اجعل برنامجك اكثر سلاسة :) و اخدم المستخدم اكثر بحيث إذا ضغط على مربع النص للكتابة تمسح الموجودة دون الحاجة إلى تحديدها كلها و مسحها
إذا أكتب في كود مربع النص الأول عند الضغط التالي :
"" = text1.text
بحيث يظهر في نافذة الأكواد كالتالي :
Private Sub Text1_Click()
Text1.Text = ""
End Sub
إنتهيت من مربع النص الأول .
ثم تفعل كما فعلت مع الأول في الثاني
"" = text2.text
بحيث يظهر في نافذة الأكواد كالتالي :
Private Sub Text2_Click()
Text2.Text = ""
End Sub
إنتهيت
ربما كثير من المستخدمين متعودون على ضغط زر إنتر بعد الإنتهاء أتريد توفير هذا لهم ؟
فقط أضف هذا الكود مع كود مربع النص الثاني :
Command1.Default = True
إنتهينا من الجمل الشرطية بقي التعويض
الأن نبدأ بالعمل في الفورم 2
1 - أضف ليبلو إجعل النص الموجود فيه مثلا " تم الوصول بنجاح "
ثم أضف ليبل أخر و إجعله في أقصى اليمين من البرنامج و إجعل نصه "مرحبا بك يا"
ثم أضف ليبل ثالث و إجعل نصه فارغا و إجعله قريبا من الليبل الثاني ثم أكتب في كود تحميل الفورم ::الفورم لود:: إكتب الكود التالي :
Label3.Caption = Form1.Text1.Text
ثم أضف زر و إجعل نصه كالتالي : "خروج" و أكتب في كوده
End
يمكنك تحميل الدرس من المرفقات لتجربة البرنامج الباسوورد "123"
أنتهينا من الدرس الأول بحمد الله
أتمنى أن يكون الدرس قد نال على حسن رضااكم
مع تحاتي اخوكم ابو المجتبى