'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