'Author: Matthew Bayne
'Project: Assignment 4
'Date: 10/16/06

Public Class HW_4

    Dim booksRead, readers, sumBooksRead, sumReaders As Integer
    Dim averageBooksRead As Decimal

    Private Function PointSchedule(ByVal books As Integer) As Integer
        'Function for calculating bonus points
        If books <= 3 Then
            Return books * 10
        ElseIf books > 3 And books < 7 Then
            Return books * 15 - 15
        ElseIf books >= 7 Then
            Return books * 20 - 45
        End If

    End Function

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        'Exits the program
        Me.Close()
    End Sub

    Private Sub ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
        'Clears Textboxes
        With Me
            nameTextBox.Clear()
            booksreadTextBox.Clear()
            bonuspointsTextBox.Clear()
        End With

        'Focuses to First Textbox
        nameTextBox.Focus()

    End Sub

    Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
        'Displays Font Dialog Box
        Dim result As DialogResult
        result = FontDialog1.ShowDialog()
        If result = Windows.Forms.DialogResult.Cancel Then
            Return
        End If

        'Assigns Font DialogBox to text
        bonuspointsTextBox.Font = FontDialog1.Font

    End Sub

    Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
        'Displays Color Dialog Box
        Dim result As DialogResult
        result = ColorDialog1.ShowDialog()
        If result = Windows.Forms.DialogResult.Cancel Then
            Return
        End If

        'Assigns Color DialogBox to text
        With Me
            .bonuspointsTextBox.ForeColor = .ColorDialog1.Color
        End With

    End Sub

    Private Sub PointsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PointsToolStripMenuItem.Click
        'Calculate bonus points
        Dim books As Integer

        books = Integer.Parse(Me.booksreadTextBox.Text)
        Me.bonuspointsTextBox.Text = PointSchedule(books)

    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MessageBox.Show("Program Name: HW_4 Programmer: Matthew Bayne")
    End Sub

    Private Sub SummaryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SummaryToolStripMenuItem.Click
        'Calculate summary values
        sumBooksRead += booksRead
        sumReaders += readers
        averageBooksRead = sumBooksRead / sumReaders

        'Format and Display Summary Values
        nameTextBox.Text = sumReaders.ToString()
        booksreadTextBox.Text = sumBooksRead.ToString
        MessageBox.Show(averageBooksRead)
    End Sub
End Class