Попытка ввести код (иначе вырвать мои волосы)

Question

У меня нет кодового фона, поэтому я обращаюсь к вам, ребята, за помощью. Я поставил около 12 часов, пытаясь понять это, используя мою книгу для школы, веб-сайт Microsoft, этот сайт, пару друзей, и я не могу понять, что не так с кодом. Да, это проблема домашней работы, я не прошу вас сделать это, я прошу кого-то ПОЖАЛУЙСТА, объясните мне, почему это не работает.

Идея проекта: A) выберите переключатель, один для вызова по дневному времени, один - вызов в ночное время, один - выезд за час. B) Введите количество минут, на которые вы говорили, выберите рассчитать C) Магия (математика) бывает и pow, она дает вам номер.

Если выбран день радио, скорость 7 центов в минуту, радио ночь = 12 центов за мин, радиочасы = 5 центов в минуту.

Так, с этим сказал, вот код для события нажатия кнопки, я попытался так много разных вещей, и она до сих пор вызывает ответ будет: $ 0,00

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click 
    Dim dblcharge2 As Double 
    Dim dblmin As Double 
    Dim blnInputOk As Boolean = True 
    'give value to variables' 

    If Double.TryParse(txtMin.Text, dblmin) And IsNumeric(txtMin.Text) And dblmin > 0 Then 
     If radDay.Checked = True Then 
      lblCharge2.Text = dblmin * 0.07 
      lblCharge2.Text = dblcharge2.ToString("c") 
     ElseIf radEve.Checked = True Then 
      lblCharge2.Text = dblmin * 0.12 
      lblCharge2.Text = dblcharge2.ToString("c") 
     ElseIf radOff.Checked = True Then 
      lblCharge2.Text = dblmin * 0.05 
      lblCharge2.Text = dblcharge2.ToString("c") 
     End If 
    End If 
    'Try Parse and calculate the number' 
End Sub 

Answer 1

Это потому, что вы установили метку с "dblcharge2". Пожалуйста, попробуйте следующее:

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click 
    Dim dblcharge2 As Double 
    Dim dblmin As Double 
    Dim blnInputOk As Boolean = True 
    'give value to variables' 

    If Double.TryParse(txtMin.Text, dblmin) And IsNumeric(txtMin.Text) And dblmin > 0 Then 
    If radDay.Checked = True Then 
     dblcharge2 = dblmin * 0.07 
     lblCharge2.Text = dblcharge2.ToString("c") 
    ElseIf radEve.Checked = True Then 
     dblcharge2 = dblmin * 0.12 
     lblCharge2.Text = dblcharge2.ToString("c") 
    ElseIf radOff.Checked = True Then 
     dblcharge2 = dblmin * 0.05 
     lblCharge2.Text = dblcharge2.ToString("c") 
    End If 
    End If 
    'Try Parse and calculate the number' 
End Sub