IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Chiffre au hasard


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    sans emploi
    Inscrit en
    Septembre 2010
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : sans emploi

    Informations forums :
    Inscription : Septembre 2010
    Messages : 24
    Par défaut Chiffre au hasard
    Bonjour,

    voila un petits script qui vous demande de choisir un chiffre et au piff et qui en choisie un aussi tout seul si c'est comme se que vous avez choisi alors vous gagner sinon vous perdez, sa c'est pour ceux qui save pas quoi faire au boulot dans la journée, je poste mon code vbs pour ceux que sa interesse.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
     
    Dim ChoixChiffre, Response,N,Z
    Randomize     ' Initialise Le Générateur De Nombres Aléatoires.
    TrouveChiffre()			
    Function TrouveChiffre()
       ChoixChiffre=Int((100 * Rnd) + 1)
       Z=ChoixChiffre
     '  Wscript.Echo("")&Z ' affiche le chiffre mystere pour le test
       N=inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
       Wscript.Echo("votre chiffre et le "&N),(" et le chiffre mystere = ") &Z
    End Function
    Function StartFin()
    If Response =VbYes Then TrouveChiffre()
    if response=vbNo then fin()
    End Function
    Function Fin()
    wscript.quit 0
    End Function
    Do Until Response = VbNo
       Response=MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"CHIFFRE MYSTERE")
       StartFin()
    Loop
    Créer par ©Castou60

  2. #2
    Membre confirmé Avatar de fabrice.s
    Homme Profil pro
    Inscrit en
    Septembre 2010
    Messages
    120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2010
    Messages : 120
    Par défaut
    Slt,

    C'est clair qu'il faut avoir que ça à faire au taf.
    Je m'amusait déjà avec ce genre de code en basic il y a une quinzaine d'année.

    On peut aussi s'amuser à le faire en Batch pour ce que ça intéresse.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
     
    @echo off
    echo un Petit Jeu qui Sert a Rien Mais Qui Passe Le Temps.
    echo Pour Ce Qui N Ont Rien d Autre A Faire Au Taf.
    echo By FS
     
    set /a n="%random%%%101"
    set count=0
     
    :Loop
     
    echo Choissisez un Nombre entre 1 et 100
    set /p m=%choice%
    set /a count=%count%+1
     
    if %m%==%n% (
    cls
    Goto Fin
    )
    if %m% LSS %n% (
    echo Trop Petit
    Goto Loop
    )
    if %m% GTR %n% (
    echo Trop Grand
    Goto Loop
    )
     
    :Fin
    echo Vous Avez Gagne
    echo Nombre de Coups Joue: %count%
    Pause
    exit

  3. #3
    Membre averti
    Homme Profil pro
    sans emploi
    Inscrit en
    Septembre 2010
    Messages
    24
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : sans emploi

    Informations forums :
    Inscription : Septembre 2010
    Messages : 24
    Par défaut modif ajout niveau
    bonjour,

    Je me suis dit que peut etre avec quelques niveaux sa pourrait etre un peu mieu alors je rajoute ceci, et après je vois pour y rajouter un compteur de coup, enfin voici le script un petit peu retravailler:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
     
    '--------------------------------------------------------------------------
    dim ChoixChiffre,Reponse,n,z,niveau
    start()
    function start()
    niveau=inputbox("Veuiller choisir un niveau"& vbCrLf & "" & vbCrLf &"niveau1 = 0 à 10           PavNum1"& vbCr &"niveau2 = 0 à 100         PavNum2"& vbCr &"niveau3 = 0 à 1000       PavNum3","CHIFFRE MYSTERE")
    if niveau = "1" then niva()
    if niveau = "2" then nivb()
    if niveau = "3" then nivc()
    end function
     
    Function niva()
    ChoixChiffre=0
    Randomize
    n=inputbox("Entrer un chiffre entre 1 et 10","CHIFFRE MYSTERE")
    if n = "" then n = inputbox("Entrer un chiffre entre 1 et 10","CHIFFRE MYSTERE")
    if n = "" then wscript.quit 0
    ChoixChiffre = Int((10 * Rnd) + 1)
    z = ChoixChiffre
    wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
    fin()
    end function
     
    function nivb()
    ChoixChiffre=0
    Randomize
    n=inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
    if n = "" then n = inputbox("Entrer un chiffre entre 1 et 100","CHIFFRE MYSTERE")
    if n = "" then wscript.quit 0
    ChoixChiffre = Int((100 * Rnd) + 1)
    z = ChoixChiffre
    wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
    fin()
    end function
     
    function nivc()
    ChoixChiffre=0
    Randomize
    n=inputbox("Entrer un chiffre entre 1 et 1000","CHIFFRE MYSTERE")
    if n = "" then n = inputbox("Entrer un chiffre entre 1 et 1000","CHIFFRE MYSTERE")
    if n = "" then wscript.quit 0
    ChoixChiffre = Int((1000 * Rnd) + 1)
    z = ChoixChiffre
    wscript.echo("Votre chiffre = "&n & vbCrLf & "Chiffre mystere = ")&z
    fin()
    end function
     
    Function fin()
    ChoixChiffr=0
    bouton = MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"CHIFFRE MYSTERE")
    if bouton = vbYes then start()
    if bouton = vbNo then fini()
    End function
     
    Function fini()
    Wscript.quit 0
    end function
    '-----------------------------------©Castou60----------------------------
    ©Castou60

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. chiffre au hasard Random
    Par manuso dans le forum ASP.NET
    Réponses: 1
    Dernier message: 03/01/2014, 12h18
  2. [MySQL] chiffre au hasard
    Par epoc.01 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 07/09/2010, 16h24
  3. Algorithme de randomisation ... ( Hasard ...? )
    Par Anonymous dans le forum Assembleur
    Réponses: 8
    Dernier message: 06/09/2002, 14h25
  4. Chiffre a Virgule Fixe
    Par garybaldi dans le forum C
    Réponses: 3
    Dernier message: 21/06/2002, 10h41
  5. Recherche programme qui convertit les chiffres arabes en nb
    Par oli57 dans le forum Algorithmes et structures de données
    Réponses: 5
    Dernier message: 15/06/2002, 03h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo