Selasa, 21 November 2017
aplikasi perhitungan gaji tugas 3
Private Sub KELUAR_Click(Index As Integer)
Unload Me
End Sub
Private Sub PROSES_Click(Index As Integer)
TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT)
TXTPJ = Val(TXTGK) * 0.1
TXTGD = Val(TXTGK) - Val(TXTPJ)
End Sub
Private Sub ULANG_Click()
TXTGP = ""
TXTTJ = ""
TXTPT = ""
TXTGK = ""
TXTPJ = ""
TXTGD = ""
TXTGP.SetFocus
End Sub
Langganan:
Posting Komentar (Atom)
tugas 6 pengolahan citra
Nama : Ayunda Mugiarsih Kelas : Line 1 TKJ NPM : 17100024 Tugas 6 Gamabar hasil Penjelasan Cgreyscale adalah suatu ci...
-
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = &...
-
Private Sub chkb_Click() If chkb.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub chki_Click() ...
Tidak ada komentar:
Posting Komentar