Alternative pour goto en VBS

belouniss Messages postés 39 Date d'inscription mercredi 9 mai 2012 Statut Membre Dernière intervention 9 juillet 2012 - 5 juil. 2012 à 14:22
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 - 5 juil. 2012 à 15:25
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

LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
5 juil. 2012 à 15:23
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.
0
Rejoignez-nous