Le dé and qbasic 4.5
Résolu
qbasic45
Messages postés
55
Date d'inscription
Statut
Membre
Dernière intervention
-
qbasic45 Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
qbasic45 Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
bonjour
le texte en police d'écriture ( courier new taille 10 )
je voudrais faire un jeux avec trois dé mais un vrais dé
que la programmation pas les dessins
car les dessins des six faces du dé déjà
chaque dé devraient faire
soit une rotation sur lui-meme
soit une rotation des faces vers le haut
soit une rotation des faces vers le bas
soit une rotation des faces vers la gauche
soit une rotation des faces vers la droite
attention: le dé devrait etre un vrait dé
si la face du dé devant vous est 1
la face a gauchedu dé est 2
la face a droite du dé est 5
la face en haut du dé est 4
la face en bas du dé est 3
la face arriere du dé est 6
merci
le texte en police d'écriture ( courier new taille 10 )
je voudrais faire un jeux avec trois dé mais un vrais dé
que la programmation pas les dessins
car les dessins des six faces du dé déjà
chaque dé devraient faire
soit une rotation sur lui-meme
soit une rotation des faces vers le haut
soit une rotation des faces vers le bas
soit une rotation des faces vers la gauche
soit une rotation des faces vers la droite
attention: le dé devrait etre un vrait dé
si la face du dé devant vous est 1
la face a gauchedu dé est 2
la face a droite du dé est 5
la face en haut du dé est 4
la face en bas du dé est 3
la face arriere du dé est 6
merci
A voir également:
- Le dé and qbasic 4.5
- Qbasic - Télécharger - Édition & Programmation
- Net framework 4.5 - Télécharger - Divers Utilitaires
- Spybot search and destroy - Télécharger - Antivirus & Antimalwares
- Mars 4.5 download - Télécharger - Agendas & Calendriers
- Find and mount - Télécharger - Récupération de données
1 réponse
bonjour
j'ai trouve une fonction manuelle pour le faire pour un dé
CLS : RANDOMIZE TIMER
1 REM
A = INT(RND * 8) - 1:
IF A < 1 OR A > 6 THEN 1
b1 = 7 - A
2 REM
C = INT(RND * 8) - 1
IF C < 1 OR C > 6 THEN 2
IF C = A OR C = b1 THEN 2
d1 = 7 - C
3 REM
E = INT(RND * 8) - 1
IF E < 1 OR E > 6 THEN 3
IF E = A OR E = b1 OR E = C OR E = d1 THEN 3
d1 = 0: b1 = 0
GOTO 15
'rem menu
10 REM
DO
A$ = INKEY$
LOOP UNTIL A$ > ""
IF A$ = CHR$(27) THEN END
'si une rotation sur lui-meme ver la droite
'fonsion (R-D)
IF A$ = "R" OR A$ = "r" THEN R = 0: R = A: A = C: C = B: B = D: D = R: R = 0
'si une rotation sur lui-meme ver la gauche
'fonsion (R-G)
IF A$ = "O" OR A$ = "o" THEN R = 0: R = D: B = C: D = B: C = A: A = R: R = 0
'si ver la gauche
'fonsion (G)
IF A$ = "G" OR A$ = "g" THEN E = C: C = F
'si ver la droite
'fonsion (D)
IF A$ = "D" OR A$ = "d" THEN C = E: E = D
'si ver le haut
'fonsion (H)
IF A$ = "H" OR A$ = "h" THEN A = E: E = B
'si ver le bas
'fonsion (B)
IF A$ = "B" OR A$ = "b" THEN E = A: A = F
15 REM
B = 7 - A
D = 7 - C
F = 7 - E
LOCATE 1, 1: PRINT
PRINT STRING$(3, CHR$(32)); A
PRINT C; E; D
PRINT STRING$(3, CHR$(32)); B
'face arriere F
LOCATE 40, 1: PRINT "rotation sur lui-meme ver la droite = ( R )"
LOCATE 41, 1: PRINT "rotation sur lui-meme ver la gauche = ( O )"
LOCATE 42, 1: PRINT "ver la gauche = ( G )"
LOCATE 43, 1: PRINT "ver la droite = ( D )"
LOCATE 44, 1: PRINT "ver le haut = ( H )"
LOCATE 45, 1: PRINT "ver le bas = ( B )"
LOCATE 46, 1: PRINT "presser ( ESC ) pour sortir"
'retour au menu
GOTO 10
j'ai trouve une fonction manuelle pour le faire pour un dé
CLS : RANDOMIZE TIMER
1 REM
A = INT(RND * 8) - 1:
IF A < 1 OR A > 6 THEN 1
b1 = 7 - A
2 REM
C = INT(RND * 8) - 1
IF C < 1 OR C > 6 THEN 2
IF C = A OR C = b1 THEN 2
d1 = 7 - C
3 REM
E = INT(RND * 8) - 1
IF E < 1 OR E > 6 THEN 3
IF E = A OR E = b1 OR E = C OR E = d1 THEN 3
d1 = 0: b1 = 0
GOTO 15
'rem menu
10 REM
DO
A$ = INKEY$
LOOP UNTIL A$ > ""
IF A$ = CHR$(27) THEN END
'si une rotation sur lui-meme ver la droite
'fonsion (R-D)
IF A$ = "R" OR A$ = "r" THEN R = 0: R = A: A = C: C = B: B = D: D = R: R = 0
'si une rotation sur lui-meme ver la gauche
'fonsion (R-G)
IF A$ = "O" OR A$ = "o" THEN R = 0: R = D: B = C: D = B: C = A: A = R: R = 0
'si ver la gauche
'fonsion (G)
IF A$ = "G" OR A$ = "g" THEN E = C: C = F
'si ver la droite
'fonsion (D)
IF A$ = "D" OR A$ = "d" THEN C = E: E = D
'si ver le haut
'fonsion (H)
IF A$ = "H" OR A$ = "h" THEN A = E: E = B
'si ver le bas
'fonsion (B)
IF A$ = "B" OR A$ = "b" THEN E = A: A = F
15 REM
B = 7 - A
D = 7 - C
F = 7 - E
LOCATE 1, 1: PRINT
PRINT STRING$(3, CHR$(32)); A
PRINT C; E; D
PRINT STRING$(3, CHR$(32)); B
'face arriere F
LOCATE 40, 1: PRINT "rotation sur lui-meme ver la droite = ( R )"
LOCATE 41, 1: PRINT "rotation sur lui-meme ver la gauche = ( O )"
LOCATE 42, 1: PRINT "ver la gauche = ( G )"
LOCATE 43, 1: PRINT "ver la droite = ( D )"
LOCATE 44, 1: PRINT "ver le haut = ( H )"
LOCATE 45, 1: PRINT "ver le bas = ( B )"
LOCATE 46, 1: PRINT "presser ( ESC ) pour sortir"
'retour au menu
GOTO 10
