Auteur : univscienCréé le : 23/02/2007
Groupe : Administrateur
Difficultée : 2/6
Télécharger
Code:
:ClrDraw
:ClrHome
:AxesOff
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Line(60,0,60,42
:Line(0,40,60,40
:Line(0,47,60,47
:Line(0,10,60,10
:Line(0,18,60,18
:Line(60,40,60,47,0
:Line(60,10,60,18,0
:0->Z
:2->A
:2->B
:Text(5,1,"ADVERSAIRE:"
:Text(34,1,"TOI:"
:While Z=0
:getKey->K
:For(X,1,4
:getKey->K
:Text(16,A,"°"
:Text(16,A,"."
:If K=105
:B+1->B
:Text(16,A-1," "
:Text(45,B-1," "
:If B>60
:1->Z
:If A>60
:2->Z
:End
:A+1->A
:End
:If Z=1
:Then
:Text(25,62,"BRAVO, TU"
:Text(32,62,"AS GAGNE!"
:End
:If Z=2
:Then
:Text(20,65,"DESOLE, "
:Text(27,65,"TU AS "
:Text(35,65,"PERDU!"
:End
:If A=B
:Text(1,62,"EGALITE!"
:Pause
:Pause
:ClrDraw
:ClrHome
:AxesOff
:0->Xmin
:94->Xmax
:0->Ymin
:62->Ymax
:Line(60,0,60,42
:Line(0,40,60,40
:Line(0,47,60,47
:Line(0,10,60,10
:Line(0,18,60,18
:Line(60,40,60,47,0
:Line(60,10,60,18,0
:0->Z
:2->A
:2->B
:Text(5,1,"ADVERSAIRE:"
:Text(34,1,"TOI:"
:While Z=0
:getKey->K
:For(X,1,4
:getKey->K
:Text(16,A,"°"
:Text(16,A,"."
:If K=105
:B+1->B
:Text(16,A-1," "
:Text(45,B-1," "
:If B>60
:1->Z
:If A>60
:2->Z
:End
:A+1->A
:End
:If Z=1
:Then
:Text(25,62,"BRAVO, TU"
:Text(32,62,"AS GAGNE!"
:End
:If Z=2
:Then
:Text(20,65,"DESOLE, "
:Text(27,65,"TU AS "
:Text(35,65,"PERDU!"
:End
:If A=B
:Text(1,62,"EGALITE!"
:Pause
:Pause
:ClrDraw
Voilà un p'tit programme que j'ai fait en 20 min.
Le but est d'appuyer le plus vite possible sur [ENTRER] pour être le premier à la ligne d'arrivée.
Il n'est pas trés compliqué. Vous allez vite comprendre le fonctionnement. Pour la difficultée,
c'est le chiffre en rouge qu'il faut changer.
