Springen naar inhoud


- - - - -
VS 2012

Kleinste Nummer Via Inputbox

Uitkomst altijd -1

  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 25 mei 2019 - 12:57

Hallo, ik heb al vanalles geprobeerd, maar kom altijd uit op -1.
Wat doe ik verkeerd ?
Visual Basic Code:
Private Sub btnFind_Click(sender As Object, e As EventArgs) Handles btnFind.Click
Dim Num As Integer = 0
Dim storedvalue As Integer = 0
Dim Prompt As String = "Enter a positive number. " &
"Enter -1 to terminate entering numbers."
Num = CInt(InputBox(Prompt))
storedvalue = Num 'Sets Stored value
Do
Num = CInt(InputBox(Prompt))
If Num < storedvalue Then
storedvalue = Num 'Compares number num to original stored value
Else
storedvalue = storedvalue
End If
Loop Until Num = -1
txtSmallest.Text = " The smallest number is " & storedvalue.ToString("N0")
End Sub


#2 Thor

Thor

    Rookie Developer

  • Leden
  • Pip
  • 30 berichten
    Laatst bezocht

Geplaatst op 27 mei 2019 - 14:35

Bericht bekijkenludo64, op 25 mei 2019 - 12:57, zei:

maar kom altijd uit op -1.
Dat is volkomen logisch. Dat is altijd het laagste getal. Je moet testen of het getal -1 is voor de toekenning aan storedvalue, en de toekenning NIET doen als het getal -1 is.
Zoals in volgende code.

Visual Basic Code:
Private Sub ButtonFind_Click(sender As Object, e As EventArgs) Handles ButtonFind.Click
	Dim getal As Integer
	Dim kleinste As Integer = Integer.MaxValue
	Dim prompt As String = "Geef positief getal" + Environment.NewLine + "Om te stoppen: tik -1."
	Do While getal <> -1
		If Int32.TryParse(InputBox(prompt), getal) Then
			If getal > -1 AndAlso getal < kleinste Then
				kleinste = getal
				TextKleinste.Text = $"Kleinste getal is {kleinste}"
			End If
		End If
	Loop
End Sub



#3 ludo64

ludo64

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht vandaag, 13:58
  • LocatieTongeren

Geplaatst op 27 mei 2019 - 16:58

Ok thx Thor, zal straks eens proberen.





Ook met taq VS 2012, Uitkomst altijd -1 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2012] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)