Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.1


Private Sub Cbokode_Click()
Dim merk, harga As String

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 "Apple MC723 MacBook Pro"
merk = "Apple MacBook Pro MC723"
harga = "19300000"

Case "Apple MC724 MacBook Pro"
merk = "Apple MacBook Pro MC724"
harga = "13700000"

Case "Apple MC311 MacBook Pro"
merk = "Apple MacBook Pro MC311"
harga = "24200000"

Case "Apple MC313 MacBook Pro"
merk = "Apple MacBook Pro MC313"
harga = "11900000"

Case "Apple MC314 MacBook Pro"
merk = "Apple MacBook Pro MC314"
harga = "14700000"

Case "Apple MC318 MacBook Pro"
merk = "Apple MacBook Pro MC318"
harga = "17600000"

Case "Apple MC322 MacBook Pro"
merk = "Apple MacBook Pro MC322"
harga = "21300000"


End Select
Txtmerk.Text = merk
Txths.Text = harga
Txtjj.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttotal = ""
End Sub

Private Sub cmdProses_Click()
Dim dis As String
Txthp = Val(Txtjj) * Val(Txths)

Select Case Txthp.Text
Case Is > 140000000
dis = Val(Txthp) * 0.15
Case Is > 135000000
dis = Val(Txthp) * 0.1
Case Is > 130000000
dis = Val(Txthp) * 0.05
Case Is > 120000000
dis = Val(Txthp) * 0.02
End Select
Txtdis.Text = dis

Txttotal = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Txtmerk.Enabled = False
Txths.Enabled = False
Txthp.Enabled = False
Txtdis.Enabled = False
Txttotal.Enabled = False

Cbokode.AddItem "Apple MC965 MacBook Air"
Cbokode.AddItem "Apple MC966 MacBook Air"
Cbokode.AddItem "Apple MC968 MacBook Air"
Cbokode.AddItem "Apple MC969 MacBook Air"
Cbokode.AddItem "Apple MC700 MacBook Pro"
Cbokode.AddItem "Apple MC721 MacBook Pro"
Cbokode.AddItem "Apple MC723 MacBook Pro"
Cbokode.AddItem "Apple MC724 MacBook Pro"
Cbokode.AddItem "Apple MC311 MacBook Pro"
Cbokode.AddItem "Apple MC313 MacBook Pro"
Cbokode.AddItem "Apple MC314 MacBook Pro"
Cbokode.AddItem "Apple MC318 MacBook Pro"
Cbokode.AddItem "Apple MC322 MacBook Pro"

End Sub

Label

Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

MAHASISWA STMIK PRINGSEWU GELAR BAZAR

STMIK PRINGSEWU  – Sabtu (31/3), Mahasiswa Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menggelar bazar kewirausahaan di Pendopo Pringsewu yang beralamat di Jalan Jenderal Sudirman, Pringsewu Barat, Pringsewu, Kabupaten Pringsewu. Bazar kewirausahaan tersebut dibuka Dedi Irawan selaku dosen pengampu mata kuliah Kewirausahaan, beliau mengatakan, kami selaku dosen sangat mengapresiasi kegiatan positif ini. Bazar ini tujuannya adalah untuk membina silahturahmi dalam suasana yang berbeda dan menumbuhkan semangat kewirausahaan. Konsep kewirausahaan juga merupakan program Pemerintah yang sedang dilaksanakan saat ini. Bagaimana menumbuhkan kewirausahaan itu disemua lini termasuk mahasiswa. Karena mahasiswa nanti orientasinya setelah lulus tidak hanya mencari pekerjaan tapi mereka bisa menciptakan lapangan pekerjaan sendiri, selain itu kegiatan tersebut merupakan rangkain kegiatan yang dilakukan dalam rangka HUT Kabupaten Pringsewu ke-9, ucapnya. Sementa...
Posting Komentar
Baca selengkapnya

Belajar Java: Perulangan / Looping dengan Bahasa Java dan Contohnya

Apa yang akan kita lakukan bila ingin menyuruh komputer mengerjakan perintah yang berulang-ulang? Misalkan kita ingin menyuruh komputer menampilkan teks  BenyStmik sebanyak 5x. Maka kita bisa menyuruhnya seperti ini: System . out . println ( "BenyStmik " ); System . out . println ( " BenyStmik " ); System . out . println ( " BenyStmik " ); System . out . println ( " BenyStmik " ); System . out . println ( " BenyStmik " ); Tapi… bagaimana kalau sebanyak 1000x, apa kita akan mampu mengetik kode sebanyak itu? Tentunya tidak. Karena itu, kita harus pakai perulangan.   Contoh perulangan: for ( int hitungan = 0 ; hitungan <= 1000 ; hitungan ++ ) {     System . out . println ( " BenyStmik " ); } Sebelum masuk ke pembahasan lebih dalam, ada hal yang harus kalian ketahui terlebih dahulu. Looping jika jabarkan lagi berasal dari kata Loop, artinya lingkaran. Lingkaran memiliki ciri m...
Posting Komentar
Baca selengkapnya

TUGAS MK BP1 TUGAS 2.2

Private Sub cmdhitung_Click() Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(teks2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdulangi_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(teks2) End If End Sub
Posting Komentar
Baca selengkapnya