TUGAS 3.4


Private Sub Command2_Click()
CboKode = ""
txtmerk = ""
Txths = ""
Txtdis = ""
Txthp = ""
Txtjj = ""
Txttb = "" 
End Sub


Private Sub CboKode_Click()
Dim s As String
s = Mid(CboKode, 7, 5)
 If s = "MC965" Then
 txtmerk = "Apple MacBook Pro MC965"
 Txths = "12800000"
 End If
 If s = "MC966" Then
 txtmerk = "Apple MacBook Pro MC966"
 Txths = "15800000"
 End If
 If s = "MC968" Then
 txtmerk = "Apple MacBook Pro MC968"
 Txths = "9900000"
 End If
 If s = "MC969" Then
 txtmerk = "Apple MacBook Pro MC969"
 Txths = "11900000"
 End If
 txtjj.SetFocus 
End Sub

Private Sub Command1_Click()
txthp = Val(txtjj) * Val(Txths)
If txthp > 40000000 Then
txtdis = (0.15) * Val(txthp)
ElseIf txthp > 35000000 Then
txtdis = (0.1) * Val(txthp)
ElseIf txthp > 30000000 Then
txtdis = (0.05) * Val(txthp)
ElseIf txthp > 25000000 Then
txtdis = (0.01) * Val(txthp)
End If
Txttb = Val(txthp) - Val(txtdis)
 End Sub

 
Private Sub Command3_Click()
Unload Me 
End Sub

Private Sub Form_load()
CboKode.AddItem "Apple MC965 MacBook Pro"
CboKode.AddItem "Apple MC966 MacBook Pro"
CboKode.AddItem "Apple MC968 MacBook Pro"
CboKode.AddItem "Apple MC969 MacBook Pro"
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

KAPOLSEK PRINGSEWU “ANJAU SILAU” DENGAN MAHASISWA STMIK PRINGSEWU

Gambar
STMIK PRINGSEWU – Kapolsek Pringsewu Kompol H. Maimun Karim berkunjung ke STMIK Pringsewu, Jum’at (12/2) pagi. Kunjungan tersebut dalam rangka acara “Anjau Silau” (silaturrahmi) antara Kapolsek Pringsewu dengan Mahasiswa STMIK Pringsewu. Acara tersebut sebagai upaya menjalin silaturahmi dan komunikasi antara Mahasiswa STMIK Pringsewu dan aparat kepolisian, Kapolsek Pringsewu Kompol H. Maimun Karim. Acara yang berlangsung di Auditorium Lantai II STMIK Pringsewu didampingi Wakil Ketua III Nur Aminudin, M.T.I, Kepala Jurusan Manajemen Informatika Oktafianto, M.T.I serta Jajaran Polsek Pringsewu. Pada kesempatan itu, Kapolsek Pringsewu Kompol H. Maimun Karim mengatakan, kegiatan Anjau Silau merupakan program silaturahmi dengan mahasiswa yakni mendatangi dan menyambangi mahasiswa. “Tujuannya tidak lain untuk menengok dan bersilaturahmi dengan mahasiswa, sehingga terjalin komunikasi yang baik antara kepolisian dan mahasiswa/Perguruan Tinggi STMIK Pringsewu,” kata Kapo...
Baca selengkapnya

Menyempurnakan Desain, PlayStation Memperbarui Desain Perangkat VR Mereka PSVR

Gambar
 Bersama dengan Oculus dan HTC, PlayStation juga ingin merasakan legitnya kue di industri VR dengan PlayStation VR (PSVR) mereka. Kali ini, setelah setahun bertahan dengan model produk mereka yang lama, kini Sony melakukan pembaruan desain perangkat VR mereka dengan penyempurnaan fitur yang memungkinkan pengguna untuk dapat bergerak lebih bebas dan menikmati konten dengan lebih leluasa. Hal ini dimungkinkan karena Sony telah mengubah desain perkabelan mereka — yang semula ruwet dan tidak praktis — menjadi lebih streamlined di PlayStation VR. Selain itu, model terbaru PSVR ini mendukung teknologi HDR untuk menampilkan konten, jadi kamu tidak perlu repot untuk membongkar pasang perangkat VR ini apabila ingin melihat konten HDR. Menurut kabar, PlayStation VR berdesain baru ini rencananya akan meluncur di Jepang pada tanggal 14 Oktober mendatang dengan banderol harga 44.980 Yen (sekitar, Rp5,4 juta).
Baca selengkapnya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Yogyakarta – Senin (11/9), mahasiswa STMIK Pringsewu mengadakan kunjungan media ke harian Kedaulatan Rakyat. Kunjungan kali ini bertujuan untuk mendapat pengetahuan dari redaksi Kedaulatan Rakyat serta mengetahui proses penerbitan koran di tempat ini dengan jumlah peserta 250 orang meliputi mahasiswa dan dosen pendamping, Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda hari itu dimulai dengan pemberian materi singkat oleh Suci Kedaulatan Rakyat, mengenai sejarah Kedaulatan Rakyat dan proses penerbitan. Kedaulatan Rakyat merupakan salah satu koran tertua di Indonesia. Harian ini berdiri pada tanggal 27 September 1945, artinya Kedaulatan Rakyat sudah seusia dengan negara ini. Pada masa itu, Kedaulatan Rakyat didirikan oleh H. Samawi dan H. Madikin sebagai alat penyambung lidah. Kedaulatan Rakyat merupakan koran lokal Yogyakarta, dan sampai saat ini tidak dijadikan koran nasional. Sebab isi berita da...
Baca selengkapnya