tugas2.1 harga setelah discont 10%



Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - Val(txtdis)
End Sub

Private Sub cmdlagi_Click()
txtha = ""
txtdis = ""
txtak = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

Gambar
Setiap kali memperingati hari Sumpah Pemuda, semua stake holder berbondong-bondong menggelar berbagai acara, salah satunya yang dilakukan civitas akademik STMIK Pringsewu dengan menggelar Upacara Hari Sumpah Pemuda ke 89 di halaman kampus setempat, Sabtu (28/10) selaku Inspektur Upacara mengatakan, dihari Sumpah Pemuda yang ke-89 pada tahun 2017 ini, Resimen Mahasiswa dan rekan-rekan dari BEM, Mahasiswa, dan Pimpinan Perguruan Tinggi STMIK Pringsewu beserta Staff dan jajarannya memperingati hari Sumpah Pemuda dengan melaksanakan upacara pengibaran Bendera di halaman kampus setempat. Beliau juga menegaskan bahwa sumpah pemuda merupakan satu tonggak utama dalam sejarah pergerakan kemerdekaan bangsa Indonesia. Kepada mahasiswa mahasiswi STMIK Pringsewu agar mempererat persatuan di tengah perbedaan, jaga nilai-nilai sumpah pemuda, terutama satu bangsa satu tanah air, jangan khianati sumpah pemuda, melalui sumpah pemuda, tanah air, bangsa dan bahasa dapat diwujudkan untuk...
Baca selengkapnya

kalkulator tanpa keypress

Gambar
Private Sub cmdbatal_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub cmdhitung_Click() txttotal1 = Val(txtn1) + Val(txtn2) txttotal2 = Val(txtn3) / Val(txtn4) txttotal3 = Val(txtn5) - Val(txtn6) txttotal4 = Val(txtn7) * Val(txtn8) End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtn1 = "" txtn2 = "" txtn3 = "" txtn4 = "" txtn5 = "" txtn6 = "" txtn7 = "" txtn8 = "" txttotal1 = "" txttotal2 = "" txttotal3 = "" txttotal4 = "" txtn1.SetFocus End Sub Private Sub txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtn2.SetF...
Baca selengkapnya