• 0
Saatchi

Hw To Stop Loop

سؤال

salam all

the user can tries 3 times in each time when the password is wrong the msgbox tells the user ur password is wrong

the 3 times the message said u r hackers.

could u plz help me with my code

Dim logincount As Integer

Dim counter As Integer

For counter = 1 To 3

logincount = logincount + 1

If logincount = 3 Then

MsgBox("no more tries")

Exit Sub

End If

If txtpassword.Text = "password" Then

MsgBox("right")

Else

MsgBox("incorrect")

End If

Next

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

Hi Brother,

انسخ الكود
  1.  [/left]

  2. Dim Logged [color= #b1b100;]As[/color] Boolean [color= #339933;]=[/color] [color= #000000; font-weight: bold;]False[/color]
  3. Dim TCount [color= #b1b100;]As[/color] Integer [color= #339933;]=[/color] [color= #cc66cc;]1[/color]
  4. [color= #b1b100;]Do[/color] Until Logged
  5. Dim _Password [color= #339933;]=[/color] InputBox[color= #009900;]([/color] [color= #0000ff;]"Please type your password"[/color] [color= #009900;])[/color]
  6. [color= #b1b100;]If[/color] Not _Password Is Nothing Then [color= #b1b100;]If[/color] _Password [color= #339933;]=[/color] [color= #0000ff;]"password"[/color] Then Logged [color= #339933;]=[/color] [color= #000000; font-weight: bold;]True[/color] [color= #b1b100;]Else[/color] TCount [color= #339933;]+=[/color] [color= #cc66cc;]1[/color]
  7. [color= #b1b100;]If[/color] TCount [color= #339933;]>[/color] [color= #cc66cc;]2[/color] Then MsgBox[color= #009900;]([/color] [color= #0000ff;]"Sorry sir, You have tried more than two times ."[/color] [color= #009900;])[/color] [color= #339933;]:[/color] [color= #990000;]Exit[/color] [color= #b1b100;]Do[/color]
  8. Loop
  9. [color= #b1b100;]If[/color] Not Logged Then [color= #990000;]End[/color]
  10.  

I have problems with the AR language :(,

Good luck,

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

Dim logincount As Integer

Dim counter As Integer

For counter = 1 To 3

logincount = logincount + 1

If logincount = 3 Then

MsgBox("no more tries")

exit for ///just this

Exit Sub

End If

If txtpassword.Text = "password" Then

MsgBox("right")

exit for ///just this

Else

MsgBox("incorrect")

End If

Next

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .