Java & Netbeans

Private Sub cbpro_Click()
  If cbpro.Text = "Sticker" Then
     txtharga.Text = 5000
  ElseIf cbpro.Text = "Banner" Then
     txtharga.Text = 30000
  ElseIf cbpro.Text = "Flyer" Then
     txtharga.Text = 10000
  ElseIf cbpro.Text = "Poster" Then
     txtharga.Text = 25000
  End If

txtjml.SetFocus
End Sub








Private Sub cmdproses_Click()
  txtbayar.Text = Val(txttambah.Text) + Val(txttotal.Text)
End Sub

Private Sub DTjadi_Change()
  txtlama.Text = DTjadi.Value - DTpesan.Value
 
  If txtlama.Text < 2 Then
     txttambah.Text = 0.1 * Val(txttotal.Text)
  ElseIf txtlama.Text < 7 Then
     txttambah.Text = 0.05 * Val(txttotal.Text)
  Else
     txttambah.Text = 0
  End If
End Sub



Private Sub txtjml_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    txttotal.Text = Val(txtjml.Text) * Val(txtharga.Text)
  End If
End Sub



Private Sub txtmuka_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    txtsisa.Text = Val(txtbayar.Text) - Val(txtmuka.Text)
  End If
End Sub