Seuls les membres ayant 30 points peuvent parler sur le chat.
Gestion du compte
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
Vartostr
Interet sc eco
Sidereal
Pro convert
Temp convectors
Chiffres romain
Leconvertisseur
Cercle trigo
Cart-pol
Personal transl
Decompo
Conv. binaire
Trigo.
Perideci
H.m.s.
Euros
Fconvert
Convertisseur
Verin
Money
Pages: << 1,2,3 >>

¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graphs 35 à 100 >> Conversion >> Vartostr
Vartostr
Version : 1.0 Taille : 317 octets Ajouté le : 2011-04-05 20:18 Modifié le : 2011-04-05 20:18
Auteur et posteur :
AdbookHors ligneMembrePoints: 1050 Défis: 19 Message
Aucune image disponible
Nombre de visites sur cette page : 4004
Score au progrank : 19
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
500 téléchargements | Soumettre un test


Description :

Un petit utilitaire sans prétention qui vous convertit la valeur d'une variable dans une str.
(Par exemple, si A=127, alors str1="127")

Pour l'intégrer à un prog, remplacez le ?->A du début par l'attribution de variable de votre choix.

Voila...ça prend 5mn a faire mais ça peut toujours servir.


Commentaires :

Pages: 1, 2 | Suivante

EiyeronHors ligneAncien modérateurPoints: 5513 Défis: 57 Message
Posté le 05-04-2011 à 20:50 | #
Tu utilises log?
LimachiHors ligneYoutuberPoints: 2798 Défis: 67 Message
Posté le 06-04-2011 à 09:27 | #
Voila...ça prend 5mn a faire mais ça peut toujours servir.

p'tin, 5Min, c'est extra long! On peut faire la même chose en 1/10 de seconde!
?->A
""->Str 1
For 1->B To 1+Intg log A
StrMid("0123456789",Int (10Frac (A/10^B))+1,1)+Str 1->Str 1
Next

je passe mon temps a créer ce type de prog!
TotoyoHors ligneMembre d'honneurPoints: 15942 Défis: 101 Message
Posté le 06-04-2011 à 12:10 | #
Je crois qu'il y a Exp( qui fait ça, je me trompe ?
EiyeronHors ligneAncien modérateurPoints: 5513 Défis: 57 Message
Posté le 06-04-2011 à 14:00 | #
Nanan, CA NE MARCHERA PAS avec Exp.. D'où mon problème avec foutues variables
TotoyoHors ligneMembre d'honneurPoints: 15942 Défis: 101 Message
Posté le 06-04-2011 à 14:49 | #
Limachi, ton code ne marchera pas si A<=0

De même, si le nombre est décimal
AdbookHors ligneMembrePoints: 1050 Défis: 19 Message
Posté le 06-04-2011 à 20:43 | #
Le prog ne met pas 5mn en exécution (heureusement... plutot 0.1 sec )
Je parlais du temps qu'il prend de faire ce type de prog
SiapranHors ligneMembrePoints: 3248 Défis: 17 Message
Posté le 06-04-2011 à 21:25 | #
on a compris mais personne ne peut battre LIMachi dans la manipulation des Str
AdbookHors ligneMembrePoints: 1050 Défis: 19 Message
Posté le 06-04-2011 à 21:33 | #
Loin de moi cette idée
LimachiHors ligneYoutuberPoints: 2798 Défis: 67 Message
Posté le 12-04-2011 à 08:36 | #
Limachi, ton code ne marchera pas si A<=0

De même, si le nombre est décimal

Ok, je releve le défi.

personne ne peut battre LIMachi dans la manipulation des Str

MERCI!! sa fait chaud au ceur
LimachiHors ligneYoutuberPoints: 2798 Défis: 67 Message
Posté le 12-04-2011 à 09:03 | #
?->A
""->Str 1
If A!=0
Then Abs A
For 1->B To 1+Intg log Ans
StrMid("0123456789",Int (10Frac (A/10^B))+1,1)+Str 1->Str 1
Next
If Frac A!=0
Then Str 1+"."->Str 1
-1->B
While Frac(A*10^(B+1))!=0
B+1->B
Str 1+StrMid("0123456789",10Frac(.1Int (10(Frac Ans*10^B)))+1,1)->Str 1
WhileEnd
IfEnd
A<0=>"-"+Str 1->Str 1
Else "0"-Str 1
IfEnd


Garanti aucun bug par LIMachi, le STRophile!

Pages: 1, 2 | Suivante

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2019 | Il y a 284 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd