برمجة كلمة السر ,, مبتدأ

[الخوارزمي]

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

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

Dim x, w AsString
x = "منتديات فيستا التقنية"
w = 110011
If x = TextBox1.Text And w = TextBox2.Text Then
MsgBox("السلام عليكم ورحمة الله", MsgBoxStyle.OkOnly, "مرحبا بك ")
 
TextBox1.Text = ""
TextBox2.Text = ""
Else
MsgBox("عفوا ليس لديك صلاحية الدخول")
textbox1.text=""
textbox2.text=""
exit sub
EndIf

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

end

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

تمنياتي للجميع بالتوفيق