Poster un nouveau sujet Poster une réponse Page: 1,      >>
Conversion décimal, binaire et hexadécimal
Auteur Message
vin



Autorisation : Membre
Nb de messages : 3
Inscrit le : Mar 18 Oct 2005, 16:25
Posté le : Mer 19 Oct 2005, 15:51   Citer 

Salut tous le monde
Je suis nouveau et content d'avoir trouver un bon site qui me convient car sur certain de mes programmes je me suis casser la tête alors que des comme celui la propose déjà pas mal.

Pour information le programme Decabin du site ne fonctionne pas. Il marque que des 1.

Bon voila, j'ai fait un programme sur la conversion déc, bin et hexa.Je l'envoie pas tout de suite car j'ai pas encore copié le code mais j'ai trouver une manière plus simple.
Avec Ti-Graph Link, on tape le code puis on enregistre et on peut l'utiliser dans l'émulateur.
Donc est-ce que c'est possible que j'envoie le code dans un fichier *.82

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 19 Oct 2005, 17:01   Citer 

Bonjour,

Pour convertir les *.82p en code lisible par les humains, il suffit de l'ouvrir avec TI-Graph Link, de copier le texte qui apparait dans la fenêtre dans le bloc note, et remplacer les "ü" par " -> " !

@+ Le Webmaster et bienvenue sur le site, nous attendons ton programme ! beer.gif

 Adresse email Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Mer 19 Oct 2005, 17:27   Citer 

Le programme "Decabin" vient d'être supprimé à la suite de ta remarque. (Si j'en ai le temps, j'en referais un autre !)
Tu n'as qu'à envoyer le fichier *.82p à tout82@free.fr et je le metterais en ligne avant ce soir.

@+ Le Webmaster beer.gif

PS : Ce programme est compatible TI-82 et TI-82 STATS ?

 Adresse email Haut de page Bas de page 
 
vin



Autorisation : Membre
Nb de messages : 3
Inscrit le : Mar 18 Oct 2005, 16:25
Posté le : Ven 21 Oct 2005, 12:06   Citer 

Bonjour

Amélioration de mon programme happy.gif
Restriction des entrées et possiblité de convertir en bin après hex>dec ou hex après bin>dec.

Voila le code

