Korting berekenen met Visual Basic

[kjhpeter]

bedankt!

 

[stefanz]

        Dim Aantal, Betalen As Single

        Aantal = TextBox1.Text
        Betalen = Aantal * 8
        TextBox2.Text = Betalen

        If Aantal > 10 Then
            Betalen = Aantal * 8 * "0,85"
        ElseIf Aantal > 20 Then
            Betalen = Aantal * 8 * "0,7"
        End If

 

[royb3]

waarom gebruik je geen double?

 

[JoZ1]

        Dim Aantal, Betalen As Single

        Aantal = TextBox1.Text
        Betalen = Aantal * 8
        TextBox2.Text = Betalen

        If Aantal > 10 Then
            Betalen = Aantal * 8 * "0,85"
        ElseIf Aantal > 20 Then
            Betalen = Aantal * 8 * "0,7"
        End If

Waarom "0,7" <-- ?.

Dat is dan een string

 

[CaptainBri]

Probeer dit eens

        Dim Aantal = TextBox1.Text, Betalen As Double
        Betalen = Aantal * 8
        TextBox2.Text = Betalen
        If Aantal > 10 Then
            Betalen = (Aantal * 8) * 0.85
        ElseIf Aantal > 20 Then
            Betalen = (Aantal * 8) * 0.7
        End If

 

[stefanz]

Waarom "0,7" <-- ?.

Dat is dan een string

Das waar maar anders moet je het met Double doen

 

[JoZ1]

Geen probleem toch?

 

[stefanz]

Vind ik ook