conversion décimal / hexadécimal
Bonjour,
J'ai pour mini projet de faire un convertisseur de base, et je rencontre quelques soucis au niveau de la conversion décimal / hexa, voici le code :
Code:
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
|
Dim tabhexa(2000) As Integer
Dim i As Integer = 0
Dim fin As Boolean = False
Dim temp As Integer = 0
While (fin <> True)
If i < 1 Then
temp = valeurdep.Text
End If
tabhexa(i) = (temp Mod 16)
temp = (temp / 16)
i = i + 1
If temp < 16 Then
tabhexa(i) = temp Mod 16
tabhexa(i + 1) = (temp / 16)
fin = True
End If
End While |
Je recupère donc le contenu de valeurdep.text , le nombre en décimal, puis j'effectue les division par 16 successives et je place chaque reste des divisions dans tabhexa, jusqu'à ce que ce ne soit plus divisible par 16, auquel cas je sors de la boucle.Mais à la sortie, quand je vide tabhexa (en sens inverse bien sur ), j'ai une longue série de 0 avec un nombre à la fin, qui ne correspond en rien à la conversion.Si vous pouviez m'éclairer, ça fait quelques jours que je peine...
Merci
