Probleme division par 0

speedi57 Messages postés 14 Statut Membre -  
Char Snipeur Messages postés 10112 Date d'inscription   Statut Contributeur Dernière intervention   -
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. Nico# Messages postés 328 Date d'inscription   Statut Membre Dernière intervention   102
     
    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
    0
  2. Char Snipeur Messages postés 10112 Date d'inscription   Statut Contributeur Dernière intervention   1 331
     
    Il me semble que rien ne garanti que ton C de la boucle while soit différent de 0 (si B<8)
    0