probleme division par 0 Fermé

Question

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

Configuration: Windows 7 / Firefox 6.0.2

Nico# · Answer

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

Char Snipeur · Answer

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

Probleme division par 0

2 réponses

Discussions similaires