Применить скидку с различными уровнями ставок

Question

Я работаю над инструментом, который принимает цену на предмет и количество, которое продается (ввод пользователем). Если количество составляет 50 или более, покупатели получат скидку 20%. Все 49 или ниже получают 10%. Текущий код возвращает 0

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click 

    Dim a, b As Integer 
    a = txtPrice.Text 
    b = txtQuantity.Text 
    If b >50 Then b = 0.2 
    If b <50 Then b = 0.1 

    lblTotal.Text = (a * b)/100 

End Sub 

Я думаю, что, возможно, процент части неправильно? Надеюсь, кто-то может помочь.

Answer 1

Ваша логика кажется немного выключенной, и вы переписываете значение b, прежде чем вы его вычислите. Предполагая, что (и я мог бы быть неправильно) вы хотите общую цену после скидки для заказа, попробуйте следующее:

Dim price As Integer 
Dim quantity As Double 

price = CInt(txtPrice.Text) 
quantity = CDbl(txtQuantity.Text) 

If quantity > = 50 Then 
    lblTotal.Text = ((price * quantity) * 0.8).ToString() 
Else 
    lblTotal.Text = ((price * quantity) * 0.9).ToString() 
End If 

Пару вещей, чтобы отметить здесь.

Во-первых, я использовал CInt и CDbl на текст из текстовых полей. VB.NET будет (в зависимости от ваших вариантов) разрешить это, но это плохая форма, чтобы привыкнуть к тому, чтобы компилятор мог преобразовывать значения (от строки в текстовом поле до int/double/decimal независимо от того, что угодно) и вызовет у вас головные боли, если вы перейдите на строго типизированный язык, такой как C# или Java.

Во-вторых, я использовал 0,8 для скидки 20% (потому что на самом деле они получают его на 80%) и 0,9 за 10% скидку. Этот расчет предполагает, что скидка равна сумме заказа, если вам не нужно соответствующим образом корректировать формулу.

Answer 2

Тим прибил его. Спасибо, Тим.

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click 

Dim a, b As Integer 
a = txtPrice.Text 
b = txtQuantity.Text 
If b >=50 Then b = 0.2 
If b <50 Then b = 0.1 

lblTotal.Text = (a * b)/100 
End Sub 

«необходимо repleace "(а * б)/100" с "- (A * B)"