Langsung ke konten utama

TUGAS MK BP1 TUGAS 1.4

Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
Text6 = Val(Text4) * Val(Text5)
Text9 = Val(Text7) - Val(Text8)
Text12 = Val(Text10) / Val(Text11)
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text10.SetFocus
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub


Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

Tren Mode Gelap, Microsoft Malah Siapkan Tema Cerah Windows 10

KOMPAS.com - Jika Google akhir-akhir ini tengah gencar merilis tema gelap untuk aplikasinya, berbeda halnya dengan Microsoft. Raksasa teknologi ini justru menyiapkan sebuah tema cerah dengan warna terang yang dominan untuk sistem operasi Windows 10. Tema cerah atau "light theme" diumumkan Microsoft lewat blog resminya. Tema ini dijanjikan akan hadir pada pembaruan besar Windows 10 berikutnya yakni sekitar bulan April 2019 mendatang. Kendati demikian tema cerah ini sudah dapat dinikmati pengguna lewat Windows Insider. "Sejak kami perkenalkan fitur untuk memilih warna terang dan gelap di Windows 10, kami telah mendengar banyak masukan yang meminta agar dua opsi ini dipisahkan," tulis Microsoft di blog resminya. "Saat Anda memperbarui Windows 10 ke build ini, sistem tidak akan berubah secara otomatis ke tema cerah. Ini karena kami ingin Anda sendiri yang menentukan. Kami meninggalkan pilihan di tangan Anda," imbuh Microsoft. Sesuai dengan namanya, ketika li...
Posting Komentar
Baca selengkapnya

Izin Frekuensi 4G Bolt Terancam Dicabut, Ini Alasannya

JAKARTA, KOMPAS.com - Kondisi operator penyedia layanan internet berbasis 4G LTE, Bolt, tengah berada di ujung tanduk. Izin penggunaan frekuensi di spektrum 2,3 GHz yang digunakan Bolt untuk menggelar 4G LTE besutannya terancam dicabut oleh pemerintah. Hal ini dikemukakan secara langsung oleh Menteri Komunikasi dan Informatika (Kominfo), Rudiantara. Menurut Rudiantara, Kominfo telah melakukan evaluasi terkait kinerja dan kewajiban operator broadband di Indonesia secara berkala. Dari hasil evaluasi inilah pemerintah menyatakan akan bertindak tegas pada PT First Media Tbk. dan PT Internux selaku penyelenggara layanan internet Broadband Wireless Access (BWA) bermerek Bolt. Apa alasannya? Dari evaluasi tersebut diketahui kedua pihak memiliki utang Biaya Hak Penggunaan (BHP) frekuensi pada pemerintah yang harus segera dilunasi sebelum tenggal tanggal 17 November 2018. Baca juga: Menkominfo Tegaskan Bakal Cabut Izin Bolt dan Firstmedia 17 November Tunggakan tersebut mencapai angka keseluru...
Posting Komentar
Baca selengkapnya

China Sudah Sudah Bersiap Gelar Internet 6G

KOMPAS.com - Standardisasi jaringan internet generasi kelima ( 5G) telah rampung pada pertengahan 2018 ini. Implementasinya sendiri diramalkan baru mulai masif tahun depan. Beberapa vendor dan operator telekomunikasi masih dalam proses mematangkan diri mengadopsi teknologi 5G. Namun, China agaknya sudah tak sabar beranjak ke 6G. Saat ini, tim khusus yang menggodok 5G di bawah Kementerian Industri dan Teknologi Informasi China dalam tahap persiapan untuk menghadapi era 6G. Hal ini dikemukakan sang kepala tim, Su Xin. "Penelitian dan pengembangan awal jaringan 6G dimulai 2020," kata dia. Jika semua proses lancar, jaringan 6G ditargetkan mulai komersil pada 2030 mendatang. Menurut Su Xin, kecepatan jaringan internet 6G bisa 10 kali lebih andal ketimbang 5G. Padahal, jaringan 5G saja sudah membawa peradaban baru bagi masyarakat modern dengan memunculkan tren "Internet of Things". Kecepatan rata-ratanya 300 Mbps, tergantung lokasi. Dengan begitu, data 1GB bisa diunduh ...
Posting Komentar
Baca selengkapnya