Selasa, 21 November 2017
tugas 3 Aplikasi perhitungan Gaji
rumus pemograman aplikasi perhitungan gaji tidak mengunankan keypress
Private Sub Cmdproses_Click()
Dim A, B, C, D, E, F As Double
TXTD.Text = Val(txtA.Text) + Val(TXTB.Text) - Val(TXTC.Text)
TXTE.Text = Val(TXTD.Text) * (0.1)
TXTF.Text = Val(TXTD.Text) - Val(TXTE.Text)
End Sub
Private Sub Cmdulang_Click()
txtA = ""
TXTB = ""
TXTC = ""
TXTD = ""
TXTE = ""
TXTF = ""
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Langganan:
Posting Komentar (Atom)
Tugas 3.7 PT. PELUANG PETANG SETIAP HARI
Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgol = "" txtks = "" txtstatus = ...
-
KOMPAS.com — Layanan pesan instan WhatsApp sempat mengalami masalah pada Jumat (3/11/2017) dan tidak bisa diakses sama se...
-
rumus pemograman aplikasi perhitungan gaji tidak mengunankan keypress Private Sub Cmdproses_Click() Dim A, B, C, D, E, F As Double...
Tidak ada komentar:
Posting Komentar