tugas IV

tugas 1.1-1.2

TGS ayuu 2.1

Private Sub Cbonpm_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Cbonpm.Text

Case “14100131”

NAMA = “ASIAH”

JURUSAN = “Sistem Informasi”

Case “14100133”

NAMA = “Yulista”

JURUSAN = “Sistem Informasi”

Case “14100165”

NAMA = “siti asiah”

JURUSAN = “Sistem Informasi”

Case “14201007”

NAMA = “umi umayah”

JURUSAN = “Sistem Informasi”

Case “14100132”

NAMA = “yeni lestari”

JURUSAN = “Sistem Informasi”

Case “14201002”

NAMA = “fitriana”

JURUSAN = “Sistem Informasi”

Case “14100159”

NAMA = “yanti afrilda”

JURUSAN = “Sistem Informasi”

Case “14100162”

NAMA = “Abi kurniawan”

JURUSAN = “Sistem Informasi”

Case “141201018”

NAMA = “Ayu devita sari”

JURUSAN = “manajemen informasi”

Case “14100161”

NAMA = “isma robby”

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 “14100131”

Cbonpm.AddItem “14100133”

Cbonpm.AddItem “14100165”

Cbonpm.AddItem “14201007”

Cbonpm.AddItem “14100132”

Cbonpm.AddItem “14201002”

Cbonpm.AddItem “14100159”

Cbonpm.AddItem “14100162”

Cbonpm.AddItem “141201018”

Cbonpm.AddItem “14100161”

End Sub

tugas 3

TUGAS 3

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

tugas 4

TGAS 4 AYUUUU

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

tugas 6

AYU 6

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

tugas 7

TGAS AYU 7

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

tugas 8

TUGAS 8 AYU

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

tugas 9

TUGAS 9

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

tugas 10

10 AYU

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 3

ayu

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

txtdis.Text = Val(txtha) * 0.1

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

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 2

ayuu

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

AYU2

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