tugas 2.2 bahasapemrogaman 1

Private Sub HargaAwal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
HargaAwal.SetFocus
Diskon = Val(HargaAwal) * 0.1
HargaAkhir = Val(HargaAwal) - Val(Diskon)
End If
End Sub

Private Sub Hitung_Click()
Diskon = Val(HargaAwal) * 0.1
HargaAkhir = Val(HargaAwal) - Val(Diskon)
End Sub

Private Sub Ulangi_Click()
HargaAwal.SetFocus
HargaAwal = ""
Diskon = ""
HargaAkhir = ""
End Sub

Private Sub Keluar_Click()
End
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Huawei tidak mau ketinggalan dalam mengembangkan teknologi augmented reality (AR). Raksasa teknologi China itu mengonfirmasi bahwa pihaknya akan merancang aksesori kacamata dengan teknologi Augmented Reality (AR). Dalam wawancara dengan CNBC, CEO Huawei, Richard Yu menyatakan perusahaannya saat ini sedang mengembangkan aksesori kacamata AR dan mengklaim alat itu akan memberikan pengalaman AR yang berbeda kepada pengguna. "Dengan alat (AR) ini, pengguna bisa menggunakannya bersama-sama dengan ponsel, dan memungkinkan mereka melihat area yang terjangkau AR dengan lebih luas" sebut Yu saat diwawancara, dikutip KompasTekno, Senin (19/11/2018). "Mungkin awalnya (saat ini) teknologi AR terasa kurang menonjol. Tapi di masa depan, nilai fungsional AR akan semakin terlihat." tambahnya. Sebagai informasi, Augmented Reality (AR), atau realitas yang ditambahkan, adalah teknologi yang menggabungkan benda maya dua dimensi dan ataupun tiga dimensi ke dalam sebuah lingkungan ny...
Baca selengkapnya
BOCORAN JADWAL RILIS DAN HARGA PONSEL LAYAR LIPAT SAMSUNG Pekan lalu, setelah sempat dirumorkan selama bertahun-tahun, Samsung akhirnya memamerkan ponsel layar lipatnya ke publik. Namun sang raksasa Korea Selatan itu masih belum mengungkapkan kapan sang perangkat dengan layar Infinity Flex Display ini bakal hadir di pasaran. Belakangan muncul bocoran yang mengatakan bahwa Samsung akan mengumumkan perkembangan lebih jauh dari ponsel layar lipatnya pada gelaran Mobile World Congress 2019, akhir Februari tahun depan. Bos Samsung Mobile, DJ Koh, pekan ini sempat menyatakan pihaknya bakal membuat paling tidak 1 juta unit ponsel layar lipat untuk tahap awal. Jumlah lebih banyak bisa dibuat, tapi Samsung akan menilai respon pasar dulu. Kemudian, seperti dirangkum KompasTekno dari Yonhap,Rabu (14/11/2018), Samsung diprediksi akan merilis ponsel layar lipat tak lama setelahnya, pada bulan Maret 2018. Bocoran yang sama turut memuat informasi harga ponsel layar lipat Samsung. Banderolnya...
Baca selengkapnya

3.1

Gambar
Private Sub cbokode_Click() Dim merk, harga, hm As Integer Select Case cbokode.Text Case "Apple MC965 MacBook Air" merk = "Apple MacBook Air MC965" harga = "12800000" Case "Apple MC966 MacBook Air" merk = "Apple MacBook Air MC966" harga = "15800000" Case "Apple MC968 MacBook Air" merk = "Apple MacBook Air MC968" harga = "9900000" Case "Apple MC969 MacBook Air" merk = "Apple MacBook Air MC969" harga = "11900000" Case "Apple MC700 MacBook Pro" merk = "Apple MacBook Pro MC700" harga = "10800000" Case "Apple MC721 MacBook Pro" merk = "Apple MacBook Pro MC721" harga = "15900000" Case "Aplle MC723 MacBook Pro" merk = "Apple MacBook Pro MC723" harga = "19300000" Case "Apple MC724 MacBook Pro" merk = "Apple MacBook Pro MC724" harga = ...
Baca selengkapnya