penjumlahan menggunakan 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

Private Sub Txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnilai2.SetFocus
End If
End Sub

Private Sub txtnilai2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal = Val(Txtnilai1) + (txtnilai2)
txttotal.SetFocus
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

WORKSHOP & SOSIALISASI INOVASI TEPAT GUNA APLIKASI GAMBAR 3D

Gambar
STMIK PRINGSEWU  – Teknologi tepat guna merupakan teknologi yang dirancang dan dikembangkan berdasarkan pada aspek-aspek lingkungan, sosial, budaya, ekonomi, dan etika masyarakat pengguna. Hemat sumber daya, minim dampak polutif, mudah penggunaan dan perawatannya merupakan bagian yang menjadi perhatian. Kamis, (23/6) STMIK Pringsewu bekerjasama dengan BAPPEDA Kabupaten Pringsewu mengadakan workshop & sosialisasi inovasi tepat guna aplikasi gambar 3d bagi guru tk & paud Kabupaten Pringsewu. Kegiatan tersebut merupakan tindak lanjut bagi mahasiswa-mahasiswi STMIK Pringsewu (Tim Robotik STMIK Pringsewu) dalam rangka menyebarluaskan dan menumbuhkan kreasi serta inovasi Teknologi Tepat Guna (TTG) yang sudah diciptakan, maka perlu adanya informasi dan orientasi kepada guru tk dan paud Kabupaten Pringsewu. Alhamdulillah Tim Robotik STMIK Pringsewu Juara 3 Kategori Umum Lomba Kreatif dan Inovasi Daerah Kabupaten Pringsewu 2016 (Aplikas...
Baca selengkapnya

STMIK PRINGSEWU ADAKAN PELATIHAN MEDIA PEMBELAJARAN BERBASIS TEKNOLOGI UNTUK GURU SD (FINISH)

Gambar
Pengabdian dosen STMIK Pringsewu dalam rangka pelatihan pembuatan media pembelajaran berbasis teknologi pertemuan ke-3 dan merupakan pertemuan terakhir yang diadakan di SD N 1 Pajarisuk pada hari Sabtu, 28 Mei 2016 yang dihadiri oleh tim pengabdian diantaranya Ponidi, M.Pd., Danang Kusnadi, M.Si., Trisnawati, M.Pd., Dwi Puastuti, M.Pd., Noca Yolanda Sari, M.Pd., dan Marilin Kristina, M.Pd. berjalan sesuai dengan yang direncanakan. Pada pertemuan ke-3 ini anggota Kelompok Kerja Guru (KKG) guru SD Kecamatan Pringsewu pada kelas bawah (terdiri dari guru kelas 1, 2 dan 3) guru mata pelajaran agama dan olah raga. Setiap guru kelas dibagi berdasarkan kelas dan mata pelajaran yang diampu di sekolah masing-masing sehingga materi dan media yang disampaikan diharapkan sesuai dengan keadaan yang terjadi di sekolah asal masing-masing guru kelas.Pertemuan ke-3 ini merupakan tindak lanjut dari pelatihan yang sudah diadakan pada hari sabtu, 7 Mei 2016. Pada kegiatan pelatihan ini bap...
Baca selengkapnya

HTC U11 Life Diumumkan Sebagai Smartphone Android One Selengkapnya: https://www.beritateknologi.com/htc-u11-life-diumumkan-sebagai-smartphone-android-one/

Gambar
Jika smartphone HTC U11+ diumumkan sebagai smartphone flagship, perusahaan juga mengumumkan HTC U11 Life sebagai smartphone kelas menengah. Selain itu, smartphone ini juga bergabung dengan program Android One bersama Xiaomi Mi A1 dan lain-lain. Smartphone ini membawa fitur-fitur yang dimiliki oleh flagship HTC U11 untuk kelas yang lebih rendah. HTC U11 Life hadir dengan desain yang menarik, terlebih warna biru yang ditawarkan terlihat lebih menarik. Smartphone ini mewarisi fitur Sense Edge, dimana Anda bisa meremas bagian frame smartphone ini untuk mengakses aplikasi atau beberapa pengaturan. Kabar baiknya, bodi smartphone ini telah mendapat sertifikasi IP68. Smartphone ini mengusung layar seluas 5,2 inci beresolusi FHD 1080 x 1920 piksel dan ditenagai dengan chipset Qualcomm Snapdragon 630 yang disandingkan dengan 3GB RAM + 32GB penyimpanan. Ada juga varian yang lebih tinggi, yakni dengan 4GB RAM + 64GB ROM. Karena merupakan bagian dari Android One, jadi OS yang dijalankan smartph...
Baca selengkapnya