program10

tugas10

program10

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnu.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtnpm, 1)

If S = “E” Then

Txtkelas.Text = “Eksekutif”

Txtub.Text = “1250000”

ElseIf S = “R” Then

Txtkelas.Text = “Reguler”

Txtub.Text = “1000000”

End If

S = Mid(Txtnpm, 6, 2)

If S = “01” Then

Txtprodi.Text = “Strata Satu”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1500000”

Else

Txtbps.Text = “1900000”

End If

ElseIf S = “02” Then

Txtprodi.Text = “Diploma Tiga”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1250000”

Else

Txtbps.Text = “1650000”

End If

ElseIf S = “03” Then

Txtprodi.Text = “Diploma Satu”

If Txtkelas.Text = “Reguler” Then

Txtbps.Text = “1250000”

Else

Txtbps.Text = “1350000”

End If

End If

S = Mid(Txtnpm, 5, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemendan Komp. Akuntansi”

End If

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

Txtnu.Text = Right(Txtnpm, 3)

If Txtprodi.Text = “Strata Satu” Then

Txtup.Text = “200000”

Txtbpa.Text = “600000”

Else

If Txtprodi.Text = “Diploma Tiga” Then

Txtup.Text = “150000”

Txtbpa.Text = “600000”

Else

If Txtprodi.Text = “Diploma Satu” Then

Txtup.Text = “150000”

Txtbpa.Text = “600000”

End If

End If

End If

Txttb.Text = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Iklan

program9

tugas9

program9

Private Sub Cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttt.Text = “20” & Mid(Txtkode, 5, 2)

S = Left(Txtkode, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

Txtpeng.Text = “Fadiya Ulfa”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “ElektronikData Processing”

Txtpeng.Text = “Nurul Agustina”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtpeng.Text = “Rian Hidayat”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtpeng.Text = “Siti Nur Khotimah”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

Txtpeng.Text = “Winda Erlianti”

Txtharga.Text = “83000”

End If

S = Right(Txtkode, 1)

If S = “A” Then

Txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

End Sub

program8

tugas8

program8

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtharga.Text = “”

Txtjenis.Text = “”

Txtjam.Text = “”

Txtjumlah.Text = “”

Txttotal.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtkode.Text, 3)

If S = “BIM” Then

Txtjenis.Text = “BIMA”

Txtharga.Text = “50000”

Txtjam.Text = “16.00”

ElseIf S = “EKO” Then

Txtjenis.Text = “EKONOMI”

Txtharga.Text = “35000”

Txtjam.Text = “19.00”

ElseIf S = “MUT” Then

Txtjenis.Text = “MUTIARA”

Txtharga.Text = “23000”

Txtjam.Text = “17.00”

ElseIf S = “SEN” Then

Txtjenis.Text = “SENJA”

Txtharga.Text = “15000”

Txtjam.Text = “20.00”

End If

Txtjumlah.SetFocus

End Sub

Private Sub Txtjumlah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotal.Text = Val(Txtharga.Text) * Val(Txtjumlah.Text)

End If

End Sub

program7

tugas7

program7

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

Txtprodi = “Strata Satu”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

Txtprodi = “Diploma Empat”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

Txtprodi = “Diploma Tiga”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 5)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

Txtprodi = “Strata Satu”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

Txtprodi = “Diploma Empat”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

Txtprodi = “Diploma Tiga”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 5)

End If

End Sub

program6

tugas6

program6

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

Txtprodi = “Strata Satu”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

Txtprodi = “Diploma Empat”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

Txtprodi = “Diploma Tiga”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

Txtprodi = “Diploma Dua”

End If

TxtNu.Text = Right(Txtnpm.Text, 5)

End Sub

program5

tugas5

program5

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

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

If S = “01” Then

Txtprodi = “Strata Satu”

ElseIf S = “02” Then

Txtprodi = “Diploma Empat”

ElseIf S = “03” Then

Txtprodi = “Diploma Tiga”

ElseIf S = “04” Then

Txtprodi = “Diploma Dua”

End If

TxtNu.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 Txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

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

If S = “01” Then

Txtprodi = “Strata Satu”

ElseIf S = “02” Then

Txtprodi = “Diploma Empat”

ElseIf S = “03” Then

Txtprodi = “Diploma Tiga”

ElseIf S = “04” Then

Txtprodi = “Diploma Dua”

End If

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

End If

End Sub

program4

tugas4

program4

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

TxtTm.Text = “”

TxtNu.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Teknik Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

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

If S = “01” Then

Txtprodi = “Strata Satu”

ElseIf S = “02” Then

Txtprodi = “Diploma Empat”

ElseIf S = “03” Then

Txtprodi = “Diploma Tiga”

ElseIf S = “04” Then

Txtprodi = “Diploma Dua”

End If

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

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

program3

tugas3

program3

Private Sub Cmdbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjb.Text = “”

Txtpeng.Text = “”

Txttt.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

