Répondre à la discussion
Affichage des résultats 1 à 5 sur 5

J'arrive pas à faire tourner un program .vbs simple




  1. #1
    N738139

    J'arrive pas à faire tourner un program .vbs simple

    Bonjour à tous,

    J'essaye de tourner ce fichier .txt en .vbs sur windows 10.
    J'entre 2 valeur (par exemple 7 et 77 ou 7 et 51 ou 3 et 15), mais aucune réponse et mon processeur qui chauffe à 30%.

    Qqun saurait ce qui ne joue pas ?

    (Je souhaiterais garder la forme générale du programme : addition, multiplication et test de condition seulement)
    -------------------------------------


    option explicit

    dim n
    dim x
    dim a
    dim b
    dim z

    x = inputbox("enter_approx_below_s quare")

    a = 3
    b = x
    z = a * b

    n = inputbox("enter_semi_premier")

    Do While z <> n
    b = b + 2
    if b > n then
    a = a + 2
    b = x
    z = a * b
    end if

    loop

    MsgBox " " & a & " "
    MsgBox " " & b & " "
    MsgBox " " & z & " "


    -------------------------------------



    Cordialement.

    -----


  2. Publicité
  3. #2
    Ikhar84

    Re : J'arrive pas à faire tourner un program .vbs simple

    Salut,

    À première vue (d'un oeil) puisque
    Code:
    Do While z <> n
    z étant toujours différent de n (pas egal) on ne sort jamais de la boucle... d'où la boucle infini... et comme la message box est après le loop... pas de message, juste un proc qui surchauffe...

    Edit: pourquoi utiliser b et x et pas une seule variable ?
    Pourquoi b est de nouveau remis à la valeur de x en cours de boucle ?
    (Je sais j'ai vraiment survolé...)
    Dernière modification par Ikhar84 ; 12/07/2018 à 16h55.
    J'ai glissé Chef !

  4. #3
    N738139

    Re : J'arrive pas à faire tourner un program .vbs simple

    Citation Envoyé par Ikhar84 Voir le message
    Salut,

    À première vue (d'un oeil) puisque
    Code:
    Do While z <> n
    z étant toujours différent de n (pas egal) on ne sort jamais de la boucle... d'où la boucle infini... et comme la message box est après le loop... pas de message, juste un proc qui surchauffe...

    Edit: pourquoi utiliser b et x et pas une seule variable ?
    Pourquoi b est de nouveau remis à la valeur de x en cours de boucle ?
    (Je sais j'ai vraiment survolé...)
    Hello!

    Merci pour la réponse rapide

    CORRECTION (qui m'a échappée) : le dernier "z = a * b" se situe entre le "end if" et le "loop"

    Imaginons 5 et 35 :
    z = 3 * 5
    b = 7
    z = 3 * 7
    b = 9
    ...
    z = 3 * 13
    b = 15
    z = 3 * 15
    b = 17
    ...
    b = 37
    a devrait passer à 5 et b remis à b=x=5. Ensuite, etc. jusqu'à z = 5 * 7 = n = 35 (end loop)
    ???
    Dernière modification par N738139 ; 12/07/2018 à 17h09.


  5. #4
    Spazi

    Re : J'arrive pas à faire tourner un program .vbs simple

    Citation Envoyé par N738139 Voir le message
    option explicit

    dim n
    dim x
    dim a
    dim b
    dim z

    x = CInt(inputbox("enter_approx_below_s quare"))

    a = 3
    b = x
    z = a * b

    n = CInt(inputbox("enter_semi_premier"))

    Do While z <> n
    b = b + 2
    if b > n then
    a = a + 2
    b = x
    z = a * b
    end if

    loop

    MsgBox " " & a & " "
    MsgBox " " & b & " "
    MsgBox " " & z & " "
    Correction en gras (sur les inputbox)

  6. #5
    N738139

    Re : J'arrive pas à faire tourner un program .vbs simple

    Ouah !!! Trop fort.

    Merci beaucoup !

    "Discussion close (à moins d'une volonté de parler du programme)."

  7. A voir en vidéo sur Futura

Discussions similaires

  1. [Autre] faire tourner un petit moteur 3-6V???
    Par cathy222 dans le forum Électronique
    Réponses: 10
    Dernier message: 07/11/2017, 10h52
  2. Faire tourner un objet
    Par lucaspngr92 dans le forum Technologies
    Réponses: 33
    Dernier message: 01/11/2017, 08h33
  3. Faire tourner un système
    Par spliterz dans le forum Technologies
    Réponses: 5
    Dernier message: 28/01/2014, 14h00
  4. Faire tourner moteur magnétoscope
    Par REMVS dans le forum Électronique
    Réponses: 11
    Dernier message: 18/04/2008, 10h02