Visual Basic 6.0 : Exercise 2 " Pizza Order"

                                                                     Exercise 2

                                 Pizza Order Application 

    We had just learned about programming with Microsoft Visual Basic 6.0 and tried to create two Windows applications (using Visual Basic 6.0)

________________________________________________________________________

  "Pizza Order" Application

1.Start a new project.  We'll build a form where a pizza order can be entered by simply clicking on check boxes and option buttons.

2.Draw three frames.  In the first, draw three option buttons, in the second, draw two option buttons, and in the third, draw six check boxes.  Draw two option buttons on the form.  Add two command buttons.  Make things look something like this.

3.Set the properties of the form and each control.

• Form1:

    BorderStyle    1-Fixed Single
    Caption          Pizza Order
    Name            frmPizza

• Frame1:

    Caption    Size

• Frame2:

    Caption    Crust Type

• Frame3

    Caption    Toppings

• Option1:

    Caption    Small
    Name      optSize
    Value      True

• Option2:

    Caption    Medium
    Name      optSize (yes, create a control array)

• Option3:

    Caption    Large
    Name      optSize

• Option4:

    Caption    Thin Crust
    Name       optCrust
    Value       True

• Option5:

    Caption    Thick Crust
    Name       optCrust (yes, create a control array)

• Option6:

    Caption    Eat In
    Name    optWhere
    Value    True

• Option7:

    Caption    Take Out
    Name       optWhere (yes, create a control array)

• Check1:

    Caption    Extra Cheese
    Name      chkTop

• Check2:

    Caption    Mushrooms
    Name       chkTop (yes, create a control array)

• Check3:

    Caption    Black Olives
    Name       chkTop

• Check4:

    Caption    Onions
    Name      chkTop

• Check5:

    Caption    Green Peppers
    Name      chkTop

• Check6:

    Caption    Tomatoes
    Name      chkTop

• Command1:

    Caption    &Build Pizza
    Name      cmdBuild

• Command2:

    Caption    E&xit
    Name      cmdExit

4.Declare the following variables in the general declarations area:

Option Explicit
      Dim PizzaSize As String
      Dim PizzaCrust As String
      Dim PizzaWhere As String

5.Attach this code to the Form_Load procedure.  This initializes the pizza size, crust, and eating location.

Private Sub Form_Load()
  PizzaSize = "Small"
  PizzaCrust = "Thin Crust"
  PizzaWhere = "Eat In"
End Sub

6.Attach this code to the three option button array Click events.  Note the use of the Index variable:

Private Sub optSize_Click(Index As Integer)
  PizzaSize = optSize(Index).Caption
  End Sub

Private Sub optCrust_Click(Index As Integer)
 PizzaCrust = optCrust(Index).Caption
  End Sub

Private Sub optWhere_Click(Index As Integer)
 PizzaWhere = optWhere(Index).Caption
    End Sub

7.Attach this code to the cmdBuild_Click event.

Private Sub cmdBuild_Click()
  Dim Message As String
  Dim I As Integer
  Message = PizzaWhere + vbCr
  Message = Message + PizzaSize + " Pizza" + vbCr
  Message = Message + PizzaCrust + vbCr
        For I = 0 To 5
  If chkTop(I).Value = vbChecked Then Message = Message + chkTop(I).Caption + vbCr
      Next I
      MsgBox Message, vbOKOnly, "Your Pizza"
End Sub    This code forms the first part of a message for a message box by integrating the pizza size, crust type, and eating location (vbCr is a symbolic constant representing a ‘carriage return’ that puts each piece of ordering information on a separate line).  Next, the code cycles through the six topping check boxes and adds any checked information to the message.  The code then displays the pizza order in a message box.

8.Attach this code to the cmdExit_Click event.

Private Sub cmdExit_Click()
  End
End Sub

9.Run the application, the message box will be appeared.

BY:)) Tanunya  Sophon  M.2/8  No.35