Java & Netbeans

Download | klik disini

Private Sub chitung_Click()
    tpajak.Text = Val(ttagihan.Text) * 0.1
    ttotal.Text = Val(ttagihan.Text) + Val(tabo.Text) + Val(tpajak.Text)
    tbayar.SetFocus
End Sub

Private Sub clagi_Click()
    Dim ctrl As Control
   
    For Each ctrl In Me
        If (TypeName(ctrl) = "TextBox") Then ctrl.Text = ""
        If (TypeName(ctrl) = "OptionButton") Then ctrl.Value = False
        If (TypeName(ctrl) = "ComboBox") Then ctrl.Text = ""
   
    Next ctrl
End Sub

Private Sub cselesai_Click()
x = MsgBox("Keluar Dari Form?!...", vbQuestion + vbYesNo, "Konfirmasi")
If x = vbYes Then Unload Me
End Sub

Private Sub Form_Load()
  Dim b As Integer
    For b = 1 To 12
       cbbulan.AddItem b
    Next
End Sub

Private Sub op1300_Click()
  tkwh.Text = 400
  tabo.Text = 70000
  tjum.SetFocus
End Sub

Private Sub op450_Click()
  tkwh.Text = 200
  tabo.Text = 30000
  tjum.SetFocus
End Sub

Private Sub op900_Click()
  tkwh.Text = 250
  tabo.Text = 50000
  tjum.SetFocus
End Sub




Private Sub tbayar_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    tkembali.Text = Val(tbayar.Text) - Val(ttotal.Text)
  End If
End Sub

Private Sub tjum_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    ttagihan.Text = Val(tjum.Text) * Val(tkwh.Text)
  End If
End Sub