AutoIt Français

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
 

Code : Tout sélectionner

; Calcul manuel.  ;)
$Dec = 10^18 + 10^17 + 10^16 + 10^15 + 10^14 + 10^13 + 10^12 + 10^11 + 10^10 + 10^9 + 14^8 + 14^7 + 14^6 + 14^5 + 14^4 + 16^3 + 16^2 + 10^1 + 10^0
MsgBox(0,"",$Dec)

; Calcul Auto.
Dim $hex = "AAAAAAAAAAEEEEEFFAA"
Dim $Res, $Cpt = 0
For $i = StringLen($hex) to 1  Step -1
    $Res += Dec(StringMid($hex, $i, 1))^$Cpt
    $Cpt +=1
Next
MsgBox(0,"",$Res)