Affichage digit pour JB

par **Shadow272** Sam 18 Jan - 9:29

Tout est dans le titre.

Code:: CLS ' DEFTEXT 1,0,0,6 ' DO PRINT AT(15,5);"Vitesse: "; FORM INPUT 3,vitesse$ EXIT IF vitesse$="" v$=SPACE$(3) l|=LEN(vitesse$) IF l|=3 v$=CHR$(ASC(MID$(vitesse$,1,1))-32) v$=v$+CHR$(ASC(MID$(vitesse$,2,1))-32) v$=v$+CHR$(ASC(MID$(vitesse$,3,1))-32) ENDIF IF l|=2 v$=CHR$(32) v$=v$+CHR$(ASC(MID$(vitesse$,1,1))-32) v$=v$+CHR$(ASC(MID$(vitesse$,2,1))-32) ENDIF IF l|=1 v$=CHR$(32) v$=v$+CHR$(32) v$=v$+CHR$(ASC(MID$(vitesse$,1,1))-32) ENDIF TEXT 145,120,v$ PAUSE 50 LOOP