Feux de carrefour en qbasic
Résolu/Fermé
qbasic45
Messages postés
55
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
15 juin 2019
-
Modifié par qbasic45 le 11/10/2015 à 15:09
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 15 oct. 2015 à 11:40
qbasic45 Messages postés 55 Date d'inscription vendredi 14 décembre 2012 Statut Membre Dernière intervention 15 juin 2019 - 15 oct. 2015 à 11:40
A voir également:
- Feux de carrefour en qbasic
- Eau distillée carrefour ✓ - Forum Matériel informatique
- Imprimer des documents carrefour - Forum Imprimante
- Carte cadeau amazon carrefour - Forum Loisirs / Divertissements
- Qbasic windows 10 - Télécharger - Édition & Programmation
- Comment avoir le qbasic compatible sur Windows 10? - Forum Windows 10
1 réponse
qbasic45
Messages postés
55
Date d'inscription
vendredi 14 décembre 2012
Statut
Membre
Dernière intervention
15 juin 2019
3
15 oct. 2015 à 11:40
15 oct. 2015 à 11:40
REM Feux de carrefour ou Feux Rouge ou Feux Tricolres
REM pour 1 une minute
cls
REM Feux(1)
fe1$ = STRING$(60,"R")
REM Piéton(1)
pi1$ = STRING$(59,"v") + "r"
REM Feux(2)
fe2$ = STRING$(58,"V") + "OO"
REM Piéton(2)
pi2$ = STRING$(60,"r")
REM le tenpo
t=99
rem tenpo feux
p=1
rem debut
do
REM les secondes
s = VAL(MID$(TIME$,7,2)
IF s=t THEN GOTO fin
REM Feux(1)
IF MID$(fe1$,p,1)="R" THEN
COLOR 4:LOCATE 1,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="O" THEN
COLOR 6:LOCATE 3,1:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="V" THEN
COLOR 2:LOCATE 5,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,1:PRINT CHR$(177)
END IF
REM Piéton(1)
IF MID$(pi1$,p,1)="r" THEN
COLOR 4:LOCATE 8,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,1:PRINT CHR$(177)
END IF
IF MID$(pi1$,p,1)="v" THEN
COLOR 2:LOCATE 10,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,1:PRINT CHR$(177)
END IF
REM Feux(2)
IF MID$(fe2$,p,1)="R" THEN
COLOR 4:LOCATE 1,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="O" THEN
COLOR 6:LOCATE 3,8:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="V" THEN
COLOR 2:LOCATE 5,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,8:PRINT CHR$(177)
END IF
REM Piéton(2)
IF MID$(pi2$,p,1)="r" THEN
COLOR 4:LOCATE 8,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,8:PRINT CHR$(177)
END IF
IF MID$(pi2$,p,1)="v" THEN
COLOR 2:LOCATE 10,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,8:PRINT CHR$(177)
END IF
p=p+1
REM inversé inversé
IF p=60 THEN SWAP Fe1$,Fe2$ : SWAP Pi1$,Pi2$:p=1
t=s
fin:
LOOP UNTIL LEN(INKEY$)
REM pour 1 une minute
cls
REM Feux(1)
fe1$ = STRING$(60,"R")
REM Piéton(1)
pi1$ = STRING$(59,"v") + "r"
REM Feux(2)
fe2$ = STRING$(58,"V") + "OO"
REM Piéton(2)
pi2$ = STRING$(60,"r")
REM le tenpo
t=99
rem tenpo feux
p=1
rem debut
do
REM les secondes
s = VAL(MID$(TIME$,7,2)
IF s=t THEN GOTO fin
REM Feux(1)
IF MID$(fe1$,p,1)="R" THEN
COLOR 4:LOCATE 1,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="O" THEN
COLOR 6:LOCATE 3,1:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="V" THEN
COLOR 2:LOCATE 5,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,1:PRINT CHR$(177)
END IF
REM Piéton(1)
IF MID$(pi1$,p,1)="r" THEN
COLOR 4:LOCATE 8,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,1:PRINT CHR$(177)
END IF
IF MID$(pi1$,p,1)="v" THEN
COLOR 2:LOCATE 10,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,1:PRINT CHR$(177)
END IF
REM Feux(2)
IF MID$(fe2$,p,1)="R" THEN
COLOR 4:LOCATE 1,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="O" THEN
COLOR 6:LOCATE 3,8:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="V" THEN
COLOR 2:LOCATE 5,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,8:PRINT CHR$(177)
END IF
REM Piéton(2)
IF MID$(pi2$,p,1)="r" THEN
COLOR 4:LOCATE 8,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,8:PRINT CHR$(177)
END IF
IF MID$(pi2$,p,1)="v" THEN
COLOR 2:LOCATE 10,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,8:PRINT CHR$(177)
END IF
p=p+1
REM inversé inversé
IF p=60 THEN SWAP Fe1$,Fe2$ : SWAP Pi1$,Pi2$:p=1
t=s
fin:
LOOP UNTIL LEN(INKEY$)