برمجة كلمة السر مبتدئ (صلاحية الدخول)

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

اضع بين ايديكم درس برمجة كلمة السر لصلاحية الدخول للمبتدئين وانا منهم

بيئة العمل :VB.NET 2008

قم بإنشاء فورم جديد واضف عليه عدد 2 تكست بوكس ,وعدد2 ليبل , وعدد زرين واحد بإسم تنشيط والثاني إلغاء ,, الان انقر دبل كلك على زر التنشيط واضف هذا الكود بداخله

ويفضل كتابته يدوي لنعتاد على كتابة الاكواد

Dim x, w AsString  " منتديات عميد التعريب "x = w = 123 If TextBoxX1.Text = x And TextBoxX2.Text = w Then MsgBox("مرحبا بك في منتديات عميد التعريب ") Else MsgBox(" عفوا ليس لديك صلاحية الدخول") TextBoxX1.Text = "" TextBoxX2.Text = "" ExitSub EndIf

الزر الثاني تضع فيه كلمة end لتنهي البرنامج .

كود

end

الليبل الاول في خاصية النص اكتب (اسم المستخدم)
الليبل الثاني خاصية النص اكتب(كلمة المرور)

شرح الكود :

السطر الاول قمنا بتعريف متغيرين ليحملا قيمة التكستات , المتغير x,w مع العلم انه يمكن الاستغناء عنهم والتعامل مع التكستات على انها متغيرات
في السطر الثاني استخدمنا قاعدة if لتطبيق الشرط في حال انه تحقق الادخال الصحيح لكلمة السر والرقم يظهر لنا رساله ترحيبيه وننفذ ما نريد , وإن لم يكن صحيح سيظهر لنا ايضا رساله تخبرنا بأنه ليس لدينا صلاحية الدخول ثم ينتهي الاجراء بعد ان يقوم بمسح التكستات لإعادة الادخال من جديد , اي استفسار حاضر بإذن الله

تحميل المثال للتجربة من هنـــــــــــــــــا

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