Complete Report

ACKNOWLEDGEMENT Assalammualaikum wbt... Firstly, I would like to thank to Allah s.w.t. because was give me permission, good healthy, and more idea to prepared my assignment very well. During the assignment operation, I was facing many assumption and obstacle to get the information and data but I’m never giving up to prepared and complete my assignment. Lastly, I was settling it on the right time. I am also would like to thank you to my Introduction To Programming lecturer, MDM Sariah Binti Rajuli because teach me with patiently, giving me opinions and advises in making my work. She also gave the guide how to do the assignment and teaches me how to be creative when doing the research. Not forgotten, I also would like to say thank you to my parents and family because were understand my situation. They are helped me so much in finance, time, and supported to me. Beside that, thanked to my classmates because give support to me while doing the assignment. They are also encouraging me every day. May Allah Bless you guys. Amen. Thank you. 

THANK YOU. 

THANK YOU. 

THANK YOU. 

INTRODUCTION We designed a restaurant interface for hand held devices that allows servers to enter in food and drink orders of their customers. Having knowledge of an inefficient, existing system that wastes a lot of the server’s time when entering restaurant orders, it was our hope to design a better interface which has quick and easy access to menu information. One of our major motivation was to create an interface that is easy to learn and convenient to navigate. The selections made on the interface by servers would be seen by cooks in order to make the food and by the customer in the form of a bill. The system we are designing will facilitate restaurant employees as they manage customers, take orders and run the restaurant. With our system, we hope to improve and combine features of several existing systems that we intend to evaluate. The user of this system will be the customer of the restaurant and the workers at the restaurant. The advantages of this system are that the customer doesn’t need to take a long time to make an order. They just simply need to go the computer that has been provided in the restaurant and make order. What this system can do is. This system can take order for the customer. The customer just simply need to add their type of pizza crust, size of their pizza, their profile information, their type of payment and the system will print the receipt for them.

FLOWCHART

Start

Insert Choices Pizza Types: 1) Crunchy Crust 2) Cheese Crust 3) Normal Crust

Pizza Sizes: 1) Small 2) Medium 3) Large 4) Extra Large

No Pizza price* Pizza size = Total payment

Yes

No

Insert Topping Yes Customer Informations Receipt : 1) Name 2) No. Phone 3) IC Number 4) Address 5) Payment type Printed Receipt

End End

Topping price* 5 + Total Payment= Total Price

INTERFACE SKECTH

SPLASH FORM Image1

Image2

Label1

Label2

FORM 1

FORM 2

FORM 3

FORM 4

PROPERTISE

OBJECT Splash Form

Label1

Label2

Form1

Label1

Frame1

Option1

PROPERTY

SETTING

NAME

Frmsplash

CAPTION

-

NAME

Label1

CAPTION

WE SEND AND SERVE YOUR PIZZA AS SOON AS POSSIBLE

NAME

Label2

CAPTION

WELCOME TO OUR PIZZA RESTAURANT AND ENJOY OUR PIZZA AND WE MAKE SURE THAT YOU WILL BE SERVE BY OUR BEST WORKERS AND IF HUMAN CAN'T MAKE YOU STASIFY YOU WE EVEN HIRE GHOST TO SERVE YOU

NAME

Form1

CAPTION

Calculation

NAME

Label1

CAPTION

CALCULATION

NAME

Frame1

Caption

type

NAME

Option1

Option2

Option3

Frame2

Option4

Option5

Option6

Option7

Textbox2

CAPTION

Crunchy crust

NAME

Option2

CAPTION

Cheese crust

NAME

Option3

CAPTION

Normal crust

NAME

Frame2

CAPTION

sizing

NAME

Option4

CAPTION

EXTRA LARGE

NAME

Option5

CAPTION

LARGE

NAME

Option6

CAPTION

MEDIUM

NAME

Option7

CAPTION

SMALL

NAME

Text2

TEXT

Textbox3

NAME

Text3

TEXT

Textbox4

NAME

Text4

TEXT Textbox5

NAME

Text5

TEXT

Label2

Textbox1

NAME

Label2

CAPTION

YOUR TOTAL PAYMENT

NAME

Text1

TEXT

CommandButton1

CommandButton2

CommandButton3

Form2

Label1

NAME

Command1

CAPTION

CALCULATE

NAME

Command2

CAPTION

RESET

NAME

Command3

CAPTION

NEXT

NAME

Form2

CAPTION

topping

NAME

Label1

CAPTION

TOPPING FOR YOUR PIZZA

CheckBox1

CheckBox2

CheckBox3

CheckBox4

