"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
Moquez-vous, il a bien fallu se contenter de cela pendant des années.
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
"ng" a écrit dans le message de news:
%23f%et des GoSub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Pascal B. wrote:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
Moquez-vous, il a bien fallu se contenter de cela pendant des années.
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23f%23QwC9IFHA.588@TK2MSFTNGP15.phx.gbl...
et des GoSub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Pascal B. wrote:
"Jean-Marc" a écrit:
While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
Moquez-vous, il a bien fallu se contenter de cela pendant des années.
Et puis en définitive, une fois compilé il n'y a plus que des "goto"
et des "gosub".
"ng" a écrit dans le message de news:
%23f%et des GoSub
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Pascal B. wrote:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans le
message de news: exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
"Jean-Marc" a écrit:
While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:
Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans
le
message de news: exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
"Jean-Marc" a écrit:
While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%
> C'était bien en prog linéaire. Les cas où on en a vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à entretenir?
>> ------------
>>
>> "Pascal B." a écrit dans
>> le
>> message de news:
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23vkkrcPJFHA.2844@TK2MSFTNGP10.phx.gbl...
> C'était bien en prog linéaire. Les cas où on en a vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à entretenir?
>> ------------
>>
>> "Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans
>> le
>> message de news: exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%
> C'était bien en prog linéaire. Les cas où on en a vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à entretenir?
>> ------------
>>
>> "Pascal B." a écrit dans
>> le
>> message de news:
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le a écrit dans le message de
news:uo%Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%
> C'était bien en prog linéaire. Les cas où on en a
> vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment
>> tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à
>> entretenir?
>> ------------
>>
>> "Pascal B." a écrit
>> dans
>> le
>> message de news:
>>
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le troll@paris.fr> a écrit dans le message de
news:uo%23lLWUJFHA.3596@TK2MSFTNGP14.phx.gbl...
Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23vkkrcPJFHA.2844@TK2MSFTNGP10.phx.gbl...
> C'était bien en prog linéaire. Les cas où on en a
> vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment
>> tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à
>> entretenir?
>> ------------
>>
>> "Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit
>> dans
>> le
>> message de news:
>> exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le a écrit dans le message de
news:uo%Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%
> C'était bien en prog linéaire. Les cas où on en a
> vraiment
> besoin sont rares (sauf gestion d'erreur).
> Si tu as a en utiliser svt c'est que tu as un problème
> dans ton algo (de logique/conception).
>
> --
> Nicolas G.
> FAQ VB : http://faq.vb.free.fr
> API Guide : http://www.allapi.net
> Google Groups : http://groups.google.fr/
> MZ-Tools : http://www.mztools.com/
>
> LE TROLL wrote:
>> Ben c'est bien le goto, ça permet de remonter, comment
>> tu
>> veux remonter autrement, sauf à faire des pitreries
>> inextricables que les Céistes s'évertuent à
>> entretenir?
>> ------------
>>
>> "Pascal B." a écrit
>> dans
>> le
>> message de news:
>>
>>> "Jean-Marc" a écrit:
>>>> While True
>>>> (...)
>>>> Do
>>>> (....)
>>>> Exit Do
>>>> (...)
>>>> Loop Until False
>>>> Wend
>>>
>>>
>>> Wouhaaaa! Ca, c'est de la programmation !!!
>>> Manque plus que des Goto ...
>>>
>>> ;-)
>
>
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23vkkrcPJFHA.2844@TK2MSFTNGP10.phx.gbl...
C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:
Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans
le
message de news: exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
"Jean-Marc" a écrit:
While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
Cher ami,
On s'en sert aussi pour remonter, ça évite du code, par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation linéaire
(comme tu dis, car la procédure évènementielle est ensuite
linéaire dans son évènement), et les autres langages qui ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de plus
en plus comme paragraphes (§), lol, sans omettre ceux qui en
balancent dans plusieurs pages, tout ça c'est bien pire que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans le
programme, voyageant à travers des procédures anorexiques,
des pages faméliques, en un mot, l'abus de goto est remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause, mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%C'était bien en prog linéaire. Les cas où on en a vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à entretenir?
------------
"Pascal B." a écrit dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
>c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
Salut, oui, désolé, tu as raison, mauvais exemple, c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
-------
"Driss HANIB" a écrit dans le
message de news:dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le a écrit dans le message de
news:uo%Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%C'était bien en prog linéaire. Les cas où on en a
vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment
tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à
entretenir?
------------
"Pascal B." a écrit
dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
>c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
Salut, oui, désolé, tu as raison, mauvais exemple, c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
-------
"Driss HANIB" <dhanib@club-internet.fr> a écrit dans le
message de news: uzhjnNVJFHA.2576@TK2MSFTNGP15.phx.gbl...
dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le troll@paris.fr> a écrit dans le message de
news:uo%23lLWUJFHA.3596@TK2MSFTNGP14.phx.gbl...
Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23vkkrcPJFHA.2844@TK2MSFTNGP10.phx.gbl...
C'était bien en prog linéaire. Les cas où on en a
vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:
Ben c'est bien le goto, ça permet de remonter, comment
tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à
entretenir?
------------
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit
dans
le
message de news:
exjEpS7IFHA.1248@TK2MSFTNGP10.phx.gbl...
"Jean-Marc" a écrit:
While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
>c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
Salut, oui, désolé, tu as raison, mauvais exemple, c'était
juste pour indiquer qu'un goto est parfois plus économique
qu'une procédure...
-------
"Driss HANIB" a écrit dans le
message de news:dans ton exemple
pour éviter le goto il suffit d'aller à l'envers dans la
suppression
for i = list1.listcount - 1 to 0 step -1
if x = list1.list(i) ' si x se rencontre plusieurs
fois...
RemoveItem i
endif
next i
Driss
"LE TROLL" <le a écrit dans le message de
news:uo%Cher ami,
On s'en sert aussi pour remonter, ça évite du code,
par
exemple:
debut:
for i = 0 to list1.listcount - 1
if x = list1.list(i) ' si x se rencontre
plusieurs
fois...
RemoveItem i
list1.refresh ' liste rafraîchie, l'index
change, il faut recommencer la boucle
goto debut
endif
next i
--------------
Au lieu de
Dim efface_list1 As Boolean
sub un()
efface_list1 = true
do while efface_list1 = true
call deux
loop
end sub
sub deux()
efface_list1 = false
for i = 0 to list1.listcount - 1
if x = list1.list(i)
RemoveItem i
list1.refresh
efface_list1 = true
exit for
endif
next i
end sub
Pour moi, ça c'est un abus de procédures, lol, et
moins
compréhensible qu'avec le goto, et avec plus de code (18
lignes au lieu de 8)!!!
Pour mémoire, jadis avec le cpm, la programmation
linéaire
(comme tu dis, car la procédure évènementielle est
ensuite
linéaire dans son évènement), et les autres langages qui
ont
suivis, effectivement, parfois les gens pas assez
pratiquants, avaient tendance à mettre un profusion de
goto
inutiles, qui par la logique de certaines fonctions,
auraient pu être retirés...
On en est arrivé à un traumatisme, certains pensent que
mettre un goto c'est mal, c'est être mauvais, lol...
Et à la place on a un abus de procédures, aussi mal
positionnées et inutiles que les goto de jadis... Ça va
même
jusqu'à faire une procédure pour un ligne (au lieu d'un
GoSub), ou de faire des procédures du genre "DeleteFile",
sans (call), alors tu ne sais pas si c'est un mot clef
perdu, une variable égarée, ou une procédure...
Normalement l'écriture du code doit pour être lisible, se
présenter comme des chapitres d'un livre que sont les
procédures, hélas, elles servent (les procédures), de
plus
en plus comme paragraphes (§), lol, sans omettre ceux qui
en
balancent dans plusieurs pages, tout ça c'est bien pire
que
le goto, ça devient incompréhensible...
Je vois parfois de véritable flippers, où ont saute dans
le
programme, voyageant à travers des procédures
anorexiques,
des pages faméliques, en un mot, l'abus de goto est
remplacé
par l'abus de Call...
Je pense que ce ne sont pas les mots qui sont en cause,
mais
la logique de la personne (suivant aussi ses
connaissances)...
--------------
"ng" a écrit dans le message de news:
%C'était bien en prog linéaire. Les cas où on en a
vraiment
besoin sont rares (sauf gestion d'erreur).
Si tu as a en utiliser svt c'est que tu as un problème
dans ton algo (de logique/conception).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
LE TROLL wrote:Ben c'est bien le goto, ça permet de remonter, comment
tu
veux remonter autrement, sauf à faire des pitreries
inextricables que les Céistes s'évertuent à
entretenir?
------------
"Pascal B." a écrit
dans
le
message de news:"Jean-Marc" a écrit:While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend
Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...
;-)
