[VBS] Passage de paramètres dans une procédure

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] Passage de paramètres dans une procédure

ChtiGariX

Retraité

Lo [:chtigarix]

D'après les docs vbs, le mode de passage par défaut des variables est le passage par référence. Pourtant le tableau de mon script ci-dessous n'a pas l'air de passer.
J'ai même indiqué dans ma procédure tab_init qu'il faut passer mon paramètre par référence mais rien n'y fait : valeur NULL dans mon tableau manifestement.

Par contre quand j'inclus le code de la procédure affiche_tab directement dans le tab_init là j'ai bien le bon résultat.
Je suis perplexe

Ca doit être tout bête ... Quelqu'un a une idée ?

Ci-dessous mon code (je n'y inclus que les parties remplissage et affiche du tableau, la partie opérationnelle du script ayant peu d'importance) :

Code :

Option Explicit
Dim arr_tab(5) 'variable globale à tout le script
Tab_init(arr_tab)
tableau_affiche(arr_tab)
Sub Tab_init(ByRef tableau)
Dim Int_init_tab
Int_init_tab = 1
Do While int_init_tab <= Ubound(tableau)
tableau(int_init_tab) = 1
int_init_tab = int_init_tab + 1
Loop
End Sub
Sub Tableau_affiche(tableau)
Dim Int_affiche_tab
Int_affiche_tab = 1
Do While int_affiche_tab <= Ubound(tableau)
Wscript.echo tableau(int_affiche_tab) & " est " & int_affiche_tab
Int_affiche_tab = int_affiche_tab + 1
Loop
End Sub

---------------
Retraité de discussions

Publicité

FlorentG

Unité de Masse

Pas besoin de ByRef de toute manière, vu qu'un tableau est de type référence, et que tu ne l'assigne pas à un nouveau tableau...

[parenthèse : en VB, on ne met pas d'underscore dans les noms de variables et de procédures ]

ChtiGariX

Retraité

Je mets des underscores si je veux
Oui bon je sais qu'il n'y a pas besoin de byref mais je l'ai rajouté pour être sûr que ça venait pas de çà

---------------
Retraité de discussions

FlorentG

Unité de Masse

Non, tu ne mettera pas de underscore Le standard syntaxique veut que tu dois utiliser du PascalCase pour les variables et fonctions (genre VariablePouetTruc), et du camelCase pour les paramètre de fonction (genre paramDeTaFonction)

ChtiGariX

Retraité

M'en fous c'est du scripting. Je serais même pas obligé de déclarer les variables [:ddr555]
Mais pour la prochaines fois je virerai les underscore :jap:

C'est dur de se remettre dans le bain après 6 ans d'arrêt
J'ai l'impression d'être un lycéen en option initiation à l'info [:tinostar]

---------------
Retraité de discussions

FlorentG

Unité de Masse

Sinon, fait une fonction qui te retourne le tableau initialisé

ChtiGariX

Retraité

Mouais j'y ai pensé mais bon je sais po comment ça va marcher.

Sinon pour le dimensionnement j'ai essayé de faire une constante TABSIZE, et ensuite Dim ArrTab(TABSIZE).
L'interpréteur a pas aimé :heink:

Message édité par ChtiGariX le 17-03-2005 à 16:01:04

---------------
Retraité de discussions

FlorentG

Unité de Masse

Ce qui est marrant, c'est quand je lance ton script, ça fonctionne

ChtiGariX

Retraité

FlorentG a écrit :

Ce qui est marrant, c'est quand je lance ton script, ça fonctionne

Tu déconnes ?
Il affiche "1 est 1"
"2 est 1"
etc. ?
T'as quel interpréteur wsh ?

---------------
Retraité de discussions

ChtiGariX

Retraité

(ça me rassure je suis encore capable de pondre un truc aussi trivial [:tinostar] )

---------------
Retraité de discussions

Publicité

FlorentG

Unité de Masse

Il affiche :
'est 1'
'est 2'
'est 3'

Ah ouais en fait ça bug :cry:

ChtiGariX

Retraité

FlorentG a écrit :

Il affiche :
'est 1'
'est 2'
'est 3'

Ah ouais en fait ça bug :cry:

Roh punaise je suis pas prêt de débugguer la partie intéressante du script [:ddr555]

---------------
Retraité de discussions

FlorentG

Unité de Masse

Attend, je cherche

FlorentG

Unité de Masse

TROUVééééééééééééé !

Modifie la ligne :

Tab_init(arr_tab)

Par :

Tab_init arr_tab

Ou :

Call Tab_init(arr_tab)

Comme le dit la MSDN :

Citation :

You are not required to use the Call keyword when calling a procedure. However, if you use the Call keyword to call a procedure that requires arguments, argumentlist must be enclosed in parentheses. If you omit the Call keyword, you also must omit the parentheses around argumentlist.

ChtiGariX

Retraité

Mon héros

---------------
Retraité de discussions

ChtiGariX

Retraité

Je vais pouvoir maintenant m'atteler à la partie intéressante du script.
Je poste dès que ça marche :jap:

---------------
Retraité de discussions

FlorentG

Unité de Masse

Yessss

ChtiGariX

Retraité

Pour l'instant mon script a pour seule fonction d'occuper 100% de ressources processeur [:gratgrat]

---------------
Retraité de discussions

FlorentG

Unité de Masse

Oula [:le kneu]

ChtiGariX

Retraité

Ayan il n'occupe plus les 100% de ressources proc.
Mais le fait est que mon algo est foireux à mon avis [:tinostar]

---------------
Retraité de discussions

FlorentG

Unité de Masse

Oui. Je pense

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] Passage de paramètres dans une procédure

Sujets relatifs
Génération dynamique de documents paramétrés (templates)	creation bouton pour acces paramètres matos
[PHP]Passage de parametre incomprehensible	[VB/VBA/VBS] Lier 2 bases access avec VB6
Procédure stockée et parametre "base donnée"	Passage paramètre à une thread
fonction avec passage par reference de variable	[resolu] [JSP][Tomcat 5] Problème lors du passage de paramètres ?
graphics-procedure
Plus de sujets relatifs à : [VBS] Passage de paramètres dans une procédure

Page générée en 0.061 secondes