Code
:Lbl 0
:0->Z
:Menu("GE:","HEX > DEC",A,"DEC > HEX",B,"DEC > BIN",C,"BIN > DEC",D,"QUITTER",Z)
:
:Lbl A
:ClrList L1,L2
:ClrHome
:10->A:11->B:12->C:13->D:14->E:15->F
:Disp "*-HEX > DEC----*"
:0->S
:Input "NB CHIFFRE=",G
:G->dim L1
:For(I,1,G)
:Repeat H[supérieur ou égal]0 and H[inférieur ou égal]15
:ClrHome
:Disp "*-HEX > DEC----*","NB"
:Output(2,4,I)
:Prompt H
:int H->H
:If H<0 or H>15
:Then:Output(5,4,"ERROR:")
:If H<0:Output(5,11,"H<0")
:If H>15:Output(5,11,"H>15")
:Pause
:End
:H->L1(I)
:End
:16^(G-I)->L2(I)
:S+L1(I)*L2(I)->S
:End
:5->K:0->L
:Output(7,1,"HEX=")
:For(J,1,G)
:If L1(J)>0:1->L
:If L1(J)[supérieur ou égal]10:K+1->K
:If L1(J)=10:Output(7,K,"A")
:If L1(J)=11:Output(7,K,"B")
:If L1(J)=12:Output(7,K,"C")
:If L1(J)=13:Output(7,K,"D")
:If L1(J)=14:Output(7,K,"E")
:If L1(J)=15:Output(7,K,"F")
:If L1(J)<10 and L=1
:Then:K+1->K:Output(7,K,L1(J))
:End
:End
:Output(8,1,"DEC=")
:Output(8,6,S)
:Pause
:ClrHome
:Menu("> BIN","NON",0,"OUI",1)
:Lbl 1
:1->Z
:Goto C
:
:Lbl D
:ClrHome
:ClrList L1,L2
:Disp "*-BIN > DEC----*"
:0->S
:Input "NB CHIFFRE=",G
:G->dim L1
:For(I,1,G)
:Repeat H=0 or H=1
:ClrHome
:Disp "*-BIN > DEC----*","NB"
:Output(2,4,I)
:Prompt H
:int H->H
:If H<0 or H>1
:Then:Output(5,4,"ERROR:")
:If H<0:Output(5,11,"H<0")
:If H>1:Output(5,11,"H>1")
:Pause
:End
:H->L1(I)
:End
:2^(G-I)->L2(I)
:S+L1(I)*L2(I)->S
:End
:Disp "","",""
:Output(6,1,"BIN SUR")
:Output(6,9,G)
:Output(6,12,"BITS"
:Pause L1
:Output(8,1,"DEC=")
:Output(8,6,S)
:Pause
:Menu("> HEX","NON",0,"OUI",2)
:Lbl 2
:1->Z
:Goto B
:
:Lbl B
:ClrHome
:Disp "*-DEC > HEX----*","MAX=4294967295"
:If Z=0
:Then:Prompt S
:Else:Disp "S=":Output(3,4,S)
:End
:ClrList L1,L2
:If S<16^8
:Then
:{16^7,16^6,16^5,16^4,16^3,16²,16}->L1
:Disp "","HEX="
:For(I,1,7)
:int (S/L1(I))->L2(I)
:S-L1(I)*L2(I)->S
:End
:S->L2(8)
:5->A:0->B
:For(J,1,8)
:If L2(J)>0:1->B
:If L2(J)[supérieur ou égal]10:A+1->A
:If L2(J)=10:Output(5,A,"A")
:If L2(J)=11:Output(5,A,"B")
:If L2(J)=12:Output(5,A,"C")
:If L2(J)=13:Output(5,A,"D")
:If L2(J)=14:Output(5,A,"E")
:If L2(J)=15:Output(5,A,"F")
:If L2(J)<10 and B=1
:Then:A+1->A:Output(5,A,L2(J))
:End
:End
:Else
:Output(5,3,"ERROR: S>MAX")
:End
:Pause
:ClrHome
:Goto 0
:
:Lbl C
:ClrHome
:Disp "*-DEC > BIN----*","MAX=4294967295"
:If Z=0
:Then:Prompt S
:Else:Disp "S=":Output(3,4,S)
:End
:ClrList L1,L2
:If S<2^32
:Then
:For(I,0,31)
:2^(31-I)->L1(I+1)
:End
:0->A:0->B
:Disp "","BIN SUR"
:For(J,1,32)
:int (S/L1(J))->L2(J)
:If L2(J)=1
:Then:1->B:S-L1(J)->S
:If A=0:J->A
:End
:End
:Output(5,9,33-A)
:Output(5,12,"BITS")
:For(K,1,33-A)
:If K[inférieur ou égal]16
:Then:Output(6,K,L2(K+A-1))
:Else:Output(7,K-16,L2(K+A-1))
:End
:End
:Else
:Output(5,3,"ERROR: S>MAX")
:End
:Pause
:ClrHome
:Goto 0
::
:Lbl Z
:ClrHome



@+

 Adresse email Haut de page Bas de page 
 
Mwa
Invité
Posté le : Ven 29 Sep 2006, 22:53   Citer 

Un peu long kan meme sans le cable ^^

  Haut de page Bas de page 
 
ratuss



Autorisation : Membre
Nb de messages : 1522
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Sam 30 Sep 2006, 9:25   Citer 

Ca s'apprend, un prog comme ca si tu tapes vite en 20 mn il est fini...

Encore une fois un bel avantage d'avoir le cable godgrace.gif

@+

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 30 Sep 2006, 11:16   Citer 

vive le cable et la programmation rapide.

pour un jeux de 2000 octets et en réfléchissant, il me faut environ 4 heure.

 Adresse email Haut de page Bas de page 
 
error argument
Invité
Posté le : Lun 11 Déc 2006, 11:19   Citer 

Bonjour,
Je viens de taper ce progarmme dans ma calculette et une fois que je le lance il me mets "error argument" je fais goto et le curseur est sur la derniere parenthese de la 3eme ligne, je l'a supprimr pour voir si a le fait toujours et il me mets la même erreur mais pour le Z qui est à coté donc en fait il ne comprend pas la ligne entiere si je comprend bien.
Pouvez vous me donner une solution svp car j'en ai besoin le prof d'éléc exige de l'avoir et c'est le seul que j'ai trouver, merci.

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 11 Déc 2006, 17:32   Citer 

tu n'aurais pas inverser la virgule précédent le Z avec les guillemets par hasard?

Sangohan38

 Adresse email Haut de page Bas de page 
 
shika33



Autorisation : Membre
Nb de messages : 4
Inscrit le : Lun 11 Déc 2006, 12:00
Posté le : Mar 12 Déc 2006, 7:25   Citer 

C'est vrai c'est une faute de guillemet oublié dans la ligne, je teste, le menu s'affiche mais quand je veux faire une conversion par exemple hexa en decimal il mets error et c'est un probleme de signe, car dans le programme à un moment il y a marqué "supérieur ou égal" et moi j'ai mis le signe mathématique mais apparement il ne comprend pas le signe et vu que c'est écrit en minuscule il faut pas l'écrire et puis ce serai pas logique donc voila dites moi si vous voyez, merci.

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 12 Déc 2006, 13:23   Citer 

Pourtant, il faut mettre le signe mathématique et cela devrait marcher même si le prog est faut.
Regarde si tu n'as pas oublier quelque chose dans le programme, l'erreur peut provenir d'un autre endroit.

Sangohan38

 Adresse email Haut de page Bas de page 
 
shika33



Autorisation : Membre
Nb de messages : 4
Inscrit le : Lun 11 Déc 2006, 12:00
Posté le : Mar 12 Déc 2006, 18:42   Citer 

Il fallait supprimmer les crochets. bigmouth.gif
N'empeche merci pour ce programme il est genial, je me demande encore comment tu as pu faire ce truc dément, t'es un genie c'est pas possible. ahh.gif

 Adresse email Haut de page Bas de page 
 
unknow



Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Mar 12 Déc 2006, 21:57   Citer 

nan tout simplement il n'y a pas de parentheses a la fin d'un menu.

----------------------
Ta le look coco
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 13 Déc 2006, 13:01   Citer 

Tu n'as pas lu l'article de Ratuss.
Il est marquer que cela ne sert à rien la parenthèse car c'est la fin d'une ligne.
Regarde touts les progs (en tout cas les miens) n'ont jamais la parenthèse à la fin d'un menu.

Sangohan38

 Adresse email Haut de page Bas de page 
 
unknow



Autorisation : Membre
Nb de messages : 221
Inscrit le : Jeu 12 Oct 2006, 19:30
Posté le : Mer 13 Déc 2006, 21:22   Citer 

c'est exactement ce que j'ai dit. loupe.gif

----------------------
Ta le look coco
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Jeu 14 Déc 2006, 13:20   Citer 

Désolert, j'avais compris que c'était un problème.

pardon.

Sangohan38

 Adresse email Haut de page Bas de page 
 
novice
Invité
Posté le : Mer 17 Oct 2007, 14:24   Citer 

j'aimerai bien integrer ce programme a ma TI 82 mais je n'arrive pas a entre certain caractère comme <;>;- etc...

  Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 17 Oct 2007, 16:04   Citer 

Dis nous exactement les caractères que tu ne trouve pas.
Pour les trouvés, va dans la section article et cherche le sujet fonctions [TI83].
Tu trouvera toutes les fonctions d'une 83 et donc de ta calculette.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
coc5
Avatar

Autorisation : Membre
Nb de messages : 879
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Lun 22 Oct 2007, 21:39   Citer 

(Merci pour cette remarque, mais au passage, il faudrait faire attention à son orthographe même pour écrire des c******* eyeonly.gif )

Vu que l'on était entrain d'étudier les bases en spé math, j'ai fait un programme de ce genre en plus court et qui convertie seulement vers décimal, mais de n'importe quelle base de 2 à 16 ( je peux faire au delà mais c'est du gaspillage de mémoire pour rien je pense^^).

Ca servirait à quelqu'un si je le postait ou je le garde dans ma calto ?

 Adresse email Haut de page Bas de page 
 
vibra



Autorisation : Membre
Nb de messages : 591
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Mar 23 Oct 2007, 18:20   Citer 

Tu connais la réponse… laugh.gif

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
hachlor
Invité
Posté le : Ven 30 Mai 2008, 18:16   Citer 

Salut je viens de copier le programme il est génial!!! super!! merci ça vas m'aider pour la SI!!
le seul petit problème c'est la troisième ligne je l'es vérifié 3 fois et j'ai recopié la même chose et il y'a uns erreur de syntaxe pour la calculette...j'ai enlevé la parenthèse mais le "z" est faux sinon??merci de votre aide

  Haut de page Bas de page 
 
webmaster
Avatar

Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Ven 30 Mai 2008, 18:38   Citer 

Pourtant le code semble bon ! Vérifie encore une fois ce que tu as entré...

@+ Le Webmaster beer.gif

 Adresse email Haut de page Bas de page 
 
tahmahal



Autorisation : Membre
Nb de messages : 45
Inscrit le : Sam 15 Déc 2007, 10:36
Posté le : Sam 31 Mai 2008, 11:17   Citer 

Poste le stp :p

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 31 Mai 2008, 12:40   Citer 

Poster quoi?
Le code est déjà marquer à la page précédente.

Pour ce qui est de l'erreur, tu as dus oublier des parenthèses car la ligne est juste.

Sangohan38

 Adresse email Haut de page Bas de page 
 
Spin444
Invité
Posté le : Dim 01 Mar 2009, 13:49   Citer 

Salut, j'ai un probleme avec supérieur ou égal ...entre les [ ] je l'ai écrit moi meme, mais ça me fait Gotto, et l'erreur se situe ici ...pouvez vous m'aidez? je ne veux pas avoir marqué tout ça pour rien ...xD

  Haut de page Bas de page 
 
Jonas
Invité
Posté le : Dim 01 Mar 2009, 21:14   Citer 

Bonsoir tout le monde, je voulais "vin" pour son super programme, je sais pas comment t'as fait mais c'est du lourd ! Bravo ! Ça fait simplement un an que je programme et je croyais m'y connaitre, tu m'as montré que non ! Merci beaucoup il me sera fort utile en électronique !
Je confirme par ailleurs que le programme fonctionne, donc ceux qui ont des problèmes ont dû faire une erreur de copie.
Enjoy !

  Haut de page Bas de page 
 
Jonas
Invité
Posté le : Dim 01 Mar 2009, 21:19   Citer 

Désolé pour le double poste mais je voulais répondre à "spin44", salut spin, si comme moi tu as une TI82, les supérieur ou égal machin truc se trouve dans :
2nd ==> Math, là tu as tous les opérateurs, même logique si tu va vers la droite.

PS: Pour "vin", je voulais mettre :"je voulais remercier "vin"pour le programme" un petit oublie !

  Haut de page Bas de page 
 
Jonas
Invité
Posté le : Lun 02 Mar 2009, 20:25   Citer 

C'est re-moi je sais mais j'ai découvert un truc bizarre dans le prog, bon c'est pas bien méchant et je cherche peut-être la petite bête mais la valeur 0 semble mal se convertir, en fait pas du tout !
De HEX vers DEC : 0 en Hexa ne s'affiche pas mais donne quand même le résultat en décimal=0. Ensuite le programme demande si on souhaite faire une conversion vers le binaire et là le prog pête un cable, il affiche BIN SUR 33 BITS et me sort une erreur DIM INVALIDE un truc du genre, je fais voir et il m'emenne à cette ligne :
:Then:Output(6,K,L2(K+A-1)) alors que la ligne semble bonne.
Certes ce n'est pas bien grave mais c'est quand même une erreure. Voilà merci d'y réfléchir et encore merci pour le prog !

  Haut de page Bas de page 
 
Jereman
Invité
Posté le : Dim 18 Oct 2009, 15:45   Citer 

bonjour ,
je tien à vous signaler que j'obtient le même problème que toi pour convertir de l'hexa au binair.
j'attend avec impatience votre réponse ...
cupsmiley.gif

  Haut de page Bas de page 
 
Jereman
Invité
Posté le : Dim 18 Oct 2009, 15:47   Citer 

no je voulat dire du déci vers l'hexa ^^

  Haut de page Bas de page 
 
Jereman
Invité
Posté le : Dim 18 Oct 2009, 15:52   Citer 

et deplus peut être que je ne sai pas utiliser le programme de vin alors si vous auvez une notice ou un exemple d'utilisation je suis preuneur.

  Haut de page Bas de page 
 
timmit



Autorisation : Membre
Nb de messages : 27
Inscrit le : Sam 19 Déc 2009, 18:11
Posté le : Lun 14 Déc 2009, 19:35   Citer 

salut quelqu'un peut m'aider je ne trouve la touche clrliste sur ma ti 82 stats.fr merci de vos reponses

 Adresse email Haut de page Bas de page 
 
sypotu
Avatar

Autorisation : Membre
Nb de messages : 651
Inscrit le : Dim 13 Sep 2009, 8:27
Posté le : Lun 14 Déc 2009, 20:12   Citer 

salut
va dans le cataloge( [2nde]+[0] ) puis cherche EffListe

----------------------
Ti-83+.fr
Passe en 1ère S


Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p
 Adresse email Haut de page Bas de page 
 
damarus



Autorisation : Membre
Nb de messages : 1
Inscrit le : Jeu 17 Mar 2011, 19:51
Posté le : Jeu 17 Mar 2011, 19:56   Citer 

bonjour tout le monde,

Ce code est vraiment sympa j'ai juste quelques questions. Pour créer le fichier a envoyé sur la calculatrice j'ai utilisé http://tiforge.info/ti_editor/enregistrement.php mais j'ai du remplacer les "->" par le signe proposer ainsi que les "L1" "int(" en "ent(" enfin je voulais savoir si il existe un logiciel qui compile automatiquement. Je l'ai fait manuellement mais il me reste une erreur le "G->dim L1"

 Adresse email Haut de page Bas de page 
 
Tanguy
Invité
Posté le : Mer 21 Déc 2011, 20:00   Citer 


Citer : vin
Bonjour

Amélioration de mon programme happy.gif
Restriction des entrées et possiblité de convertir en bin après hex>dec ou hex après bin>dec.

Voila le code

Code
:Lbl 0
:0->Z
:Menu("GE:","HEX > DEC",A,"DEC > HEX",B,"DEC > BIN",C,"BIN > DEC",D,"QUITTER",Z)
:
:Lbl A
:ClrList L1,L2
:ClrHome
:10->A:11->B:12->C:13->D:14->E:15->F
:Disp "*-HEX > DEC----*"
:0->S
:Input "NB CHIFFRE=",G
:G->dim L1
:For(I,1,G)
:Repeat H[supérieur ou égal]0 and H[inférieur ou égal]15
:ClrHome
:Disp "*-HEX > DEC----*","NB"
:Output(2,4,I)
:Prompt H
:int H->H
:If H<0 or H>15
:Then:Output(5,4,"ERROR:")
:If H<0:Output(5,11,"H<0")
:If H>15:Output(5,11,"H>15")
:Pause
:End
:H->L1(I)
:End
:16^(G-I)->L2(I)
:S+L1(I)*L2(I)->S
:End
:5->K:0->L
:Output(7,1,"HEX=")
:For(J,1,G)
:If L1(J)>0:1->L
:If L1(J)[supérieur ou égal]10:K+1->K
:If L1(J)=10:Output(7,K,"A")
:If L1(J)=11:Output(7,K,"B")
:If L1(J)=12:Output(7,K,"C")
:If L1(J)=13:Output(7,K,"D")
:If L1(J)=14:Output(7,K,"E")
:If L1(J)=15:Output(7,K,"F")
:If L1(J)<10 and L=1
:Then:K+1->K:Output(7,K,L1(J))
:End
:End
:Output(8,1,"DEC=")
:Output(8,6,S)
:Pause
:ClrHome
:Menu("> BIN","NON",0,"OUI",1)
:Lbl 1
:1->Z
:Goto C
:
:Lbl D
:ClrHome
:ClrList L1,L2
:Disp "*-BIN > DEC----*"
:0->S
:Input "NB CHIFFRE=",G
:G->dim L1
:For(I,1,G)
:Repeat H=0 or H=1
:ClrHome
:Disp "*-BIN > DEC----*","NB"
:Output(2,4,I)
:Prompt H
:int H->H
:If H<0 or H>1
:Then:Output(5,4,"ERROR:")
:If H<0:Output(5,11,"H<0")
:If H>1:Output(5,11,"H>1")
:Pause
:End
:H->L1(I)
:End
:2^(G-I)->L2(I)
:S+L1(I)*L2(I)->S
:End
:Disp "","",""
:Output(6,1,"BIN SUR")
:Output(6,9,G)
:Output(6,12,"BITS"
:Pause L1
:Output(8,1,"DEC=")
:Output(8,6,S)
:Pause
:Menu("> HEX","NON",0,"OUI",2)
:Lbl 2
:1->Z
:Goto B
:
:Lbl B
:ClrHome
:Disp "*-DEC > HEX----*","MAX=4294967295"
:If Z=0
:Then:Prompt S
:Else:Disp "S=":Output(3,4,S)
:End
:ClrList L1,L2
:If S<16^8
:Then
:{16^7,16^6,16^5,16^4,16^3,16²,16}->L1
:Disp "","HEX="
:For(I,1,7)
:int (S/L1(I))->L2(I)
:S-L1(I)*L2(I)->S
:End
:S->L2(8)
:5->A:0->B
:For(J,1,8)
:If L2(J)>0:1->B
:If L2(J)[supérieur ou égal]10:A+1->A
:If L2(J)=10:Output(5,A,"A")
:If L2(J)=11:Output(5,A,"B")
:If L2(J)=12:Output(5,A,"C")
:If L2(J)=13:Output(5,A,"D")
:If L2(J)=14:Output(5,A,"E")
:If L2(J)=15:Output(5,A,"F")
:If L2(J)<10 and B=1
:Then:A+1->A:Output(5,A,L2(J))
:End
:End
:Else
:Output(5,3,"ERROR: S>MAX")
:End
:Pause
:ClrHome
:Goto 0
:
:Lbl C
:ClrHome
:Disp "*-DEC > BIN----*","MAX=4294967295"
:If Z=0
:Then:Prompt S
:Else:Disp "S=":Output(3,4,S)
:End
:ClrList L1,L2
:If S<2^32
:Then
:For(I,0,31)
:2^(31-I)->L1(I+1)
:End
:0->A:0->B
:Disp "","BIN SUR"
:For(J,1,32)
:int (S/L1(J))->L2(J)
:If L2(J)=1
:Then:1->B:S-L1(J)->S
:If A=0:J->A
:End
:End
:Output(5,9,33-A)
:Output(5,12,"BITS")
:For(K,1,33-A)
:If K[inférieur ou égal]16
:Then:Output(6,K,L2(K+A-1))
:Else:Output(7,K-16,L2(K+A-1))
:End
:End
:Else
:Output(5,3,"ERROR: S>MAX")
:End
:Pause
:ClrHome
:Goto 0
::
:Lbl Z
:ClrHome



@+





J'ai pas trop compris comment on faisait pour convertir le décimal en binaire ?

Merci

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 21 Déc 2011, 20:10   Citer 

Quand tu executes le programme, choisis la troisième option du menu c'est-à-dire "DEC > BIN".

Je regrette pour damarus qui n'a eu aucune réponse. Je présume qu'il fallait remplacer l'espace après dim par une parenthèse. L'espace n'est plus valable à partir de la 82stat.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
giantwow
Invité
Posté le : Lun 02 Avr 2012, 19:42   Citer 

pour la traduction hex > dec j'ai plus simple:

ClrHome
10&#8594;A
11&#8594;B
12&#8594;C
13&#8594;D
14&#8594;E
15&#8594;F
0&#8594;H
Output(1,3,"!<")
Input ":",G
ClrHome
Output(1,4,"<")
If G=15
Input ":F",H
If G=14
Input ":E",H
If G=13
Input "bigmouth.gif",H
If G=12
Input ":C",H
If G=11
Input ":B",H
If G=10
Input ":A",H
If G=9
Input ":9",H
If G=8
Input ":8",H
If G=7
Input ":7",H
If G=6
Input ":6",H
If G=5
Input ":5",H
If G=4
Input ":4",H
If G=3
Input ":3",H
If G=2
Input ":2",H
If G=1
Input ":1",H
If G=0
Input ":0",H
ClrHome
16G+H&#8594;I
If I=0
Then
Disp "Error"
Pause
prgm&#952;16B10
End
Disp ":"
Output(1,2,I)

  Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 02 Avr 2012, 20:43   Citer 

tu pourrais remplacer les caractères spéciaux s'il te palit, ce sera plus lisible.

Merci d'avance
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 03 Avr 2012, 22:29   Citer 

Ce programme est-il de toi?

Sangohan38

 Adresse email Haut de page Bas de page 
 
Soni8D



Autorisation : Membre
Nb de messages : 2
Inscrit le : Dim 30 Sep 2012, 13:47
Posté le : Dim 30 Sep 2012, 13:51   Citer 

Bonjour à tous, et merci à vin pour ce programme.

Sauf que j'ai une petite question : C'est quoi le "H=?" ? Qu'est-ce qu'il faut rentrer après ? crazy.gif
_Je n'ai aucun repère en programmation frozen.gif

Merci d'avance pour vos réponses!

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 30 Sep 2012, 15:03   Citer 

H est le nombre hexadécimal ou le nombre binaire à saisir.
Lorsque la TI affiche "H=?" tu dois saisir le nombre et valider.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Dim 30 Sep 2012, 22:10   Citer 

EDIT : NOUVELLE VERSION

De la base X à X, pour X de 2 à 36.
Au défit de faire mieux et plus léger !

Vous pouvez le tester à cette adresse :
https://www.kaagaard.dk/service/convert.htm

Prgm AllBase V3
187 octets.

Code
:"0123456789ABCDEF->Chaîne0   ----   (Allez jusqu'à F pour la base 16 et Z pour 36).
:EffEcr:0->N:0->R
:Input:"DE BASE ",X
:Input "A ",Y
:Input "N= ",Chaîne1
:longueur(Chaîne1->L
:For(Z,0,L-1
:carChaîne(Chaîne0,sous-Chaîne(Chaîne1,L-Z,1))-1
:R+X^ZRép->R
:End
:Repeat non(R
:N+1->N
:Output(8,17-N,sous-Chaîne(Chaîne0,1+R-Yent(R/Y),1
:ent(R/Y->R
:End



Prgm AllBase V2

Code
:"FEDCBA->Chaîne0
:0->R:10->A:11->B:12->C:13->D:14->E:15->F
:EffEcr
:Menu("BASE",10 A X",1,"X A 10",2

:Lbl 1
:Disp "10 A X"
:Prompt X,N
:While N=/=0
:R+1->R
:N-Xent(N/X
:If Rép<10:Then:Output(8,17-R,Rép):Else:Output(8,17-R,sous-Chaîne(Chaîne0,16-Rép,1:End
:partEnt(N/X->N
:End:Stop

:Lbl 2
:Disp "X A 10"
:Prompt X
:Input "N=?",Chaîne0
:longueur(Chaîne0->L
:For(E,0,L-1
:expr(sous-Chaîne(Chaîne0,L-E,1
:If Rép supérieur ou égal à X:Disp "ERREUR !
:R+X^Eent(Rép->R
:End
:Output(8,1,R



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Soni8D



Autorisation : Membre
Nb de messages : 2
Inscrit le : Dim 30 Sep 2012, 13:47
Posté le : Lun 01 Oct 2012, 21:05   Citer 

Bonsoir, et merci Linkakro happy.gif !

Id _ Ton programme est sur TI82? Car il me manque quelques "fonctions" comme Effecr, ou Ent... eyeonly.gif

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 01 Oct 2012, 22:22   Citer 

Le programme du sujet ici présent a été écrit par vin, pas par moi.

Si tu veux parler de mon programme posté ailleurs (relisez le topic car il contient plusieurs choses) : non, la dernière version optimale n'est pas disponible sur ti82 à cause des chaines de caractères.
Contourner ce problème est possible mais très pénible, ou bien on utilise pas de lettres.
Il existe déjà une version de mon programme adaptée à toutes les TI, mais utilise des listes ce qui complique la saisie ; je ne sais plus si je l'ai postée ni où.
Si on est prêt à gérer soi-même des choses, utilisez les deux petits programmes à la fin.

Consulte le catalogue des fonctions signalé par ma signature : il indique les emplacements des fonctions et leurs traductions.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
mikouuu
Invité
Posté le : Mar 19 Fév 2013, 19:43   Citer 

bonjour voila j'aimerai savoir ou se trouve chaine sans la parenthese car je suis debutant et je mi conais pas trop et se programe me serai d'une grande utiliter svp

  Haut de page Bas de page 
 
blg_flg



Autorisation : Membre
Nb de messages : 646
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Mar 19 Fév 2013, 21:34   Citer 

Regarde ici: http://web.archive.org/web/20220522200338/http://tiemulation.kegtux.org//TIBasic.htm

Il y a toutes les fonctions et tous les emplacements, traductions, etc. winkle.gif

 Adresse email Haut de page Bas de page 
 
mika
Invité
Posté le : Mer 20 Fév 2013, 16:02   Citer 


Code
:Normal
:Float
:ClrHome
:ClrList L1,L2
:Input "DEPART=",X
:Input "FINAL=",Y
:10&#8594;A
:11&#8594;B
:12&#8594;C
:13&#8594;D
:14&#8594;E
:15&#8594;F
:3&#8594;T
:0&#8594;S
:0&#8594;N
:iPart(log(X-1))+1&#8594;U
:If X=16
:   1&#8594;U
:" "&#8594;Str2
:"ABC--DEF--------789--456--123--0---"&#8594;Str1
:Lbl 88
:0&#8594;K
:Repeat K&#8800;0
:   getKey&#8594;K
:End
:If K=105 and N/U=iPart(N/U) and N&#8800;0
:   Goto 99
:If K=23 and N&#8800;0
:Then
:   Output(T,S," "
:   S-1&#8594;S
:   If S=0
:   Then
:      16&#8594;S
:      T-1&#8594;T
:   End
:   N-1&#8594;N
:   sub(Str2,1,N+1)&#8594;Str2
:   If N/U=iPart(N/U)
:      N/U&#8594;dim(L1)
:End
:If K<41 or K=105 and (N/U&#8800;iPart(N/U) or N=0)
:   Goto 88
:If K=23
:   Goto 88
:K-40-5iPart((K-40)/10)&#8594;M
:If sub(Str1,M,1)="-"
:   Goto 88
:If expr(sub(Str1,M,1))&#8805;X or expr(sub(Str1,M,1))&#8805;10 and H=0
:   Goto 88
:N+1&#8594;N
:S+1&#8594;S
:If S=17
:Then
:   T+1&#8594;T
:   1&#8594;S
:End
:Output(T,S,sub(Str1,M,1))
:Str2+sub(Str1,M,1)&#8594;Str2
:If N/U=iPart(N/U)
:   expr(sub(Str2,N-U+2,U)&#8594;L1(N/U)
:Goto 88
:Lbl 99
:"0123456789ABCDEF"&#8594;Str1
:Lbl R
:0&#8594;H
:If Y=16
:   1&#8594;H
:0&#8594;P
:N/U&#8594;N
:For(W,1,N
:   L1(W)*X^(N-W)+P&#8594;P
:End
:0&#8594;W
:P&#8594;Z
:ClrList L2
:Repeat Q=0
:   W+1&#8594;W
:   iPart(P/Y)&#8594;Q
:   P-Q*Y&#8594;L2(W)
:   Q&#8594;P
:End
:ClrList L1
:For(V,0,W-1
:   L2(W-V)&#8594;L1(V+1)
:End
:ClrList L2
:ClrHome
:If P>9999999999
:   Disp "TROP GRAND"
:If P<&#7473;10
:   Disp "BASE"
:Output(1,7,Y
:If Y=10 and dim(L1)<11
:   Pause Z
:If Y>10 and H=0
:   Pause L1
:If H=1 or Y=10 and dim(L1)>10 or Y<10
:Then
:   " "&#8594;Str2
:   dim(L1)&#8594;M
:   For(W,1,M
:      Str2+sub(Str1,L1(W)+1,1)&#8594;Str2
:   End
:   Pause Str2
:End
:Menu("RESTART","STOP",Q,"RECONVERTIR",S
:Lbl S
:Y&#8594;X
:Input "RECONV=",Y
:ClrHome
:Udim(L1)&#8594;N
:If Y=16
:   1&#8594;H
:Goto R
:Lbl Q




j'ai un probleme de domaine au niveau de sub (str2,1,n+1) ??

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 20 Fév 2013, 18:40   Citer 

Ce programme n'est visiblement pas du site. Aussi j'aimerai qu'a l'avenir tu créer un nouveau sujet au lieu de répondre dans un autre sujet.
Pourrais-tu nous indiquer la dimension de la chaîne 2 (= son nombre de caractère) ainsi que la valeur de N lors de l'erreur?

Sangohan38

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 24 Fév 2013, 13:43   Citer 

C'est une des antiques versions de mon programme que j'ai mentionné en lien. Il aurait fallu remonter le sujet où je l'ai posté plutôt que celui-ci.
Sérieusement utilise une version plus moderne, car elle ne donne aucun avantage de compatibilité et son algorithme de saisie est compliqué.

Le sujet ici présent, et pas la remontée de mika, est compatible toute ti.
Celui de l.davin aussi est compatible.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
thomas
Invité
Posté le : Sam 02 Mar 2013, 12:08   Citer 


Citer : ld
Bonjour tout le monde ! bigmouth.gif
Voilà j'avais envi d'enterrer ce topic en vous présentant mon dernier convertisseur. L'affichage est PARFAIT. Bien plus simple, léger, rapide et fonctionnel !
Il sais aussi utiliser et afficher les nombres en hexadécimal pour les programmeurs comme vous !
Et le tout en 270 octets s'il vous plait !

Le menu vous propose de passer de la base 10 à la base X et inversement.
Quelques exemples pour illustrer tout çà:

Convertir 6435 (Base 10) en binaire (Base 2).
-> Menu -> "10 à X" -> X=? 2 -> N=? 6435 -> Entrer. On a 1100100100011

Convertir 7243 (Base 10) en hexadécimal (Base 16).
-> Menu -> "10 à X" -> X=? 16 -> N=? 7243 -> Entrer. On a 1C4B

Convertir 1101 (Base 2) en décimal (Base 10).
-> Menu -> "X à 10" -> X=? 2 -> N=? 1101 -> Entrer. On a 13

Convertir E7B6 (Base 16) en décimal (Base 10).
-> Menu -> "X à 10" -> X=? 16 -> N=? E7B6 -> Entrer. On a 14262


Code
:"FEDCBA->Chaîne0
:0->R:10->A:11->B:12->C:13->D:14->E:15->F
:EffEcr
:Menu("BASE",10 A X",1,"X A 10",2

:Lbl 1
:Disp "10 A X"
:Prompt X,N
:While N=/=0
:R+1->R

Code
:N-Xent(N/X

:If Rép<10:Then:Output(8,17-R,Rép):Else:Output(8,17-R,sous-Chaîne(Chaîne0,16-Rép,1:End
:partEnt(N/X->N
:End:Stop

:Lbl 2
:Disp "X A 10"
:Prompt X
:Input "N=?",Chaîne0
:longueur(Chaîne0->L
:For(E,0,L-1
:expr(sous-Chaîne(Chaîne0,L-E,1
:If Rép supérieur ou égal à X:Disp "ERREUR !
:R+X^Eent(Rép->R
:End
:Output(8,1,R



Ce msg remonte d'ici:
https://tout82.pages-perso.free.fr/forum/sujet.php?sujet=3354
Dans le topic de Samsam. D’ailleurs le siens est bien aussi.



je suis sur ti 82 stat.fr et je vois pas comment entrer cette ligne :
:N-Xent(N/X
ni cella là :
:longueur(Chaîne0->L

Pardonnez mon imcompétence godgrace.gif

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





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