Convertisseur d'un nombre décimal en binaire et hexadecimal

Soyez le premier à donner votre avis sur cette source.

Vue 11 327 fois - Téléchargée 1 519 fois

Description

Petit programme très simple qui convertit un nombre décimal que l'utilisateur saisi lui-même en nombre binaire et hexadécimal dans des mémos et l'utilisateur peut également choisir le nombre de lignes qu'il désir faire apparaitre.
Pour une raison de durée d'exécution, j'ai limité le nombre de lignes à 129 avec une variable en shortint.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
Re bonjour
Solution :
- supprimer la fonction translationhex
- dans procedure TForm1.Button1Click(Sender: TObject);
modifier comme suit : memo2.lines.add(inttohex(nombre+i,0));
et ça doit marcher (ça marche chez moi, même avec 255)
Messages postés
6
Date d'inscription
mercredi 30 décembre 2009
Statut
Membre
Dernière intervention
21 novembre 2011

Bonjour à vous...

Convertir 255(d) sur 2 lignes donne 15F(H) puis 100(H) au lieu de FF(H) puis 100(H) à cause de "else translationhex:=inttostr(nomber)+hexadecimal;" au deuxième passage.
Messages postés
10
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
31 janvier 2010

Ok, merci bien Roger pour cette autre possibilité de conversion
Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
14
Bonjour Philippe, bonjour Ludovic
pour la conversion binaire hexa on peut aussi directenet utiliser ceci :

function translationhex(nomber:integer):string;
///--- function IntToHex(Value:Integer;Digits:Integer):string;
begin
result := inttohex(nomber,nomber div 16 + 1)
end;

cordialement
Messages postés
10
Date d'inscription
dimanche 8 novembre 2009
Statut
Membre
Dernière intervention
31 janvier 2010

Oui, j'ai bien compris, merci pour ces informations
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ludokk)