' Project name:         College Course Project
' Project purpose:      Displays information about a college course.
' Created/revised by:   <your name> on <current date>

Option Explicit On
Option Strict On

Public Class MainForm
    ' declare all application objects
    Private aCourse As Course
    Private aSection As Section
    Private anInstructor As Instructor
    Private aStudent As Student

    Private Sub MainForm_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        ' instantiate objects when form loads using default values
        aCourse = New Course
        aSection = New Section
        anInstructor = New Instructor
        aStudent = New Student
    End Sub

    Private Sub displayButton_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles displayButton.Click
        'declare variables
        Dim quotient As Decimal
        Dim dividend As Decimal
        Dim divisor As Decimal

        Try
            ' input
            dividend = Convert.ToDecimal(dividendTextBox.Text())
            divisor = Convert.ToDecimal(divisorTextBox.Text())
            ' processing
            quotient = dividend / divisor

            'output
            quotientLabel.Text = Convert.ToString(quotient)
            errorLabel.Text = ""
        Catch
            errorLabel.Text = "Please enter the correct values"
        Finally
            MessageBox.Show(Me, "Ready for more input", "Ready")
        End Try



        ' get data from form, set instance variables for objects
        aCourse.CourseId = courseIdTextBox.Text
        aCourse.CourseDept = courseDeptListBox.Text
        aCourse.CourseNum = Convert.ToInt16(courseNumTextBox.Text)
        aCourse.CreditHours = Convert.ToInt16(courseCreditTextBox.Text)
        aCourse.Section = aSection

        aSection.SectionNum = Convert.ToInt16(secNumTextBox.Text)
        aSection.Semester = secSemesterListBox.Text
        aSection.SchoolYear = Convert.ToInt16(secYearTextBox.Text)
        aSection.DayAndTime = secDayTimeTextBox.Text
        aSection.Instructor = anInstructor
        aSection.Student = aStudent

        anInstructor.InstructorId = instructorIdTextBox.Text
        anInstructor.InstructorTitle = instructorTitleListBox.Text
        anInstructor.InstructorName = instructorNameTextBox.Text
        anInstructor.InstructorRank = instructorRankListBox.Text

        aStudent.StudentId = studentIdTextBox.Text
        aStudent.StudentName = studentNameTextBox.Text
        aStudent.StudentClass = studentClassListBox.Text

        ' display all course information
        MessageBox.Show(aCourse.ToString(), _
            "College Course Information", _
            MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub exitButton_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub
End Class