penjumlahan tanpa keypress


Private Sub cmdhitung_Click()
Txttotal = Val(Txtnilai1) + (Txtnilai2)
End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
Txtnilai1 = ""
Txtnilai2 = ""
Txttotal = ""
Txtnilai1.SetFocus

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

PELANTIKAN BUPATI DAN WAKIL BUPATI PRINGSEWU 2017

Gambar
PRINGSEWU – Hari ini Senin (22/5) pasangan Bupati dan Wakil Bupati Pringsewu periode 2017-2022 H. Sujadi – Dr. H. Fauzi dilantik Gubernur Lampung Muhammad Ridho Ficardo atas nama Menteri Dalam Negeri, pelantikan dan pengambilan sumpah tersebut ada dua kepala daerah juga di lantik hasil Pemilihan Kepala Daerah 15 Pebruari 2017 yaitu Umar Ahmad – Fauzi Hasan (Tulangbawang Barat), dan Khamami – Saply (Mesuji). Pelantikan pasangan calon nomor urut dua ini, berlangsung di Balai Keratun Kantor Gubernur Lampung, Pelantikan tersebut berdasarkan Surat Menteri Dalam Dalam Negeri RI Nomor: 273/2222/SJ tanggal 10 Mei 2017. Sejumlah pihak keamanan dari TNI, Polri dan Brimob Polda Lampung tampak berjaga di pintu masuk gedung. Gubernur Lampung Muhammad Ridho Ficardo juga sudah tiba di gedung tempat berlangsungnya pelantikan. sumber : http://stmikpringsewu.ac.id/pelantikan-bupati-dan-wakil-bupati-pringsewu-2017/
Baca selengkapnya

tugas 3.7

Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgol = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim S As String txttahun = Left(txtnik, 4) S = Mid(txtnik, 5, 1) If S = "A" Then txtgol = "A" txtjabatan = "Manager" txtgaji = "4000000" txttunjangan = "1025000" ElseIf S = "B" Then txtgol = "B" txtjabatan = ...
Baca selengkapnya