Txttt.Text = “20” & Right(Cbokode, 2)

S = Mid(Cbokode, 3, 3)

If S = “SIM” Then

Txtjb.Text = “Sistem Informasi Manajemen”

Txtpeng.Text = “Yati Nur Oktavia”

Txtharga.Text = “75900”

ElseIf S = “EDP” Then

Txtjb.Text = “ElektronikData Processing”

Txtpeng.Text = “Imam Tarmizi”

Txtharga.Text = “62000”

ElseIf S = “MNJ” Then

Txtjb.Text = “Manajemen”

Txtpeng.Text = “Valentina Mariana Adiwianti”

Txtharga.Text = “42000”

ElseIf S = “CDR” Then

Txtjb.Text = “Corel Draw”

Txtpeng.Text = “Riyan Suhandi”

Txtharga.Text = “53000”

ElseIf S = “RPL” Then

Txtjb.Text = “Rekayasa Perangkat Lunak”

Txtpeng.Text = “Sinta Umpu Singa”

Txtharga.Text = “83000”

End If

S = Left(Cbokode, 1)

If S = “A” Then

Txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

Txtpenerbit.Text = “Salemba Empat”

ElseIf S = “E” Then

Txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

Txtpenerbit.Text = “Maxicom”

End If

End Sub

Private Sub Form_Load()

Cbokode.AddItem “A-SIM-01”

Cbokode.AddItem “I-EDP-02”

Cbokode.AddItem “S-MNJ-03”

Cbokode.AddItem “E-CDR-04”

Cbokode.AddItem “M-RPL-05”

End Sub

program2

tugas2

program2

Private Sub Cbokode_Click()

Dim jenis As String

Dim harga As Variant

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II 500 Mega Hz”

harga = 1500000

Case “P308”

jenis = “Pentium III 800 Mega Hz”

harga = 2100000

Case “P310”

jenis = “Pentium III 1.0 Giga Hz”

harga = 3500000

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

harga = 4000000

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz”

harga = 4200000

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

harga = 5500000

End Select

Txtjenis.Text = jenis

Txths.Text = harga

Txtjj.SetFocus

End Sub

Private Sub Command1_Click()

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

If Val(Txthp.Text) > 30000000 Then

Txtdiskon = Val(Txthp.Text) * 0.15

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

Else

If Val(Txthp.Text) > 25000000 Then

Txtdiskon = Val(Txthp.Text) * 0.1

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

Else

If Val(Txthp.Text) > 20000000 Then

Txtdiskon = Val(Txthp.Text) * 0.05

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

Else

If Val(Txthp.Text) > 15000000 Then

Txtdiskon = Val(Txthp.Text) * 0.02

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

End If

End If

End If

End If

End Sub

Private Sub Command2_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjenis.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdiskon.Text = “”

Txthb.Text = “”

End Sub

Private Sub Command3_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

tugas4. program1

program1

program1

Private Sub Cbokode_Click()

Dim merk, HS As String

Select Case Cbokode.Text

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

HS = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

HS = “15800000”

Case “Apple MC968 MacBook Air”

merk = “Apple MacBook Air MC968”

HS = “9900000”

Case “Apple MC969 MacBook Air”

merk = “Apple MacBook Air MC969”

HS = “11900000”

Case “Apple MC700 MacBook Pro”

merk = “AppleMacBook Pro MC700”

HS = “10800000”

Case “Apple MC721 MacBook Pro”

merk = “Apple MacBook Pro MC721”

HS = “15900000”

Case “Apple MC723 MacBook Pro”

merk = “Apple MacBook Pro MC723”

HS = “19300000”

Case “Apple MC724 MacBook Pro”

merk = “Apple MacBook Pro MC724”

HS = “13700000”

Case “Apple MC311 MacBook Pro”

merk = “Apple MacBook Pro MC311”

HS = “24200000”

Case “Apple MC313 MacBook Pro”

merk = “Apple MacBook Pro MC313”

HS = “11900000”

Case “Apple MC314 MacBook Pro”

merk = “Apple MacBook Pro MC314”

HS = “14700000”

Case “Apple MC318 MacBook Pro”

merk = “Apple MacBook Pro MC318”

HS = “17600000”

Case “Apple MC322 MacBook Pro”

merk = “Apple MacBook Pro MC322”

HS = “21300000”

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

HS = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

HS = “15800000”

End Select

Txtmerk.Text = merk

Txths.Text = HS

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

Txtdiskon.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

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

If Val(Txthp) > 140000000 Then

Txtdiskon = Txthp.Text * 0.15

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 135000000 Then

Txtdiskon = Txthp.Text * 0.1

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 130000000 Then

Txtdiskon = Txthp.Text * 0.05

Txttb = Txthp.Text – Txtdiskon.Text

Else

If Val(Txthp) > 125000000 Then

Txtdiskon = Txthp.Text * 0.02

Txttb = Txthp.Text – Txtdiskon.Text

End If

End If

End If

End If

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