كلمة السر ثلاث مرات لا أكثر

[Crystal_heart]

السلام عليكم
اريد معرفة الكود الذى يمكننى من جعل المستخدم لا يستطيع الدخول الى البرنامج اذا أخطأ للمرة الثالثة فى كتابة كلمة السر
اى عمل count على ال function
وشكرا

[abed_11]

السلام عليكم و رجمة الله و بركاته و الصلاة والسلام على افضل المرسلين محمد عليه الصلاة و السلام
الطريقة الي انت تستخدمها فرضا
private sub command1_click()
dim Cou as integer
if me.text1.text="password" then
msgbox "correct password"
else
msgbox "wrong password"
'هنا كل ما يكون غلط الباسورد الCou يزيد واحد
cou=cou+1
end if
if cou=3 then
end
end sub

[abed_11]

بدك انه ما يدخل بالمره

[Crystal_heart]

اسفه على التأخير فى الرد

لقد نفذت هذا الكود ولكن لم يستجب الى

[wellknownQ8]

--- السلام عليكم ---

الكود الذي كتبه الأخ abed_11 صحيح.. لكنه نسي الloop

فيجب ان يكون كالتالي:

 
private sub command1_click()
dim count as integer
dim passwordtrue as integer
count = 0
passwordtrue = 0 
Do until count = 3 or passwordtrue = 1
if me.text1.text="password" then
msgbox "correct password"
passwordtrue = 1
else
msgbox "wrong password"
'هنا كل ما يكون غلط الباسورد الcount يزيد واحد
count=count+1
end if
loop
if count=3 then
'تستطيع ان تكتب هنا رسالة بأنه استنفذ محاولات كتابة الباسوورد
end if
end sub

[Crystal_heart]

الاخ العزيز Wellknown
لقد جربت هذا الكود
ولكن بمجرد الضغط على command ينفذ الloop كلة فى ضغطة واحدة
اى اننى
اريد عمل count على عدد مرات الضغط على الزر
ارجو ان اكون وصلٌت المعنى جيداً
وشكرا

[amro_ka]

السلام عليكم جرب هذا الكود

function checkpassword()
Dim i as integer
i = 1

dim pass as string
pass="كلمة السر"

if i = 3 and textbox1.text <> "كلمة السر" then
msgbox "تم إدخال كلمة السر 3 مرات خطأ"
exit sub

else if textbox1.text = "كلمة السر"

msgbox "تم الدخول بنجاح"

else

i = i+1

end if

end function

هذا الكود بفيجوال بيسك دوت نت والفكرة واحدة فى أى لغة برمجة

[oms]

محاولات جميلة ...

وهذا النهائي ...