TGAS 4

YENI2

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Cbonpm.Text

Case “14100154”

NAMA = “RIKA YULISTIANI”

JURUSAN = “SISTEM INFORMASI”

Case “14100156”

NAMA = “EFA AFRI KIKI ADEFTI”

JURUSAN = “SISTEM INFORMASI”

Case “14100128”

NAMA = “SHELA RIZKI YULI ARUM”

JURUSAN = ” TEKNIK INFORMATIKA”

Case “14100133”

NAMA = “YULISTA”

JURUSAN = “SISTEM INFORMASI”

Case “14100164”

NAMA = “YENI ANGGRAINI”

JURUSAN = “SISTEM INFORMASI”

Case “14100088”

NAMA = “LOVITA MARTHA TILOVA”

JURUSAN = “SISTEM INFORMASI”

Case “14201018”

NAMA = “AYU DEVITA SARI”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “14100131”

NAMA = “ASIAH”

JURUSAN = “SISTEM INFORMASI”

Case “14100060”

NAMA = “EKA SUSI SURANTI”

JURUSAN = “SISTEM INFORMASI”

Case “14100061”

NAMA = “FITRI SARASWATI”

JURUSAN = “SISTEM INFORMASI”

End Select

Txtnama.Text = NAMA

Txtjurusan.Text = JURUSAN

End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “14100154”

Cbonpm.AddItem “14100156”

Cbonpm.AddItem “14100128”

Cbonpm.AddItem “14100133”

Cbonpm.AddItem “14100164”

Cbonpm.AddItem “14100088”

Cbonpm.AddItem “14201018”

Cbonpm.AddItem “14100131”

Cbonpm.AddItem “14100060”

Cbonpm.AddItem “14100061”

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna.Text = NA

Select Case Txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is > 50

HM = “E”

Case Is < 50

HM = “BL”

End Select

Txthm.Text = HM

End Sub

Private Sub Txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttugas.SetFocus

End If

End Sub

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

YENI3

Private Sub Cbogolongan_Click()

Dim gapok, tunjangan, pajak, total As String

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Public Sub kosong()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

Cbogolongan.Text = “”

End Sub

Private Sub Cmdlagi_Click()

kosong

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

YENI4

Private Sub Cmdproses_Click()

Dim R As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

R = Mid(Txtnpm.Text, 3, 1)

If R = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf R = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf R = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf R = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

R = Mid(Txtnpm.Text, 4, 2)

If R = “01” Then

Txtps.Text = “Strata Satu”

ElseIf R = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf R = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf R = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

YENI6

Private Sub Cbokode_Click()

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Dim R As String

R = Mid(Cbokode.Text, 7, 5)

If R = “MC965” Then

Txtmerk.Text = “Apple MacBook Air MC965”

Txths.Text = 12800000

ElseIf R = “MC966” Then

Txtmerk.Text = “Apple MacBook Air MC966”

Txths.Text = 15800000

ElseIf R = “MC968” Then

Txtmerk.Text = “Apple MacBook Air MC968”

Txths.Text = 9900000

ElseIf R = “MC969” Then

Txtmerk.Text = “Apple MacBook Air MC969”

Txths.Text = 11900000

ElseIf R = “MC700” Then

Txtmerk.Text = “Apple MacBook Pro MC700”

Txths.Text = 10800000

ElseIf R = “MC721” Then

Txtmerk.Text = “Apple MacBook Pro MC721”

Txths.Text = 15900000

ElseIf R = “MC723” Then

Txtmerk.Text = “Apple MacBook Pro MC723”

Txths.Text = 19300000

ElseIf R = “MC724” Then

Txtmerk.Text = “Apple MacBook Pro MC724”

Txths.Text = 13700000

ElseIf R = “MC311” Then

Txtmerk.Text = “Apple MacBook Pro MC311”

Txths.Text = 24200000

ElseIf R = “MC313” Then

Txtmerk.Text = “Apple MacBook Pro MC313”

Txths.Text = 11900000

ElseIf R = “MC314” Then

Txtmerk.Text = “Apple MacBook Pro MC314”

Txths.Text = 14700000

ElseIf R = “MC318” Then

Txtmerk.Text = “Apple MacBook Pro MC318”

