Langsung ke konten utama

TUGAS MK BP1 TUGAS 1.3

Private Sub Txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn2.SetFocus
End If

End Sub
Private Sub Txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthasil = Val(txtn1) * Val(Txtn2)
End If
End Sub

Private Sub Cmdhitung_Click()
Txthasil = Val(txtn1) * Val(Txtn2)
End Sub

Private Sub Cmdbersih_Click()
txtn1.SetFocus
txtn1 = ""
Txtn2 = ""
Txthasil = ""
End Sub

Private Sub cmdhasil_Click()
End
End Sub




Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

Jenis jenis virus komputer

1. Spoofing Spoofing adalah teknik untuk mendapatkan akses yang tidak sah ke suatu komputer atau informasi. Dalam teknik Spoofing, untuk memalsukan bahwa mereka adalah host yang terpercaya, penyerang berpura-pura agar pengguna tidak mengetahui teknik ini. 2. DDOS (distributed denial of service) Serangan DDOS merupakan serangan trhadap komputer atau server di dalam sebuah jaringan dengan cara menghabiskan resource yang dimiliki komputer. Sehingga komputer tersebut tidak bisa berjalan dengan baik sehingga secara tidak langsung mencegah pengguna lain memperoleh akses layanan dari komputer yang diserang. 3.DNS Poisoning DNS Poisoning adalah cara untuk menembus pertahanan dengan menyampaikan IP Address mengenai host. DNS Poisoning mempunyai tujuan mengalihkan lalu lintas paket data dari tujuan aslinya. 4. Sniffer Sniffer Paket atau penganalisa paket dapat pula diartikan 'penyadap paket') yang juga dikenal sebagai Network Analyzers atau Ethernet Sniffer...
Posting Komentar
Baca selengkapnya

TUGAS MK BP1 TUGAS 2.5

Private Sub chkbold_Click() 'membuat teks tebal If chkbold.Value = 1 Then     lblteks.FontBold = True Else     lblteks.FontBold = False End If End Sub Private Sub chkitalic_Click() 'membuat teks miring If chkitalic.Value = 1 Then     lblteks.FontItalic = True Else     lblteks.FontItalic = False End If End Sub Private Sub chkstrike_Click() 'membuat teks strikeout If chkstrike.Value = 1 Then     lblteks.FontStrikethru = True Else     lblteks.FontStrikethru = False End If End Sub Private Sub chkunder_Click() 'membuat teks garis bawah If chkunder.Value = 1 Then     lblteks.FontUnderline = True Else     lblteks.FontUnderline = False End If End Sub Private Sub Command1_Click() End End Sub Private Sub Optblue_Click() 'membuat teks berwarna biru lblteks.ForeColor = vbBlue ...
Posting Komentar
Baca selengkapnya

Kacamata Google Glass 2 Meluncur 2019?

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 pengalaman penggunaan dan spesifikasi. Prosesornya bakal lebih mumpuni, begi...
Posting Komentar
Baca selengkapnya