Postingan

tugas 1.5

Gambar
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 Command2_Click() Text2.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text11.SetFocus End If End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text12 = Val(Text10) / Val(Text11) End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3 = Val(Text1) * Val(Text2) End If...

tugas 1.4

Gambar
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 Command2_Click() Text2.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" End Sub Private Sub Command3_Click() End End Sub

tugas 1.3

Gambar
Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text2.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End 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 Text3 = Val(Text1) * Val(Text2) End If End Sub

tugas 1.2

Gambar
Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text2.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub

tugas 1.1

Gambar
Private Sub Command1_Click() Text2.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End 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 Text2.SetFocus End If End Sub
CHIP SNAPDRAGON 8150 UNGGULI CHIP HUAWEI MATE 20 PRO DAN IPHONE XS Belum resmi meluncur, hasil benchmark SoC (system on chip) terbaru Qualcomm, Snapdragon 8150 sudah muncul. Skor Benchmark itu unggul dari chip Huawei Kirin 980 di Mate 20 pro dan Apple A12 Bionic yang tertanam di iPhone XS, XS Max, dan XR. Angka benchmark Snapdragon 8150 (bakal calon Snapdragon 855) tampil di sebuah screenshot AnTuTu, platform penguji perfroma ponsel, yang terlihat mencapai angka rerata 362.292 poin. Skor ini melibas chip pesaingnya, yaitu Huawei Kirin 980 yang menyabet skor 273.913, serta A12 Bionic bikinan Apple yang duduk dengan skor rerata 353.210, kalah tipis dari Snapdragon 8150. Skor benchmark AnTuTu Snapdragon 8150 Menurut sumber terpercaya yang menyebar screenshot AnTuTu ini di Weibo, jejaring sosial China, Snapdragon 8150 yang difabrikasi dengan teknologi 7 nanometer (nm) ini akan datang dengan konfigurasi prosesor unik. Chip dengan modem 5G itu disebut memiliki 8 inti pemrosesan (co...
GALAXY S10 DENGAN KONEKSI 5G MELUNCUR MARET 2019? Selain ponsel lipat Galaxy F, flagship Galaxy S10 dari Samsung juga sedang dinanti. Galaxy S10 akan menjadi edisi spesial ulang tahun Galaxy, dan kabarnya salah satu model akan mengusung konektivitas 5G. Samsung memang belum secara resmi mengumumkan kapan ponsel itu akan diluncurkan. Namun sumber dalam mengatakan, jika lini Galaxy S10 sekaligus purwarupa ponsel lipat akan diperkenalkan ke publik pada Februari 2019, bertepatan dengan acara Mobile World Congress 2019 di Barcelona. Kemudian Galaxy S10 dengan koneksi 5G dan ponsel lipat Galaxy F akan dirilis pada bulan Maret. Dilihat dari riwayat peluncuran flagship Galaxy sebelumnya, lini Galaxy S biasanya akan meluncur pada kuartal pertama. Apalagi, Samsung juga mengonfirmasi jika Galaxy F akan dirilis sebelum Juli 2019. Sebagaimana dilansir KompasTekno dari Phone Arena, Rabu (14/11/2018), lini Galaxy S10 diprediksi akan membawa beberapa inovasi baru. Seperti layar yang semakin leg...