Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Thetaplus
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 30 Aoû 2007, 19:12   Citer 

Un "petit" programme comme ça^^

Difficile à expliquer, mais disons qu'il permet d'écrire à l'écran dans la taille souhaité cupsmiley.gif

http://www.badongo.com/file/4205545

http://www.servimg.com/image_preview.php?i=35&u=11087886

Code
0->Xmin:0->Ymin
0->T:AxesOff:LabelOff:CoordOff
Repeat T and T<31
ClrHome
Output(8,1,"(C)2007/PAR COC5
Disp "
Input "TAILLE (1/30)   ",T
End
5(32-T->Ymax
Ymax/.66->Xmax
0->R:Ymax-9->W
ClrDraw
Ymax/62->Q
Xmax/94->P
For(I,R+1,R+7,P
Pt-Change(I,W-1
End
Repeat K=22
getKey->K
If K:Then
If K=45:Then
If not(R:Then
ClrDraw
54->W
-8-P->R

End
If R:Then
For(I,W-1,W+9,Q
Line(0,I,94,I,0
End
-P-8->R
End
W-8-2Q->W
End
If Kø45:Then
For(I,R+1,R+7,P
Pt-Change(I,W-1
End:End
If K=41:Then
Line(R,W,R+3,W+8
Line(R+1,W+3,R+5,W+3
Line(R+3,W+8,R+6,W
End
If K=53:Then
R+1
Line(Ans,W,Ans,W+8
Line(Ans,W+8,R+6,W+8
Line(Ans,W+5,R+5,W+5
End
If K=75:Then
Line(R+2,W+4,R+6,W
Line(R,W,R,W+8
Line(R,W+8,R+5,W+7
Line(R+5,W+6,R+4,W+5
Line(R+4,W+5,R,W+3
End
If K=51
Then
R+5
Line(R,W,R,W+8
Line(R,W,Ans,W+2
Line(Ans,W+2,Ans,W+6
Line(Ans,W+6,R,W+8
End
If K=64:Then
Line(R,W+1,R+5,W
Line(R+1,W+7,R,W+1
End
If K=65:Then
W+7
Line(R,W,R,Ans
Line(R,Ans,R+3,W+4
Line(R+3,W+4,R+6,Ans
Line(R+6,Ans,R+6,W
End
If K=43:Then
Line(R+1,W+6,R+6,W+7
Line(R+1,W+6,R,W+1
Line(R,W+1,R+6,W
End
If K=62:Then
Line(R+1,W+3,R+2,W+1
Line(R+2,W+1,R+4,W
R+6
Line(R+4,W,Ans,W+2
Line(Ans,W+2,Ans,W+8
End
If K=63:Then
Line(R,W+3,R+6,W+7
Line(R,W+4,R+6,W
Line(R,W,R,W+7
End
If K=55:Then
R+1
Line(Ans,W,Ans,W+8
Line(Ans,W+4,R+6,W+4
Line(R+6,W,R+6,W+8
End
If K=91:Then
Line(R+1,W,R+6,W+7
Line(R+6,W,R+1,W+7
End
If K<27 or K=34:Then
If K=24:R-12-4P->R
If K=25 or K=34:R-6-Xmax/47->R
W+(8+Q2)((K=25)-(K=34->W
If K=23:Then
For(I,R,R+7
Line(I,W,I,W+8,0
End
R-6-2P->R
End
End

If K=71
Then
R+1
Line(Ans,W,Ans,W+7
Line(Ans,W+7,R+5,W+2
Line(R+5,W,R+6,W+7
End
If K=73:Then
R+1
Line(Ans,W,Ans,W+7
Line(Ans,W+7,R+7,W+6
Line(R+7,W+6,R+6,W+4
Line(R+6,W+4,Ans,W+3
End
If K=81:Then
Line(R,W,R+6,W+2
Line(R+6,W+2,R,W+6
Line(R,W+6,R+6,W+8
End
If K=82
Then
Line(R+4,W,R+4,W+7
Line(R+1,W+7,R+7,W+7
End
If K=83:Then
R+6
Line(R,W+7,R,W+Q
Line(R+P,W,Ans-P,W
Line(Ans,W+Q,Ans,W+7
End
If K=85:Then
For(I,R,R+3.5,3.5
Line(I,W+7,I+2,W
Line(I+2,W,I+4,W+7
End
End
If K=92:Then
Line(R,W+7,R+4,W+4
Line(R+4,W+4,R+7,W+7
Line(R+3,W,R+4,W+4:End
If K=93:Then
Line(R+1,W,R+7,W
W+7
Line(R+1,W,R+7,Ans
Line(R+1,Ans,R+7,Ans
End
If K=94:Line(R+2,W+2,R+6,W+6
If K=84
Then
R+3
Line(R,W+7,Ans,W
Line(Ans,W,R+6,W+7
End
If K=61:Then
W+4
Line(R+4,W,R+4,Ans
Line(R+3,Ans,R+5,Ans
Line(R+3,W,R+5,W
Circle(R+4,W+7,1
End
If K=52:Then
W+7
Line(R,W,R,Ans
Line(R,W+4,R+4,W+4
Line(R,Ans,R+5,Ans
Line(R,W,R+6,W
End
If K=54:Then
R+1
Line(R+6,W+8,Ans,W+6
Line(Ans,W+6,Ans,W
Line(Ans,W,R+7,W+1
W+3
Line(R+7,W+1,R+5,Ans
Line(R+6,Ans,R+4,Ans
End
If K=72 or K=74 or K=94:Circle(R+4,W+4,3
If K=74
Line(R+5,W+2,R+6,W-1
If K=42:Then
R+1
Line(Ans,W,Ans,W+7-Q
Line(Ans,W,R+5,W
Line(Ans,W+4,R+5,W+4
Line(Ans,W+7,R+5,W+7
R+5+P
Line(Ans,W+1,Ans,W+7
Pt-Off(Ans,W+4
End
If K=105:Xmax->R
R+6+2P->R
If R<0 or W<0
W+8+Q2->W
If R>Xmax-8
W-8-Q2->W
If W<0 or R<0 or R>Xmax-8:0->R
If W>=Ymax:Ymax-9->W
For(I,R+1,R+7,P
Pt-Change(I,W-1
End
End:End




----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Jeu 30 Aoû 2007, 19:15   Citer 

oula c joli mais trop a long pour recopier!

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changé
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 30 Aoû 2007, 19:18   Citer 

Ok je met le lien badonguo

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
unknow
Avatar

Autorisation : Membre
Nb de messages : 232
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Jeu 30 Aoû 2007, 19:21   Citer 

ba en faite j'ai pas le cable donc c chian**. je crois que je vais l'acheter parce que sans c'est horrible a tout taper!

----------------------
Ta le look coco

Tout nouveau design venait jeter un coup d'oeil ca en vaut la peine, ca a totalement changé
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 30 Aoû 2007, 19:38   Citer 

coc5 le roi de sutilitaires à 3000 octets^^

et on peut rentrer des lettres de 2x2 octets?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Jeu 30 Aoû 2007, 19:43   Citer 

Bas disons qu'on verra pas grand-chose^^

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa