Selasa, 12 Desember 2017
TUGAS 3.3
Private Sub CboKODELAPTOP_Click()
Dim MERK As String
MERK = Mid(CboKODELAPTOP, 7, 5)
If MERK = "MC965" Then
TXTMERK = "Apple MacBook Air MC965"
HARGA = "12800000"
ElseIf MERK = "MC966" Then
TXTMERK = "Apple MacBook Air MC966"
HARGA = "15800000"
ElseIf MERK = "MC968" Then
TXTMERK = "Apple MacBook Air MC968"
HARGA = "9900000"
ElseIf MERK = "MC969" Then
TXTMERK = "Apple MacBook Air MC969"
HARGA = "11900000"
ElseIf MERK = "MC700" Then
TXTMERK = "Apple MacBook Pro MC700"
HARGA = "10800000"
ElseIf MERK = "MC721" Then
TXTMERK = "Apple MacBook Pro MC721"
HARGA = "15900000"
ElseIf MERK = "MC723" Then
TXTMERK = "Apple MacBook Pro MC723"
HARGA = "19300000"
ElseIf MERK = "MC724" Then
TXTMERK = "Apple MacBook Pro MC724"
HARGA = "13700000"
ElseIf MERK = "MC311" Then
TXTMERK = "Apple MacBook Pro MC311"
HARGA = "24200000"
ElseIf MERK = "MC313" Then
TXTMERK = "Apple MacBook Pro MC313"
HARGA = "11900000"
ElseIf MERK = "MC314" Then
TXTMERK = "Apple MacBook Pro MC314"
HARGA = "14700000"
ElseIf MERK = "MC318" Then
TXTMERK = "Apple MacBook Pro MC318"
HARGA = "17600000"
ElseIf MERK = "MC322" Then
TXTMERK = "Apple MacBook Pro MC322"
HARGA = "21300000"
ElseIf MERK = "MC965" Then
TXTMERK = "Apple MacBook Air MC965"
HARGA = "12800000"
ElseIf MERK = "MC966" Then
TXTMERK = "Apple MacBook Air MC966"
HARGA = "15800000"
End If
TXTHS = HARGA
TXTJJ.SetFocus
End Sub
Private Sub Form_Load()
CboKODELAPTOP.AddItem "Apple MC965 MacBook Air"
CboKODELAPTOP.AddItem "Apple MC966 MacBook Air"
CboKODELAPTOP.AddItem "Apple MC968 MacBook Air"
CboKODELAPTOP.AddItem "Apple MC969 MacBook Air"
CboKODELAPTOP.AddItem "Apple MC700 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC721 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC723 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC724 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC311 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC313 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC314 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC318 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC322 MacBook Pro"
CboKODELAPTOP.AddItem "Apple MC965 MacBook Air"
CboKODELAPTOP.AddItem "Apple MC966 MacBook Air"
End Sub
Private Sub HITUNGLAGI_Click()
CboKODELAPTOP = ""
TXTMERK = ""
TXTHS = ""
TXTJJ = ""
TXTHP = ""
TXTDIS = ""
TXTTB = ""
CboKODELAPTOP.SetFocus
End Sub
Private Sub KELUAR_Click()
Unload Me
End Sub
Private Sub PROSES_Click()
Dim HP, DIS, TB As String
HP = Val(TXTJJ) * (TXTHS)
TXTHP = HP
If TXTHP > "140000000" Then
DIS = Val(TXTHP) * 0.15
ElseIf TXTHP > "135000000" Then
DIS = Val(TXTHP) * 0.1
ElseIf TXTHP > "130000000" Then
DIS = Val(TXTHP) * 0.05
ElseIf TXTHP > "125000000" Then
DIS = Val(TXTHP) * 0.02
End If
TXTDIS = DIS
TXTTB = Val(TXTHP) - Val(TXTDIS)
End Sub
Langganan:
Posting Komentar (Atom)
TUGAS 3.7
Private Sub BATAL_Click() TXTNK = "" TXTNIK = "" TXTGOL = "" TXTKS = "" TXTSTS = "" TXTTH...
-
Saat ini, WiFi sudah menjadi kebutuhan primer bagi sebagian besar masyarakat kita. Hal ini tidak lepas dari penggunaan gadget dan aplikasi...
-
STMIK PRINGSEWU – Selasa (22/8) telah dilaksanakan acara Yudisium/Pelepasan Sarjana Komputer dan Profesional A.Md STMIK Pringsewu yan...
-
Hampir semua orang di mudahkan dengan yang namanya teknologi, hampir semua sisi kehidupan kita di isi dengan perangkat teknologi, mulai dar...
Tidak ada komentar:
Posting Komentar