contoh program menu sederhana

alghifaris bagaskara 10114833

marianus pralambang 16114393

Program menu makanan

Private Sub Command1_Click()\\ MAKANAN

Form1.Hide        \\ Menutup Form1

Form2.Show      \\ Membuka Form2

End Sub

Private Sub Command2_Click()\\MINUMAN

Form1.Hide        \\ Menutup Form1

Form3.Show      \\ Membuka Form3

End Sub

Private Sub Command1_Click()\\ORDER

Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) \\ Program Aritmatik

End Sub

Private Sub Command2_Click()\\MINUMAN

Form2.Hide        \\ Menutup Form2

Form3.Show      \\ Membuka Form3

End Sub

Private Sub Command3_Click()\\MENU

Form2.Hide \\ Menutup Form2

Form1.Show \\ Membuka Form 1

Text1.Text = " " \\ Mengosongkan text

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

End Sub

Private Sub Command4_Click()\\TOTAL

Form2.Hide

Form4.Show

Text6.Text = (Val(Text1.Text) * 4000) + (Val(Text2.Text) * 2000) + (Val(Text3.Text) * 3000) + (Val(Text4.Text) * 13000) + (Val(Text5.Text) * 14000) // Program Aritmatik

Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000)  // Program Aritmatik

Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik

Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik

End Sub

Private Sub Command1_Click()\\ORDER

Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik

End Sub

Private Sub Command2_Click()\\MAKANAN

Form3.Hide \\ Menutup Form3

Form2.Show \\ Membuka Form2

End Sub

Private Sub Command3_Click()\\MENU

Form3.Hide \\ Menutup Form3

Form1.Show \\ Membuka form1

Text1.Text = " " \\ Mengosongkan text

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text6.Text = " "

End Sub

Private Sub Command4_Click()\\TOTAL

Form3.Hide \\ Menutup Form3

Form4.Show \\ Membuka Form4

Text6.Text = (Val(Text1.Text) * 3000) + (Val(Text2.Text) * 4000) + (Val(Text3.Text) * 8000) + (Val(Text4.Text) * 3000) + (Val(Text5.Text) * 7000) // Program Aritmatik

Form4.Label1.Caption = "Nasi Putih = " & (Val(Form2.Text1.Text) * 4000) & vbNewLine & "Tahu         = " & (Val(Form2.Text2.Text) * 2000) & vbNewLine & "Tempe      = " & (Val(Form2.Text3.Text) * 3000) & vbNewLine & "Ayam         = " & (Val(Form2.Text4.Text) * 13000) & vbNewLine & "Bebek       = " & (Val(Form2.Text5.Text) * 14000) // Program Aritmatik

Form4.Label2.Caption = "Aqua            = " & (Val(Form3.Text1.Text) * 3000) & vbNewLine & "Es Teh         = " & (Val(Form3.Text2.Text) * 4000) & vbNewLine & "Es Jeruk       = " & (Val(Form3.Text3.Text) * 8000) & vbNewLine & "Teh Anget    = " & (Val(Form3.Text4.Text) * 3000) & vbNewLine & "Jeruk Anget  = " & (Val(Form3.Text5.Text) * 7000) // Program Aritmatik

Form4.Text1.Text = Val(Form2.Text6.Text) + Val(Form3.Text6.Text) // Program Aritmatik

End Sub

Private Sub Command1_Click()\\MENU

Form4.Hide \\ Menutup Form4

Form1.Show \\ Membuka Form1

Form2.Text1.Text = " " \\ Mengosongkan text

Form2.Text2.Text = " "

Form2.Text3.Text = " "

Form2.Text4.Text = " "

Form2.Text5.Text = " "

Form2.Text6.Text = " "

Form3.Text1.Text = " " \\ Mengosongkan text

Form3.Text2.Text = " "

Form3.Text3.Text = " "

Form3.Text4.Text = " "

Form3.Text5.Text = " "

Form3.Text6.Text = " "

End Sub

Private Sub Command2_Click()\\MAKANAN

Form4.Hide \\ Menutup Form4

Form2.Show \\ Membuka Form2

End Sub

Private Sub Command3_Click()\\MINUMAN

Form4.Hide \\ Menutup Form4

Form2.Show \\ Mebuka Form2

End Sub