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 : 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
 
  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