probleme de goto dans un if

probleme de goto dans un if - VB/VBA/VBS - Programmation

Marsh Posté le 18-03-2018 à 16:09:29    

Bonjour,
je suis débutant en vbs
j'aimerais créer un minuteur, mais il y a un probleme à la ligne 7:
 
 
1   minutes = inputbox("à combien de minutes voulez-vous initialiser le minuteur" )
2   sec = minutes * 60
3   msec = sec * 1000
4   WScript.Sleep(msec)
5   :minuteur
6   if not e.KeyCode = Keys.Enter then
7   goto :minuteur
8   Endif
9   CreateObject("WScript.Shell" ).Run "C:\Users\remou\Downloads\0925.mp3"
10 if not e.KeyCode = Keys.Enter then
11 goto minuteur
12 endif
13 WScript.sleep(4000)
14 if not e.KeyCode = Keys.Enter then
15 goto :minuteur
16 endif
 
pouvez vous réctifiez mon erreur please  
Merci.

Reply

Marsh Posté le 18-03-2018 à 16:09:29   

Reply

Marsh Posté le 18-03-2018 à 18:19:14    

ligne 11 je ne vois pas de double point devant le label, ligne 7 j'en vois...

Reply

Marsh Posté le 08-05-2018 à 18:49:47    

Bonjour,
 
intéressant... Plusieurs erreurs dans votre script, on retrouve des commandes en VBS et d'autres en CMD... Un choix est à faire :-)
 
Sinon, en VBS :
 
 - A la place du goto on pourrait déjà faire un sub
 - il y a un espace à End if (lignes 8, 12 et 16)
 - les : ne sont pas gérés comme un label en VBS mais plutôt comme séparateur entre 2 instructions
 
Pouvez-vous préciser les fonctions que vous souhaitez exécuter avec votre script car plusieurs notions me semblent mélangées..?
 
Par ex. :
 
1 - Demander le temps du minuteur en minutes
2 - Exécuter la tempo demandée pour le minuteur
3 - Etc.


Message édité par steph78630 le 08-05-2018 à 21:41:15

---------------
"L'erreur est humaine mais un véritable désastre nécessite un ordinateur." de William Henry, dit Bill Gates
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed