KALKULATOR TANPA KEYPRESS

-
sebelum di isi.


sesudah di isi.


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

Komentar

Posting Komentar

Postingan populer dari blog ini

WISUDA BERSAMA STMIK & STIT PRINGSEWU 2017

-
Gambar
STMIK PRINGSEWU – Ahad (15/10), penyelenggaraan acara wisuda STMIK Pringsewu dan STIT Pringsewu berjalan lancar dan sukses. Wisuda tersebut merupakan wisuda ke-18 yang dilaksanakan oleh STMIK Pringsewu dan wisuda ke-3 STIT Pringsewu. Acara wisuda STMIK Pringsewu program studi S1 Sistem Informasi diikuti oleh 349 orang wisudawan/i, D3 Manajemen Informatika diikuti 24 orang wisudawan/i, sedangkan jumlah wisudawan dari STIT Pringsewu sebanyak 39 orang wisudawan/i, mereka merupakan Sarjana Pendidikan Islam dari Program Studi Manajemen Pendidikan Islam. Perhelatan tersebut dilaksanakan secara bersamaan di GOR Kabupaten Pringsewu. Perhelatan tersebut dihadiri Bupati Pringsewu H. Sujadi, Ketua MUI, Polres, Kodim, dan APTISI. Acara wisuda bersama STMIK Pringsewu dan STIT Pringsewu dimulai pada pukul 09.00 WIB sampai selesai, dibuka secara langsung oleh ketua Yayasan Lembaga Pendidika Startech Pringsewu Dr. H. Fauzi. Bupati Pringsewu H. Sujadi dalam sambutannya menga...
Baca selengkapnya

Tugas 2.7 Tugas Mutu Mahasiswa Stmik Pringsewu Tanpa Keypress

-
Gambar
Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100031" nama = "Tuti Mulyani" jurusan = "Sistem Informasi" Case "17100023" nama = "Danang Pandu Aji" jurusan = "Sistem Informasi" Case "17100024" nama = "Ayunda Mugiarsih" jurusan = "Sistem Informasi" Case "17100030" nama = "Fadli Hidayat" jurusan = "Sistem Informasi" Case "17100026" nama = "Fitri Indah Tria Nanda" jurusan = "Sistem Informasi" Case "17100027" nama = "Dede Andriyansyah" jurusan = "Sistem Informasi" End Select txtmhs.Tex...
Baca selengkapnya