Java & Netbeans

Download | Klik Disini

Private Sub cmdcetak_Click()

  MsgBox " Terimakasi telah Membeli : " & Me.cbpro.Text & " seharga Rp. " & Me.txttotal.Text

End Sub

Private Sub cmdlagi_Click()

  Me.cbpro.ListIndex = 0

  Me.lsnom.ListIndex = 0

  Me.txtbeli.Text = ""

  Me.txttotal.Text = ""

End Sub

Private Sub Form_Load()

  cbpro.AddItem "IM3"

  cbpro.AddItem "XL"

  cbpro.AddItem "ESIA"

  cbpro.AddItem "SIMPATI"

  cbpro.AddItem "AXIS"

  

  lsnom.AddItem "5000"

  lsnom.AddItem "10000"

  lsnom.AddItem "20000"

  lsnom.AddItem "25000"

  lsnom.AddItem "50000"

  

End Sub

Private Sub txtbeli_Change()

  Me.txttotal.Text = Val(Me.lsnom.Text) * Val(Me.txtbeli.Text)

End Sub