TUGAS 3.4 BP1



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

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 Cmdproses_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 Cmdhitung_Click()
CboKode = ""
txtmerk = ""
Txths = ""
Txthp  = ""
Txtdis = ""
 Txttb = ""
Txtjj = ""
End Sub 

Private Sub CmdKeluar_Click()
Unload me 
End sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Tutorial

Gambar
TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya didasarkan pada perbedaan derajat keabuan citra. Berikut Ini adalah tatacara pembuatan Thresholding citra digital menggunakan program matlab. 1.       Langkah awal dengan cara pilih menu home, pilih menu New kemudian pilih Graphical User Interface. Setelah muncul kita pilih Creat New GUI pilih black GUI(Default) Kemudian Klik OK. Gambar 1 2.       Langkah Kedua kita membuat desain tampilan yang kita inginkan, atau bisa mengikuti gambar berikut. Gambar 2 Berikut yang perlu diubah dalam komponen komponen yang tersedia di gambar 2. No. Nama Komponen Property Nilai 1 Pushbutton String Open Image Tag Pushbutton1 2 Pushbutton String Grayscal...
Baca selengkapnya

Teknologi Yang Akan Menjadi Tren Di Tahun 2017

Gambar
10 Teknologi yang Akan Menjadi Tren di Tahun 2017   Share     Share     Tweet Gartner , perusahaan riset teknologi informasi, telah mengungkapkan  prediksi teknologi  yang akan menjadi tren di tahun 2017. Tahukah kamu,  Artificial Intelligence  alias kecerdasan buatan (AI) dan  Advance Machine Learning memuncaki urutan paling atas. Seperti yang kamu lihat, perusahaan teknologi raksasa seperti Google, Microsoft, Facebook, Apple, dan Amazon, mereka berlomba-lomba mengembangkan algoritma berbasis kecerdasan buatan. Contoh yang terbaru adalah  ponsel Google Pixel  yang dilengkapi  Google Assistant . Lebih lanjut, berikut 10 tren teknologi industri 2017 menurut prediksi  Gartner . Baca Juga: Keren! Inilah 4 Teknologi Masa Depan yang Sudah Ada di Tahun 2016 Teknologi Dual Camera di Smartphone Android, Buat Apa? 11 Teknologi Dulu VS Sekarang, Nomer 6 Bikin Shock! ...
Baca selengkapnya

STMIK PRINGSEWU GELAR UPACARA HARI SUMPAH PEMUDA YANG KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA

Gambar
STMIK PRINGSEWU GELARA UPACARA HARI SUMPAH PEMUDA KE 89 BERSAMA MENWA, BEM SERTA MAHASISWA Written by  admin   |   October 28, 2017   |   0 STMIK PRINGSEWU  — Setiap kali memperingati hari Sumpah Pemuda, semua stake holder berbondong-bondong menggelar berbagai acara, salah satunya yang dilakukan civitas akademik STMIK Pringsewu dengan menggelar Upacara Hari Sumpah Pemuda ke 89 di halaman kampus setempat, Sabtu (28/10). Nur Aminudin  selaku Inspektur Upacara mengatakan, dihari Sumpah Pemuda yang ke-89 pada tahun 2017 ini, Resimen Mahasiswa dan rekan-rekan dari BEM, Mahasiswa, dan Pimpinan Perguruan Tinggi STMIK Pringsewu beserta Staff dan jajarannya memperingati hari Sumpah Pemuda dengan melaksanakan upacara pengibaran Bendera di halaman kampus setempat. Beliau juga menegaskan bahwa sumpah pemuda merupakan satu tonggak utama dalam sejarah pergerakan kemerdekaan bangsa Indone...
Baca selengkapnya