Alternative pour goto en VBS

Signaler
Messages postés
39
Date d'inscription
mercredi 9 mai 2012
Statut
Membre
Dernière intervention
9 juillet 2012
-
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
-
Bonjour le Forum,
aufait j'ai un soucie avec mon code.
Dans ce code je veux tester TZ ,si TZ<10je continue la suite de mon script, si TZ>10 alors je me deplace et je refait le test mais si au bout de 4 test c'est tjr >10 je voudrait sortir completement de mon programe!


Flag=0
N=1	
do
    if 	TZ>10 then
X= X+delta
        TZ=TA*rtz
        N=N+1
if N=4  then
   Flag=2
end if

    else Flag=1

    end if
 loop until Flag=1 or FlagZ=2

if FlagZ=2 then goto sortie
         end if
............
............
............
sortie


Merci

2 réponses

Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
5
Bonjour,

est=0

Do While  (TZ>10) And (Test<4)
    
        Test=Test+1
        X= X+delta
        TZ=TA*rtz
        N=N+1
 
 Loop

 If (TZ>10) Or (Test=4) Then Goto Sortie



[] Ce qui va sans dire. va mieux en le disant.
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
5
non ,

If (TZ>10) Then Goto Sortie

[] Ce qui va sans dire. va mieux en le disant.