andrethegiant CrEaTiVe PoWeR | Bonjour à vous tous, bien alors je me suis lancé dans la programmation suite à un article dans un magasine.
Alors voilà mon code, c'est tout simple mais je ne comprends pas, j'ai plein d'erreurs et je ne sais pas les corriger.
Il faut savoir que j'ai comme logiciel "liberty basic" et Microsoft Visual Basic 2005.
J'avoue que j'ai de gros soucis
Voici le code :
Code :
- 'déclaration des variables
- DIM fortune AS INTEGER
- DIM numero, mise AS INTEGER
- DIM nom AS STRING
- DIM num AS INTEGER
- ' debut du programme : on demande les paramètres '
- init: 'etiquette init : un GOTO init atterira ici
- CLS
- INPUT "Entrez votre nom :", nom
- entrefortune:
- INPUT "Entrez votre fortune :", _
- IF (fortune <= 0) THEN GOTO entrefortune
- 'on initialise le generateur
- RANDOMIZE fortune
- 'debut du jeu
- joue:
- PRINT "Vous avez ", fortune, "euro(s)."
- entrermise:
- INPUT "Miser :", mise
- IF ((fortune - mise) <= 0) _
- THEN GOTO entrermise
- INPUT "Sur le numéro (0-100) :", numero
- 'on tire un numéro au hasard
- num = INT(100 * RND) + 1
- 'et on compare
- IF (numero >= (num - 5)
- AND numero <= + 5)) THEN
- 'si identique alors gagne 2 fois la mise
- fortune = fortune + mise * 2
- PRINT "Bravo, le numero gagnant est bien le", _ numero,
- "!"
- ELSE
- 'si pas pareil alors perds la mise
- fortune = fortune - mise
- IF (fortune <= 0) GOTO fin
- PRINT "Le numéro", num, _
- "est sorti. Ce n'est pas le bon !"
- END IF
- GOTO joue
- fin:
- PRINT "Vous n'avez plus de tune ..."
- END
|
Si quelqu'un pourrais me faire la correction et me donner les explications qui vont avec, je lui en serais très reconnaissant. Merci encore et bonne continuation. |