Page 1 sur 1

[OK] Paramètre optionnel d'un exe.

Publié : ven. 19/sept./2014 15:35
par Ar-S
Salut,

Si quelqu'un sait comment faire je suis preneur, je n'en ai aucune idée.
J'ai fait un petit prog d'exo/jeu pour mes élèves. Il y a 7 niveaux. Par défaut le soft se lance au niveau 1. J'aimerai que l'on puisse déterminer le level au lancement de l'exe. => monprog.exe -2 pour commencer au level 2 etc...
pour infos mes levels sont dans l'exe représentés par une simple "global variable.b"

D'avance merci.

Re: Paramètre optionnel d'un exe.

Publié : ven. 19/sept./2014 17:18
par G-Rom
Ar-S a écrit :Salut,

Si quelqu'un sait comment faire je suis preneur, je n'en ai aucune idée.
J'ai fait un petit prog d'exo/jeu pour mes élèves. Il y a 7 niveaux. Par défaut le soft se lance au niveau 1. J'aimerai que l'on puisse déterminer le level au lancement de l'exe. => monprog.exe -2 pour commencer au level 2 etc...
pour infos mes levels sont dans l'exe représentés par une simple "global variable.b"

D'avance merci.

Code : Tout sélectionner

argc = CountProgramParameters()
If argc
  Dim argv.s(argc)
  For i = 0 To argc-1
    argv(i) = ProgramParameter(i)
  Next 
EndIf 
tout est dans le code , les paramètres sont dans argv() ( si il y en a )

Re: Paramètre optionnel d'un exe.

Publié : ven. 19/sept./2014 17:24
par majikeyric
Salut,

un simple :

Code : Tout sélectionner

If CountProgramParameters()>0
	level=Val(ProgramParameter(0))
Else
	level=1
EndIf
devrait faire l'affaire ?

pour un appel avec "prog.exe 2" par exemple.

*edit*: ah bah G-Rom a été plus rapide.

Re: Paramètre optionnel d'un exe.

Publié : ven. 19/sept./2014 19:51
par Ar-S
Merci pour vos réponses, j'avais complètement occulté les commandes PB concernant les paramètres !

Voilà mon petit bout de code qui marche : :mrgreen:

Code : Tout sélectionner

	LVL = CountProgramParameters()
	If LVL > 0 And LVL < 8
		EnCours = Val(ProgramParameter(0) )
	Else
		EnCours = 1	
	EndIf