Probleme division par 0

Bonjour, a tous
aujourd'hui par plaisir j'ai voulue crée un petit programme en visual basic .net pour convertir des nombre de la base 10 en base 8 mais le problème ce que d'après l'ordinateur sa tombe sur une division part 0
voici le code que j'ai utilise :

Sub Main()
Dim A As Double = 0
Dim B As Double = 0
Dim C As Double = 0
Dim D As Double = 0
Console.WriteLine(" -conversion de chiffre de la base 10 en base 8 - ")
Console.WriteLine(" -chiffre a convertir ? - ")

A = Console.ReadLine()

B = A / 8
C = Int(B)
D = A / (C * 8)
While D <> 0
B = D \ 8
C = Int(B)
D = D / (C * 8)
Console.WriteLine(D)

End While

End Sub

en espérant que quelqu'un puisse m'aider, merci d'avance

2 réponses

  1. Contributeur
    Il me semble que rien ne garanti que ton C de la boucle while soit différent de 0 (si B<8)
    1. slt,

      voila la façon de convertir de la base 10 vers la base 8

      int nombre = 755; 
                  string reste = null; 
                  int resum=nombre; 
                  do 
                  { 
                      reste += (resum%8).ToString(); 
                      resum = resum/8; 
                  } while (resum!=0); 
                  Console.WriteLine(string.Concat(reste.Reverse())); 
                 
                  Console.ReadLine();


      c'est du C# mais c'est assez simple à remetre en VB