supassorn ruenwilai 2/4 43: 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), the first one was "Stop Watch" and the second was "Calendar/Time". Some people have told me, the teacher, that it is interesting and challenging, while some other people have never said any word but have just thought that it is boring. Yes, the teacher realizes that programming is so valuable because it can develop anyone both systematic thinking and solving. Well, the teacher knows that anybody can never hand on it if he is not interested in programming. But, now the teaching is not over, the show must go on!

"Pizza Order" Application

SOURCE : www.kidwares.com

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.

Fig.1 The Form which is being designed by us.
นี่

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.
เ