Моя программа не отображает числовые значения правильно

Question

Моя программа должна рассчитать стоимость предметов, когда она запустится, она не будет отображать десятичные числа. Например, если пользователь вводил 599 в текстовое поле с затратами и 5 в поле количества элементов, 25 будет отображаться как результат.

Public Class Form1 
Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click 
    Dim DecCost As Decimal = txtCost.Text 
    Dim intNumber As Integer = txtNumber.Text 
    If Decimal.TryParse(txtNumber.Text, DecCost) Then 
     Dim DecTotal As Decimal = intNumber * DecCost 
     lblTotal.Text = DecTotal 
    Else 
     lblTotal.Text = "Please Enter Numerals in Both Boxes." 
    End If 

End Sub 

End Class

Заранее спасибо!

EDIT Я только что попробовал некоторые новые значения в текстовых полях во время выполнения. Кажется, что оно умножает значение количества элементов. я не знаю, почему-...

Answer 1

Я думаю, что проблема в том, что вы разбираете txtNumber.Text и хранить его в DecCost, которые вы уже используете для удержания стоимости. Вам потребуется DecCost Десятичное число, чтобы сохранить стоимость, и целое число 10 для хранения количества. Затем проанализируйте каждое текстовое поле и несколько результатов вместе.

Dim decCost As Decimal 
Dim intNumber As Integer 
If Integer.TryParse(txtNumber.Text, intNumber) AND Decimal.TryParse(txtCost.Text, decCost) Then 
    lblTotal.Text = decCost * intNumber 
Else 
    lblTotal.Text = "Please Enter Numerals in Both Boxes." 
End If 

Demo