π
<-
Chat plein-écran
[^]

[AXE]Longueur d'une chaine de caractères en pixel

Langages Assembleur, Axe, BBC Basic...

[AXE]Longueur d'une chaine de caractères en pixel

Message non lude Ti64CLi++ » 10 Sep 2016, 16:38

Bonjour, j'ai créer une petite fonction appelé DimStr qui me sert à calculer quel taille en pixel fait une chaine de caractère se terminant par 0 (ex: "TEST"[00]->Str1). Les espaces à la fin des caractères sont pris en compte.
Seulement, ça ne marche pas comme je voudrais. Par exemple, pour la chaine de caractères "Salut, comment ca va?!"[00], il me renvoie comme longueur 19 alors que la longueur devrait être 77.
Voici mon code:
Code: Tout sélectionner
.AA
ClrHome
"Salut, comment ça va?!"[00]→Str1
Disp DimStr(Str1)Dec,
Repeat getKey(15)
End
Return

Lbl DimStr
0→r₃
For(r₂,0,longueur(r₁)-1
If dansChaîne("abcdeghjknopqruvxy?0123456789­-+/^{}θ…_%↑↓×\ABCDEFGHIJKLMNOPQRSTUVWXYZθ"[00],{r₁+r₂})
r₃+4→r₃
End
If 32={r₁+r₂}
r₃++
End
If dansChaîne("i.:!"[00],{r₁+r₂})
r₃+2→r₃
End
If dansChaîne("flst()[],;"[00],{r₁+r₂})
r₃+3→r₃
End
If dansChaîne("z&~"[00],{r₁+r₂})
r₃+5→r₃
End
If dansChaîne("mw*π$#@"[00],{r₁+r₂})
r₃+6→r₃
End
End
r₃
Return

Si quelqu'un pouvait m'aider, je lui en serait très reconnaissant ^^
Merci
ImageImage6579
Administrateur
de Tout 82
Sur TI Planet depuis Août 2014, rédacteur depuis Août 2015Donnez moi un Internet : c'est gratuit et ne prends pas beaucoup de tempsBonjour Anonymous !
NEURONIX IS WATCHING YOU!!!
Administrateur
de Life Game World

Tu as une chaine YouTube a partager : viens nous rejoindre sur http://mrgeniusnerd.esy.es/

Image
Avatar de l’utilisateur
Ti64CLi++Prog.
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Prochain niv.: 8.2%
 
Messages: 2312
Images: 32
Inscription: 04 Juil 2014, 15:40
Localisation: Valence 26
Genre: Homme
Calculatrice(s):
Classe: 1°S-SVT

Re: [AXE]Longueur d'une chaine de caractères en pixel

Message non lude kindermoumoute » 10 Jan 2017, 08:44

"dansChaîne()" prend un pointeur en deuxième argument.

Code: Tout sélectionner
.AA
ClrHome
"Salut, comment ça va?!"[00]→Str1
Disp DimStr(Str1)Dec,
Repeat getKey(15)
End
Return

Lbl DimStr
0→r₃
longueur(r₁)→r₂
For(r₂
If 32={r₁}
r₃++
ElseIf dansChaîne("i.:!"[00],r₁)
r₃+2→r₃
ElseIf dansChaîne("flst()[],;"[00],r₁)
r₃+3→r₃
ElseIf dansChaîne("z&~"[00],r₁)
r₃+5→r₃
ElseIf dansChaîne("mw*π$#@"[00],r₁)
r₃+6→r₃
Else
r₃+4→r₃
End
r₁++
End
r₃
Return
Essayez l'axe parser, un nouveau langage de programmation pour z80 ultra rapide et beaucoup plus facile que l'ASM !
Avancement du tutoriel :
- Les débuts en Axe :
en ligne

- Notions de programmation avancés :
en ligne

- 3ème partie :
en ligne

- 4ème partie : 10%
- Annexe
en ligne
Avatar de l’utilisateur
kindermoumoute
Niveau 13: CU (Calculateur Universel)
Niveau 13: CU (Calculateur Universel)
Prochain niv.: 79.6%
 
Messages: 848
Inscription: 30 Sep 2009, 01:00
Genre: Homme
Calculatrice(s):
Classe: Ecole d'ingénieur informatique et industriel

Re: [AXE]Longueur d'une chaine de caractères en pixel

Message non lude Ti64CLi++ » 10 Jan 2017, 14:50

Ah, kindermoumoute ^^
En fait, j'ai oublié de préciser, mais le topic est résolu, je vais modifier ^^

Désolé du double post, mais @kindermoumoute est-ce que tu pourrais passer sur le sujet [Big tuto]Langage calculatrices TI (z80) L'axe Parser sur open classroom?

Double post combiné par TheMachine02
ImageImage6579
Administrateur
de Tout 82
Sur TI Planet depuis Août 2014, rédacteur depuis Août 2015Donnez moi un Internet : c'est gratuit et ne prends pas beaucoup de tempsBonjour Anonymous !
NEURONIX IS WATCHING YOU!!!
Administrateur
de Life Game World

Tu as une chaine YouTube a partager : viens nous rejoindre sur http://mrgeniusnerd.esy.es/

Image
Avatar de l’utilisateur
Ti64CLi++Prog.
Niveau 14: CI (Calculateur de l'Infini)
Niveau 14: CI (Calculateur de l'Infini)
Prochain niv.: 8.2%
 
Messages: 2312
Images: 32
Inscription: 04 Juil 2014, 15:40
Localisation: Valence 26
Genre: Homme
Calculatrice(s):
Classe: 1°S-SVT


Retourner vers Programmation alternative

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités

-
Rechercher
-
Sujets à la une
Participe au TI-Concours 2017 pour tenter de gagner une calculatrice et goodies !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
Transforme ta TI-Nspire CX en console Game Boy Advance!
12345
-
Donations/Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
PayPal : paiement en ligne sécurisé - secure online payments
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety 
-
Stats.
325 utilisateurs:
>263 invités
>55 membres
>7 robots
Record simultané (sur 6 mois):
4008 utilisateurs (le 30/05/2016)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)