Average Input Program PArt 2

----

Public Class Form1

    'Justin Carreno

    '02/16/2022

    'Visual Basic Program

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim quarters As Integer                                         '1 Declare Variables

        Dim dimes As Integer

        Dim nickles As Integer

        Dim pennies As Integer

        Dim total As Integer

​

        'MsgBox("Please enter a valid value", "Action required")

        total = Val(Me.txtInput.Text)                                   '2 Get user input

​

        If total <= 0 Then

            MsgBox("Please enter a valid value")

            Me.lblOutputQuarters.Text = ""                            '4 Output

            Me.lblOutputDimes.Text = ""

            Me.lblOutputNickles.Text = ""

            Me.lblOutputPennies.Text = ""

        Else

​

            quarters = total \ 25                                           '3 Calculations

            total = total Mod 25

            dimes = total \ 10

            total = total Mod 10

            nickles = total \ 5

            total = total Mod 5

            pennies = total \ 1

            total = total Mod 1

        End If

​

        Me.lblOutputQuarters.Text = quarters                            '4 Output

        Me.lblOutputDimes.Text = dimes

        Me.lblOutputNickles.Text = nickles

        Me.lblOutputPennies.Text = pennies

​

    End Sub

​

    Private Sub txtInput_TextChanged(sender As Object, e As EventArgs) Handles txtInput.TextChanged

        Me.lblOutputQuarters.Text = ""                          '4 Output

        Me.lblOutputDimes.Text = ""

        Me.lblOutputNickles.Text = ""

        Me.lblOutputPennies.Text = ""

    End Sub

​

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        Application.Exit()

    End Sub

End Class

-------------------------------------------------------------------------------------------------------------------

CD Calculator Program

-----

Public Class CDCalculatorProgram

    'Justin Carreno

    '03/01/2022

    'CD Calculator Program

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim initialInvestment As Single

        Dim interestRate As Single

        Dim endingValue As Single

        'Dim cdValue As Single

        Dim count As Integer = 0

​

​

        initialInvestment = Val(Me.txtInvestment.Text)

        interestRate = Val(Me.txtInterest.Text)

        endingValue = Val(Me.txtEndingValue.Text)

​

        interestRate = interestRate * 0.01

        Do

            count += 1

            initialInvestment = initialInvestment + (initialInvestment * interestRate)

        Loop While initialInvestment < endingValue

​

        Me.lblResult.Text = "Number of years:" & count

​

    End Sub

​

    Private Sub exitProgram(sender As Object, e As EventArgs) Handles btnExit.Click

        Application.Exit()

    End Sub

​

    Private Sub resetProgram(sender As Object, e As EventArgs) Handles btnReset.Click

        Me.txtInvestment.Text = ""

        Me.txtInterest.Text = ""

        Me.txtEndingValue.Text = ""

        Me.lblResult.Text = ""

    End Sub

End Class

-------------------------------------------------------------------------------------------------------------

    Avergae input Program

    ------

Public Class AvergaeInputProgram

​

    'Justin Carreno

    '03/07

    'Average Input Program

​

    Dim inputNumbers As String

    Dim sumVariables As Single

    Dim averageVariable As Single

    Dim count As Integer

    Const FLAG As Integer = -1

    Dim x As Single

​

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

​

        inputNumbers = Nothing

        sumVariables = 0

        Me.lblOutput.Text = ""

        averageVariable = 0

        count = 0

​

​

        Do

​

            inputNumbers = InputBox("Enter a number to average (or -1 to quit):", "Avergae Input")

​

            If inputNumbers <> "" And IsNumeric(inputNumbers) = False Then

                MsgBox("Error. Please enter a numeric value")

​

            Else

                If inputNumbers <> "" Then

                    sumVariables = Val(inputNumbers)

                    If sumVariables <> FLAG Then

                        averageVariable += sumVariables

                        count += 1

                    Else

                        Exit Do

                    End If

                Else

                    Exit Do

                End If

​

            End If

        Loop Until inputNumbers = "" Or sumVariables = FLAG

​

​

        If count = 0 Then

            MsgBox("Error. No numbers have been entered")

​

        Else

            averageVariable = averageVariable / count

            Me.lblOutput.Text = averageVariable

        End If

​

​

​

    End Sub

End Class

-----------------------------------------------------------------------------------------

            Sum of consecutive numbers

            ------

            Public Class SumOfConsecutiveNumbersProgram

​

    'Justin Carreno

    '03/08/2022

    'Sum of Consecutive Numbers Program

​

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim firstUserChoice As String

        Dim secondUserChoice As String

        Dim firstNumber As Integer

        Dim secondNumber As Integer

        Dim sumNumbers As Integer

​

        firstUserChoice = InputBox("Enter the first integer", "Sum of Consecutive Integers")

        secondUserChoice = InputBox("Enter the second integer", "Sum of Consecutive Integers")

​

        If IsNumeric(firstUserChoice) = False Or IsNumeric(secondUserChoice) = False Then

            MsgBox("Error. Please enter numeric values")

        Else

            firstNumber = Val(firstUserChoice)

            secondNumber = Val(secondUserChoice)

            If firstNumber < secondNumber Then

                For num As Integer = firstNumber To secondNumber Step 1

                    sumNumbers += num

                Next num

                Me.lblFNOutput.Text = "First number: " & firstNumber

                Me.lblSNOutput.Text = "Second number: " & secondNumber

                Me.lblSumOutput.Text = "Consecutive sum: " & sumNumbers

​

            Else

                MsgBox("Erro. Invalid Range")

            End If

        End If

​

    End Sub

​

​

End Class

--------------------------------------------------------------------------

        Avergae input Program PArt 2

        ---

Public Class AverageInputProgramPart2

​

    'Justin Carreno

    '03/10/2022

    'Avergae Input Program Part 2

​

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim amountNumbers As String

        Dim inputNumbers As String

        Dim convertedNumbers As Single

        Dim sumVariables As Single

        Dim averageVariable As Single

        Dim count As Integer

​

        amountNumbers = InputBox("Enter the amount of numbers to average", "Avergae Input Part 2")

​

        If Val(amountNumbers) <= 0 Then

            MsgBox("Error. Please enter a valid number")

        Else

            For num As Integer = 1 To Val(amountNumbers)

                inputNumbers = InputBox("Please enter a value to average: ")

                convertedNumbers = Val(inputNumbers)

                sumVariables += convertedNumbers

            Next num

​

            averageVariable = sumVariables / amountNumbers

            Me.lblOutput.Text = ("The average is: " & averageVariable)

        End If

​

​

​

​

​

    End Sub

End Class

------------------------------------------------------------------------------------------------