------------------------------------------------------------------------------------------------------------------------------

โปรแกรม VB

เรื่อง...รายการสั่งก๋วยเตี๋ยวร้านไอ้หน่อย

------------------------------------------------------------------------------------------------------------------------------

Public Class Form1

Private Sub Form1_Load(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles

MyBase.Load
Me.CenterToScreen()
Dim table(10) As String
table(0) = "โต๊ะ 1"
table(1) = "โต๊ะ 2"
table(2) = "โต๊ะ 3"
table(3) = "โต๊ะ 4"
table(4) = "โต๊ะ 5"
table(5) = "โต๊ะ 6"
table(6) = "โต๊ะ 7"
table(7) = "โต๊ะ 8"
table(8) = "โต๊ะ 9"

Dim i As Integer
For i = 0 To 8
ComboBox1.Items.Add(table(i))
Next
ComboBox1.DropDownStyle =

ComboBoxStyle.DropDownList
ComboBox1.SelectedIndex = 0
End Sub

Private Sub Button1_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles

Button1.Click
Dim s As String
Dim p As Integer
If RadioButton1.Checked = True Then
s = "เส้นเล็ก"
p = 25
End If
If RadioButton2.Checked = True Then
s = "เส้นใหญ่"
p = 25
End If
If RadioButton3.Checked = True Then
s = "วุ้นเส้น"
p = 25
End If
If RadioButton4.Checked = True Then
s = "หมี่ขาว"
p = 25
End If
If RadioButton5.Checked = True Then
s = "หมี่เหลือง"
p = 25
End If

If RadioButton1.Checked = False And

RadioButton2.Checked = False And RadioButton3.Checked =

False And RadioButton4.Checked = False And

RadioButton5.Checked = False Then
MessageBox.Show("กรุณาตรวจสอบรายการสั่งอีกครั้ง", "ระบบผิดพลาด",

MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If

Dim k1, k2, k3, k4, k5, k6, k7, k8, k9, k10 As

String
Dim p_k, price As Integer
If CheckBox1.Checked Then
k1 = "ลูกชิ้นหมู,"
p_k = 0
Else
k1 = ""
p_k = 0
End If
If CheckBox2.Checked Then
k2 = "ลูกชิ้นเนื้อเปื่อย,"
Else
k2 = ""
End If
If CheckBox3.Checked Then
k3 = "เนื้อสด,"
Else
k3 = ""
End If
If CheckBox4.Checked Then
k4 = "หมูแดง,"
Else
k4 = ""
End If
If CheckBox5.Checked Then
k5 = "หมูสด,"
Else
k5 = ""
End If
If CheckBox6.Checked Then
k6 = "รวม,"
p_k = 5
Else
k6 = ""
End If
If CheckBox7.Checked Then
k7 = "ผักสด,"
Else
k7 = ""
End If
If CheckBox8.Checked Then
k8 = "ผักลวก,"
Else
k8 = ""
End If
If CheckBox9.Checked Then
k9 = "ไม่เอาผัก,"
Else
k9 = ""
End If
If CheckBox10.Checked Then
k10 = "ไม่ใส่ผักชี,"
Else
k10 = ""
End If
price = p + p_k

If CheckBox1.Checked = False And

CheckBox2.Checked = False And CheckBox3.Checked = False

And CheckBox4.Checked = False And CheckBox5.Checked =

False And CheckBox6.Checked = False And

CheckBox7.Checked = False And CheckBox8.Checked = False

And CheckBox9.Checked = False And CheckBox10.Checked =

False Then
MessageBox.Show("กรุณาตรวจสอบรายการสั่งอีกครั้ง", "ระบบผิดพลาด",

MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If

MessageBox.Show(ComboBox1.Text & " " & "รายการอาหารที่

สั่ง" & " " & s & k1 & k2 & k3 & k4 & k5 & k6 & k7 & k8 &

k9 & k10, "รายการอาหาร", MessageBoxButtons.OK,

MessageBoxIcon.Exclamation)

MessageBox.Show("ราคาสุทธิ =" & price, "คิดเงิน",

MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

MessageBox.Show("ขอบคุณที่ใช้บริการ", "อย่าลืมมาอุดหนุนอีกครั้งน่ะคับ ",

MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False

CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
CheckBox8.Checked = False
CheckBox9.Checked = False
CheckBox10.Checked = False
ComboBox1.DropDownStyle =

ComboBoxStyle.DropDownList
ComboBox1.SelectedIndex = 0

End Sub
End Class

ตัวอย่างโปรแกรมการสั่งก๋วยเตี๋ยว

------------------------------------------------------------------------------------------------------------------------------

กลับหน้าหลัก