PROGRAM 4 TUGAS 2 BP1

Private Sub Cmdproses_click()
Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo)
txtpa = Val(Txtgk) * 0.1
Txtgd = Val(Txtgk) - Val(Txtpa)
End Sub

Private Sub Cmdulang_Click()
Txtgp = ""
Txtt = ""
Txtpo = ""
Txtgk= ""
Txtpa= ""
Txtgd = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub


Private Sub Txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtt2.SetFocus
End If
End Sub
Private Sub Txtt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtpo.SetFocus
End If
End Sub

Private Sub Txtpo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo)
txtpa = Val(Txtgk) * 0.1
Txtgd = Val(Txtgk) - Val(Txtpa)
End If
End Sub
 


Komentar

Posting Komentar

Postingan populer dari blog ini

Xperia Hello, Robot Asisten Imut & Cerdas Ciptaan Sony

Gambar
Robot ini sebenarnya menggunakan konsep smart speaker yang dapat menerjemahkan berbagai perintah yang dilontarkan manusia. Smart speaker memang sedang marak-maraknya hadir di industri teknologi. Terlebih, dengan kehadiran Google Home beberapa waktu kemarin, seolah membuat pesaing lainnya tidak tinggal diam. Salah satu yang ingin coba menjajaki teknologi ini ialah Sony dengan mengeluarkan Xperia Hello. Xperia Hello lebih cocok disebut smart speaker. Dilansir dari Cool Things, Sony mencoba membawa suasana baru dengan menyebutnya sebagai "robot komunikasi". Bentuknya sendiri hanya sebesar botol shampoo dengan memiliki layar 4,5 inci (resolusi 720p) pada bagian perutnya. Di bagian atas juga terdapat bola yang merupakan kepalanya dengan mata animasi (LED) yang unik.
Baca selengkapnya

KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA

Gambar
PRINGSEWU – Ketua KPU Pringsewu kunjungi Tempat Pemungutan Suara (TPS) Pemilu Presiden dan Wakil Presiden Badan Eksekutif Mahasiswa STMIK Pringsewu . Rabu, (10/2) di Kampus setempat. Ketua KPU Pringsewu , H. Warsito, S.T., Didampingi pokja sosialisasi. A.Andoyo, Mengatakan, Pelaksanaan Proses pemilihan Presiden dan Wakil Presiden Mahasiswa ini merupakan pembelajaran proses Demokrasi, ini merupakan modal awal mahasiswa untuk menghadapi pemilu yang sesungguhnya. Warsito mengatakan, para mahasiswa kemungkinan ada yg belum memilih dan merupakan pemilih pemula, kegiatan ini bisa menjadi contoh pembelajaran proses pemilihan umum. Kata Warsito, Bagi panitia penyelenggara nantinya bisa berkiprah dalam pemilu yang sebenarnya. Wakil Ketua 3 Bidang Kemahasiswa STMIK Pringsewu, Nur Aminudin, M.T.I mengatakan, Pemilihan Presma dan Wapresma ini merupakan proses pembelajaran politik bagi mahasiswa, makna arti dari demokrasi sebenarnya, diharapkan mahasiswa bisa andil secara langs...
Baca selengkapnya

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