|
|
|
| 1 | 2 | 3 | 4 | 5 | 6 | 7 |
| 8 | 9 | 10 | 11 | 12 | 13 | 14 |
| 15 | 16 | 17 | 18 | 19 | 20 | 21 |
| 22 | 23 | 24 | 25 | 26 | 27 | 28 |
| 29 | 30 | |
|
 |
|
|
[VB] แจกโค้ด FoodBill โปรแกรมคำนวณบิลค่าอาหาร + FILE |
|
โค้ด Checkbox เมนูอาหาร
Private Sub Check1_Click()
If Check1.Value = "1" Then
Text1.Text = Text1.Text + 25
ElseIf Check1.Value = "0" Then
Text1.Text = Text1.Text - 25
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check2.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check3.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = "1" Then
Text1.Text = Text1.Text + 35
ElseIf Check4.Value = "0" Then
Text1.Text = Text1.Text - 35
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check5.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check6_Click()
If Check6.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check6.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check7_Click()
If Check7.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check7.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check8_Click()
If Check8.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check8.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check9_Click()
If Check9.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check9.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check10_Click()
If Check10.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check10.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check11_Click()
If Check11.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check11.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check12_Click()
If Check12.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check12.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check13_Click()
If Check13.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check13.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check14_Click()
If Check14.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check14.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check15_Click()
If Check15.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check11.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check16_Click()
If Check16.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check16.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check17_Click()
If Check17.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check17.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check18_Click()
If Check18.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check18.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check19_Click()
If Check19.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check19.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check20_Click()
If Check20.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check20.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
| Create Date : 14 เมษายน 2561 |
| Last Update : 14 เมษายน 2561 17:01:19 น. |
|
0 comments
|
| Counter : 958 Pageviews. |
 |
|
|
|
|
|
|
|
|
