Selasa, 21 November 2017
TUGAS 1 PERHITUNGAN HARGA SETELAH DISKON 10%
rumus tugas 1 tidak pake keypress
Private Sub Cmdhitung_Click()
Dim A, B, C As Double
TxtB.Text = Val(TxtA.Text) * 0.1
TxtC.Text = Val(TxtA.Text) - Val(TxtB.Text)
End Sub
Private Sub Cmdquit_Click()
End
End Sub
Private Sub cmdulangi_Click()
TxtA = ""
TxtB = ""
TxtC = ""
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