[VBS] Retour a un inputbox ...

Question

Bonjour tout le monde ! Je suis en train d'elaborer un petit logiciel simpa (logiciel niveau debutant :D) et j'ai un petit probleme avec celui ci ! Voila le code : 

dim multi1
dim multi2 
dim mess
dim style
dim response
dim mystring


Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication",vbInformation
Msgbox "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT",vbInformation
Msgbox "Avant de commencer , nous allons voir quelques r&#232;gles de ce petit programme !",vbInformation
Msgbox "Alors , tu devras marquer uniquement la reponse en chiffre (ex : 1 fois 1 > tu ecris 1) ! Tu pourras , si tu t'es tromp&#233;(e) , recommencer ou passer a la table suivante ! ",vbInformation


mess = "La reponse que tu as donn&#233;e est fausse ! Retante ta chance ou passe cette multiplication !"
style = vbRetryCancel + 48


while multi1 = ""
multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend
if multi1 = 1 then
Msgbox "La reponse que tu as donn&#233;e est : "&multi1&"",vbInformation
Msgbox "La reponse que tu as donn&#233;e est exact ! On passe a la multiplication suivante !",48
else
Msgbox "La reponse que tu as donn&#233;e est : "&multi1&"",vbInformation
response = msgbox(mess, style)
if response = vbRetry then
mystring = multi1 <<<<<<<<<<<<<<<<<<< Probleme !!!!!!
elseif response = vbCancel then
mystring = wscript.quit
end if
end if


while multi2 = ""
multi2 = inputbox ("A combien est &#233;gale 1 fois 2 ?","Table de multiplication du nombre 1","Reponse")
wend
if multi2 = 2 then
Msgbox "La reponse que tu as donn&#233;e est : "&multi2&"",vbInformation
Msgbox "La reponse que tu as donn&#233;e est exact ! On passe a la multiplication suivante !",48
else
Msgbox "La reponse que tu as donn&#233;e est : "&multi2&"",vbInformation
response = msgbox(mess, style)
if response = vbRetry then
mystring = multi2
elseif response = vbCancel then
mystring = wscript.quit
end if
end if

Donc voila le code (:P dsl si il est un peu long et nul mais bon je debute :X) ! Vous voyez donc la fleches "Probleme !!!" ,  je n'arrive pas a retourner a la question "Combien font 1*1 ?" quand une personne c'est tromp&#233;e dans la reponse et veux retanter la question (donc vbRetry) , au lieu de revenir a la question "combien font 1*1" il passe a la question 2 "combien font 1*2" Comment y remedier , y a t'il un moyen ?

PCPT · Answer

salut
tout d'abord, 35 msgbox, c'est pas top.....
je vais essayer de reformer un peu tout &#231;&#224; :

'd&#233;claration des variables en string ("Dim Mavar" d&#233;clare en Variant, &#224; &#233;viter)
Dim Multi1$, Multi2$, MessFaux$, StyleBox$, Mystring$
Dim Response As Long

Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"

'init variables MsgBox
MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48

while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend

if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if

If Response = vbRetry Then
   Mystring = Multi1 'plus de probl&#232;me
ElseIf Response = vbCancel Then
    Mystring = wscript.quit
End If

voil&#224;

PCPT

PCPT · Answer

ps : il y a tout de m&#234;me pas mal &#224; corriger, l&#224; j'ai juste regard&#233; la fonctionnalit&#233; + ton erreur...


on peut entre autre remplacer 

If Response = vbRetry Then
   Mystring = Multi1 'plus de probl&#232;me
ElseIf Response = vbCancel Then
    Mystring = wscript.quit
End If

par 


If Response vbRetry Then Mystring Multi1 else wscript.quit
'puisque d'ailleurs, Mystring = wscript.quit provoquerait une erreur.....

PCPT

zaert · Answer

Ok merci , je sais pour tout mes erreurs mais tu comprend je suis encore debutant et je n'est pas encore bien assimiller tout ce qui est du style , variable mais surtout commande (ou les placers ? , a quoi servent t'elle ?) Mais en tout les cas merci de ton aide j'accepte ta rep. ! Ciao

zaert · Answer

Juste un dernier truc a quoi il sert le "as long" ?

PCPT · Answer

(MSDN)

Long, type de donn&#233;es

Les variables de type Long (entier long) sont stock&#233;es sous la forme de nombres sign&#233;s de 32 bits (4 octets) dont la valeur est comprise entre -2 147 483 648 et 2 147 483 647. Le caract&#232;re de d&#233;claration de type Long est le signe &.

@+
PCPT

CTAC · Answer

Bonjour.


Attention, les variables en vbs ne sont pas typ&#233;s.


ctac


VBScript Variables




A variable is a convenient placeholder that refers to a computer memory location where you can store program information that may change during the time your script is running. For example, you might create a variable called ClickCount to store the number of times a user clicks an object on a particular Web page. Where the variable is stored in computer memory is unimportant. What is important is that you only have to refer to a variable by name to see or change its value. In VBScript, variables are always of one fundamental data type, [mk:@MSITStore:C:\Program%20Files\Microsoft%20Windows%20Script\ScriptDocs\SCRIPT56.CHM::/html/vbsdatatype.htm Variant]. 


