visual basic Ordering system tagalog tutorial

example of ordering system with calculation (copy paste the codes)
codes
Option Explicit
Dim PizzaSize As String
Dim pizzaCrust As String
Dim PizzaWhere As String
Private Sub BuildPizza_Click()
'This procedure builds a message box that displays your pizza type
Dim message As String
Dim I As Integer
message = PizzaWhere + vbCr
message = message + PizzaSize + " Pizza " + vbCr
message = message + pizzaCrust + vbCr
Text10.Text = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9)
If chkTop(1).Value = vbUnchecked Then
message = message + "Cheese Only" + vbCr
message = message + "Total Amount=" + Text10.Text
MsgBox message, vbOKOnly, "Your Pizza"
Exit Sub
End If
For I = 0 To 5
If chkTop(I).Value = vbChecked Then message = message + chkTop(I).Caption + vbCr
Next I
MsgBox message, vbOKOnly, "Your Pizza"
message = message + "Total Amount=" + Text10.Text
MsgBox message, vbOKOnly, "Your Pizza"
End Sub
Private Sub chkTop_Click(Index As Integer)
If chkTop(0).Value = vbChecked Then
Text2 = "20"
End If
If chkTop(0).Value = vbUnchecked Then
Text2 = "0"
End If
If chkTop(1).Value = vbChecked Then
Text3 = "25"
End If
If chkTop(1).Value = vbUnchecked Then
Text3 = "0"
End If
If chkTop(2).Value = vbChecked Then
Text4 = "40"
End If
If chkTop(2).Value = vbUnchecked Then
Text4 = "0"
End If
If chkTop(3).Value = vbChecked Then
Text5 = "40" = "10"
End If
If chkTop(3).Value = vbUnchecked Then
Text5 = "0"
End If
If chkTop(4).Value = vbChecked Then
Text6 = "30"
End If
If chkTop(4).Value = vbUnchecked Then
Text6 = "0"
End If
If chkTop(5).Value = vbChecked Then
Text7 = "35"
End If
If chkTop(5).Value = vbUnchecked Then
Text7 = "0"
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub Command1_Click()
Unload Me
Form1.Show
End Sub
Private Sub Form_Load()
'Initialize pizza parameters
PizzaSize = "Small"
PizzaSize = "Thin Crust"
PizzaWhere = "Eat In"
Text1.Text = "10"
Text2.Text = "20"
End Sub
Private Sub optCrust_Click(Index As Integer)
'Read crust type
pizzaCrust = optCrust(Index).Caption
If optCrust(0).Value = True Then
Text8.Text = "20"
End If
If optCrust(0).Value = False Then
Text8.Text = "0"
End If
If optCrust(1).Value = True Then
Text9.Text = "50"
End If
If optCrust(1).Value = False Then
Text9.Text = "0"
End If
End Sub
Private Sub optSize_Click(Index As Integer)
'Read pizza size
PizzaSize = optSize(Index).Caption
If optSize(0).Value = True Then
Text1.Text = "20"
End If
If optSize(1).Value = True Then
Text1.Text = "40"
End If
If optSize(2).Value = True Then
Text1.Text = "60"
End If
End Sub
Private Sub optWhere_Click(Index As Integer)
'Read pizza eating location
PizzaWhere = optWhere(Index).Caption
End Sub

[@bullballnienpad5621]

Napakalaking tulong to sir delfin. Napakaclear ng pagkakadiscuss.

[@fequindaovlogs9141]

Hello sir tamsak na po keep on sharing ur knowledge.....😊😊😊

[@ibonnienpad1444]

Salamat sa tutorial na to sir. Marami kang matutulungan nito.

[@robieslabzz3902]

Wow amazing po kayo sir...
Napalaking tulong po nito like samin na beginners
Looking forward pa po sa mga tutorials nnyo. Salamat po

[@marilynhamada6623]

Thank you po much sir.

[@johncarloragas9071]

Idol🔥

[@mharzvlog7213]

Maganda to sa mga anak ko para matoto Lalo na sa anak ko na nkapag tapos NG HRM. Thanks for sharing your talents#nana honey

[@PINOYTRENDS1430]

Sir ano pong screen recorder gamit nyo? At pano nyo po kinoconvert?

[@wanderlustwithrocel]

thanks for sharing :) lets go sir! hehehehe #nana honey

[@itlognienpad7539]

Iba po ba sa index finger sir ang index or malapit?

[@kimchu5326]

tamsak

[@gustokohappyka6130]

panalo po sir delfine # nana

[@clarenceestorninos4485]

San po nakuha yung PizzaSize = OptSize? salamat po sa sasagot

[@MarkTristanMasiglat]

pano po nilagyan ng (0) yung option name

[@JackPepito-nq5tq]

Pa toro po Yung green na code paano mo nagawa

[@kimchu5326]

umpisahan na

[@fequindaovlogs9141]

Game😊😊😊

[@lynscooking9538]

Paorder ng pizza

[@gie_quezon]

hello sir delfin @ nana honey ytc

[@meowmere2622]

Sir pahingi Naman Po ng exe file na ginawa nyo pong program

[@PINOYTRENDS1430]

Game

[@DriverngHari]

Sir Delfin kumusta na po

[@delfindelacruz]

aus lang kakasimula lang ulit gumawa ng mga video 1 buwan namahinga