CheckBox5

CheckBox6

CheckBox7

CheckBox8

CheckBox9

TextBox1

NAME

Check1

CAPTION

Extra cheese

NAME

Check2

CAPTION

Pepperoni

NAME

Check3

CAPTION

Mushrooms

NAME

Check4

CAPTION

Green Peppers

NAME

Check5

CAPTION

Hot Peppers

NAME

Check6

CAPTION

Olives

NAME

Check7

CAPTION

Pineapple

NAME

Check8

CAPTION

Anchovies

NAME

Check9

CAPTION

Seafood’s

NAME

Text1

TextBox2

TextBox3

TextBox4

TextBox5

TextBox6

TextBox7

TextBox8

TextBox9

CommandButton2

TEXT

RM 3.00

NAME

Text2

TEXT

RM 4.00

NAME

Text3

TEXT

RM 4.00

NAME

Text4

TEXT

RM 4.00

NAME

Text5

TEXT

RM 4.00

NAME

Text6

TEXT

RM 5.00

NAME

Text7

TEXT

RM 4.00

NAME

Text8

TEXT

RM 4.00

NAME

Text9

TEXT

RM 4.00

NAME

Command2

CAPTION

NEXT

CommandButton3

CommandButton4

CommandButton6

CommandButton7

CommandButton8

CommandButton9

CommandButton10

CommandButton11

CommandButton12

CommandButton14

NAME

Command3

CAPTION

Clear

NAME

Command4

CAPTION

Checking your topping

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Command

CommandButton15

Label2

Label3

Label4

TextBox20

CAPTION

choose

NAME

Command

CAPTION

choose

NAME

Label2

CAPTION

YOUR TOPPING BILL

NAME

Label3

CAPTION

YOUR PIZZA BILL

NAME

Label4

CAPTION

YOUR TOTAL BILL

NAME

Text20

TEXT

LstBox1

TextBox21

Form3

Label1

NAME

List1

-

-

NAME

Text21

TEXT

-

NAME

Form3

CAPTION

Pizza sizes

NAME

Label1

CAPTION

NAME

Label2

Label3

Label4

Label5

Label6

Label7

Label8

ListBox1

TextBox1

NAME

Label2

CAPTION

NO PHONE

NAME

Label3

CAPTION

IC NO

NAME

Label4

CAPTION

ADDRESS

NAME

Label5

CAPTION

customer information

NAME

Label6

CAPTION

TOPPINGS

NAME

Label7

CAPTION

TOTAL PAYMENT

NAME

Label8

CAPTION

PLEASE WRITE DOWN YOUR TYPE OF PAYMENT

NAME

List1

-

-

NAME

Text1

TEXT

-

TextBox2

TextBox3

TextBox4

TextBox5

textBox6

CommandButton1

CommandButton2

Form4

Label1

NAME

Text2

TEXT

-

NAME

Text3

TEXT

-

NAME

Text4

TEXT

-

NAME

Text5

TEXT

-

NAME

Text6

TEXT

-

NAME

Command1

CAPTION

preview

NAME

Command2

CAPTION

back

NAME

Form4

CAPTION

Receipt

NAME

Label1

CAPTION

NAME

Label2

Label3

Label4

Label5

Label6

Label7

NAME

Label2

CAPTION

NO PHONE

NAME

Label3

CAPTION

IC NO

NAME

Label4

CAPTION

ADDRESS

NAME

Label5

CAPTION

TOPPINGS

NAME

Label6

CAPTION

Receipt

NAME

Label7 TOTAL PAYMENT

Label8

ListBox1

TextBox1

TextBox2

NAME

Label8

CAPTION

PLEASE WRITE DOWN YOUR TYPE OF PAYMENT

NAME

List1

-

-

NAME

Text1

TEXT

-

NAME

Text2

TEXT

-

TextBox3

TextBox4

TextBox5

textBox6

CommandButton1

CommandButton2

NAME

Text3

TEXT

-

NAME

Text4

TEXT

-

NAME

Text5

TEXT

-

NAME

Text6

TEXT

-

NAME

Command1

CAPTION

BACK

NAME

Command2

CAPTION

PRINT

CODING

FORM 1

Private Sub Command1_Click()

Dim per_extra_large As Integer Dim per_large As Integer Dim per_medium As Integer Dim per_small As Integer Dim selection_of_pizza As String Dim YOUR_TOTAL_PAYMENT As Currency

Const price_extra_large As Currency = 20 Const price_large As Currency = 15 Const price_medium As Currency = 12 Const price_small As Currency = 8

