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
gomme
Auteur Message
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mer 18 Avr 2007, 9:38   Citer 

Vous avez sans doute remarqué que la TI-82 possède une fonction pen, mais pas gomme. J'ai donc créé un programme "gomme". Mais pour éviter de changer tout le temps d'outils en cours de route, le programme comporte également la fonction gomme et pen à la fois.
Mode d'emploi :
+ le curseur adopte une forme de croix : ni la fonction pen ni la gomme ne sont activées (déplacement). Appuyer une fois sur {ENTER} pour les activer (la fonction pen est la fonction par défaut).
+ le curseur est un point clignotant : la fonction pen ou gomme est activée :le déplacement du curseur (à l'aide des flèches) provoque le tracé d'une ligne ou l'effacement. Pour désactiver les deux fonction appuyer de nouveau sur {ENTER}.
+ pour choisir la fonction pen appuyer sur {1}, et {2} pour la fonction gomme.
+ pour quitter le programme sans qu'il ne laisse son curseur dans le graph, presser {+}.
Ça parait peut-être compliqué, mais en réalité, pour les histoires d'{ENTRER}, c'est la même utilisation que l'outil pen dans le menu DRAW.


Code
31->A
47->B
-1->C
0->D
1->E
Lbl 1
pxl-Test (A-1,B-1) ->I
pxl-Test (A-1,B+1) ->J
pxl-Test (A+1,B-1) ->L
pxl-Test (A+1,B+1) ->M
If D=0
Then
Pxl-On (A-1,B-1
Pxl-On (A-1,B+1
Pxl-On (A+1,B-1
Pxl-On (A+1,B+1
End
pxl-Test (A,B)->C
Lbl 2
Pxl-Change (A,B)
getKey ->K
If K=92
1->E
If K=93
2->E
If K=105
Then
If D=1
-1->D
If >D=0
0->D
D+1->D
End
If D=1 and E=1
1->C
If D=1 and E=2
0->C
If K=24 or K=25 or K=26 or K=34 or K=95
Then
If C=0
Pxl-Off (A,B)
If C=1
Pxl-On (A,B)
If I=0
Pxl-Off (A-1,B-1)
If I=1
Pxl-On (A-1,B-1)
If J=0
Pxl-Off (A-1,B+1)
If J=1
Pxl-On (A-1,B+1)
If L=0
Pxl-Off (A+1,B-1)
If L=1
Pxl-On (A+1,B-1)
If M=0
Pxl-Off (A+1,B+1)
If M=1
Pxl-On (A+1,B+1)
If K=95
Stop
If K=24
B-1->B
If K=26
B+1->B
If K=25
A-1->A
If K=34
A+1->A
Goto 1
End
For (Z,0,2)
69 !
End
Goto 2



----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 782
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 18 Avr 2007, 13:44   Citer 

J'aime bien l'idée !

@+ Le Webmaster beer.gif

----------------------
Retrouver le site sur Facebook : http://www.facebook.com/tout82
 Adresse email Haut de page Bas de page 
 
xDreams
Invité
Posté le : Mer 16 Nov 2011, 0:31   Citer 

Bonsoir !
Comment écrire la ligne :

Code
If D>=0



Merci happy.gif

  Haut de page Bas de page 
 
xDreams
Invité
Posté le : Mer 16 Nov 2011, 0:35   Citer 

Pardon ! :

Code
If >D=0



  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mer 16 Nov 2011, 8:15   Citer 

eh bien justement:

If D>=0

il a du faire une faute de frappe.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 16 Nov 2011, 13:01   Citer 

Non, il a du vouloir mettre le symbole "supérieur où égal" à 0.

Sangohan38

----------------------
 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