Tugas 3.1






Private Sub cbokode_Click()
Dim merk, harga, hm As String
Select Case cbokode.Text
Case "Aplle MC965 MacBook Air"
merk = "Aplle MacBook Air MC965"
harga = "12800000"
Case "Aplle MC966 MacBook Air"
merk = "Aplle MacBook Air MC966"
harga = "15800000"
Case "Aplle MC968 MacBook Air"
merk = "Aplle MacBook Air MC968"
harga = "9900000"
Case "Aplle MC969 MacBook Air"
merk = "Aplle MacBook Air MC969"
harga = "11900000"
Case "Aplle MC700 MacBook Pro"
merk = "Aplle MacBook Pro MC700"
harga = "10800000"
Case "Aplle MC721 MacBook Pro"
merk = "Aplle MacBook Pro MC721"
harga = "15900000"
Case "Aplle MC723 MacBook Pro"
merk = "Aplle MacBook Pro MC723"
harga = "19300000"
Case "Aplle MC724 MacBook Pro"
merk = "Aplle MacBook Pro MC724"
harga = "13700000"
Case "Aplle MC311 MacBook Pro"
merk = "Aplle MacBook Pro MC311"
harga = "24200000"
Case "Aplle MC313 MacBook Pro"
merk = "Aplle MacBook Pro MC313"
harga = "11900000"
Case "Aplle MC314 MacBook Pro"
merk = "Aplle MacBook Pro MC314"
harga = "14700000"
Case "Aplle MC318 MacBook Pro"
merk = "Aplle MacBook Pro MC318"
harga = "17600000"
Case "Aplle MC322 MacBook Pro"
merk = "Aplle MacBook Pro MC322"
harga = "21300000"
End Select
txtmerk.Text = merk
txths.Text = harga
txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txthp.Text = ""
txtdis.Text = ""
txttb.Text = ""

End Sub

Private Sub cmdproses_Click()
Dim s, disc As String
s = Mid(cbokode, 7, 5)
If s = "MC965" Then
txtmerk = "Aplle MacBook Air MC965"
txths = "12800000"
ElseIf s = "MC966" Then
txtmerk = "Aplle MacBook Air MC966"
txths = "15800000"
ElseIf s = "MC968" Then
txtmerk = "Aplle MacBook Air MC968"
txths = "9900000"
ElseIf s = "MC969" Then
txtmerk = "Aplle MacBook Air MC969"
txths = "11900000"
ElseIf s = "MC700" Then
txtmerk = "Aplle MacBook Pro MC700"
txths = "10800000"
ElseIf s = "MC700" Then
txtmerk = "Aplle MacBook Pro MC721"
txths = "15900000"
ElseIf s = "MC723" Then
txtmerk = "Aplle MacBook Pro MC723"
txths = "19300000"
ElseIf s = "MC724" Then
txtmerk = "Aplle MacBook Pro MC724"
txths = "13700000"
ElseIf s = "MC311" Then
txtmerk = "Aplle MacBook Pro MC311"
txths = "24200000"
ElseIf s = "MC313" Then
txtmerk = "Aplle MacBook Pro MC313"
txths = "11900000"
ElseIf s = "MC314" Then
txtmerk = "Aplle MacBook Pro MC314"
txths = "14700000"
ElseIf s = "MC318" Then
txtmerk = "Aplle MacBook Pro MC318"
txths = "17600000"
ElseIf s = "MC322" Then
txtmerk = "Aplle MacBook Pro MC322"
txths = "21300000"
End If
txthp = Val(txths) * Val(txtjj)

Select Case txthp.Text
Case Is > 140000000
disc = 0.15 * Val(txthp)
Case Is > 135000000
disc = 0.1 * Val(txthp)
Case Is > 130000000
disc = 0.05 * Val(txthp)
Case Is > 12500000
disc = 0.02 * Val(txthp)
End Select
txtdis.Text = disc
txttb = txthp - disc

End Sub

Private Sub Form_Load()
cbokode.AddItem "Aplle MC965 MacBook Air"
cbokode.AddItem "Aplle MC966 MacBook Air"
cbokode.AddItem "Aplle MC968 MacBook Air"
cbokode.AddItem "Aplle MC69 MacBook Air"
cbokode.AddItem "Aplle MC700 MacBook Pro"
cbokode.AddItem "Aplle MC721 MacBook Pro"
cbokode.AddItem "Aplle MC723 MacBook Pro"
cbokode.AddItem "Aplle MC724 MacBook Pro"
cbokode.AddItem "Aplle MC311 MacBook Pro"
cbokode.AddItem "Aplle MC313 MacBook Pro"
cbokode.AddItem "Aplle MC314 MacBook Pro"
cbokode.AddItem "Aplle MC318 MacBook Pro"
cbokode.AddItem "Aplle MC322 MacBook Pro"

End Sub


Private Sub txthp_Click()
txthp = Val(txtjj.Text) * Val(txths.Text)
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

Looping Dan contoh dalam aplikasi java

                                         LOOPING (PERULANGAN) ~Looping jika jabarkan lagi berasal dari kata Loop, artinya lingkaran. Lingkaran memiliki ciri melingkar yang memiliki arti kembali lagi, mengulang. ~Looping artinya Perulangan, dari arti ini kita dapat mengamil point awal yaitu looping adalah perulangan. Perulangan seperti apa? Jadi,Looping adalah Suatu intruksi untuk membentuk aksi kerja secara berulang pada blok yang sama, dimana didalam blok yang akan diulang ada terdapat statement atau pernyataan. Contoh looping dalam pengaplikasian Java 1.      Buatlah program untuk menerima input bilangan bulat positif n dan menampilkan n bilangan bulat positif pertama yang habis dibagi 3 tetapi tidak habis dibagi 2. Contoh : Input = 5 Output = 3 9 15 21 27 Jawab : import java.util.Scanner; /**  * @author user  */ public class s {  /...
Baca selengkapnya

CONTOH TEKNOLOGI INFORMASI

CONTOH TEKNOLOGI INFORMASI Teknologi informasi tak selalu berupa barang-barang elektronik, bisa juga berupa barang yang tak membutuhkan energi listrik namun tetap bisa menjalankan fungsinya untuk menyampaikan pesan kepada orang lain. Media cetak biasanya hanya menyampaikan pesan berupa tulisan dan gambar. 1.    Media Cetak Contoh teknologi informasi yang pastinya sudah sangat dikenal banyak orang adalah media cetak. Media ini termasuk teknologi informasi karena memiliki fungsi untuk membuat, mengubah, menyimpan, atau menyebarkanpesan kepada banyak orang.   *      Surat kabar. Surat kabar atau koran adalah media cetak yang sampai saat ini masih diminati banyak orang sekalipun informasi bisa didapat dengan mudah lewat media elektronik. Surat kabar berisi beragam pesan atau berita yang bisa dibaca oleh siapa saja, mulai dari politik, ekonomi, hingga berita hiburan. *     Majalah. Majalah adalah salah satu teknologi informasi yang tergolong ke d...
Baca selengkapnya