Forum

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

Texte sur écran

Persalteas le 04/07/2010 à 12:42
un programme tout con que chaque programmeur à fait dans sa carrière mais je le poste quand même pour amuser les non programmeurs:

ce texte fait rebondir un mot que vous rentrez sur votre écran.
Il faut rentrer un mot de moins de 15 caractères.

Code

2->A
1->B
1->C
1->D
Input "TEXTE? ",Chaine0
longueur(Chaine0)->N
EffEcr
Lbl 1
A->E
A+C->A:B+D->B
Output(A,B,Chaine0
Output(E,1,"                "
If A=1:1->C
If A=8:-1->C
If B=1:1->D
If B=17-N:-1->D
If codetouche=0:Goto 1
Effvar Chaine0
Effvar AEffvar BEffvar CEffvar DEffvar EEffvar N


Akmdad le 04/07/2010 à 15:13
comme les economiseur d'ecran de windows...
manque plus que la 3D.......
Persalteas le 04/07/2010 à 16:10
yep.
pour la 3D il faudrait faire en mode graph et j'ai la flemme.
en plus ça alourdirait énormément ce petit prog.
Akmdad le 04/07/2010 à 20:19
surtout si tu met les vrilles et tout...
Persalteas le 05/07/2010 à 10:43
Akmdad, tu peux essayer de le faire. ça te ferait une occupation pendant les vacances.

pour te donner une idée, si tu fais sans les vrilles:

-il faut dessiner la face des lettres avec des lignes.
-pour la perspective, tu refais les mêmes lignes mais avec +3 en ordonnée et en abscisse +4.
-tu relies les deux faces des lettres aux arêtes, et tu obtiens une lettre en 3D transparente.

J'espère que ça va te brancher! crazy.gif
alexvire le 05/07/2010 à 16:01
Astuce: Si vous voulez écrire du texte en gras sur le graphique, faites ça:
Code
"Votre texte à afficher ici
For(A,1,longueur(Rép
For(B,0,1
Text(0,5A+B,sous-Chaîne(Rép,A,1
End
End


Sur le tableur, si vous souhaitez écrire de couleur inversée, (C'est à dire blanc sur fond noir.) faites ça:

ZTEXT: (Ne faites pas d'erreurs !)
Code
FDCB05DEC9
End
0000
End


TEXT:
Code
EffEcr
Envoi(9prgmZTEXT
Output(4,6,"ALEXIS
Output(1,1,"


Source du programme ASM:
Citation
.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST
.org 9327h
set textinverse,(iy+textflags)
ret
.end
Akmdad le 05/07/2010 à 18:00
a quoi sert #include?
ce sont des bibliothèques?
et #define?
alexvire le 05/07/2010 à 19:58
Les fichiers includes contiennent la valeur héxadécimale d'une fonction ASM.
Les delfine euh je sais pas mais il faut toujours les mettre au début de la source.
Akmdad le 05/07/2010 à 20:10
la valeur hexa?
alexvire le 05/07/2010 à 20:25
C'est à dire que quand la calculatrice lit cette valeur héxadécimal, alors elle exécute la fonction qui est attribuée à cette valeur, exemple de fichier include:
Citation
_CLRLCDFULL .EQU 4755H
_CLRSCRNFULL .EQU 475DH
_CLRTXTSHD .EQU 4765H
_DISPDONE .EQU 47F1H
_DISPHL .EQU 4709H
_DISPOP1A .EQU 51D4H
_ERASEEOL .EQU 476DH
_FORMDCPLX .EQU 4D2EH
_FORMREAL .EQU 4D32H
_GDISPTOKEN .EQU 4B20H
_HOMEUP .EQU 4775H
_LCD_BUSY .EQU 4066H
_MOVEUP .EQU 474DH
_NEWLINE .EQU 473DH
Persalteas le 05/07/2010 à 20:30
le prog pour écrire en gras souligné:

Code

Effdessin
Input Chaine0
longueur(Chaine0)->M
For(A,1,M
For(B,0,1
Texte(0,5A+B,sous-Chaine(Chaine0,A,1
End
End
Ligne(5,55,5M+5,55


godgrace.gif
Akmdad le 05/07/2010 à 20:33
si j'écris
Code

47F1H
end
0000
end

ça va me mettre "Done"
?
Persalteas le 05/07/2010 à 20:34
quel rapport?

j'ai peur si tu te mets à l'ASM... frozen.gif
Akmdad le 05/07/2010 à 20:42
c'est génial l'ASM!
Persalteas le 05/07/2010 à 22:30
surtout l'ASM sur Wii.
Akmdad le 05/07/2010 à 22:33
c'est sur...
Bartiste le 06/07/2010 à 11:17
pourriez vous me le traduire version TI-82 basique svp car je n'ai pas de chaine...sniff
Persalteas le 06/07/2010 à 13:23
sans chaine??

ouhhhh....
désolé, j'ai la flemme. demande à Akmdad si il est motivé.
alexvire le 06/07/2010 à 14:06
Akmdad a écrit :
si j'écris
Code

47F1H
end
0000
end

ça va me mettre "Done"
?


Mais non, 47F1H signifie que 47F1 est en héxadécimal. Il faut un assembleur pour créer le code, tu ne peux pas le faire comme ça.
Akmdad le 06/07/2010 à 15:13
ah ok...
et puis je suis sur wii et psp donc je n'écrierais rien du tout
Bartiste le 07/07/2010 à 08:44
Ca serait sympa car en language prgm de calto non merci; xHTML , css , php ok mais calto non !
Bartiste le 09/07/2010 à 16:07
désolé quelqu'un a vu ma réponse svp
Sangohan38 le 09/07/2010 à 16:12
On a vu mais sans chaîne c'est pour ainsi dire très chiant à faire et si les autres sont aussi fénéants que moi, ça donne rien du tout.

Sangohan38
alexvire le 09/07/2010 à 16:42
Je veux bien te le faire mais il faut que tu m'indique le mot que tu souhaite faire rebondire, car sinon c'est c*****.
Bartiste le 10/07/2010 à 17:32
Tu es braiment sympa Alexis ,je peux toujours compter sur toi
je voudrais comme mot (si c'est possible) N3(V de racine carré)(le petit E de 2nde+virgule)R/M(O barré)R(le petit E de 2nde+virgule)
en tout ça donne N3VER/MORE

c'est possible sinon tu Marques Windows 7
alexvire le 11/07/2010 à 14:55
Voilà:

{->} = [sto->]
{V(} = [2nde] + [x²]
{&} = [alpha] + [3]
{E} = [2nde] + [,]
{-} = [( - )]

Code
ClrHome
1+int 7rand{->}A
1+int 7rand{->}B
1{->}C
1{->}D
1{->}E
1{->}F
Repeat getKey
Output(C,D,("         
Output(A,B,"N3{V(}
Output(A,B+3,"{E}R/M{&}R{E}
A{->}C
B{->}D
A+E{->A
B+F{->}B
If A<2 or A>7
{-}E{->}E
If B<2 or B>6
{-}F{->}F
End
ClrHome
Output(4,6,"ALEXIS
Output(1,1,"


Si tu as un problème n'hésite pas.
Bartiste le 12/07/2010 à 13:20
excuser moi merci alex' mais la je suis a quatre pate avec mon ordi devant p***** de livebox qui mavait desactiver ma cle wifi....Merci alex merci merci
Bartiste le 12/07/2010 à 14:25
Est-il possible de faire en sorte que tous les never/more precedents s'effacent un peu comme ta balle rebondissante d'ailleur elle est extra!
alexvire le 12/07/2010 à 19:09
Normalement il le fait, il faut que tu mettes dix espaces derrières Output(C,D,".
Bartiste le 13/07/2010 à 10:35
Merci je n'avais pas vu

Serait il possible Alex de faire une fonction taper a la main des programmes des internautes sur ton site
metallica le 13/07/2010 à 10:44
sur le forum, certains membres ont postés leurs programmes à taper à la main regarde ici
alexvire le 13/07/2010 à 14:22
Bartiste a écrit :
Merci je n'avais pas vu

Serait il possible Alex de faire une fonction taper a la main des programmes des internautes sur ton site


Citation
Désolé, mais cela me prend beaucoup de temps de retranscrire le code pour le mettre à taper à la main, c'est pourquoi je ne compte le faire qu'avec mes programmes.


En effet il y a toujours le forum, ou télécharge les programmes.
fatal error le 25/07/2010 à 13:13
est-ce que tu airait le programme permettant de repasser au noir sur blanc? parce que pour des programmes plus long ce serait pas mal.
Akmdad le 25/07/2010 à 14:49
c'est le meme
fatal error le 25/07/2010 à 18:45
non pas du tout, j'ai essayé...
alexvire le 26/07/2010 à 21:04
fatal error a écrit :
est-ce que tu airait le programme permettant de repasser au noir sur blanc? parce que pour des programmes plus long ce serait pas mal.


Tu parles de ce programme ?
fatal error le 27/07/2010 à 11:53
non, mais plutôt de celui que je viens de découvrir en modifiant le code héxadécimal:
Code
:FDCB059EC9
:End
:0000
:End


Il fait l'effet inverse de ton programme ZTEXT, qui permet donc de repasser au noir sur blanc.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.