cant seem to get program to show correct price.

[huey]

for some reason my program will not display the three different price levels for the coffee selections that i have input. i.e. when i select 1/4 lb, i should get 2.60, 1/2 lb 4.90 and full ib 8.75. i keep getting 2.60 regardless of the selection lb size i make. can anyone help. my code seems flawless up to this point. maybe i am off just a little somewhere.
thanks.

Public Class bulkcoffeeForm
    'declare structure and module-level variabels
    Structure coffeesale
        Dim typestring As String
        Dim quantitystring As String
        Dim pricedecimal As Decimal
    End Structure
    Private transactioncoffeesale(20) As coffeesale
    Private numbertransactionsinteger As Integer
    Private pricedecimal(,) As Decimal = _
    {{2.6D, 2.9D, 3.25D}, {4.9D, 5.6D, 6.1D}, {8.75D, 9.75D, 11.25D}}
    Private selectedbuttonstring As String

    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
        'terminate the project
        Dim responsedialogresult As DialogResult

        responsedialogresult = MessageBox.Show("print the report?", _
"terminate the application", MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
        If responsedialogresult = DialogResult.Yes Then
            printButton_Click(sender, e)
        End If
        Me.Close()

    End Sub

    Private Sub clearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearButton.Click
        'remove the selection from the list and 
        'clear the price

        'select first radio button
        quarterpoundRadioButton.Select()
        'clear the coffee type selection
        coffeetypeComboBox.SelectedIndex = -1
        pricetextbox.clear()
    End Sub

    Private Sub printButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printButton.Click
        'print the report using print preview
        With Me
            .PrintPreviewDialog1.Document = .printdocument1
            .PrintPreviewDialog1.ShowDialog()
        End With
    End Sub

    Private Sub quarterpoundRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quarterpoundRadioButton.CheckedChanged
        'save the name of the selected radio button
        'this procedure is executed each time any radio button is selected

        selectedbuttonstring = CType(sender, RadioButton).Name

    End Sub

    Private Sub findpriceButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findpriceButton.Click
        'look up the price using the quantity and type
        Dim rowinteger, columninteger As Integer
        Dim salepricedecimal As Decimal
        With Me
            'allow only 20 transactiions
            If numbertransactionsinteger < 20 Then
                columninteger = .coffeetypeComboBox.SelectedIndex
                If columninteger <> -1 Then
                    'coffee selection made, determine quantity selected.
                    Select Case selectedbuttonstring
                        Case "quarterpoundradiobutton"
                            rowinteger = 0
                            transactioncoffeesale(numbertransactionsinteger).quantitystring _
                            = "quarter pound"
                        Case "halfpoundradiobutton"
                            rowinteger = 1
                            transactioncoffeesale(numbertransactionsinteger).quantitystring _
                             = "half pound"
                        Case "fullpoundradiobutton"
                            rowinteger = 2
                            transactioncoffeesale(numbertransactionsinteger).quantitystring _
                             = "full pound"
                        Case Else
                            'no selection made; use quarter pound.
                            rowinteger = 0
                            transactioncoffeesale(numbertransactionsinteger).quantitystring _
                            = "quarter pound"
                    End Select
                    'retrieve price of selection
                    salepricedecimal = pricedecimal(rowinteger, columninteger)
                    priceTextBox.Text = salepricedecimal.ToString("c")
                    'save this transaction
                    transactioncoffeesale(numbertransactionsinteger).typestring _
                      = .coffeetypeComboBox.Text
                    transactioncoffeesale(numbertransactionsinteger).pricedecimal _
                      = salepricedecimal
                    numbertransactionsinteger += 1
                Else
                    MessageBox.Show("select the coffee type. ", "selection incomplete", _
                    MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End If
            Else
                MessageBox.Show("sorry, only 20 transactions allowed.")
            End If
        End With
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'handles print and print preview
        Dim printfont As New Font("arial", 14, FontStyle.Bold)
        Dim headingfont As New Font("arial", 14, FontStyle.Bold)
        Dim lineheightsingle As Single = printfont.GetHeight + 2
        Dim column1horizontallocationsingle As Single = e.MarginBounds.Left
        Dim verticalprintlocationsingle As Single = e.MarginBounds.Top
        Dim column2horizontallocationsingle As Single = 300
        Dim column3horizontallocationsingle As Single
        Dim printlinestring As String
        Dim fontsizef As New SizeF
        Dim formattedpricestring As String

        'set up and display heading lines
        printlinestring = "R 'n R Coffee Sales"
        e.Graphics.DrawString(printlinestring, headingfont, _
        Brushes.Black, column2horizontallocationsingle, verticalprintlocationsingle)
        printlinestring = "by henry fair"
        verticalprintlocationsingle += lineheightsingle
        e.Graphics.DrawString(printlinestring, printfont, _
         Brushes.Black, column2horizontallocationsingle, verticalprintlocationsingle)
        verticalprintlocationsingle += lineheightsingle * 2

        'loop through the transactions
        For Each individualcoffeesale As coffeesale In transactioncoffeesale
            'dont print if blank
            If individualcoffeesale.quantitystring <> "" Then
                'set up a line

                'quantity
                e.Graphics.DrawString(individualcoffeesale.quantitystring, printfont, _
                 Brushes.Black, column1horizontallocationsingle, verticalprintlocationsingle)

                'type
                e.Graphics.DrawString(individualcoffeesale.typestring, printfont, _
               Brushes.Black, column2horizontallocationsingle, verticalprintlocationsingle)

                'right-align the price
                formattedpricestring = individualcoffeesale.pricedecimal.ToString("n")
                'measure string in this font
                fontsizef = e.Graphics.MeasureString(formattedpricestring, printfont)
                'subtract width of string from column position
                column3horizontallocationsingle = 560 - fontsizef.Width
                e.Graphics.DrawString(formattedpricestring, printfont, _
                  Brushes.Black, column3horizontallocationsingle, verticalprintlocationsingle)

                'increment the y position for the next line; double space
                verticalprintlocationsingle += lineheightsingle * 2
            End If
        Next
    End Sub
End Class

[Hack]

Moved to VB.NET

[Tinbeard]

You only seem to handle the 'quarterpoundRadioButton' event and as this seems to be the default selection I'd guess this would be why you only get the quarterpound result.

[huey]

ok, i will try to fix the quarterpound button
thanks