Declaring Variables

You declare variables explicitly in your script using the [mk:@MSITStore:C:\Program%20Files\Microsoft%20Windows%20Script\ScriptDocs\SCRIPT56.CHM::/html/vsstmdim.htm Dim] statement, the [mk:@MSITStore:C:\Program%20Files\Microsoft%20Windows%20Script\ScriptDocs\SCRIPT56.CHM::/html/vsstmpublic.htm Public] statement, and the [mk:@MSITStore:C:\Program%20Files\Microsoft%20Windows%20Script\ScriptDocs\SCRIPT56.CHM::/html/vsstmprivate.htm Private] statement. For example: 

Dim DegreesFahrenheit


You declare multiple variables by separating each variable name with a comma. For example: 

Dim Top, Bottom, Left, Right


You can also declare a variable implicitly by simply using its name in your script. That is not generally a good practice because you could misspell the variable name in one or more places, causing unexpected results when your script is run. For that reason, the [mk:@MSITStore:C:\Program%20Files\Microsoft%20Windows%20Script\ScriptDocs\SCRIPT56.CHM::/html/vsstmoptionexplicit.htm Option Explicit] statement is available to require explicit declaration of all variables. The Option Explicit statement should be the first statement in your script.

PCPT · Answer

ok, d&#233;sol&#233;, je suis que sous VB(6).
il y a bcp de diff&#233;rence avec VBA, mais je supposais tout de m&#234;me que "typer" ses variables &#233;tait important (et faisable...)
PCPT

zaert · Answer

No probleme , merci pour ton aide !

zaert · Answer

Re , dsl mais en faite je me suis rendu compte que le VBS ne marche toujours pas , meme celui que tu m'as donn&#233;e , je m'explique : 

Dim Multi1$, Multi2$, MessFaux$, StyleBox$, Mystring$< Pb : le carractere est incorrect
Dim Response As Long

Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"

MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48

while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend

if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if

If Response = vbRetry Then
   Mystring = Multi1 
ElseIf Response = vbCancel Then
    Mystring = wscript.quit
End If

Voila mes problemes recent a la suite de ta reponse . J'ai donc essaier d'enlever les $ que tu avait au debut script pour la declaration des variables et j'ai egalement enlever le As Long que tu avait mis apres Dim Response et la , le VBS ne m'affiche plus les message d'erreur mais le probleme est que quand je me suis tromper et que je clique sur le bouton recommencer le script s'arrete il ne me remet pas la question :"Combient font 1 fois 1 ?" ! Est ce possible de rectifier sa ? Je rappelle que je suis en vbs !

PCPT · Answer

salut
$ = As String
donc tu as bien fait des les enlevers (String & Long)

pour l'erreur, c'est parce que j'ai repris ton code, supposant que ce n'&#233;tait qu'un extrait.....

je te met la syntaxe, sans savoir si c'est fonctionnel pour VBS...

Dim Multi1, Multi2, MessFaux, StyleBox, Mystring, Response

Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"

MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48

DEBUTBOUCLE: 'd&#233;but

while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend

if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if

If Response = vbRetry Then
   Mystring = Multi1
   Goto DEBUTBOUCLE 'si r&#233;-essayer, remonte au d&#233;but
ElseIf Response = vbCancel Then
    Mystring = wscript.quit
End If

PCPT

zaert · Answer

ok merci j'essaie tout de suite

zaert · Answer

Erf je vien de le tester le code :

Dim Multi1, Multi2, MessFaux, StyleBox, Mystring, Response


Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"


MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48


DEBUTBOUCLE


while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend


if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if


If Response = vbRetry Then
   Mystring = Multi1
   Goto DEBUTBOUCLE <<<<<<<<<

zaert · Answer

Erf je vien de le tester le code :

Dim Multi1, Multi2, MessFaux, StyleBox, Mystring, Response


Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"


MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48


DEBUTBOUCLE


while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend


if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if


If Response = vbRetry Then
   Mystring = Multi1
   Goto DEBUTBOUCLE <<<<<<<<<

PCPT · Answer

DEBUTBOUCLE: 
'd&#233;but

PCPT

zaert · Answer

Ouai j'y est regarder apres mais sa marche pas , j'ai regarde se site http://www.cybwarrior.com/articles/read.php?id=89#iii

pour utiliser la fonction Goto mais sa marche pas sa me met toujours instruction attendue

PCPT · Answer

(MSDN)


GoTo, instruction, exemple

Cet exemple utilise l'instruction GoTo pour se brancher aux &#233;tiquettes de ligne indiqu&#233;es au sein d'une proc&#233;dure.

Sub GotoStatementDemo()
Dim Number, MyString
   Number =  1    ' Initialise la variable.
   ' &#201;value Number et se branche &#224; l'&#233;tiquette
   ' appropri&#233;e.
   If Number = 1 Then  GoTo  Line1 Else GoTo Line2
   
