ZOnder If...Then ...End If

[zettekakkers]

[CPP]Dim intTeller As Integer
Dim dblGetal, dblSom As Double
Dim strInvoer As String

btnStart.Visible = False
dblSom = 0
intTeller = 1

Do
strInvoer = InputBox("Geef getal" & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)

Do Until dblGetal < 0

If dblGetal > 0 Then
intTeller += 1
dblSom += dblGetal
End If

Do
strInvoer = InputBox("Geef getal " & intTeller.ToString, "Invoer getallen")
Loop Until IsNumeric(strInvoer)
dblGetal = Double.Parse(strInvoer)
Loop

If dblGetal < 0 Then
lblSom.Text = "De som is:" & dblSom.ToString
End If
[/CPP]
Dit is mijn code maar ik wil het zonder If then?
mijn programma maakt de som van een aantal getallen totdat een negatief getal ingevoerd word. dit negatief getal mag niet bij de som worden bijgeteld.
Nog een klein vraag je wat is een ""venster direct""?

 

[edmoor]

Welke If...Then heb je het over? Beide kunnen eigenlijk direct wel weg omdat de Do...Until dat al regelt.
Het "venster direct" kun je inschakelen in het keuzemenu.
In dit venster kun je code direct ingeven en uitvoeren. Ook kun je in dat venster in Debug Mode de waarde van variabelen uitvragen en/of ingeven.

 

[zettekakkers]

Welke If...Then heb je het over? Beide kunnen eigenlijk direct wel weg omdat de Do...Until dat al regelt.
Het "venster direct" kun je inschakelen in het keuzemenu.
In dit venster kun je code direct ingeven en uitvoeren. Ook kun je in dat venster in Debug Mode de waarde van variabelen uitvragen en/of ingeven.

alle if then's :d