Hw To Stop Loop

[Saatchi 0]

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

[BasharVS 13]

Hi Brother,

انسخ الكود

 [/left]
Dim Logged [color= #b1b100;]As[/color] Boolean [color= #339933;]=[/color] [color= #000000; font-weight: bold;]False[/color]
Dim TCount [color= #b1b100;]As[/color] Integer [color= #339933;]=[/color] [color= #cc66cc;]1[/color]
[color= #b1b100;]Do[/color] Until Logged
Dim _Password [color= #339933;]=[/color] InputBox[color= #009900;]([/color] [color= #0000ff;]"Please type your password"[/color] [color= #009900;])[/color]
[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]
[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]
Loop
[color= #b1b100;]If[/color] Not Logged Then [color= #990000;]End[/color]
 

I have problems with the AR language :(,

Good luck,

[ktooof 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