J'ai remarqué dans le calcul héxadécimale se bloquait à partir d'un certain nombre.
j'ai donc crée une chaîne permettant de convertir de l'hexa en décimal.
Je veux ensuite pouvoir lire des données dans la base de registre de type hexa
et les convertir en décimal afin de les interpréter.
Ma question est peut 'on convertir une chaîne hexadécimal supérieur à 16 caractères en décimal sans provoquer des erreurs de calculs du type 5.03...e22,comme dans cette exemple
Merci
Code : Tout sélectionner
#Include<Array.au3>
dim $array[16]
local $hex
$Array[0]=0
$Array[1]=1
$Array[2]=2
$Array[3]=3
$Array[4]=4
$Array[5]=5
$Array[6]=6
$Array[7]=7
$Array[8]=8
$Array[9]=9
$Array[10]="A"
$Array[11]="B"
$Array[12]="C"
$Array[13]="D"
$Array[14]="E"
$Array[15]="F"
$hex="AAAAAAAAAAEEEEEFFAA"
$nhex=StringLen($hex)
$nh=$nhex-1
Local $conv,$result,$digit,$n
$n=1
$digit=""
For $i=$nhex-1 To 0 step -1
$int2=StringMid($hex,$n,1)
conv($int2)
$result=$result+$digit*16^$nh
$n=$n+1
$nh=$nh-1
Next
MsgBox(0,"decT",$result)
func conv($int2)
$digit = _ArraySearch ($Array, $Int2, 0, 0, 0, True)
return $digit
EndFunc
