Equivalence fonction gosub

Version imprimable

08/01/2009, 17h59
ericdev67

Equivalence fonction gosub
Bonjour,

Notre vieux GW-BASIC avait une fonction sympa pour faire des calculs répétitifs : on utilisait la fonction GOSUB - RETURN qui renvoyait à une boucle/programme pour effectuer des procédures répétitives.

J'essaye d'avoir cette fonction en VBA, mais je n'y arrive pas :

je fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 sub essai() Application.Run "'comb.xls'!fonctiongosub" 'petits calculs exemple (simplifié...) d=a+b+c end sub fonctiongosub() a=a+1 b=b+2 c=c+5 'exemples de calculs End sub
Et .....ça ne fonctionne pas et je ne comprends pas pourquoi,

Merci
A+
08/01/2009, 19h01
Caro-Line

Je ne connais pas le GW-BASIC ni GOSUB mais peut-être essayes-tu de faire ce qu'on appelle en VBA une fonction.

Ce tutoriel pourrait alors t'aider : Initiez vous au VBA (Partie 03)

Bonsoir... (Salut Caro... Meilleurs voeux)

Le Gosub de gw-basic n'est rien d'autre qu'un appel de procédure en VB(A)

Structure VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Proc1()
    ...
    ...
    Proc2 ' Appel de procédure
    ... ' l'exécution de proc1 continue après l'exécution de Proc2
End Sub
 
Sub Proc2
    ...
    ...
    ...
End Sub

Structure GW-Basic

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Proc1()
    ...
    ...
    gosub Proc2 ' Appel de procédure
    ... ' l'exécution de proc1 continue après l'exécution de Proc2
End Sub
 
Sub Proc2
    ...
    ...
    ...
End Sub

09/01/2009, 12h37
ericdev67

Merci à vous deux,

Tout est très clair, je n'avais pas trouvé le tutoriel....:oops:

Merci
A+ pour de prochaines aventures.....

Bonjour,

Citation:

Envoyé par ericdev67

Bonjour,

Notre vieux GW-BASIC avait une fonction sympa pour faire des calculs répétitifs : on utilisait la fonction GOSUB - RETURN qui renvoyait à une boucle/programme pour effectuer des procédures répétitives.

.../..

Si Gosub peut optimiser un code dans quelques rares cas en terme de vitesse,
il est à éviter pour pas dire à fuir - un code spaghetti étant illisible.
=> voir les appels de procédures décrits par Pierre plus haut.

Citation:

Envoyé par Pierre Fauconnier

Bonsoir... (Salut Caro... Meilleurs voeux)

Le Gosub de gw-basic n'est rien d'autre qu'un appel de procédure en VB(A)

Non, Gosub n'est pas Call

Exemple de Gosub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub procTesteGosub() Dim x As Long, a As Long a = 2 GoSub theGosubAdr Debug.Print x GoSub theGosubAdr Debug.Print x Exit Sub theGosubAdr: x = x + a Return End Sub

09/01/2009, 14h44
Pierre Fauconnier

Salut.

De mon souvenir, le Gosub du GW-Basic ne fonctionne pas comme tu l'as illustré pour VBA, mais je peux me tromper
09/01/2009, 14h52
DarkVader

J'ai illustré le gosub tel qu'on peut l'utiliser en VB au sens d'un code linéaire -
tant qu'à mes souvenirs, ils ne concernaient que le GFA Basic (pour la plupart, éradiquée depuis un bail).
09/01/2009, 15h30
ouskel'n'or

Comme le dit Dark, le Gosub peut être intéressant dans quelques très rares cas, par exemple pour éviter d'avoir à passer une kyrielle de paramètres à une procédure répétitive, et si l'on ne veut pas déclarer ces paramètres en variables "public".
Enfin, dans VBA, elle s'utilise bien comme l'indique Dark. J'ai eu à l'utiliser une fois pour simplifier un code mais suis là aussi de son avis. Le code spaghetti se justifiait quand les disquettes de 8 pouces 1/2 faisaient 128 ko et qu'il s'agissait d'y caser un logiciel aujourd'hui remplacé par autocad :aie:
Enfin, je ne l'ai jamais testé pour remplacer un Call.

Bonjour,

J'ajouterais : encore utilisé par les amateurs de code difficile à maintenir, particulièrement avec On...
Exemple de code casse- cou (je m'arrête à ces 3 lettres)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Command2_Click() Dim no As Integer no = 3 'faire varier ce chiffre de 1 à 3 pour mieux voir On no GoSub ici1, ici2, ici3 On no GoSub la1, la2, la3 GoTo vala ici1: MsgBox "ici1": Return ici2: MsgBox "ici2": Return ici3: MsgBox "ici3": Return la1: MsgBox "la1": Return la2: MsgBox "la2": Return la3: MsgBox "la3" vala: MsgBox "vala" End Sub
A déconseiller totalement

14/01/2009, 13h24
ericdev67

Merci pour tous ces commentaires, je vois qu'effectivement il y a plusieurs possibilités.

J'ai suivi vos conseils et pris celui de Darkvader, et tout fonctionne très bien

Merci, :king:

A+ pour de prochaines aventures......
14/01/2009, 13h32
Caro-Line

Citation:

Envoyé par ericdev67

J'ai suivi vos conseils et pris celui de Darkvader, et tout fonctionne très bien

8O Pourquoi ?

Tu n'as pas tout lu :

Citation:

Envoyé par DarkVader

Si Gosub peut optimiser un code dans quelques rares cas en terme de vitesse,
il est à éviter pour pas dire à fuir - un code spaghetti étant illisible.
=> voir les appels de procédures décrits par Pierre plus haut.

DarkVader donnait un exemple pour dire que c'était possible de l'utiliser mais comme il le dit, et comme ucfoutu l'a aussi démontré avec son code, il vaut mieux éviter d'utiliser GoSub...
Il y a en général toujours une méthode plus élégante (et moins casse-cou ((c) ucfoutu))