Txths.Text = 17600000

ElseIf R = “MC322” Then

Txtmerk.Text = “Apple MacBook Pro MC322”

Txths.Text = 21300000

End If

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

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 Cmdkeluar_Click()

Unload Me

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”

End Sub

YENI7

Private Sub Cbokode_Click()

Dim JENKOM, HARSA As String

Select Case Cbokode.Text

Case “P205”

JENKOM = “Pentium II 500 MegaHz”

HARSA = 1500000

Case “P308”

JENKOM = “Pentium III 800 MegaHz”

HARSA = 2100000

Case “P310”

JENKOM = “Pentium III 1.0 GigaHz”

HARSA = 3500000

Case “P415”

JENKOM = “Pentium IV 1.5 GigaHz”

HARSA = 4000000

Case “P417”

JENKOM = “Pentium IV 1.7 GigaHz”

HARSA = 4200000

Case “P419”

JENKOM = “Pentium IV 1.9 GigaHz”

HARSA = 5500000

Case Else

JENKOM = 0

HARSA = 0

End Select

Txtjk.Text = JENKOM

Txths.Text = HARSA

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

Txthb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txthb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

YENI8

Private Sub Cmdproses_Click()

Dim J As String

J = Mid(Txtkb.Text, 3, 3)

If J = “SIM” Then

Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

Txtp.Text = “YATI NUR OKTAFIA”

Txtharga.Text = “75900”

ElseIf J = “EDP” Then

Txtjb.Text = “ELEKTRONIK DATA PROCESSING”

Txtp.Text = “IMAM TARMIZI”

Txtharga.Text = “62000”

ElseIf J = “MNJ” Then

Txtjb.Text = “MANAJEMEN”

Txtp.Text = “VALINTINA MARIANAN”

Txtharga.Text = “42000”

ElseIf J = “CDR” Then

Txtjb.Text = “COREL DRAW”

Txtp.Text = “SITI FADILAH”

Txtharga.Text = “53000”

ElseIf J = “RPL” Then

Txtjb.Text = “REKAYASA PERANGKAT LUNAK”

Txtp.Text = “SINTA UMPU SINGA”

Txtharga.Text = “83000”

End If

J = Left(Txtkb.Text, 1)

If J = “A” Then

Txtpen.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Txtpen.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Txtpen.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Txtpen.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Txtpen.Text = “MAXICOM”

End If

Txtth.Text = “20” & Right(Txtkb.Text, 2)

End Sub

Private Sub Cmdlagi_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

YENI9

Txtht.Text = 35000

Txtjk.Text = “EKONOMI”

Txtjb.Text = “19.00”

ElseIf A = “MUT” Then

Txtht.Text = 23000

Txtjk.Text = “MUTIARA”

Txtjb.Text = “17.00”

ElseIf A = “SEN” Then

Txtht.Text = 15000

Txtjk.Text = “SENJA”

Txtjb.Text = “20.00”

End If

Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt.Text = “”

Txtht.Text = “”

Txtjk.Text = “”

Txtjb.Text = “”

Txtjt.Text = “”

Txttotalp.Text = “”

End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtjt.SetFocus

End If

End Sub

YENI10

Private Sub Cmdproses_Click()

Dim K As String

K = Mid(txtkb.Text, 1, 3)

If K = “SIM” Then

txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

txtp.Text = “FADIYA ULFA”

txthg.Text = “75900”

ElseIf K = “EDP” Then

txtjb.Text = “ELEKTRONIK DATA PROCESSING”

txtp.Text = “NURUL AGUSTINA”

txthg.Text = “62000”

ElseIf K = “MNJ” Then

txtjb.Text = “MANAJEMEN”

txtp.Text = “RIAN HIDAYAT”

txthg.Text = “42000”

ElseIf K = “CDR” Then

Txjb.Text = “COREL DRAW”

txtp.Text = “SITI NUR KHOTIMAH”

txthg.Text = “53000”

ElseIf K = “RPL” Then

txtjb.Text = “REKAYASA PERANGKAT LUNAK”

txtp.Text = “WINDA ERLIANTI”

txthg.Text = “83000”

End If

K = Right(txtkb.Text, 1)

