Pour ceux qui s'ennuient en cours :-)
Code |
Lbl 0
ClrHome
Menu("*--TIME'S MENU-*",HEURE DE COURS",A,"QUITTER",Q
Lbl Q
Clrhome
Output(1,1," //pas d'espace apres le guillemet
Stop
Lbl A
ClrHome
Input "MINUTES PASSEES:",M
(M/55)*100->M // sur 55 min de cours
ClrHome
Output(5,1,M
If M<10:Output(5,2," "
Output(5,3," "
Output(5,3,"/100
Pause
Goto 0 |
|