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

tugas 2.8 huruf mutu mahasiswa STMIK pringsewu menggunakan keypress

Gambar
Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm.Text Case "17100016" nama = "yanna chairunisa alwahida" jurusan = " Sistem Informasi" Case "17100004" nama = "eka kartika pertiwi" jurusan = "sistem informasi" Case "17100006" nama = "Rosi Elvia" jurusan = "Sistem Informasi" Case "17100034" nama = "Marisca nova linda" jurusan = "Sistem Informasi" Case "17100021" nama = "Ahmad Hilal Yusuf" jurusan = "Manajemen Informatika" End Select Txtnama.Text = nama Txtjurusan.Text = jurusan Txtquis.SetFocus End Sub Private Sub cmdbatal_Click() Cbonpm.SetFocus Cbonpm.Text = "" Txtnama.Text = "" Txtjurusan.Text = "" Txtquis.Text = "" Txttugas.Text = "" Txtuts.Text = "" Txtuas.Text = "" Txtna.Text = "" Txthm.T...
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

penjumlahan menggunakan keypress

Gambar
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
Baca selengkapnya