If K = “A” Then

txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)

End Sub

Private Sub Cmdlagi_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Iklan

TUGAS 4

YENI2

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Cbonpm.Text

Case “14100154”

NAMA = “RIKA YULISTIANI”

JURUSAN = “Sistem Informasi”

Case “14100156”

NAMA = “EFA AFRI KIKI ADEFTI”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “14100128”

NAMA = “SHELA RIZKI YULI ARUM”

JURUSAN = ” TEKNIK INFORMATIKA”

Case “14100133”

NAMA = “YULISTA”

JURUSAN = “SISTEM INFORMASI”

Case “14100164”

NAMA = “YENI ANGGRAINI”

JURUSAN = “SISTEM INFORMASI”

Case “14100088”

NAMA = “LOVITA MARTHA TILOVA”

JURUSAN = “SISTEM INFORMASI”

Case “14201018”

NAMA = “AYU DEVITA SARI”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “14100131”

NAMA = “ASIAH”

JURUSAN = “SISTEM INFORMASI”

Case “14100060”

NAMA = “EKA SUSI SURANTI”

JURUSAN = “SISTEM INFORMASI”

Case “14100061”

NAMA = “FITRI SARASWATI”

JURUSAN = “SISTEM INFORMASI”

End Select

Txtnama.Text = NAMA

Txtjurusan.Text = JURUSAN

Txtquis.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbonpm.AddItem “14100154”

Cbonpm.AddItem “14100156”

Cbonpm.AddItem “14100128”

Cbonpm.AddItem “14100133”

Cbonpm.AddItem “14100164”

Cbonpm.AddItem “14100088”

Cbonpm.AddItem “14201018”

Cbonpm.AddItem “14100131”

Cbonpm.AddItem “14100060”

Cbonpm.AddItem “14100061”

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Txtquis.Text)

TUGAS = Val(Txttugas.Text)

UTS = Val(Txtuts.Text)

UAS = Val(Txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Txtna.Text = NA

Select Case Txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is > 50

HM = “E”

Case Is < 50

HM = “BL”

End Select

Txthm.Text = HM

End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text = “”

Txtnama.Text = “”

Txtjurusan.Text = “”

Txtquis.Text = “”

Txttugas.Text = “”

Txtuts.Text = “”

Txtuas.Text = “”

Txtna.Text = “”

Txthm.Text = “”

End Sub

Private Sub Txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttugas.SetFocus

End If

End Sub

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

YENI3

Private Sub Cbogolongan_Click()

Dim gapok, tunjangan, pajak, total As String

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Public Sub kosong()

Txtnidn.SetFocus

Txtnidn.Text = “”

Txtnama.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

Cbogolongan.Text = “”

End Sub

Private Sub Cmdlagi_Click()

kosong

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

YENI4

Private Sub Cmdproses_Click()

Dim R As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

R = Mid(Txtnpm.Text, 3, 1)

If R = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf R = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf R = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf R = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

R = Mid(Txtnpm.Text, 4, 2)

If R = “01” Then

Txtps.Text = “Strata Satu”

ElseIf R = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf R = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf R = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

YENI6

Private Sub Cbokode_Click()

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Dim R As String

R = Mid(Cbokode.Text, 7, 5)

If R = “MC965” Then

Txtmerk.Text = “Apple MacBook Air MC965”

Txths.Text = 12800000

ElseIf R = “MC966” Then

Txtmerk.Text = “Apple MacBook Air MC966”

Txths.Text = 15800000

ElseIf R = “MC968” Then

Txtmerk.Text = “Apple MacBook Air MC968”

Txths.Text = 9900000

ElseIf R = “MC969” Then

Txtmerk.Text = “Apple MacBook Air MC969”

Txths.Text = 11900000

ElseIf R = “MC700” Then

Txtmerk.Text = “Apple MacBook Pro MC700”

Txths.Text = 10800000

ElseIf R = “MC721” Then

Txtmerk.Text = “Apple MacBook Pro MC721”

Txths.Text = 15900000

ElseIf R = “MC723” Then

Txtmerk.Text = “Apple MacBook Pro MC723”

Txths.Text = 19300000

ElseIf R = “MC724” Then

Txtmerk.Text = “Apple MacBook Pro MC724”

Txths.Text = 13700000

ElseIf R = “MC311” Then

Txtmerk.Text = “Apple MacBook Pro MC311”

Txths.Text = 24200000

ElseIf R = “MC313” Then

Txtmerk.Text = “Apple MacBook Pro MC313”

Txths.Text = 11900000

ElseIf R = “MC314” Then

Txtmerk.Text = “Apple MacBook Pro MC314”

Txths.Text = 14700000

ElseIf R = “MC318” Then

Txtmerk.Text = “Apple MacBook Pro MC318”

Txths.Text = 17600000

ElseIf R = “MC322” Then

Txtmerk.Text = “Apple MacBook Pro MC322”

Txths.Text = 21300000

End If

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

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 Cmdkeluar_Click()

Unload Me

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”

End Sub

YENI7

Private Sub Cbokode_Click()

Dim JENKOM, HARSA As String

Select Case Cbokode.Text

Case “P205”

JENKOM = “Pentium II 500 MegaHz”

HARSA = 1500000

Case “P308”

JENKOM = “Pentium III 800 MegaHz”

HARSA = 2100000

Case “P310”

JENKOM = “Pentium III 1.0 GigaHz”

HARSA = 3500000

Case “P415”

JENKOM = “Pentium IV 1.5 GigaHz”

HARSA = 4000000

Case “P417”

JENKOM = “Pentium IV 1.7 GigaHz”

HARSA = 4200000

Case “P419”

JENKOM = “Pentium IV 1.9 GigaHz”

HARSA = 5500000

Case Else

JENKOM = 0

HARSA = 0

End Select

Txtjk.Text = JENKOM

Txths.Text = HARSA

Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)

