Zahra revita

Private Sub Cmdbatal_Click() txtnama.SetFocus txtnama.Text = "" txtnpm.Text = "" txtjur.Text = "" txtps.Text = "" txttm.Text = "" txturut.Text = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txttm = "" txturut = "" End Sub Private Sub Cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtjur.Text = "Sistem Informasi" txtps.Text = "Strata Satu" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" txtps.Text = "Diploma Empat" ElseIf S = "3" Then txtjur.Text = "Tehnik Informatika" txtps.Text = "Diploma Tiga" ElseIf S = "4" Then txtjur.Text = ...

Private Sub Form_Load() Cbogolongan.AddItem "I" Cbogolongan.AddItem "II" Cbogolongan.AddItem "III" Cbogolongan.AddItem "IV" End Sub Private Sub Cbogolongan_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Cbogolongan Case "I" gapok = 1500000 tunjangan = 150000 Case "II" gapok = 2500000 tunjangan = 20000 Case "III" gapok = 3000000 tunjangan = 250000 Case "IV" gapok = 4000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 txtgapok = gapok txttunjangan = tunjangan txtpajak = pajak txttotal = gapok + tunjangan - pajak End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() kosong End Sub Public Sub kosong() Txtnidn.SetFocus Txtnidn = “” Txtnama = “” Cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak =...

Private Sub Form_Load() cbonpm.AddItem "18100033" cbonpm.AddItem "18100001" cbonpm.AddItem "18100018" cbonpm.AddItem "18100038" cbonpm.AddItem "18100017" End Sub Private Sub txtnq_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnt.SetFocus End If End Sub Private Sub txtnt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtuts.SetFocus End If End Sub Private Sub txtna_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim NA As Integer Dim HM As String QUIS = Val(Txtquis) TUGAS = Val(Txttugas) UTS = Val(Txtuts) UAS = Val(Txtuas) NA = (QUIS + TUGAS + UTS + UAS) / 4 txtna.Text = NA Select Case txtna  Case Is = 100  HM = "A"  Case Is >= 80  HM = "A"  Case Is >= 70  HM = "B"  Case Is >= 60  HM = "C"  Case Is >= 50  HM = "D"  Case Is <= 49  HM = "E"  End Select  txthm.Text = HM  End If End Sub Private Su...

  Private Sub cmdKeluar_Click() Unload Me End Sub   Private Sub cmdProses_Click() TxtGK = Val((TxtPokok) + Val(TxtTunjangan)) - Val(TxtPotongan) TxtPajak = Val(TxtGK) * 0.15 TxtDiterima = Val(TxtGK) - Val(TxtPajak) End Sub   Private Sub cmdUlang_Click() TxtPokok.SetFocus TxtPokok = "" TxtTunjangan = "" TxtPotongan = "" TxtGK = "" TxtPajak = "" TxtDiterima = "" End Sub   Private Sub TxtPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtTunjangan.SetFocus End If End Sub Private Sub TxtPotongan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtGK = Val((TxtPokok) + Val(TxtTunjangan)) - Val(TxtPotongan) ...

  Private Sub cmdKeluar_Click() Unload Me End Sub   Private Sub cmdProses_Click() TxtGK = Val((TxtPokok) + Val(TxtTunjangan)) - Val(TxtPotongan) TxtPajak = Val(TxtGK) * 0.15 TxtDiterima = Val(TxtGK) - Val(TxtPajak) End Sub   Private Sub cmdUlang_Click() TxtPokok.SetFocus TxtPokok = "" TxtTunjangan = "" TxtPotongan = "" TxtGK = "" TxtPajak = "" TxtDiterima = "" End Sub   Private Sub TxtPokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtTunjangan.SetFocus End If End Sub   Private Sub TxtTunjangan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtPotongan.SetFocus End If End Sub