Prob de boucle !!!

Question

Bonsoir,
Je vous explique : Je suis en trainde créer un peit prog qui lit un fichier texte et qui doit comparer les lettre une par une de ce fichier (que j'affiche dans un textbox) avec la ligne que je tape dans un autre textbox et si je tape une mauvaise lettre cela ne doit rien marqué et refaire jusqu'a que je tape la bonne lettre !
J'arrive a récupérer les lettre une par une mais mon probleme est que lorsque je tape une mauvaise lettre je sais pas comment remonté dans la boucle pour refaire la comparaison !

Si vous pouvoez m'aidez !

Merci !!

econs · Answer

Elle est où ta boucle ??

Tu ne peux pas mettre ton code ici ?

Manu

CCJ · Answer

je sais pas si ca marche mais tu peut faire un truc comme:
'ta boucle
for ? = ? to ????
if ??????? then
partie1: 'c'est pour revenir apres 
'la tu met ton code
else
'la tu met  aussi ton code
end if

apres tu fais un Call partie1 (tu peut mettre partie1 ou tu veut) exemple:
partie1: 'c'est pour revenir apres 
for ? = ? to ????
if ??????? then
'la tu met ton code
else
'la tu met  aussi ton code
end if

VirusMan :-p 
 :shock) une idée est un chose ,la dire en est une autre :shock)

CCJ · Answer

je sais pas si caal marche mais si il marche pas tuu met GoTo a la place
VirusMan :-p 
 :shock) une idée est un chose ,la dire en est une autre :shock)

Gobillot · Answer

Dim Ligne As String
Dim Lg As Integer
Dim x  As Integer
Dim c  As Integer

Private Sub Form_Load()
     Dim nom As String
     
     nom = "C:\monfichier.txt"
     Open nom For Input As #1
          Line Input #1, Ligne
          Close #1
     Lg = Len(Ligne)     x 1: c Asc(Mid$(Ligne, x, 1))
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then
       If x > 0 Then          x x - 1: c Asc(Mid$(Ligne, x, 1))
          End If
       Exit Sub
       End If
    If KeyAscii = c Then
       If x < Lg Then          x x + 1: c Asc(Mid$(Ligne, x, 1))
          Else
          MsgBox "C'est terminé"
          Exit Sub
          End If
       Exit Sub
       End If
    KeyAscii = 0
    
End Sub

Prob de boucle !!!

4 réponses

Discussions similaires