Discussion :

[lollipop69]

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

[tomlev]

Code :

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

1
2
Dim deci As Integer = 123
Dim hexa As String = deci.ToString("X")

Ou encore :

Code :

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

1
2
Dim deci As Integer = 123
Dim hexa As String = Convert.ToString(deci, 16)

[lollipop69]

Je n'ai pas tout compris tomlev...

[lollipop69]

Ah, la fonction existe déjà en vb apparemment... mais j'aimerais quand même que mon algo fonctionne !

[tomlev]

Ah, la fonction existe déjà en vb apparemment... mais j'aimerais quand même que mon algo fonctionne !

ben à part pour l'intérêt pédagogique, ça n'a pas trop d'utilité de vouloir implémenter toi même un truc qui existe déjà...

Dans ton algo, il y a un truc qui me chiffonne... jamais tu ne fais une conversion en string. Dans un nombre en hexa, il y a des lettres, donc tu dois forcément convertir les nombres de tabhexa en caractères à un moment ou un autre...

[lollipop69]

Justement, c'est pour les cours donc c'est à but pédagogique !

Pour ce qui est de la conversion en string, en réalité dans tabhexa il n'y a que des int, ce n'est qu'après, au vidage du tableau que je change les nombre en lettre.

[tomlev]

En fait le code est presque correct, mais il faut utiliser l'opérateur \ (division entière) et non /, sinon ça fait un arrondi et non une troncature

Sinon, on peut le simplifier un peu :

Ces lignes :

Code :

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

1
2
            If temp < 16 Then
                tabhexa(i) = temp Mod 16

Peuvent être simplifiées en :

Code :

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

1
2
            If temp < 16 Then
                tabhexa(i) = temp

(puisque temp < 16, temp Mod 16 sera toujours égal à temp)

et celle-ci ne sert à rien (ce sera toujours 0 puisque temp < 16)

Code :

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

                tabhexa(i + 1) = (temp / 16)

A la fin, le tableau contient bien les bonnes valeurs, il reste juste à convertir les valeurs supérieures à 9 en lettres...

[lollipop69]

Très bien merci, je vais expérimenter tout ça

[lollipop69]

Ca tourne niquel, maintenant une autre petite question, comment connaitre l'indice utilisé du dernier élément d'un tableau ? Ubound n'a pas l'air de marcher...

[tomlev]

Ca tourne niquel, maintenant une autre petite question, comment connaitre l'indice utilisé du dernier élément d'un tableau ? Ubound n'a pas l'air de marcher...

ben c'est ta variable i...

[lollipop69]

Je suis vraiment une quiche des fois... Merci sujet clos !

[tomlev]

Je suis vraiment une quiche des fois... Merci sujet clos !

utilise le bouton alors