Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 6098
Réponses : 31
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

VEILLE

alexvire le 10/05/2009 à 13:54
VEILLE

Image manquante


• 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->]
{-} = [( - )]
mael-ti le 15/05/2009 à 11:55
Je le test dès que possible!
Il me semble marcher mais parfois la pratique vos mieux que la théorie! ^^'
alexvire le 15/05/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. ^^)
Flo le 02/06/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 le 02/06/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. godgrace.gif ) 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é.)
Rinrynque le 07/06/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 happy.gif happy.gif happy.gif
mad67 le 08/06/2009 à 07:20
c'est sur que tu peux t'embrouiller facilement en enlevant un then malheureux
toxicox le 30/08/2009 à 15:40
Personnellement, je n'apellerais pas cela un écran de veille moodforlove.gif
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 laugh.gif
Wirekey le 31/08/2009 à 22:55
Totalement d'accord comme Flo et Toxicos l'on dit ^^

Mais bon ca l'entraine a programmer c toujours ca ^^
stargateatlantis18** le 06/09/2009 à 19:00
JE ne trouve pas la touche "Ti 82 stats.fr
Rézus le 07/09/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.
Horace le 09/09/2009 à 15:07
Bonjour,
J'ai un problème à la ligne
Citation
:Input "PSEUDO: ",Chaîne0

Avant le "Chaîne"

Sur ma Ti-82 Stats.fr. J'ai :
Citation
:Input "PSEUDO: ",Chaîne(0
Horace le 09/09/2009 à 15:20
Horace a écrit :
Bonjour,
J'ai un problème à la ligne
Citation
:Input "PSEUDO: ",Chaîne0

Avant le "Chaîne"

Sur ma Ti-82 Stats.fr. J'ai :
Citation
:Input "PSEUDO: ",Chaîne(0


J'ai trouvé je faisais juste le mauvais "chaîne"...
Horace le 09/09/2009 à 15:40
Et autre chose comment peut on ralentir la vitesse de défillement ?
Rézus le 09/09/2009 à 16:22
Tu rajoute des 69! là où y en a déjà.
Gloup le 10/09/2009 à 16:00
Comment fait-on le Chaine0 ?
Rézus le 10/09/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 le 10/09/2009 à 20:07
Merci beaucoup
louis le 10/09/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 le 10/09/2009 à 20:56
Salut, et bienvenue ici happy.gif

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).
louis le 10/09/2009 à 21:10
ça je savais ( bigmouth.gif ) mais c'est sur le guillemet ( " ) que l'erreur a lieu.
angry.gif quelqu'un aune idée?
coc5 le 10/09/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 le 10/09/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 le 10/09/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 le 10/09/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 le 10/09/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 le 11/09/2009 à 07: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 le 11/09/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** le 13/09/2009 à 20:25
Rézus a écrit :
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.

merci beaucoup.
alexvire le 17/05/2010 à 19:40
J'ai mis à jour le programme, pour ceux qui voulaient voir l'ancien le voici:
Citation
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.
swann le 14/11/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 le 14/11/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.fre[...].php?sujet=2833
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.