program 1

PROG 1

Private Sub CboKode_Click()

Dim MT, HS_Asvariant

Select Case CboKode.Text

Case “Apple MC665 MacBookAir”

MT = “ApleMacbookAirMc665”

hs = “12800000”

Case “Apple MC666 MacBookAir”

MT = “ApleMacbookAirMc666”

hs = “15800000”

Case “Apple MC668 MacBookAir”

MT = “ApleMacbookAirMc668”

hs = “9900000”

Case “Apple MC669 MacBookAir”

MT = “ApleMacbookAirMc669”

hs = “11900000”

Case “Apple MC700 MacBookPro”

MT = “ApleMacbookProMc700”

hs = “10800000”

Case “Apple MC721 MacBooPro”

MT = “ApleMacbookProMC721”

hs = “15900000”

Case “Apple MC723 MacBookPro”

MT = “ApleMacbookProMc723”

hs = “19300000”

Case “Apple MC724 MacBookPro”

MT = “ApleMacbookProMc724”

hs = “13700000”

Case “Apple MC311 MacBookPro”

MT = “ApleMacbookProMc311”

hs = “24200000”

Case “Apple MC313 MacBookPro”

MT = “ApleMacbookProMc313”

hs = “11900000”

Case “Apple MC314 MacBookPro”

MT = “ApleMacbookProMc314”

hs = “14700000”

Case “Apple MC318 MacBookPro”

MT = “ApleMacbookProMc318”

hs = “17600000”

Case “Apple MC322 MacBookPro”

MT = “ApleMacbookProMc322”

hs = “21300000”

Case “Apple MC965 MacBooAir”

MT = “ApleMacbookAirMC965”

hs = “12800000”

Case “Apple MC966 MacBookAir”

MT = “ApleMacbookAirMc966”

hs = “15800000”

Case Else

MT = 0

hs = 0

End Select

TxtMT.Text = MT

TxtHs.Text = hs

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

Kosong

End Sub

Public Sub Kosong()

TxtJual.SetFocus

TxtJual.Text = “”

Txtharga.Text = “”

CboKode.Text = “”

TxtMT.Text = “”

TxtHs.Text = “”

TxtDiscount.Text = “”

TxtTotal.Text = “”

End Sub

Private Sub Form_load()

CboKode.AddItem “Apple MC665 MacBookAir”

CboKode.AddItem “Apple MC666 MacBookAir”

CboKode.AddItem “Apple MC668 MacBookAir”

CboKode.AddItem “Apple MC669 MacBookAir”

CboKode.AddItem “Apple MC700 MacBookPro”

CboKode.AddItem “Apple MC721 MacBookPro”

CboKode.AddItem “Apple MC723 MacBookPro”

CboKode.AddItem “Apple MC724 MacBookPro”

CboKode.AddItem “Apple MC311 MacBookPro”

CboKode.AddItem “Apple MC313 MacBookPro”

CboKode.AddItem “Apple MC314 MacBookPro”

CboKode.AddItem “Apple MC318 MacBookPro”

CboKode.AddItem “Apple MC322 MacBookPro”

CboKode.AddItem “Apple MC965 MacBookAir”

CboKode.AddItem “Apple MC955 MacBookAir”

End Sub

Private Sub Cmdproses_Click()

Txtharga.Text = Val(TxtHs) * Val(TxtJual)

If Val(Txtharga) > 140000000 Then

TxtDiscount = Txtharga.Text * 0.15

TxtTotal = Val(Txtharga.Text) – Val(TxtDiscount.Text)

Else

If Val(Txtharga) > 135000000 Then

TxtDiscount = Txtharga.Text * 0.1

TxtTotal = Val(Txtharga.Text) – (TxtDiscount.Text)

Else

If Val(Txtharga) > 130000000 Then

TxtDiscount = Txtharga.Text * 0.05

TxtTotal = Val(Txtharga.Text) – (TxtDiscount.Text)

Else

If Val(Txtharga) > 125000000 Then

TxtDiscount = Txtharga.Text * 0.02

TxtTotal = Val(Txtharga.Text – TxtDiscount.Text)

End If

End If

End If

End If

End Sub

Iklan

PROGRAM 10

cats

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

PROGRAM 9

cats

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

PROGRAM 8

cats

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

PROGRAM 6 DAN 7

catsFT PROSES

RUMUS ENTER

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

RUMUS PROSES

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

PROGRAM 4 DAN 5

FT ENTERFT PROSES

RUMUS ENTER

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

RUMUS PROSES

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

PROGRAM 3

cats

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