P 3 Penjumlahan Menggunakan Manual


Private Sub Cmdhitung_Click()
txtjumlah = Val(txtn1) + Val(txtn2) + Val(txtn3)
End Sub

Private Sub Cmdbatal_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn1.SetFocus
End Sub
v
Private Sub Cmdkeluar_Click()
Unload Me
End Sub

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

Komentar

Posting Komentar

Postingan populer dari blog ini

Apple akhirnya sediakan jack earphone lewat dongle khusus iPhone 7

Gambar
elang setahun setelah iPhone 7 muncul dengan desain tanpa jack  earphone 3.5 mm-nya yang kontroversial, Apple akhirnya  memenuhi keinginan konsumen mereka dengan merilis ekstensi kabel ( dongle )  charger yang dilengkapi “colokan musik” sejuta umat tersebut. Satu unit dongle produksi Belkin dengan dua lubang  input untuk keperluan  charging  sekaligus mendengar musik ini bisa kamu bawa pulang seharga US$34.95 (sekitar Rp472 ribu) dan sudah bisa kamu pesan melalui situs aksesori resmi Apple . Dengan keberadaan aksesoris ini, pengguna iPhone 7 jadi tak perlu repot-repot lagi membawa dua dongle ke dalam tas perjalanan mereka setiap waktu.
Baca selengkapnya

PROGRAM 6 TUGAS 2 BP1

Gambar
Private Sub Chk1_Click() lblnama.FontBold = Chk1.Value End Sub Private Sub Cmdok_Click()     lblnama.Caption = txt1.Text End Sub Private Sub Cmdselesai_Click()    unload me End Sub Private Sub Opt1_Click()     lblnama.ForeColor = vbBlue End Sub Private Sub Opt2_Click()     lblnama.ForeColor = vbRed End Sub   Private Sub Chk2_Click()     lblnama.FontItalic = Chk2.Value End Sub
Baca selengkapnya

HOME TEKNOLOGI Kemenkominfo akan Panggil Google dan Telegram Terkait GIF WhatsApp

Kementerian Komunikasi dan Informatika (Kemenkominfo) akan memanggil platform lain untuk menindaklanjuti temuan GIF yang mengandung konten pornografi di aplikasi pesan WhatsApp. Selain mesin pencari seperti Google, Kemenkominfo juga akan memanggil Telegram dan Facebook Messenger. Kedua aplikasi tersebut juga terhubung dengan Tenor, situs penyedia GIF yang dipakai oleh WhatsApp, yang diblokir Kemenkominfo terkait konten pornografi. "Kami lihat search engine seharusnya sudah bisa disaring, khususnya yang bertentangan dengan undang-undang di Indonesia," kata Direktur Jenderal Aplikasi dan Informatika Kemenkominfo, Semuel Abrijani Pangerapan, saat jumpa pers di Jakarta, Senin (6/11/2017). "Kami akan panggil juga mesin pencari yang ada di Indonesia," katanya, seperti dikutip  Antara . Menurut Semuel, salah satu masalah yang ada di mesin pencari seperti Google adalah mereka belum memblokir konten pornografi untuk pencarian  website  namun belum memblokir untu
Baca selengkapnya