per_extra_large = Val(Text2.Text) per_large = Val(Text3.Text) per_medium = Val(Text4.Text) per_small = Val(Text5.Text)

YOUR_TOTAL_PAYMENT = Val(Text1.Text)

If Option1 And Option4.Value = True Then YOUR_TOTAL_PAYMENT = (price_extra_large * per_extra_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option1 And Option5.Value = True Then YOUR_TOTAL_PAYMENT = (price_large * per_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option1 And Option6.Value = True Then YOUR_TOTAL_PAYMENT = (price_medium * per_medium) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option1 And Option7.Value = True Then YOUR_TOTAL_PAYMENT = (price_small * per_small) Text1.Text = YOUR_TOTAL_PAYMENT

End If

If Option2 And Option4.Value = True Then YOUR_TOTAL_PAYMENT = (price_extra_large * per_extra_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option2 And Option5.Value = True Then YOUR_TOTAL_PAYMENT = (price_large * per_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option2 And Option6.Value = True Then YOUR_TOTAL_PAYMENT = (price_medium * per_medium) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option2 And Option7.Value = True Then YOUR_TOTAL_PAYMENT = (price_small * per_small) Text1.Text = YOUR_TOTAL_PAYMENT

End If

If Option3 And Option4.Value = True Then YOUR_TOTAL_PAYMENT = (price_extra_large * per_extra_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option3 And Option5.Value = True Then YOUR_TOTAL_PAYMENT = (price_large * per_large) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option3 And Option6.Value = True Then YOUR_TOTAL_PAYMENT = (price_medium * per_medium) Text1.Text = YOUR_TOTAL_PAYMENT

ElseIf Option3 And Option7.Value = True Then YOUR_TOTAL_PAYMENT = (price_small * per_small) Text1.Text = YOUR_TOTAL_PAYMENT

End If

End Sub

Private Sub Command2_Click() Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Option5.Value = False Option6.Value = False Option7.Value = False

End Sub

Private Sub Command3_Click() Dim YOUR_TOTAL_PAYMENT As Currency Dim YOUR_CURRENT_BILL As Currency

Form2.Text20 = Text1.Text Form2.Text21 = Text1.Text

Form2.Show Unload Me

End Sub

Private Sub Image1_Click()

End Sub

FORM 2 Private Sub Command1_Click()

Dim your_topping_bill As Currency Dim pri_extra_cheese As Currency Dim pri_pepproni As Currency Dim pri_mushrooms As Currency Dim pri_green_peppers As Currency Dim pri_hot_peppers As Currency Dim pri_olives As Currency Dim pri_pineapple As Currency Dim pri_anchovies As Currency Dim pri_seafoods As Currency Dim your_pizza_bill As Currency Dim your_total_bill As Currency

pri_extra_cheese = Val(Text2.Text) pri_pepproni = Val(Text12.Text) pri_mushrooms = Val(Text13.Text) pri_green_peppers = Val(Text14.Text) pri_hot_peppers = Val(Text15.Text) pri_olives = Val(Text16.Text) pri_pineapple = Val(Text17.Text) pri_anchovies = Val(Text18.Text)

pri_seafoods = Val(Text19.Text) your_pizza_bill = Val(Text20.Text) your_topping_bill = Val(Text1.Text) your_total_bill = Val(Text21.Text)

If Check1.Value And Check2.Value And Check3.Value And Check4.Value And Check5.Value And Check6.Value And Check7.Value = True And Check8.Value = True And Check9.Value Then your_topping__bill = ((pri_extra_cheese) + (pri_pepproni) + (pri_mushrooms) + (pri_green_peppers) + (pri_olives) + (pri_pineapple) + (pri_anchovies) + (pri_seafoods)) Text1.Text = your_topping_bill End If

End Sub

Private Sub Command10_Click() Dim pri_5 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_5 = Val(Text6.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check5.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00"

Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If

End Sub

Private Sub Command11_Click() Dim pri_6 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_6 = Val(Text7.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check6.Value = 1 Then pri_total = Val(Text21.Text) + 5 Text21.Text = pri_total Form2.List1.AddItem "RM 5.00" Form3.List1.AddItem "RM 5.00" Form4.List1.AddItem "RM 5.00"

Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If End Sub

Private Sub Command12_Click() Dim pri_7 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_7 = Val(Text8.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check7.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" Form3.Text5 = Text21.Text

Form4.Text5 = Text21.Text End If End Sub

Private Sub Command13_Click() Form1.Show Unload Me

End Sub

Private Sub Command14_Click() Dim pri_8 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_8 = Val(Text10.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check8.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total

Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text End If

End Sub

Private Sub Command15_Click() Dim pri_9 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_9 = Val(Text10.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check9.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00"

Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" End If

End Sub

Private Sub Command2_Click()

Form3.Show Unload Me

End Sub

Private Sub Command3_Click()

Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text9.Text = " " Text10.Text = " "

Text21.Text = " "

Check1.Value = False Check2.Value = False Check3.Value = False Check4.Value = False Check5.Value = False Check6.Value = False Check7.Value = False Check8.Value = False Check9.Value = False

List1.Clear

End Sub

Private Sub Command4_Click() Dim n As Integer

msg1 = "you can choose 5 topping only!!!"

If Check1.Value = 1 Then

n = n + 1 And n > 5 MsgBox msg1 ElseIf Check2.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check3.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check4.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check5.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check6.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check7.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check8.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1 ElseIf Check9.Value = 1 Then n = n + 1 And n > 5 MsgBox msg1

End If

If n > 5 Then MsgBox msg1 End If

If n > 5 Then MsgBox msg1 End If

End Sub

Private Sub Command5_Click() Dim pri_total As Currency Dim pri_1 As Integer Dim pri_2 As Integer

pri_total = Val(Text1.Text)

pri_1 = Val(Text2.Text) pri_2 = Val(Text3.Text)

If Check10.Value = True Then pri_total = Val(Text2.Text) + Val(Text3.Text) Text1.Text = pri_total End If

End Sub

Private Sub Command6_Click() Dim pri_1 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_1 = Val(Text2.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check1.Value = 1 Then

pri_total = Val(Text21.Text) + 3 Text21.Text = pri_total Form2.List1.AddItem "RM 3.00" Form3.List1.AddItem "RM 3.00" Form4.List1.AddItem "RM 3.00" Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If

End Sub

Private Sub Command7_Click() Dim pri_2 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_2 = Val(Text3.Text)

pri_pizza = Val(Text20.Text)

pri_total = Val(Text21.Text)

If Check2.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If

End Sub

Private Sub Command8_Click() Dim pri_3 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_3 = Val(Text4.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check3.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If

End Sub

Private Sub Command9_Click() Dim pri_4 As Integer Dim pri_topping As Currency Dim pri_pizza As Currency Dim pri_total As Currency

pri_4 = Val(Text5.Text)

pri_pizza = Val(Text20.Text) pri_total = Val(Text21.Text)

If Check4.Value = 1 Then pri_total = Val(Text21.Text) + 4 Text21.Text = pri_total Form2.List1.AddItem "RM 4.00" Form3.List1.AddItem "RM 4.00" Form4.List1.AddItem "RM 4.00" Form3.Text5 = Text21.Text Form4.Text5 = Text21.Text

End If

End Sub

Private Sub Image1_Click()

End Sub

FORM 3 Private Sub Command1_Click() Form4.Text1 = Text1.Text Form4.Text2 = Text2.Text Form4.Text3 = Text3.Text Form4.Text4 = Text4.Text

Form4.Show Unload Me

End Sub

Private Sub Command2_Click() Form2.Show

Unload Me

End Sub

FORM 4 Private Sub Command1_Click() Form3.Show Unload Me

End Sub

Private Sub Command2_Click() PrintForm Print the; Form End Sub

USER MANUAL

In this form user need to choose their type of crust. They can do that by clicking the option button. They also need to insert the size of their pizza also by clicking the option button. At the left bottom of the form we have 3 command buttons. From the right we have the calculate command button. User need to click that button to calculate the prize of the pizza size. If the customers want to do a correction, the customer just click button “cancel information” and the form will reset like firstly the customer entered the form. The next form is the topping form.

In this form user need to choose what they want to be the topping of their pizza. They need to click the option button and then click the choose command button to insert the topping in the bill list box. At the bottom we will see the checking you’re topping command button. The function of this command button is to check how many topping that you choose. The massage box will be appear if you choose more than 5 topping because this system don’t allowed the customer to choose more than 5 topping. At the bottom left of the form we will see the back, next and clear command button. The function of the back command button is to direct the user to the sizes form. The function of the clear command button is to clear all the information in the topping form that user have entered. The next command button will direct the user to the customer information form

In this form user need to insert their detail information such as name, IC no, and phone no. user also need to write down their type of payment in this form. There is 2 command buttons in this form. The first button is the preview command button. The preview command button will take user to look their receipt. The back command button will take user to the back form.

This is the receipt form. Basically these form just a preview from the user information form. User can’t change their input here. They need to click the back button if they need to make adjustment to the information or pizza order. The print button will print the user receipt.