Feux de carrefour en qbasic
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
je voudrais faire un programme des feux de carrefour en qbasci
ne pasfaire les dessins des feux
jusque la programmation pour les feux plus pietons
la duree pendant enre 0 - 59 seconde = une minute maximun pour feu run (A) et feu run (B)
cls:screen 0
rem programmtion feu rue (A)
rem programmtion feu rue (B)
Windows XP
je voudrais faire un programme des feux de carrefour en qbasci
ne pasfaire les dessins des feux
jusque la programmation pour les feux plus pietons
la duree pendant enre 0 - 59 seconde = une minute maximun pour feu run (A) et feu run (B)
cls:screen 0
rem programmtion feu rue (A)
rem programmtion feu rue (B)
Windows XP
A voir également:
- Feux de carrefour en qbasic
- Qbasic - Télécharger - Édition & Programmation
- Stop sms 36001 carrefour - Guide
- Carrefour - Accueil - Piratage
- Chargeur smartfit s wee' plug carrefour - Forum Accessoires & objets connectés
- Adaptateur péritel hdmi carrefour - Forum Lecteurs et supports vidéo
1 réponse
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$)
