Java & Netbeans

Download | Klik Disini

Private Sub cmdhitung_Click()

  Me.txtmak.Text = Val(Me.txtb1.Text) * Val(Me.lsharga.Text)

  Me.txtmin.Text = Val(Me.txtb2.Text) * Val(Me.txtharga.Text)

  Me.txtbay.Text = Val(Me.txtmak.Text) + Val(Me.txtmin.Text)

End Sub

Private Sub cmdlagi_Click()

  Me.txtb1.Text = ""

  Me.txtb2.Text = ""

  Me.txtharga.Text = ""

  Me.txtmak.Text = ""

  Me.txtmin.Text = ""

  Me.txtbay.Text = ""

End Sub

Private Sub cmdpulang_Click()

  MsgBox "Udah Ah Makannya !!"

  Unload Me

End Sub

Private Sub Form_Load()

  cbmenu.AddItem "Mie Ayam Jamur"

  cbmenu.AddItem "Bakso Bulat"

  cbmenu.AddItem "Bakso Rumput Laut"

  

  lsharga.AddItem "7000"

  lsharga.AddItem "8000"

  lsharga.AddItem "9000"

  lsharga.AddItem "10000"

End Sub

Private Sub Option1_Click()

   Me.txtharga.Text = 1500

End Sub

Private Sub Option2_Click()

   Me.txtharga.Text = 500

End Sub

Private Sub Option3_Click()

   Me.txtharga.Text = 2000

End Sub

Private Sub Option4_Click()

   Me.txtharga.Text = 3000

End Sub