yannastmikpringsewu

Private Sub cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case cbogolongan.Text Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 200000 tunjangan = 20000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = total End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Private Sub Form_Load() cbogolongan.AddItem "I" cbogolongan.AddItem "II" cbogolongan.AddItem "III" cbogolongan.AddItem "Iv" End Sub Private Sub txtnidn_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnp.SetFoc...