Discussion :

[zidenne]

salut
je veux convertir un nombre binaire en un nombre hexadécimal .
es que la procedure BintoHex peux faire ça.
comment l'utiliser alors
merci

[sjrd]

, il n'y a rien d'autre à dire...

Merci de lire les règles du forum...

[sofiane44]

salut;
j'ai vu la fonction "BinTohex",mais il faut bien précisé les tailles des variables
(g pas reussi)
- "inttohex" fonctionne bien (decimale----->hex)
il reste alors bin ------>decimale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function expt(x,y:integer):integer;
var exptx,bouc:integer;
begin
case y of
0:exptx:=1;
else
exptx:=x;
end;
for bouc:=1 to y-1 do
begin
exptx:=exptx*x;
end;
expt:=exptx;
end;


function bintodec(bin:string):integer;
var  bouc,nombre,conver:integer;
begin
nombre:=length(bin);
conver:=0;
for bouc:=0 to nombre-1 do
begin
conver:=conver+strtoint(copy(bin,(nombre-bouc),1))*expt(2,bouc);
end;
bintodec:=conver;
end;

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var bin:string;hex:integer;nbrdegite:byte;
begin
hex:= inttohex( bintodec(bin),nbrdegite );

end;