AndrewSteele

Handy Hints

Handy Hint 1

A check box is a useful way to find out what functions or tasks the user wants to show as completed or to use. A check box can be used to simply show that a task is complete or to make the program run a certain line of code.

 Private Sub btnPress_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPress.Click
 Dim homework, chores, teeth As CheckBox
 'A check box cannot be defined as a string, integer or char, therefore it has its own value type, and that is Checked
 
 homework = chkBoxHomework 'This defines the homework checkbox
 chores = chkBoxChores 'This defines the chores checkbox
 teeth = chkBoxTeeth 'This defines the teeth checkbox
 
 'This if statment checks to see if the check box's are infact checked
 If homework.Checked And chores.Checked And teeth.Checked Then
 MessageBox.Show("Homework is complete", "Homework", MessageBoxButtons.OK, MessageBoxIcon.Information)
 MessageBox.Show("Chores are done", "Chores", MessageBoxButtons.OK, MessageBoxIcon.Information)
 MessageBox.Show("Teeth are brushed", "Teeth", MessageBoxButtons.OK, MessageBoxIcon.Information)
 MessageBox.Show("All tasks completed, goodnight", "Goodnight", MessageBoxButtons.OK, MessageBoxIcon.Information)
 Else
 MessageBox.Show("One or more tasks is not complete", "Oh no", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 End If
 End Sub

Handy Hint 2

Sort array

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim array(9), array2(9) As Integer
        Dim msg, msg2 As String
        Dim i As Integer
        For i = 1 To array.GetUpperBound(0)
            array(i) = i
        Next
        i = 0
        For j = array2.GetUpperBound(0) To 1 Step -1
            i += 1
            array2(j) = i
        Next
        i = 0
        For i = 1 To array.GetUpperBound(0)
            msg &= array(i) & vbNewLine
        Next
        i = 0
        msg &= vbNewLine
        For i = 1 To array2.GetUpperBound(0)
            msg &= array2(i) & vbNewLine
        Next
 
        MessageBox.Show(msg)
 
        array.Sort(array)
        array2.Sort(array2)
        For i = 1 To array.GetUpperBound(0)
            msg2 &= array(i) & vbNewLine
        Next
        msg2 &= vbNewLine
        For i = 1 To array2.GetUpperBound(0)
            msg2 &= array2(i) & vbNewLine
        Next
 
        MessageBox.Show(msg2)
    End Sub

Control Dictionary

IT Topic Presentation

Due to the size of the Silde Show for the IT topic I hvae had to upload it to the following website
Photoshop CS4 Presentation

Attended Webinnar