If Txthp.Text >= 15000000 Then

Txtdis.Text = Val(Txthp.Text) * 2 / 100

ElseIf Txthp.Text <= 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 5 / 100

ElseIf Txthp.Text <= 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 10 / 100

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 15 / 100

End If

Txthb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txthb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

YENI8

Private Sub Cmdproses_Click()

Dim J As String

J = Mid(Txtkb.Text, 3, 3)

If J = “SIM” Then

Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

Txtp.Text = “YATI NUR OKTAFIA”

Txtharga.Text = “75900”

ElseIf J = “EDP” Then

Txtjb.Text = “ELEKTRONIK DATA PROCESSING”

Txtp.Text = “IMAM TARMIZI”

Txtharga.Text = “62000”

ElseIf J = “MNJ” Then

Txtjb.Text = “MANAJEMEN”

Txtp.Text = “VALINTINA MARIANAN”

Txtharga.Text = “42000”

ElseIf J = “CDR” Then

Txtjb.Text = “COREL DRAW”

Txtp.Text = “SITI FADILAH”

Txtharga.Text = “53000”

ElseIf J = “RPL” Then

Txtjb.Text = “REKAYASA PERANGKAT LUNAK”

Txtp.Text = “SINTA UMPU SINGA”

Txtharga.Text = “83000”

End If

J = Left(Txtkb.Text, 1)

If J = “A” Then

Txtpen.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Txtpen.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Txtpen.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Txtpen.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Txtpen.Text = “MAXICOM”

End If

Txtth.Text = “20” & Right(Txtkb.Text, 2)

End Sub

Private Sub Cmdlagi_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

Txtkb.SetFocus

Txtjb.Text = “”

Txtp.Text = “”

Txtth.Text = “”

Txtpen.Text = “”

Txtharga.Text = “”

Txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

YENI9

Txtht.Text = 35000

Txtjk.Text = “EKONOMI”

Txtjb.Text = “19.00”

ElseIf A = “MUT” Then

Txtht.Text = 23000

Txtjk.Text = “MUTIARA”

Txtjb.Text = “17.00”

ElseIf A = “SEN” Then

Txtht.Text = 15000

Txtjk.Text = “SENJA”

Txtjb.Text = “20.00”

End If

Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt.Text = “”

Txtht.Text = “”

Txtjk.Text = “”

Txtjb.Text = “”

Txtjt.Text = “”

Txttotalp.Text = “”

End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtjt.SetFocus

End If

End Sub

YENI10

