Multiple classes

[tragic54]

Alright so im having a problem getting a value from a couple combo boxes based on their index. Im calling the objects from the main form to calculatecost() from 2 other classes. Anyways heres the main form code and i'll post one class after that with the combo box selected values.

Option Strict On
Option Explicit On
 
Public Class MobilePhoneCost
 
 
    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
 
        Dim objCustomer As Customer
        Dim objInternetBuyer As InternetBuyer
        Dim InputError As Boolean = False
 
 
        'Is Last Name entered properly?
        If Me.txtLastName.TextLength < 1 Or _
        Me.txtLastName.Text < "A" Then
            MessageBox.Show("Enter your Last name in the Box.", "Error")
            Me.txtLastName.Clear()
            Me.txtLastName.Focus()
            InputError = True
 
            'Is the Address entered properly?
        ElseIf Me.txtAddress.TextLength < 1 Or _
        Me.txtAddress.Text < "A" Then
            MessageBox.Show("Enter your address in the box.", "Error")
            Me.txtAddress.Clear()
            Me.txtAddress.Focus()
            InputError = True
 
            'Is zip entered properly?
        ElseIf Me.txtZipCode.MaskFull = False Then
            MessageBox.Show("Enter your Zip code", "Error")
            Me.txtZipCode.Clear()
            Me.txtZipCode.Focus()
            InputError = True
 
            'Has a phone been selected?
        ElseIf Me.cboPhoneChoice.SelectedIndex < 0 Then
            MessageBox.Show("Please select a phone.", "Error")
            Me.cboPhoneChoice.Focus()
            InputError = True
 
            'Has a charger been selected?
        ElseIf Me.cboChargerStyle.SelectedIndex < 0 Then
            MessageBox.Show("Please select a charger.", "Error")
            Me.cboChargerStyle.Focus()
            InputError = True
 
        End If
 
        'If no error process the phone purchase cost
        If Not InputError Then
            If Me.radInStore.Checked Then
                objCustomer = New Customer(txtLastName.Text, txtAddress.Text, _
                Convert.ToInt32(txtZipCode.Text), Convert.ToString(cboPhoneChoice.SelectedItem), _
                Convert.ToString(cboChargerStyle.SelectedItem))
                Me.lblTotalCost.Visible = True
                Me.lblTotalCost.Text = "Total phone purchase cost: " _
                & (objCustomer.ComputeCosts()).ToString("C2")
            Else
                objInternetBuyer = New InternetBuyer(txtLastName.Text, txtAddress.Text, _
                CInt(txtZipCode.Text), txtEmail.Text, CStr(cboPhoneChoice.SelectedItem))
                Me.lblTotalCost.Visible = True
                Me.lblTotalCost.Text = "Total Phone purchase cost: " _
                & (objInternetBuyer.ComputeCosts()).ToString("C2")
 
            End If
        End If
    End Sub
 
 
    Private Sub radInStore_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radInStore.CheckedChanged
        'This event handler is executed when the In store radio button
        'is selected.  It hides the buyer type radio buttons.
 
        Me.grpBuyer.Visible = True
 
    End Sub
 
 
    Private Sub radInternet_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radInternet.CheckedChanged
        'This event handler is executed when the Internet radio button
        'is selected.  It makes the buyer type radio buttons visible.
 
        Me.grpBuyer.Visible = True
        Me.lblEmail.Visible = True
        Me.txtEmail.Visible = True
 
        If Me.txtEmail.TextLength < 1 Or _
        Me.txtEmail.Text < "A" Then
            MessageBox.Show("Enter your E-mail address in the box.", "Error")
            Me.txtEmail.Clear()
            Me.txtEmail.Focus()
        End If
 
    End Sub
 
 
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        'This event handler is executed when the user clicks the Clear Form
        'button.  It resets all objects on the user interface.
 
        Me.txtLastName.Clear()
        Me.txtAddress.Clear()
        Me.txtZipCode.Clear()
        Me.txtEmail.Clear()
        Me.cboChargerStyle.SelectedIndex = -1
        Me.cboPhoneChoice.SelectedIndex = -1
        Me.radInStore.Checked = True
        Me.radInternet.Checked = True
        Me.grpBuyer.Visible = True
        Me.lblTotalCost.Visible = False
        Me.txtLastName.Focus()
    End Sub
 
End Class
 

And here is the other class.

Option Strict On
Option Explicit On
 
Public Class Customer
    Inherits MobilePhoneCost
 
    Protected _strLastName As String
    Protected _strAddress As String
    Protected _intZipCode As Integer
    Protected _strPhoneChoice As String
    Protected _strCharger As String
    Protected _decCost As Decimal
    Protected _decSalesTax As Decimal = 0.0775D
 
    Dim objPhoneCostFile As PhoneCostFile
 
    Sub New(ByVal strLastName As String, ByVal strAddress As String, ByVal intZipCode As Integer, _
    ByVal strPhoneChoice As String, ByVal strCharger As String)
 
        _strLastName = strLastName
        _strAddress = strAddress
        _intZipCode = intZipCode
        _strPhoneChoice = strPhoneChoice
        _strCharger = strCharger
 
    End Sub
 
 
    Overridable Function ComputeCosts() As Decimal
 
        Dim decAmount As Decimal
 
        If Me.cboPhoneChoice.SelectedIndex = 0 Then
            decAmount = 279.81D
        ElseIf Me.cboPhoneChoice.SelectedIndex = 1 Then
            decAmount = 193.71D
        ElseIf Me.cboPhoneChoice.SelectedIndex = 2 Then
            decAmount = 328.44D
        ElseIf Me.cboPhoneChoice.SelectedIndex = 3 Then
            decAmount = 253.72D
        ElseIf Me.cboPhoneChoice.SelectedIndex = 4 Then
            decAmount = 479.36D
        End If
 
        Dim decAmount1 As Decimal
        If Me.cboChargerStyle.SelectedIndex = 0 Then
            decAmount1 = 63.92D
        ElseIf Me.cboChargerStyle.SelectedIndex = 1 Then
            decAmount1 = 42.66D
        ElseIf Me.cboChargerStyle.SelectedIndex = 2 Then
            decAmount1 = 27.31D
        End If
 
        _decCost = decAmount + decAmount1 + _decSalesTax
        Return _decCost
    End Function
 
End Class
 

I know theres something wrong with the combo selected index, but i don't know exactly how to fix it in order for _decCost to return the value to the main class. When this is executed, it calculates the _decSalesTax just fine, but ignores all the combobox items? Anyone point me in the right direction?

[debasisdas]

Question moved to .net forum.

[balame2004]

Question moved to .net forum.

Please debug and check(in immediate window) selected index value of combobox. I think it might be -1 when else-if statement is being executed .


-Balaji U

[tragic54]

I don't understand what you mean. All comboboxes begin their index at 0. When executed, and trying to go through the selectedindex if statements to find which 'phone' was selected, it returns a value of 0.