Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> VEILLE

VEILLE

Auteur

Message

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Dim 10 Mai 2009, 13:54

VEILLE

• Taille: 608 octets

• VEILLE est un écran de veille pour votre calculatrice. (Qui contrairement à son nom n'économise pas les piles.) Il est composé de six "screensavers" différents du plus simple au plus complexe. Je trouve que le plus réussit est CROIX.

• Fonctionne sur:
- TI-82 Stats(.fr)
- TI-83
- TI-83+(.fr)
- TI-84+

• Télécharger:
- 83p
- 8xp

• Taper à la main: (Français)

Code

SauveBDG 0
Lbl 0
0{->}Xmin
94{->}Xmax
0{->}Ymin
62{->}Ymax
EffDessin
AxesNAff
FonctNAff
EffEcr
Menu(">>>> VEILLE <<<<","POINTS",1,"SEGMENTS",2,"DROITES",3,"CROIX",4,"INERTIE",5,"MIRROIR",6,"QUITTER",7
Lbl 1
Repeat codeTouche
Pxl-Change(entAléat(0,62),entAléat(0,94
End
Goto 0
Lbl 2
Repeat codeTouche
Ligne(entAléat(0,94),entAléat(0,62),entAléat(0,94),entAléat(0,62
End
Goto 0
Lbl 3
Repeat codeTouche
If NbrAléat>.5
Then
Horizontale entAléat(0,62
Else
Verticale entAléat(0,94
End
End
Goto 0
Lbl 4
For(A,0,93,3
Pt-Aff(A,1,3
End
Repeat codeTouche
3entAléat(0,31{->}A
1{->}B
Repeat 1=pxl-Test(B+2,A
B+3{->}B
Pt-Aff(A,62-B,3
Pt-NAff(A,65-B,3
End
End
Goto 0
Lbl 5
entAléat(0,61{->}A
entAléat(0,93{->}B
1{->}C
1{->}D
Repeat codeTouche
Pxl-Aff(A,B
Pxl-Aff(A+1,B
Pxl-Aff(A,B+1
Pxl-Aff(A+1,B+1
A+C{->}A
B+D{->}B
If A=0 ou A=61
{-}C{->}C
If B=0 ou B=93
{-}D{->}D
End
Goto 0
Lbl 6
entAléat(0,94{->}A
entAléat(0,62{->}B
1{->}C
1{->}D
Repeat codeTouche
Pt-Change(A,B
Pt-Change(94-A,B
Pt-Change(A,62-B
Pt-Change(94-A,62-B
A+C{->}A
B+D{->}B
If A=0 ou A=94
{-}C{->}C
If B=0 ou B=62
{-}D{->}D
End
Goto 0
Lbl 7
Output(4,6,"ALEXIS
RappelBDG 0
EffVar AEffVar BEffVar CEffVar DEffVar XEffVar YEffVar BDG0
Output(1,1,"

• Taper à la main: (Anglais)

Code

StoreGDB 0
Lbl 0
0{->}Xmin
94{->}Xmax
0{->}Ymin
62{->}Ymax
ClrDraw
AxesOff
FnOff
ClrHome
Menu(">>>> VEILLE <<<<","POINTS",1,"SEGMENTS",2,"DROITES",3,"CROIX",4,"INERTIE",5,"MIRROIR",6,"QUITTER",7
Lbl 1
Repeat getKey
Pxl-Change(randInt(0,62),randInt(0,94
End
Goto 0
Lbl 2
Repeat getKey
Line(randInt(0,94),randInt(0,62),randInt(0,94),randInt(0,62
End
Goto 0
Lbl 3
Repeat getKey
If rand>.5
Then
Horizontal randInt(0,62
Else
Vertical randInt(0,94
End
End
Goto 0
Lbl 4
For(A,0,93,3
Pt-On(A,1,3
End
Repeat getKey
3randInt(0,31{->}A
1{->}B
Repeat 1=pxl-Test(B+2,A
B+3{->}B
Pt-On(A,62-B,3
Pt-Off(A,65-B,3
End
End
Goto 0
Lbl 5
randInt(0,61{->}A
randInt(0,93{->}B
1{->}C
1{->}D
Repeat getKey
Pxl-On(A,B
Pxl-On(A+1,B
Pxl-On(A,B+1
Pxl-On(A+1,B+1
A+C{->}A
B+D{->}B
If A=0 or A=61
{-}C{->}C
If B=0 or B=93
{-}D{->}D
End
Goto 0
Lbl 6
randInt(0,94{->}A
randInt(0,62{->}B
1{->}C
1{->}D
Repeat getKey
Pt-Change(A,B
Pt-Change(94-A,B
Pt-Change(A,62-B
Pt-Change(94-A,62-B
A+C{->}A
B+D{->}B
If A=0 or A=94
{-}C{->}C
If B=0 or B=62
{-}D{->}D
End
Goto 0
Lbl 7
Output(4,6,"ALEXIS
RecallGDB 0
DelVar ADelVar BDelVar CDelVar DDelVar XDelVar YDelVar GDB0
Output(1,1,"

• Caractères spéciaux:
{->} = [sto->]
{-} = [( - )]

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

mael-ti

Autorisation : Membre
Nb de messages : 25
Inscrit le : Lun 09 Mar 2009, 13:28

Posté le : Ven 15 Mai 2009, 11:55

Je le test dès que possible!
Il me semble marcher mais parfois la pratique vos mieux que la théorie! ^^'

----------------------
Vive les ti!

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Ven 15 Mai 2009, 18:04

Merci c'est gentil. Je posterais bientôt un jeu appelé "SPEED". (Ne vous attendez pas à quelque chose de bien mais bon. ^^)

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

Flo
Invité

Posté le : Mar 02 Jui 2009, 20:00

Le programme porte bien mal sont nom.

Une veille est sensée préservé la batterie ici c'est tout le contraire.

Sinon ça reste simpa ^^

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Mar 02 Jui 2009, 20:57

Je viens de mettre une version longue et une version courte, la version longue est plutôt réservée à ceux qui tapent rapidement et qui aiment quand c'est propre. (Comme moi.

) Tandis que l'autre est plutôt réservée aux débutants.

- Je rajouterais les liens pour télécharger mon programme. (Au format 82P et 83P.)
- J'aimerais ajouter un gif du programme, mais je n'arrive pas à faire fonctionner VTI... Si quelqu'un pourrait me dire se serait sympa. (Je n'ai pas de câble.)
- Bientôt je posterais un autre programme de ma composition: SPEED (Je rassure certains d'entre vous il sera plus travaillé.)

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

Rinrynque

Autorisation : Membre
Nb de messages : 30
Inscrit le : Dim 10 Mai 2009, 15:53

Posté le : Dim 07 Jui 2009, 19:02

Puisque tu es un novic, sache que le if n'a pas forcément besoin d'un then/end:
tu peux faire:

Code

:If CodeTouche=21
:Goto 2

En fait, tu peux te passer du then/end si la commande qui suit le if est seule(une seule instruction).
Voila voila

mad67

Autorisation : Membre
Nb de messages : 613
Inscrit le : Sam 23 Jui 2007, 14:05

Posté le : Lun 08 Jui 2009, 7:20

c'est sur que tu peux t'embrouiller facilement en enlevant un then malheureux

toxicox

Autorisation : Membre
Nb de messages : 5
Inscrit le : Dim 30 Aoû 2009, 15:27

Posté le : Dim 30 Aoû 2009, 15:40

Personnellement, je n'apellerais pas cela un écran de veille

Je crois que ça utilise autant de batterie que quand tu calcul des bêtes opérations, voir plus !
Donc, ce prog, ne l'utilisez pas comme écran de veille mais juste pour le fun

Wirekey

Autorisation : Membre
Nb de messages : 228
Inscrit le : Mer 17 Jui 2009, 0:54

Posté le : Lun 31 Aoû 2009, 22:55

Totalement d'accord comme Flo et Toxicos l'on dit ^^

Mais bon ca l'entraine a programmer c toujours ca ^^

stargateatlantis18**
Invité

Posté le : Dim 06 Sep 2009, 19:00

JE ne trouve pas la touche "Ti 82 stats.fr

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Lun 07 Sep 2009, 19:35

Non c'est pas une touche ^^
Tu dois tapper "TI-82 STAT.FR dans le code
(ne cherche pas de minuscules,y en a pas sur cette version de calculette)
C'est à ça que ressemble l'écran de veille,tu verras quand il démarrera ça s'affichera en bas.

Google_AdSense

Horace
Invité

Posté le : Mer 09 Sep 2009, 15:07

Bonjour,
J'ai un problème à la ligne

Citer

:Input "PSEUDO: ",Chaîne0

Avant le "Chaîne"

Sur ma Ti-82 Stats.fr. J'ai :

Citer

:Input "PSEUDO: ",Chaîne(0

Horace
Invité

Posté le : Mer 09 Sep 2009, 15:20

Citer : Horace

Bonjour,
J'ai un problème à la ligne

Citer

:Input "PSEUDO: ",Chaîne0

Avant le "Chaîne"

Sur ma Ti-82 Stats.fr. J'ai :

Citer

:Input "PSEUDO: ",Chaîne(0

J'ai trouvé je faisais juste le mauvais "chaîne"...

Horace
Invité

Posté le : Mer 09 Sep 2009, 15:40

Et autre chose comment peut on ralentir la vitesse de défillement ?

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Mer 09 Sep 2009, 16:22

Tu rajoute des 69! là où y en a déjà.

Gloup
Invité

Posté le : Jeu 10 Sep 2009, 16:00

Comment fait-on le Chaine0 ?

Rézus

Autorisation : Membre
Nb de messages : 835
Inscrit le : Sam 20 Jui 2009, 20:35

Posté le : Jeu 10 Sep 2009, 19:46

tu presse le boutton [var] qui t'affiche toutes les ortes de variables de calculette.
Tu fai le 7ème choix,chaîne0 est le dernier du menu déroulant qui apparaît.
Si ta calto est en anglais ce sera str0

Gloup
Invité

Posté le : Jeu 10 Sep 2009, 20:07

Merci beaucoup

louis

Autorisation : Membre
Nb de messages : 5
Inscrit le : Jeu 10 Sep 2009, 20:37

Posté le : Jeu 10 Sep 2009, 20:39

Salut!
J'ai toujours un problème avec les programmes, lorsque je mets un " ma calco indique une "syntaxe err." comment ça se fait?
Merci devos réponses

KillerMapper

Autorisation : Membre
Nb de messages : 40
Inscrit le : Ven 06 Fév 2009, 21:49

Posté le : Jeu 10 Sep 2009, 20:56

Salut, et bienvenue ici

Cette erreur signifie seulement que tu as fait une erreur de frappe dans le programme (ça arrive tout le temps ^^).
La calculette indique l'emplacement de l'erreur, il suffit de choisir "go to" quand elle dit l'erreur (et non "quit").
Corriges l'erreur, et relance le programme (si il y a encore une autre erreur, continue de corriger).

Faut faire gaffe aux caractères utilisés (genre O et 0 se confondent facilement, mais c'est surtout les symboles comme le L des listes (L1 c'est second + 1 par exemple, et non un L puis un 1).

----------------------
Level designer de Mario Kart Source

louis

Autorisation : Membre
Nb de messages : 5
Inscrit le : Jeu 10 Sep 2009, 20:37

Posté le : Jeu 10 Sep 2009, 21:10

ça je savais (

) mais c'est sur le guillemet ( " ) que l'erreur a lieu.

quelqu'un aune idée?

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Jeu 10 Sep 2009, 21:19

Un " tout seul n'est pas accepté par la calculatrice, et pour cause : ça ne veut rien dire en programmation.

Ca dépend où tu veux l'utiliser ? En général c'est pour mettre du texte, par exemple :

Code

Disp "DU TEXTE"

Mais la version non fermée fonctionne aussi :

Code

Disp "DU TEXTE

louis

Autorisation : Membre
Nb de messages : 5
Inscrit le : Jeu 10 Sep 2009, 20:37

Posté le : Jeu 10 Sep 2009, 21:24

Ben, sur ce programme, par exemple, ça bug.
sur la ligne Input "PSEUDO:" etc...
ça me met que le 1er guillemet est une erreur de syntaxe...

J'ai une TI 82 stats.fr

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Jeu 10 Sep 2009, 21:27

Ben ça vient pas des guillements hein...

Vérifie que tu as pas mis d'espaces pour rien, et que tu as pas écris INPUT en toute lettre, c'est une commande prédéfinie, par une suite de lettre.

louis

Autorisation : Membre
Nb de messages : 5
Inscrit le : Jeu 10 Sep 2009, 20:37

Posté le : Jeu 10 Sep 2009, 21:30

Ben quand je fais " voir " lorsque le prgm bug, ça me surligne les guillemets...
et oui j'ai bien fait attention à tout ecrire correctement ^^

coc5

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37

Posté le : Jeu 10 Sep 2009, 21:46

C'est juste impossible que si tu as écris la ligne correctement, le programme puissse t'indiquer une erreur.
Réécris plusieurs fois, il y a forcément une erreur ou bien on t'a vendu une calculatrice bugué ce qui est une rareté vu qu'elles sont toutes identiques normalement.

L'erreur ne vient pas du programme, ça c'est certain.

louis

Autorisation : Membre
Nb de messages : 5
Inscrit le : Jeu 10 Sep 2009, 20:37

Posté le : Ven 11 Sep 2009, 7:43

Non mais c'est obligé, c'est ma calco qui bug. quand je supprime la ligne, ça sur le "sto" que l'erreur a lieu... je comprends rien ^^

Sangohan38

Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Ven 11 Sep 2009, 18:31

L'erreur ne viens pas du STO mais de ce qui est marqué juste avant.
C'est sans doute une parenthèse en trop où un argument qui manque mais l'erreur ne peut surement pas venir de la calculatrice.

Donc il faut que tu relise encore ton programme jusqu'à trouver l'erreur.

Sangohan38

stargateatlantis18**
Invité

Posté le : Dim 13 Sep 2009, 20:25

Citer : Rézus

merci beaucoup.

alexvire

Autorisation : Membre
Nb de messages : 230
Inscrit le : Dim 10 Mai 2009, 13:31

Posté le : Lun 17 Mai 2010, 19:40

J'ai mis à jour le programme, pour ceux qui voulaient voir l'ancien le voici:

Citer

VEILLE

•Description: Comme son nom l'indique, ce programme est un écran de veille pour calculatrice. Pour épater vos amis rien de tel que ce petit programme. Il s'agit de mon premier programme donc c'est normal qu'il semble "minable" pour les pros de la calculette. Je me suis inspiré du programme "DODO" présent sur le forum.

•Language: BASIC

•Code: Ti-82 Stats.fr

VEILLE (Version longue)

•Utilisation: Tout d'abord, vous devez rentrer votre pseudo, c'est celui qui apparaîtra sur l'écran de veille, pour cela, démarrez le programme et choisissez "COMMENCER". Une fois cela fait, rentrez votre pseudo/surnom/prénom et appuyez sur "entrer". Vous avez démarrer l'écran de veille. Pour revenir au menu appuyez sur "entrer", pour quitter, appuyez sur "annul".

•Mémoire: 343

•Nom du programme: VEILLE

Code

:Lbl 0
:EffEcr
:Menu("VEILLE:MENU","COMMENCER",1,"AIDE",3,"QUITTER",4
:Lbl 1
:EffEcr
:Input "PSEUDO: ",Chaîne0
:Goto 2
:Lbl 2
:EffEcr
:codeTouche->A
:If A=45
:Then
:Goto 4
:End
:If A=105
:Then
:Goto 0
:End
:entAléat(1,7->B
:entAléat(1,11->C
:Output(B,C,Chaîne0
:Output(8,2,"Ti-82 Stats.Fr
:69!
:69!
:69!
:69!
:69!
:Goto 2
:Lbl 3
:EffEcr
:Output(1,2,"Ti-82 Stats.Fr
:Output(3,1,"Quitter: annuligne+(
:Output(3,15,"
:Output(8,8,"exfMax(
:Output(8,10,"is
:Pause
:Goto 0
:Lbl 4
:EffEcr
:0->A
:0->B
:0->C
:EffVar Chaîne0
:Output(1,1,"
:Return

VEILLE (Version courte)

•Utilisation: Tout d'abord, vous devez rentrer votre pseudo, c'est celui qui apparaîtra sur l'écran de veille, pour cela, démarrez le programme. Une fois cela fait, rentrez votre pseudo/surnom/prénom et appuyez sur "entrer". Vous avez démarrer l'écran de veille. Pour quitter à tout moment, appuyez sur "annul" ou "entrer".

•Mémoire: 140

•Nom du programme: VEILLE

Code

:Lbl 0
:EffEcr
:Input "PSEUDO: ",Chaîne0
:Lbl 1
:EffEcr
:codeTouche->A
:If A=45 ou A=105
:Then
:Goto 2
:End
:entAléat(1,7->B
:entAléat(1,11->C
:Output(B,C,Chaîne0
:Output(8,2,"Ti-82 Stats.Fr
:69!
:69!
:69!
:69!
:69!
:Goto 1
:Lbl 2
:EffEcr
:Stop

•Conversion: "->" est la touche "sto->"

Voilà, à vous de tester, si vous n'arrivez pas à trouver une touche ou vous ne comprenez pas quelque chose, dites le moi.

----------------------
Salut, visitez mon site:

Et mon forum !

Mes programmes.
Convertissez vos images en un programme à mettre sur votre TI.

swann
Invité

Posté le : Jeu 14 Nov 2013, 22:10

S'il vous plait sa fait 2 jours que je ne trouve pas les touches ADelVar BDelVar CDelVar DDelVar XDelVar YDelVar
svp help me plz !

m@thieu41

Autorisation : Membre
Nb de messages : 848
Inscrit le : Mer 18 Juil 2012, 18:44

Posté le : Jeu 14 Nov 2013, 22:21

DelVar (EffVar en français):
[prgm],[fleche du haut],[fleche du haut],[entrer]

La prochaine fois cherche sur le catalogue des emplacements/traductions disponible ici: https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=2833

----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)

Et au fait: la politesse n'a jamais tué personne

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> VEILLE

Page générée en 6 requêtes

Flux RSS