Archief - [PROG] Hulp bij fout in vb code.

Croinarius · 28 sep 2007

Hallo,

Ik moet in de vb console een code laten uitvoeren die de fibonacciwaarde van een bepaalde rang moet weergeven. Ik zit echter met een probleem, in plaats van enkel de laatste waarde in de console weer te geven komen alle waarden die de variable gehad heeft in de console tevoorschijn. Hieronder zie je mijn vb.net code.

Iemand enig idee wat ik moet veranderen? Thanks in Advance

Code:

    Sub Main()
        Console.Write("Number ( 0 to exit ) : ")

        Dim Nr1 As Integer = 0
        Dim Nr2 As Integer = 1
        Dim Nr3 As Integer
        Dim Rang As Integer = Console.ReadLine()

        Do While Rang > 0
            Nr3 = Nr1 + Nr2
            Nr1 = Nr2
            Nr2 = Nr3
            Rang = Rang - 1
            Console.Write("Fibo : " & Nr1)
        Loop

        Console.ReadLine()

    End Sub

Ice · 28 sep 2007

Croinarius zei:
Hallo,

Ik moet in de vb console een code laten uitvoeren die de fibonacciwaarde van een bepaalde rang moet weergeven. Ik zit echter met een probleem, in plaats van enkel de laatste waarde in de console weer te geven komen alle waarden die de variable gehad heeft in de console tevoorschijn. Hieronder zie je mijn vb.net code.

Iemand enig idee wat ik moet veranderen? Thanks in Advance

Code:

Sub Main() Console.Write("Number ( 0 to exit ) : ") Dim op1As Integer = 0 Dim op2 As Integer = 1 Dim sum As Integer Dim Rang As Integer = Console.ReadLine() Do While Rang - 2 > 0 sum = op1 + op2 op1 = op2 op2 = sum Rang = Rang - 1 Loop Console.Write("Fibo : " & sum) Console.ReadLine() End Sub

* Beetje duidelijkere namen.
* Als je met 'rang' het X de getal in de rij van Fibonacci bedoeld moet je stoppen bij Rang - 2 > 0 omdat je al start met 0 & 1.
* Elke waarde werd afgeprint, omdat uw println binnenin uw loop stond

Croinarius · 28 sep 2007

Bedankt voor de snelle hulp, de code werkt nu zoals ik het gewild had.

Croinarius · 28 sep 2007

Nog even een vraagje, kan ik er op een of andere manier voor zorgen dat de console om getallen vraagt tot ik de toepassing stop zet?

Zodat ik dit in de console krijg:

PHP:

Number ( 0 to exit ) : 4
Fibo : 3
Number ( 0 to exit ) : 10
Fibo : 55
Number ( 0 to exit ) : -1
Please give a value above zero !
Number ( 0 to exit ) : 11
Fibo : 89

Thanks

ArnoDF · 28 sep 2007

een while loop gebruiken over gans het programma.

kben geen vb programmeur maar zoiets:

Code:

Sub Main()
   Do while a == "y"
        Console.Write("Number ( 0 to exit ) : ")

        Dim op1As Integer = 0
        Dim op2 As Integer = 1
        Dim sum As Integer
        Dim Rang As Integer = Console.ReadLine()

        Do While Rang - 2 > 0
            sum = op1 + op2
            op1 = op2
            op2 = sum
            Rang = Rang - 1
        Loop
        Console.Write("Fibo : " & sum)
        Console.ReadLine()
        'Hier vragen om verder te gaan. y/n, indien y vraagt hij nieuw getal
        Console.Write("doorgaan?")
        dim a as char = Console.Readline();
     loop
End Sub

Archief - [PROG] Hulp bij fout in vb code.

Croinarius

Legacy Member

Ice

Legacy Member

Croinarius

Legacy Member

Croinarius

Legacy Member

ArnoDF

Legacy Member