2.3

Private Sub GajiPokok_keypress(keyascii As Integer)
If keyascii = 13 Then
tunjangan.SetFocus
End If
End Sub

Private Sub keluar_Click()
End
End Sub

Private Sub proses_Click()
gajikotor = Val(GajiPokok) + Val(tunjangan) - Val(potongan)
pajak = Val(gajikotor) * 0.1
gajibersih = Val(gajikotor) - Val(pajak)
End Sub

Private Sub tunjangan_keypress(keyascii As Integer)
If keyascii = 13 Then
potongan.SetFocus
End If
End Sub

Private Sub ulang_Click()
GajiPokok.SetFocus
GajiPokok = ""
tunjangan = ""
potongan = ""
gajikotor = ""
pajak = ""
gajibersih = ""
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Gambar
A. Grey Hat Hacker Jenis hacker ini merupakan jenis hacker yang sifatnya berada di antara white hat hacker dan black hat hacker. Hacker yang satu ini tidak memiliki ketetapan dalam memegang prinsipnya. Oleh sebab itu, jenis hacker yang satu ini biasanya memegang standar etika yang sifatnya ganda pada setiap kegiatan hacking-nya. Jadi, bisa dalam beberapa saat hacker ini memegang teguh prinsip hacker namun pada keadaan yang lain hacker yang satu ini dapat melanggar batas-batas hukum yang telah ditetapkan. B. Script Kiddie Hacker Hacker ini merupakan jenis hacker yang tidak begitu menguasai mengenai sistem komputer. Namun bukan berarti hacker ini tidak dapat menembus suatu sistem komputer, hacker jenis ini masih dapat menembus sistem komputer dengan cara memanfaat software buatan orang lain. C. Hacktivist Hacker Kemampuan jenis hacker ini digunaka untuk menebar pesan-pesan yang sifatnya bersinggungan dengan politik, ideology beserta agama. Biasanya jenis hacker ini me...
Baca selengkapnya
Gambar
Kacamata Google Glass 2 Meluncur 2019? November 18, 2018 KOMPAS.com - Setelah sempat “mati suri”, kacamata pintar Google Glass akhirnya lahir kembali pada pertengahan 2017 lalu. Bedanya, perangkat tersebut kini ditambahi embel-embel “Enterprise Edition”. Sesuai namanya, Google Glass Enterprise Edition menyasar perusahaan, khususnya para pekerja di industri manufaktur. Ada teknologi Augmented Reality (AR) yang tersemat pada kacamata pintar tersebut untuk menampilkan animasi berisi intruksi manual dan panduan perakitan. Agaknya strategi ini berhasil, sehingga Google kembali menghadirkan Glass Enterprise Edition generasi kedua. Informasinya terendus dari situs sertifikasi FCC, dengan nomor model A4R-GG2. Sekilas, desainnya masih identik dengan generasi pertama. Letak tombolnya masih sama, dengan mekanisme engsel yang membuat perangkat bisa dilipat. Ada tombol daya di bagai belakang, lengkap dengan logo “Glass”. Menurut sumber dalam, peningkatan akan lebih terasa pada pengala...
Baca selengkapnya

3.4

Gambar
Private Sub cmdBatal_Click() Txtkode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Txtkode.SetFocus End Sub Private Sub cmdKeluar_Click() End End Sub Private Sub cmdLagi_Click() Txtkode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Txtkode.SetFocus End Sub Private Sub cmdProses_Click() Dim kode As String kode = Left(Txtkode.Text, 3) If kode = "SIM" Then TxtJudul.Text = "Sistem Informasi Manajemen" TxtPengarang.Text = "Fadiya Ulfa" TxtHarga.Text = "75900" ElseIf kode = "EDP" Then TxtJudul.Text = "Elektronik Data Processing" TxtPengarang.Text = "Nurul Agustina" TxtHarga.Text = "62000" ElseIf kode = "MNJ" Then TxtJudul.Text = "Manajemen" TxtPengarang.Text = ...
Baca selengkapnya