Блог

У меня возникли проблемы с возвратом правильного значения для промежуточного итога в моем приложении. Пользователь выбирает тип тура, который он хочет, и вводит количество приобретаемых билетов. После нажатия кнопки Рассчитать стоимость отображаются промежуточный итог, сумма налога и итоговый итог.

Мой код для методов промежуточного итога и btnCost_Click приведен ниже:

 Private Sub btnCost_Click(sender As Object, e As EventArgs) Handles btnCost.Click
    Dim intTicketQuantity As Integer
    Dim blnNumberOfTicketsIsValid As Boolean = False
    Dim blnCheckForRad As Boolean = False
    Dim decSubTotal As Decimal
    Dim decTotalTax As Decimal
    Dim intTourType As Integer

    blnNumberOfTicketsIsValid = ValidateNumberOfTickets()

    If (blnNumberOfTicketsIsValid) Then
        intTicketQuantity = Convert.ToInt32(txtTickets.Text)
        intTicketQuantity = cboTourType.SelectedIndex
        If (intTicketQuantity > 0) Then
            intTourType = cboTourType.SelectedIndex
        End If

        Select Case intTourType
            Case 0
                decSubTotal = Story(intTourType, intTicketQuantity)
                decTotalTax = Tax(decSubTotal)
            Case 1
                decSubTotal = Battleground(intTourType, intTicketQuantity)
                decTotalTax = Tax(decSubTotal)
            Case 2
                decSubTotal = Mission(intTourType, intTicketQuantity)
                decTotalTax = Tax(decSubTotal)
        End Select
        ShowAll(decSubTotal, decTotalTax)
    End If
End Sub

Private Function Story(ByVal intTourType As Integer, intTicketQuantity As Integer) As Decimal
    Dim decSubTotal As Decimal = 0D

    If (radWeekday.Checked = True) Then
        decSubTotal = 19D * intTicketQuantity * (1 - _decDiscount)
    ElseIf (radWeekend.Checked = True) Then
        decSubTotal = 19D * intTicketQuantity
    End If
    Return decSubTotal
End Function

Private Function Battleground(ByVal intTourType As Integer, intTicketQuantity As Integer) As Decimal
    Dim decSubTotal As Decimal = 0D

    If (radWeekday.Checked = True) Then
        decSubTotal = 29D * intTicketQuantity * (1 - _decDiscount)
    ElseIf (radWeekend.Checked = True) Then
        decSubTotal = 29D * intTicketQuantity
    End If
    Return decSubTotal
End Function

Private Function Mission(ByVal intTourType As Integer, intTicketQuantity As Integer) As Decimal
    Dim decSubTotal As Decimal = 0D

    If (radWeekday.Checked = True) Then
        decSubTotal = 49D * intTicketQuantity * (1 - _decDiscount)
    ElseIf (radWeekend.Checked = True) Then
        decSubTotal = 49D * intTicketQuantity
    End If
    Return decSubTotal
End Function