Category Archives: school

VB.net Compare Assignment

Here’s the assignment for Lab3. The next class session will show us .

Public Class frmCompare

    '----JDS-----------------------
    'CREATED:    10/15/2014
    'CREATED BY: James Strickland
    'CLASS:      COP2010 - 090898
    'PURPOSE:    Write a Windows Application
    '            program that inputs
    '            three different integers
    '            and displays results
    '            in a listbox
    '----JDS-----------------------

    ' Declare variables
    ' inum=InputNumber
    Dim inum1, inum2, inum3 As Integer

    ' onum=OutputNumber
    Dim onum1, onum2, onum3, max, min As Integer

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

        ' Hide the "About" label at form load
        lblAbout.Visible = False

    End Sub


    Private Sub btnGo_Click(sender As Object, _
                        e As EventArgs) _
                        Handles btnExe.Click

        ' The following code is executed 
        ' when the EXECUTE button is pressed

        ' Get the users 3 numbers and load
        ' them into the 3 input variables
        inum1 = txtInput1.Text
        inum2 = txtInput2.Text
        inum3 = txtInput3.Text

        ' Clear list box encase user wants to 
        ' repeat program without scrolling 
        ' down listbox.
        LstBoxResults.Items.Clear()

        ' Display numbers as user entered them
        ' seperated by comma
        LstBoxResults.Items.Add("Numbers in User Order:")
        LstBoxResults.Items.Add(inum1 & ", " & inum2 & ", " & inum3)
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Sum of users entered numbers
        LstBoxResults.Items.Add("Sum of numbers:") ' Displays to user
        LstBoxResults.Items.Add(inum1 + inum2 + inum3) ' does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Average of numbers
        LstBoxResults.Items.Add("Average of Numbers:") ' Displays to user
        LstBoxResults.Items.Add((inum1 + inum2 + inum3) \ 3) ' does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Product of numbers
        LstBoxResults.Items.Add("Product of numbers:") ' Displays to user
        LstBoxResults.Items.Add(inum1 * inum2 * inum3) ' Does the math
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Largest of the 3 numbers
        LstBoxResults.Items.Add("Largest of the 3:")
        max = inum1 ' Init variable mas a first number entered, the compare below...

        If inum2 > max Then
            max = inum2 ' inum2 greater than max, init max as inum2 (inum2 is smaller)
        End If

        If inum3 > max Then
            max = inum3 ' inum3 greater than max, init max as inum3 (inum3 is smaller)
        End If

        LstBoxResults.Items.Add(max)
        LstBoxResults.Items.Add("") ' simply creates a space between answers

        ' Display Smallest of the 3 numbers
        LstBoxResults.Items.Add("Smallest of the 3:")
        min = inum1 ' init min as inum1

        If inum2 < min Then
            min = inum2 ' inum2 less than min, init min as inum2 (inum2 is bigger)
        End If

        If inum3 < min Then
            min = inum3 ' inum3 less than min, init min as inum3 (inum3 is bigger)
        End If

        LstBoxResults.Items.Add(min) ' Display results of min
        LstBoxResults.Items.Add("") ' simply creates a space between answers

    End Sub

    ' Close/Exit the program
    Private Sub btnExit_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles btnExit.Click
        Close()

    End Sub



    Private Sub btnAbout_Click(sender As Object, _
                               e As EventArgs) _
                               Handles btnAbout.Click
        ' The below code hides the form content and 
        ' displays information about the programmer
        ' (when the user presses the "about" button)
        ' which happens to be me. For those who does
        ' not know me, I am a big deal around here..
        ' I mean, I didn't want to say nuthin.......

        ' Clear Form
        btnExe.Visible = False
        lblEnterNumbers.Visible = False
        lblInstruction.Visible = False
        txtInput1.Visible = False
        txtInput2.Visible = False
        txtInput3.Visible = False
        LstBoxResults.Visible = False

        ' About Programmer
        lblAbout.Visible = True

    End Sub

End Class

 

Over 6 months…

It has been just over 6 months since my last post. Not that I’m counting. I have successfully completed my 1st semester of school and am half way through my second semester. Haven’t taken the 1st CompTIA certification test yet, but I’m going to take my A+ test soon. Keep saying soon. Of course sooner or later soon will be here… and I’ll do it.

Not ready to post anything else… so here it is…

THE END!

+++ATH0

January 2012!

Sure doesn’t seem like it’s 2012 already.  I mean… couple of days ago it was only 2011…

For me, classes start next week.  This time I’m taking 4 classes as I work toward my CompTIA certifications.

I’m super-excited to get this year going… thus far, this year has been GREAT!

Yet another new look

Yet another year is about to pass, as such, so should the old look. I was going for a “paper” look, to match the “theme” I have for my main site. Doesn’t really match, but it will work.  It is my intention to write more in my blog in 2012.

I really hope 2012 to be a prosperous year for our family. We certainly need some prosperity! I will go back to school next month getting my computer certifications. North West Florida State College is my weapon of choice.  I should come out with Comptia A+, Security+, Linux+, and Network+ and a College Certificate in IT Technology.

A+ Certification

Recently finished my degree, and have started studying for my A+ certification.  While finishing up my degree, I discovered that the Air Force will pay $4500 dollars to take classes for certifications.  Further research revealed that the Air Force offered free training CBT’s (Computer Based Training).  These CBT’s cover A+ and Network + just to cover a few.  My goal is to be certified on A+, Network+ and Security+ prior to me getting out of the Military in 4 years.  The only thing the Air Force will not pay for is the test fee’s.

English Class 1st Essay

I posted my first Essay today. It was to be on a Hero, and we are to explain why he/she was a hero in our eyes. I didn’t want to choose a military hero, as there are thousands of those, I wanted someone different. I chose Bill Gates. With all the volunteer work and donations he gives to the American School system, he is a hero in my eyes.

WIsh my luck!

Happy Labor Day!!!

Greetings readers…

The weather here in Virginia is starting to cool down, as the Summer highway quickly comes to an end.  Fall is now upon us, with a nice cool Atlantic breeze blowing across my patio.  The sweltering summer days are finally over.   Labor Day is a matter of hours away.  The stores are already starting to sell Halloween supplies.  Shortly thereafter Thanksgiving and Christmas supplies will be in the mix as well.  Pretty much the remainder of the year is the last of the sand in an hour glass.

With the change of seasons, comes the York Counties first day of school.  Along with that comes quiet throughout the neighborhoods and throughout the house as well.  A much needed rest for my wife, I’m sure.  My oldest Daughter will start 1st grade, then Matthew will start 4th grade, then John will start 7th grade… Advanced I might add, taking 2 highschool courses.  I’m so proud.

Work… well… I think I should refrain from posting things about work at this time.

Recently I purchased a used metal detector from Craigslist.  It is notEnou a Whites detector, but a Bounty Hunter.  It’s a cheaper model, probably around $100, but will do until I get my new Whites XLT or whatever model I decided.  This will happen next month, and I can’t wait.

Think I close this entry up now, I’m sitting out on my back patio enjoying the cool breeze; as the sun eases across the horizon and darkness falls upon us… another day will come, and with it comes more challenges.  Approach each challenge wisely!