Langsung ke konten utama

TUGAS 3.3


Private Sub cbokode_Click()
Dim merk As String
merk = Mid(cbokode, 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 cmdkeluar_Click()
End
End Sub

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

Private Sub cmdproses_Click()
Dim harga, dis, total As String
harga = Val(txtjj) * (txths)
txthp = harga
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

Private Sub Form_Load()
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"
cbokode.AddItem "Apple MC965 MacBook Air"
cbokode.AddItem "Apple MC966 MacBook Air"
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS 3.5

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkt, 3) If B = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "16.00" ElseIf B = "EKO" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "19.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "MUTIARA" txtjb = "17.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "SENJA" txtjb = "20.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * (txtjt) End If End Sub
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU – PELATIHAN TABLE MANNER

STMIK PRINGSEWU – Sabtu (7/10), mahasiswa jurusan sistem informasi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melaksanakan kegiatan table manner di hotel bukit randu lampung. Pengetahuan table manner bagi mahasiswa sangat penting untuk menambah pengetahuan dan pengalaman, hal ini juga merupakan proses pengembangan diri mahasiswa yang diintegrasikan dalam Mata Kuliah Character Building. Program table manner tersebut, agar para mahasiswa dapat mengetahui praktek dan pengalaman tata cara makan yang baik secara langsung, mahasiswa yang telah mengikuti program tersebut, nantinya dapat dipraktekan dengan baik dalam jamuan makan. Sudewi, M.M selaku dosen mata kuliah Character Building dan selaku dosen pendamping mengatakan, program studi sistem informasi kelas line 6 Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu mengasah skill mahasiswanya melalui tabel manner. Tabel manner itu adalah aturan etika yang dipergunakan pada
Posting Komentar
Baca selengkapnya

TUGAS1.1

Private Sub BATAL_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() TXTNPM = "" TXTNAMA = "" TXTALAMAT = "" TXTNPM.SetFocus End Sub
Posting Komentar
Baca selengkapnya