Private Sub Cmdproses_Click()

Dim K As String

K = Mid(txtkb.Text, 1, 3)

If K = “SIM” Then

txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

txtp.Text = “FADIYA ULFA”

txthg.Text = “75900”

ElseIf K = “EDP” Then

txtjb.Text = “ELEKTRONIK DATA PROCESSING”

txtp.Text = “NURUL AGUSTINA”

txthg.Text = “62000”

ElseIf K = “MNJ” Then

txtjb.Text = “MANAJEMEN”

txtp.Text = “RIAN HIDAYAT”

txthg.Text = “42000”

ElseIf K = “CDR” Then

Txjb.Text = “COREL DRAW”

txtp.Text = “SITI NUR KHOTIMAH”

txthg.Text = “53000”

ElseIf K = “RPL” Then

txtjb.Text = “REKAYASA PERANGKAT LUNAK”

txtp.Text = “WINDA ERLIANTI”

txthg.Text = “83000”

End If

K = Right(txtkb.Text, 1)

If K = “A” Then

txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)

End Sub

Private Sub Cmdlagi_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdbatal_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

TUGAS 3

TUGAS 1

YENI 1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

TUGAS 2

YENI 1

Private Sub cmdhitung_Click()

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub cmdulangi_Click()

txtha.SetFocus

txtha.Text = “”

Txtdis.Text = “”

txthak.Text = “”

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis.Text = Val(txtha) * 0.1

txthak.Text = Val(txtha) – Val(Txtdis)

End If

End Sub

TUGAS 3

YENI 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

TUGAS 4

YENI 1

Private Sub Cmdproses_Click()

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End Sub

Private Sub cmdulangi_Click()

txtgp.SetFocus

txtgp = “”

txttun = “”

txtpot = “”

txtgk = “”

txtpjk = “”

txtgd = “”

End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttun.SetFocus

End If

End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)

txtpjk.Text = Val(txtgk) * 0.1

txtgd.Text = Val(txtgk) – Val(txtpjk)

End If

End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

TUGAS 5

YENI 2

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End Sub

Private Sub lbltext_Change()

lbltext.Text = Text1.Text

End Sub

Private Sub Text1_Change()

End Sub

‘membuat teks tebal

If Chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub chhitalic_click()

‘membuat teks miring

If Chhitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub Chkstrikeout_Click()

‘membuat teks bergaris tengah

If Chkstrikeout.Value = 1 Then

lbltext.Fontstrikeout = True

Else

lbltext.Fontstrikeout = False

End If

End Sub

Private Sub Chkunderline_Click()

‘membuat teks bergaris bawah

If Chkunderline.Value = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Optblue_Click()

‘membuat teks biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub Optgreed_Click()

‘membuat teks hijau

lbltext.ForeColor = vbGreen

End Sub

Private Sub OptRED_Click()

‘membuat teks merah

lbltext.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()

‘membuat teks kuning

lbltext.ForeColor = vbYellow

End Sub

TUGAS 6

YENI WRNA

Private Sub chkitalic_Click()

‘membuat teks miring

If chkitalic.Value = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub cmdok_Click()

lbltext.Text = Val(Text1.Text)

End Sub

Private Sub cmdselesai_Click()

End

End Sub

Private Sub optblue_Click()

‘membuat teks berwarna biru

lbltext.ForeColor = vbBlue

End Sub

Private Sub chkbold_Click()

‘membuat teks tebal

If chkbold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub optred_Click()

‘membuat teks berwarna merah

lbltext.ForeColor = vbRed

End Sub

Private Sub lbltext_Change()

lbltext.Text = Text1.Text

End Sub

Private Sub Text1_Change()

End Sub

TUGAS 2

Yeni anggraeni
Private Sub Command1_Click()
Text9.Text = Val(Text1.Text) + Val(Text5.Text)
Text10.Text = Val(Text2.Text) – Val(Text6.Text)
Text11.Text = Val(Text3.Text) * Val(Text7.Text)
Text12.Text = Val(Text4.Text) / Val(Text8.Text)
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub
Private Sub text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub
Private Sub text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub
Private Sub text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub

TUGAS 2

YENI2
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub