Public Class MainForm

    Const cellRate As Integer = 22

    Enum carFam
        Covenant
        Spartan
        Brute
    End Enum

    Dim sumTests As Integer
    Dim sumCars As Integer
    Dim sumMiles As Integer
    Dim sumFuel As Integer
    Dim sumCost As Integer


    Dim testNum As Integer
    Dim dayt As Date
    Dim firstName As String
    Dim lastName As String

    Dim startMil1 As Integer
    Dim endMil1 As Integer
    Dim milesTrav1 As Integer
    Dim startFuel1 As Integer
    Dim endFuel1 As Integer
    Dim used1 As Integer

    Dim startMil2 As Integer
    Dim endMil2 As Integer
    Dim milesTrav2 As Integer
    Dim startFuel2 As Integer
    Dim endFuel2 As Integer
    Dim used2 As Integer

    Dim startMil3 As Integer
    Dim endMil3 As Integer
    Dim milesTrav3 As Integer
    Dim startFuel3 As Integer
    Dim endFuel3 As Integer
    Dim used3 As Integer

    Dim startMil4 As Integer
    Dim endMil4 As Integer
    Dim milesTrav4 As Integer
    Dim startFuel4 As Integer
    Dim endFuel4 As Integer
    Dim used4 As Integer

    Private Sub TextBox30_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox31_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox32_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox33_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub GroupBox5_Enter(sender As Object, e As EventArgs) Handles dataGroupBox.Enter

    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub testNumField_TextChanged(sender As Object, e As EventArgs) Handles testNumField.TextChanged

    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub idComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles idComboBox.SelectedIndexChanged
        If idComboBox.SelectedIndex = 0 Then
            driveFirstNameFIeld.Text = "Bart"
            driverLastNameField.Text = "Simpson"
            driverPhoneField.Text = "909-888-7777"
            driverPic.Image = Image.FromFile("C:\Users\arakazaryan\Documents\Visual Studio 2012\Projects\338_Project1\338_Project1\Images\bart.png")


        End If
        If idComboBox.SelectedIndex = 1 Then
            driveFirstNameFIeld.Text = "Homer"
            driverLastNameField.Text = "Simpson"
            driverPhoneField.Text = "909-666-5555"
            driverPic.Image = Image.FromFile("C:\Users\arakazaryan\Documents\Visual Studio 2012\Projects\338_Project1\338_Project1\Images\homer.png")

        End If
        If idComboBox.SelectedIndex = 2 Then
            driveFirstNameFIeld.Text = "Marge"
            driverLastNameField.Text = "Simpson"
            driverPhoneField.Text = "909-111-3333"
            driverPic.Image = Image.FromFile("C:\Users\arakazaryan\Documents\Visual Studio 2012\Projects\338_Project1\338_Project1\Images\marge.png")

        End If
        If idComboBox.SelectedIndex = 3 Then
            driveFirstNameFIeld.Text = "Lisa"
            driverLastNameField.Text = "Simpson"
            driverPhoneField.Text = "909-333-6666"
            driverPic.Image = Image.FromFile("C:\Users\arakazaryan\Documents\Visual Studio 2012\Projects\338_Project1\338_Project1\Images\lisa.png")

        End If

    End Sub

    Private Sub driveFirstNameFIeld_TextChanged(sender As Object, e As EventArgs) Handles driveFirstNameFIeld.TextChanged

    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load




    End Sub

    Private Sub allTestsButton_Click(sender As Object, e As EventArgs) Handles allTestsButton.Click
        Dim summaryForm As New Summary
        summaryForm.summaryTextBox.Text = "Summary Report:" & Environment.NewLine
        summaryForm.summaryTextBox.Text += Environment.NewLine & "Number of Tests Ran: "
        summaryForm.summaryTextBox.Text += sumTests.ToString("n0")
        summaryForm.Show()
    End Sub

    Private Sub famResField1_TextChanged(sender As Object, e As EventArgs) Handles famResField1.TextChanged

    End Sub

    Private Sub driverPic_Click(sender As Object, e As EventArgs) Handles driverPic.Click

    End Sub

    Private Sub vehicleComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles vehicleComboBox1.SelectedIndexChanged

    End Sub

    Private Sub vehicleComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles vehicleComboBox2.SelectedIndexChanged

    End Sub

    Private Sub vehicleComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles vehicleComboBox3.SelectedIndexChanged

    End Sub

    Private Sub vehicleComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles vehicleComboBox4.SelectedIndexChanged

    End Sub


    ' VALIDATION FUNCTIONS***************************************************************************************



    Private Function checkDashAfter(aCtrl As TextBox, startValue As Integer) As Integer

        Dim validEndValue As Integer


        While Val(aCtrl.Text) > startValue Or String.IsNullOrEmpty(aCtrl.Text)
            aCtrl.Text = InputBox("End value must be less than start value:", "Doh!")
            If IsNumeric(aCtrl.Text) = False Or (Val(aCtrl.Text) > startValue) Then
                MsgBox("End value must be less than start value! ", vbInformation, "Doh!")
                aCtrl.Text = ""
            End If
        End While



        validEndValue = aCtrl.Text

        Return validEndValue

    End Function

    Private Function checkInteger(aCtrl As TextBox) As Integer

        Dim validInt As Integer


        While Val(aCtrl.Text) < 1 Or String.IsNullOrEmpty(aCtrl.Text)
            aCtrl.Text = InputBox("Enter a valid positive integer:", "Invalid Input")
            If IsNumeric(aCtrl.Text) = False Or (Val(aCtrl.Text) < 1) Then
                MsgBox("Enter a valid positive integer! ", vbInformation, "Invalid Input")
                aCtrl.Text = ""
            End If
        End While

        validInt = aCtrl.Text

        Return validInt

    End Function



    Private Function checkDate(aCtrl As TextBox) As Date
        Dim aDate As Date

        While Date.TryParse(aCtrl.Text, aDate) = False
            If Date.TryParse(InputBox("Please re-enter date. Entry has to be a valid date", "Error"), aDate) = True Then
                aCtrl.Text = aDate
            Else
                aCtrl.Text = ""
            End If

        End While



        Return aDate
    End Function


    Private Function checkString(aCtrl As TextBox) As String
        Dim aName As String = ""

        While String.IsNullOrEmpty(aCtrl.Text) = True
            aCtrl.Text = InputBox("Doh! You gotta have a name!", "No blanks")
            If String.IsNullOrEmpty(aCtrl.Text) Then
                MsgBox("Enter a valid name! ", vbInformation, "Earth to Mr. No Name")
                aCtrl.Text = ""
            End If



        End While

        Return aName


        'If (String.IsNullOrEmpty(aCtrl.Text) = False) Then
        '    aName = aCtrl.Text
        'Else

        '    aName = InputBox("Please re-enter text. Text cannot be null or empty", "Error")


        '    aCtrl.Text = aName
        'End If

        'Return aName
    End Function


    ' PROCESS BUTTON ************************************************************************************************
    Private Sub processButton_Click(sender As Object, e As EventArgs) Handles processButton.Click

        testNum = checkInteger(testNumField)
        dayt = checkDate(dateField)
        firstName = checkString(firstNameField)
        lastName = checkString(lastNameField)

        If String.IsNullOrEmpty(vehicleComboBox1.Text) = False Then
            startMil1 = checkInteger(startMileageField1)
            endMil1 = checkDashAfter(endMileageField1, startMil1)
            startFuel1 = checkInteger(startFuelField1)
            endFuel1 = checkDashAfter(endFuelField1, startFuel1)
            vehResField1.Text = vehicleComboBox1.Text
            famResField1.Text = getFam(vehResField1.Text)
            milesTrav1 = getMileage(startMil1, endMil1)
            milResField1.Text = milesTrav1
            used1 = getFuel(startFuel1, endFuel1)
            fuelUseField1.Text = used1
            fuelCostField1.Text = getCost(used1)
            mpfcRatField1.Text = getMPFC(milesTrav1, used1)

        End If

        If String.IsNullOrEmpty(vehicleComboBox2.Text) = False Then
            startMil2 = checkInteger(startMileageField2)
            endMil2 = checkDashAfter(endMileageField2, startMil2)
            startFuel2 = checkInteger(startFuelField2)
            endFuel2 = checkDashAfter(endFuelField2, startFuel2)
            vehResField2.Text = vehicleComboBox2.Text
            famResField2.Text = getFam(vehResField2.Text)
            milesTrav2 = getMileage(startMil2, endMil2)
            milResField2.Text = milesTrav2
            used2 = getFuel(startFuel2, endFuel2)
            fuelUseField2.Text = used2
            fuelCostField2.Text = getCost(used2)
            mpfcRatField2.Text = getMPFC(milesTrav2, used2)

        End If

        If String.IsNullOrEmpty(vehicleComboBox3.Text) = False Then
            startMil3 = checkInteger(startMileageField3)
            endMil3 = checkDashAfter(endMileageField3, startMil3)
            startFuel3 = checkInteger(startFuelField3)
            endFuel3 = checkDashAfter(endFuelField3, startFuel3)
            vehResField3.Text = vehicleComboBox3.Text
            famResField3.Text = getFam(vehResField3.Text)
            milesTrav3 = getMileage(startMil3, endMil3)
            milResField3.Text = milesTrav3
            used3 = getFuel(startFuel3, endFuel3)
            fuelUseField3.Text = used3
            fuelCostField3.Text = getCost(used3)
            mpfcRatField3.Text = getMPFC(milesTrav3, used3)


        End If

        If String.IsNullOrEmpty(vehicleComboBox4.Text) = False Then
            startMil4 = checkInteger(startMileageField4)
            endMil4 = checkDashAfter(endMileageField4, startMil4)
            startFuel4 = checkInteger(startFuelField4)
            endFuel4 = checkDashAfter(endFuelField4, startFuel4)
            vehResField4.Text = vehicleComboBox4.Text
            famResField4.Text = getFam(vehResField4.Text)
            milesTrav4 = getMileage(startMil4, endMil4)
            milResField4.Text = milesTrav4
            used4 = getFuel(startFuel4, endFuel4)
            fuelUseField4.Text = used4
            fuelCostField4.Text = getCost(used4)
            mpfcRatField4.Text = getMPFC(milesTrav4, used4)
        End If

        ' Over here we add to the SUM counters

        sumTests += 1
        ' sumCars +=
        ' sumMiles +=
        ' sumFuel +=
        ' sumCost +=



    End Sub

    ' CLEAR BUTTON ************************************************************************************************

    Private Sub clearButton_Click(sender As Object, e As EventArgs) Handles clearButton.Click
        testNumField.Text = ""
        dateField.Text = ""
        firstNameField.Text = ""
        lastNameField.Text = ""
        idComboBox.SelectedIndex = -1
        driveFirstNameFIeld.Text = ""
        driverLastNameField.Text = ""
        driverPhoneField.Text = ""
        driverPic.Image = Nothing

        vehicleComboBox1.SelectedIndex = -1
        vehicleComboBox2.SelectedIndex = -1
        vehicleComboBox3.SelectedIndex = -1
        vehicleComboBox4.SelectedIndex = -1

        startMileageField1.Text = ""
        startMileageField2.Text = ""
        startMileageField3.Text = ""
        startMileageField4.Text = ""

        endMileageField1.Text = ""
        endMileageField2.Text = ""
        endMileageField3.Text = ""
        endMileageField4.Text = ""

        startFuelField1.Text = ""
        startFuelField2.Text = ""
        startFuelField3.Text = ""
        startFuelField4.Text = ""

        endFuelField1.Text = ""
        endFuelField2.Text = ""
        endFuelField3.Text = ""
        endFuelField4.Text = ""

        vehResField1.Text = ""
        vehResField2.Text = ""
        vehResField3.Text = ""
        vehResField4.Text = ""

        famResField1.Text = ""
        famResField2.Text = ""
        famResField3.Text = ""
        famResField4.Text = ""

        milResField1.Text = ""
        milResField2.Text = ""
        milResField3.Text = ""
        milResField4.Text = ""

        fuelUseField1.Text = ""
        fuelUseField2.Text = ""
        fuelUseField3.Text = ""
        fuelUseField4.Text = ""

        fuelCostField1.Text = ""
        fuelCostField2.Text = ""
        fuelCostField3.Text = ""
        fuelCostField4.Text = ""

        mpfcRatField1.Text = ""
        mpfcRatField2.Text = ""
        mpfcRatField3.Text = ""
        mpfcRatField4.Text = ""


    End Sub

    ' CALCULATION FUNCTIONS ***********************************************************************************

    Private Function getMileage(ByVal startMil As Integer, ByVal endMil As Integer)

        Dim mileage As Integer

        mileage = startMil - endMil

        Return mileage

    End Function

    Private Function getFuel(ByVal startFuel As Integer, ByVal endFuel As Integer)

        Dim fuel As Integer

        fuel = startFuel - endFuel

        Return fuel

    End Function

    Private Function getCost(ByVal fuelUsed As Integer)
        Dim cost As Integer
        Dim formattedCost As String

        cost = fuelUsed * cellRate

        formattedCost = cost.ToString("c0")

        Return formattedCost

    End Function

    Private Function getMPFC(ByVal mileage As Integer, ByVal fuel As Integer)
        Dim mpfc As Double
        Dim formattedMPFC As Double

        mpfc = Convert.ToDouble(mileage) / fuel

        formattedMPFC = FormatNumber(mpfc, 3)

        Return formattedMPFC
    End Function


    ' SUMMARY FUNCTIONS *****************************************************************************************

    Private Function getSumTestsRan(ByVal testsRan As Integer)
        Return testsRan
    End Function

    Private Function getSumVehiclesTested(ByVal vehTested As Integer)
        Return vehTested
    End Function

    Private Function getSumMilesTravelled(ByVal milesTrav As Integer)
        Return milesTrav
    End Function

    Private Function getSumCellsUsed(ByVal cellsUsed As Integer)
        Return cellsUsed
    End Function

    Private Function getSumCost(ByVal sumCost As Integer)
        Return sumCost
    End Function

    ' MISC FUNCTIONS *****************************************************************************************

    Private Function getFam(ByVal vehicleName As String)

        Dim Family As String = ""

        If vehicleName = "Ghost" Or vehicleName = "Banshee" Then
            Family = carFam.Covenant.ToString


        ElseIf vehicleName = "Hornet" Then
            Family = carFam.Spartan.ToString

        ElseIf vehicleName = "Chopper" Then
            Family = carFam.Brute.ToString


        End If
        Return Family

    End Function




End Class