Line1:
   MyString  = "Number est &#233;gal &#224; 1"
   GoTo LastLine   ' Passe &#224; la derni&#232;re ligne.
Line2:
   ' L'instruction suivante ne peut jamais &#234;tre
   ' ex&#233;cut&#233;e.
   MyString = "Number est &#233;gal &#224; 2"
LastLine: 
   Debug.Print MyString   ' Affiche "Number est
                        ' &#233;gal &#224; 1" dans la fen&#234;tre
                        ' Ex&#233;cution.
End Sub


d&#233;sol&#233;, je ne sais pas s'il y a une syntaxe particuli&#232;re pour VBS....
je ne vois pas quoi te dire d'autre
PCPT

PCPT · Answer

woups....
&#231;&#224; sera plus facile &#224; lire ;)

GoTo, instruction, exemple
Cet exemple utilise l'instruction GoTo pour se brancher aux &#233;tiquettes de ligne indiqu&#233;es au sein d'une proc&#233;dure.


Sub GotoStatementDemo()
Dim Number, MyString
   Number = 1    ' Initialise la variable.
   ' &#201;value Number et se branche &#224; l'&#233;tiquette
   ' appropri&#233;e.
   If Number = 1 Then GoTo Line1 Else GoTo Line2
   
Line1:
   MyString = "Number est &#233;gal &#224; 1"
   GoTo LastLine   ' Passe &#224; la derni&#232;re ligne.
Line2:
   ' L'instruction suivante ne peut jamais &#234;tre
   ' ex&#233;cut&#233;e.
   MyString = "Number est &#233;gal &#224; 2"
LastLine: 
   Debug.Print MyString   ' Affiche "Number est
                        ' &#233;gal &#224; 1" dans la fen&#234;tre
                        ' Ex&#233;cution.
End Sub

PCPT

zaert · Answer

LoL je suis en train de mater le meme exemple , merci quand meme de ton aide je te remercie ciao et bonne prog. !

zaert · Answer

Juste un dernier truc , apparement tu as raison il doit y avoir une syntaxe particuliere en VBS car j'ai modifier un peu mon code et voila ce que sa donne :

Dim Multi1, Multi2, MessFaux, StyleBox, Response, Mystring


Msgbox "Bienvenue dans le programme de R&#233;vision des table de multiplication" & vbcrlf & _
              "Ce logiciel a &#233;t&#233; cr&#233;e par ZaerT." & vbcrlf & "Avant de commencer , nous allons voir quelques " & _
              "r&#232;gles de ce petit programme !" & vbcrlf & "Alors , tu devras marquer uniquement la reponse en " &  _
              "chiffres (ex : 1 fois 1 > tu ecris 1) !" & vbcrlf & "Tu pourras , si tu t'es tromp&#233;(e) , recommencer " & _
              "ou passer a la table suivante ! ", vbInformation, "Bienvenue"


MessFaux = " est une reponse fausse ! Retante ta chance ou passe cette multiplication !"
styleBox = vbRetryCancel + 48


DEBUTBOUCLE:
while multi1 = ""
   multi1 = inputbox ("A combien est &#233;gale 1 fois 1 ?","Table de multiplication du nombre 1","Reponse")
wend


if multi1 = "1" then
   Msgbox "1 est la bonne r&#233;ponse! On passe a la multiplication suivante !", 48
else
   response = msgbox(multi1 & messFaux, styleBox)
end if


If Response = vbRetry Then
   Mystring = Goto multi1 <<<<<<<<<<<<<<<<<<<<<<<<<Ce que j'ai modifier
ElseIf Response = vbCancel Then
    Mystring = wscript.quit
End If

Et cette fois sa me met erreur de syntaxe donc ou chercher pour trouver LA syntaxe particuliere ?

PCPT · Answer

Mystring = Goto multi1 <<<<<<<<<<<<<<<<<<<<<<<<<Ce que j'ai modifier

bon!

GOTO = "aller &#224;"

tu connais un peu l'HTML?
la comparaison serait (...) plus simple si oui ;)

une page HTML, tu peux faire un lien ^top
et hop, comme par magie, il retourne en haut de page

ce lien est en fait un appel &#224; la m&#234;me page sur ce qu'on appelle une ancre
en d&#233;but de page :
click top ici

c'est pareil, l&#224; on fait une ancre au d&#233;but
DEBUTBOUCLE:

et dans la condition en bas, si r&#233;-essayer
1. Mystring recoit le contenue de la variable Multi1
2. on retourne &#224; l'ancre DEBUTBOUCLE

toi, tu lui dis que la variable MyString re&#231;oit un point de retour....., forc&#233;ment, &#231;&#224; n'a aucun sens....

essaie de v&#233;rifier ta syntaxe par rapport &#224; mes pr&#233;c&#233;dents posts. s'il y avait une syntaxe particuli&#232;re VBA, je suppose que tu l'aurais d&#233;j&#224; trouv&#233;...
PCPT

PCPT · Answer

...sans parler du fait que c'est un retour &#224; un point inexistant...
(Multi1 est une variable, pas une "ancre")

[VBS] Retour a un inputbox ...

21 réponses

Discussions similaires