Membuat Menu Makanan Melalui Visual Basic 6.0

               Membuat Menu Makanan Melalui Visual Basic 6.0

Pseudo Code

Private Sub tidak_aktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

List2.Enabled = False

End Sub

Private Sub bersih1()

Combo1.Text = "Makanan"

Combo2.Text = "Minuman"

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub menu_makanan()

Combo1.AddItem "Sandwich"

Combo1.AddItem "Hamburger"

Combo1.AddItem "NasGor"

Combo1.AddItem "Spicy Wings"

End Sub

Private Sub menu_minuman()

Combo2.AddItem "Teh manis"

Combo2.AddItem "Kopi"

Combo2.AddItem "Susu"

Combo2.AddItem "Capuccino"

End Sub

Private Sub harga_makanan()

If Combo1.ListIndex = 0 Then

Text1.Text = 10000

ElseIf Combo1.ListIndex = 1 Then

Text1.Text = 8000

ElseIf Combo1.ListIndex = 2 Then

Text1.Text = 6000

ElseIf Combo1.ListIndex = 3 Then

Text1.Text = 5000

End If

End Sub

Private Sub harga_minuman()

If Combo2.ListIndex = 0 Then

Text2.Text = 4000

ElseIf Combo2.ListIndex = 1 Then

Text2.Text = 2000

ElseIf Combo2.ListIndex = 2 Then

Text2.Text = 3000

ElseIf Combo2.ListIndex = 3 Then

Text2.Text = 5000

End If

End Sub

Private Sub pesan_combo1()

If Combo1.ListIndex = "0" Then

List1.AddItem Combo1.Text

List2.AddItem Text1.Text

ElseIf Combo1.ListIndex = "1" Then

List1.AddItem Combo1.Text

List2.AddItem Text1.Text

ElseIf Combo1.ListIndex = "2" Then

List1.AddItem Combo1.Text

List2.AddItem Text1.Text

ElseIf Combo1.ListIndex = "3" Then

List1.AddItem Combo1.Text

List2.AddItem Text1.Text

End If

End Sub

Private Sub pesan_combo2()

If Combo2.ListIndex = "0" Then

List1.AddItem Combo2.Text

List2.AddItem Text2.Text

ElseIf Combo2.ListIndex = "1" Then

List1.AddItem Combo2.Text

List2.AddItem Text2.Text

ElseIf Combo2.ListIndex = "2" Then

List1.AddItem Combo2.Text

List2.AddItem Text2.Text

ElseIf Combo2.ListIndex = "3" Then

List1.AddItem Combo2.Text

List2.AddItem Text2.Text

End If

End Sub

Private Sub diskon()

If Val(Text3.Text) > 100000 Then

    Text4.Text = "5000"

ElseIf Val(Text3.Text) > 75000 Then

    Text4.Text = "4000"

ElseIf Val(Text3.Text) > 50000 Then

    Text4.Text = "3000"

ElseIf Val(Text3.Text) > 25000 Then

    Text4.Text = "2000"

End If

End Sub

Private Sub total_bayar()

Text5.Text = Val(Text3.Text) - Val(Text4.Text)

End Sub

Private Sub bersih2()

List1.Clear

List2.Clear

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

totalharga = 0

Label4.Caption = "0"

End Sub

Private Sub form_load()

totalharga = 0

menu_makanan

menu_minuman

tidak_aktif

End Sub

Private Sub command1_click()

pesan_combo1

pesan_combo2

totalharga = Val(Label4.Caption) + Val(Text1.Text) + Val(Text2.Text)

Label4.Caption = totalharga

bersih1

End Sub

Private Sub combo1_click()

harga_makanan

End Sub

Private Sub combo2_click()

harga_minuman

End Sub

Private Sub command3_click()

Text3.Text = Label4.Caption

diskon

total_bayar

End Sub

Private Sub command2_click()

bersih2

End Sub

Description: Membuat Menu Makanan Melalui Visual Basic 6.0
Reviewer: Unknown
Rating: 4.0
ItemReviewed: Membuat Menu Makanan Melalui Visual Basic 6.0

Artikel Terkait :