Scribd Logo
Upload

Welcome to Scribd!

  • 43 views

    Program Example 15 Control Arrays 1: Objectives

    Uploaded by

    Jv Chiu
    This document describes a program that uses a control array to display different color patterns in a grid of shapes. The program includes 9 shapes in a control array called shpCell, and 6 command buttons to change the color of the shapes. Loops are used to manipulate the BackColor property of the control array to display single colors or alternating patterns.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Program Example 15 Control Arrays 1: Objectives

    Uploaded by

    Jv Chiu
    43 views3 pages
    This document describes a program that uses a control array to display different color patterns in a grid of shapes. The program includes 9 shapes in a control array called shpCell, and 6 command buttons to change the color of the shapes. Loops are used to manipulate the BackColor property of the control array to display single colors or alternating patterns.

    Original Description:

    gg

    Original Title

    02. Control Arrays 1 Task

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes a program that uses a control array to display different color patterns in a grid of shapes. The program includes 9 shapes in a control array called shpCell, and 6 command buttons to change the color of the shapes. Loops are used to manipulate the BackColor property of the control array to display single colors or alternating patterns.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    43 views3 pages

    Program Example 15 Control Arrays 1: Objectives

    Uploaded by

    Jv Chiu
    This document describes a program that uses a control array to display different color patterns in a grid of shapes. The program includes 9 shapes in a control array called shpCell, and 6 command buttons to change the color of the shapes. Loops are used to manipulate the BackColor property of the control array to display single colors or alternating patterns.

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    of 3

    Program Example 15 Control Arrays 1

    Objectives

    Program Purpose Learning Goals

    • Display single colours in a grid of shapes • Make and use a Control Array
    • Display patterns of colours in a grid of shapes • Use a fixed loop (FOR..NEXT) to manipulate properties
    of a control array
    • Use the eight built-in Visual Basic Colour Constants
    • Use simple Message Boxes and Message Box Constants
    • Use the multiple branching structure:
    SELECT..CASE..END SELECT

    Design Notes

    This project is a simple introduction to the use of control arrays. A control array is a collection of objects of the
    same type, which have the same name but different index values. Using loops and variables, it very easy
    to manipulate the properties of a control array. Each element of the array is referenced by its unique ‘index
    value’.

    In this example, we use the colour property of the shapes to demonstrate the ease of use of the control array.
    Visual Basic 6.0 has eight built-in colour constants: vbBlack, vbBlue, vbWhite, vbYellow, vbGreen, vbRed,
    vbCyan and vbMagenta. Note: Microsoft always use the American spelling of the word ‘colour’, i.e. ‘color’.

    When creating the squares, set the Font, BackStyle and BackColor for the first one, then copy and paste it.
    When copying and pasting, the application will ask the question: “Do you want to create a control array?” In
    this case, answer “Yes”.

    The captions on the command buttons give clues as to the names of the objects. Always set the name
    properties before entering any code.

    Interface

    Create the interface as shown.


    Use 1 form, 1 control array of 9 shapes and 6 command buttons.

     ORB Education Visit http://www.orbeducation.com for a range of quality teaching materials


    Names and Initial Properties of Objects

    Type of Object Number Names of Objects Simple Initial Properties of Objects

    Form 1 Form1 Caption - “Control Arrays 1”


    Icon - Browse and choose any icon
    Startup Position - Centre Screen

    Control Array of 9 shpCell(0) to shpCell(8) BackStyle - Opaque


    Shapes BackColor - White

    Command Buttons 6 cmdWhite, cmdBlack, cmdBlue, cmdRed, Font - Bold, 12


    cmdPattern1, cmdPattern2 Captions - as per interface diagram

    Code

    GENERAL SECTION

    Const NumButtons = 9
    Const MsgColour = "The colour has been changed to "
    Const MsgQuestion = "Do you really want to change the colour to "

    Dim response As Integer, i As Integer

    EVENTS

    Private Sub cmdBlack_Click()

    'set all to black


    response = MsgBox(MsgQuestion & "Black", vbYesNoCancel + vbQuestion, "Change Colour?")

    If response = vbYes Then

    For i = 0 To NumButtons - 1

    shpCell(i).BackColor = vbBlack

    Next i

    MsgBox MsgColour & "Black", vbOKOnly + vbExclamation, "Colour Changed "

    Else

    For i = 0 To NumButtons - 1

    shpCell(i).BackColor = vbBlue

    Next i

    End If

    End Sub

    Private Sub cmdBlue_Click()

    'set all to blue

    For i = 0 To NumButtons - 1

    shpCell(i).BackColor = vbBlue

    Next i

    End Sub

    2  ORB Education Visit http://www.orbeducation.com for a range of quality teaching materials


    Private Sub cmdPattern1_Click() Private Sub cmdRed_Click()

    'alternate green and cyan 'set all to red

    For i = 0 To NumButtons - 1 Step 2 For i = 0 To NumButtons - 1

    shpCell(i).BackColor = vbGreen shpCell(i).BackColor = vbRed

    If i + 1 <= NumButtons - 1 Then Next i

    shpCell(i + 1).BackColor = vbCyan End Sub

    End If
    Private Sub cmdWhite_Click()
    Next i
    'set all to white
    End Sub
    For i = 0 To NumButtons - 1

    Private Sub cmdPattern2_Click() shpCell(i).BackColor = vbWhite

    'diagonal of magenta Next i

    For i = 0 To NumButtons - 1 End Sub

    Select Case i

    Case 2, 4, 6
    shpCell(i).BackColor = vbMagenta

    Case Else
    shpCell(i).BackColor = vbYellow

    End Select

    Next i

    End Sub

    Consolidation and Extension

    1. Which three lines of code set all the shapes to red?

    2. Which two lines of code decide whether or not to set the colour of all the shapes to black?

    3. The built-in Visual Basic constants ‘vbYesNoCancel’ and ‘vbQuestion’ determine the appearance of the MsgBox
    Form. Name three other possible combinations of constants that could be used.
    Hint: Start typing Msgbox “Prompt” in your project and the options will appear in a dropdown box.

    4. What is the essential difference between the following two lines of code?

    LINE 1: response = MsgBox(MsgQuestion & "Black", vbYesNoCancel + vbQuestion, "Change Colour?")


    LINE 2: MsgBox MsgColour & "Black", vbOKOnly + vbExclamation, "Colour Changed "

    5. We declare the Constant ‘Numbuttons’ as equal to 9, i.e.

    Const Numbutton = 9

    Why then do we then loop from 0 to 8 in the program when manipulating the shape colour properties? i.e.

    For i = 0 to NumButtons - 1 ….

    6. Add two more command buttons to create the following patterns:


    a. Alternate blue and white.
    b. A pattern of red, green and yellow.

    7. Extend the grid to 16 buttons. Modify the code to ensure that all the command buttons function correctly.

     ORB Education Visit http://www.orbeducation.com for a range of quality teaching materials 3

    You might also like