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.
[OK] Paramètre optionnel d'un exe.
[OK] Paramètre optionnel d'un exe.
Dernière modification par Ar-S le ven. 19/sept./2014 19:52, modifié 1 fois.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: Paramètre optionnel d'un exe.
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
- majikeyric
- Messages : 602
- Inscription : dim. 08/déc./2013 23:19
- Contact :
Re: Paramètre optionnel d'un exe.
Salut,
un simple :
devrait faire l'affaire ?
pour un appel avec "prog.exe 2" par exemple.
*edit*: ah bah G-Rom a été plus rapide.
un simple :
Code : Tout sélectionner
If CountProgramParameters()>0
level=Val(ProgramParameter(0))
Else
level=1
EndIf
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.
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 :
Voilà mon petit bout de code qui marche :

Code : Tout sélectionner
LVL = CountProgramParameters()
If LVL > 0 And LVL < 8
EnCours = Val(ProgramParameter(0) )
Else
EnCours = 1
EndIf
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels