Program 4 Penjumlahan Menggunakan Enter


Tugas P4
Private Sub Cmdhitung_Click()
txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub
  
Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
End If
End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3) 
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

CARA MEMBUAT AKUN BBM DAN CONTOH

Gambar
Cara Membuat Email BBM [Contoh Email BBM disini saya menggunakan Akun Gmail] 1. Siapkan email yang sudah kamu punya, jika belum punya bisa ikuti caranya disini : Cara Buat Email Baru Di Gmail Bahasa Indonesia . Jika sudah siap emailnya, silahkan buka aplikasi BBM yang sudah di download / di instal. Seperti berikut aplikasi yang belum di daftarkan akun blackkberry ID. Kemudian tekan Sign up with an email address, lihat pada yang saya tandai dengan panah. 2. Hampir tidak berbeda dengan tampilan awal tadi. Lengkapi dengan data yang kamu punya. Di kolom atas untuk mengisi nama akun, pada yang saya beri tanda adalah untuk memasukan email yang kamu punya. Kemudian untuk kata sandi, minimal 6 katakter. 3. Jika sudah di lengkapi dan memasukan email bbm dengan benar, tekan Create Account. 4. Pastikan alamat email yang digunakan tidak salah ketik. Jika benar, tekan it's correct. 5. Di langkah ini, boleh pilih mana saja terserah. Tapi saya melanjut...
Baca selengkapnya

STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru 2017

Gambar
STMIK Pringsewu Laksanakan POSDIKTI Bagi Mahasiswa Baru Sumaterapost.co – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan Program Orientasi Pendidikan Tinggi (POSDIKTI) bagi Mahasiswa Baru, dibuka oleh Wakil Ketua III Bidang Kemahasiswaan, Nuraminudin. M.T.I mewakili Ketua STMIK Pringsewu, Hj. Rita Irviani, SE, M.M, Jum’at (11/8). Ketua STMIK Pringsewu Hj. Rita Irviani. SE.MM dalam sambutannya, yang disampaikan oleh Wakil Ketua III Bidang Kemahasiswaan Nuraminudin M.T.I, mengatakan, POSDIKTI adalah kegiatan orientasi bagi mahasiswa baru untuk memperkenalkan kepada mahasiswa baru tentang kurikulum Pendidikan Di Kampus STMIK Pringsewu, serta mengenal lebih dekat para Dosen, serta antar mahasiswa baru serta organisasi kemahasiswaan di lingkungan kampus. Hadir dalam pembukaan POSDIKTI, Wakil Ketua I Bidang Akademik, Elidabeth Anggraeni, MTI, wakil ketua II Bidang Keuangan Trisusilowati, MTI, Ka Prodi Diploma III Oktafianto, MT...
Baca selengkapnya

Yudisium STMIK PRINGSEWU 2017

Gambar
Sebanyak 128 mahasiswa STMIK Pringsewu mengikuti yudisium di kampusnya, Selasa (22/8/2017).  STMIK Pringsewu Gelar Yudisium 128 Mahasiswa PRINGSEWU (Lampost.co) – STMIK Pringsewu menggelar yudisium/penglepasan sarjana yang berlangsung di aula kampus setempat,  Selasa (22/8/2017). Pelaksanaan yudisium diikuti 128 mahasiswa, yaitu jurusan Sistem Informasi meluluskan 125 sarjana komputer, Jurusan Manajemen Informatika meluluskan 3 profesional A.Md. Yudisium dilaksanakan berdasar pada Surat Keputusan (SK) Ketua STMIK Pringsewu Nomor 667/SK/STMIK.P/VIII/2017 tanggal 22 Agustus 2017. Kegiatan yudisium dihadiri Ketua Yayasan Fauzi, yang juga Wakil Bupati Pringsewu,  Ketua STMIK Pringsewu Rita Irviani, Wakil Ketua I Elisabet Y.A., Wakil Ketua III Nur Aminudin, Ketua Prodi Sistem Informasi Tri Susilowati,  Ketua Prodi Manajemen Informatika Oktafianto, Ka. SDM Dedi Irawan, se...
Baca selengkapnya