TUGAS TIPE D

FEBRI D.

Private Sub Cmdproses_Click()

Dim jb, pg, pn, hg As String

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

S = Mid(Cbokode, 3, 3)

If S = “SIM” Then

jb = “Sistem informasi manajemen”

pg = “YatiNurOktavia”

hg = “75900”

ElseIf S = “EDP” Then

jb = “Elektronik Data Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf S = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf S = “CDR” Then

jb = “Corel Draw”

pg = “Riyan Suhandi”

hg = “53000”

ElseIf S = “RPL” Then

jb = “RekayasaPerangkatLunak”

pg = “SintaUmpuSinga”

hg = “83000”

End If

Txtjudul.Text = jb

Txtpengarang.Text = pg

Txtharga.Text = hg

S = Mid(Cbokode, 1, 1)

If S = “A” Then

pn = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

pn = “Indah Surabaya”

ElseIf S = “S” Then

pn = “SalembaEmpat”

ElseIf S = “E” Then

pn = “Elek Media Komputindo”

ElseIf S = “M” Then

pn = “Maxicom”

End If

Txtpenerbit.Text = pn

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

Private Sub cmdbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

 

Iklan

TUGAS TIPE C

FEBRI C.

 

Private Sub Cbokode_Click()

Dim jenis, hs As String

Select Case Cbokode

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hs = “2100000 ”

Case “P310”

jenis = “pentium III 1.0 Giga Hz”

hs = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hs = “4000000 ”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hs = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hs = “5500000 ”

End Select

Txtjk = jenis

Txths = hs

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txthp = “”

Txtdis = “”

Txthb = “”

End Sub

Private Sub Cmdproses_Click()

Txthp = Val(Txtjj) * Val(Txths)

If Val(Txthp) > “30000000” Then

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

ElseIf Val(Txthp) > “25000000” Then

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

ElseIf Val(Txthp) > “20000000” Then

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

ElseIf Val(Txthp) > “15000000” Then

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

End If

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

End Sub

Private Sub Form_Activate()

Cbokode.SetFocus

Cbokode = “”

Txtjk = “”

Txths = “”

Txtjj = “”

Txtdis = “”

Txthb = “”

 

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

 

 

TUGAS TIPE B

FEBRI B.

Private Sub cmdbatal_Click(Index As Integer)

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdkeluar_Click(Index As Integer)

End

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

 

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

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

S = Mid(txtkb, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Andra Setiawan”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “lektronik Data Processing”

txtp.Text = “Desi Istiqomah”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandy Fitriajaya”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri Indah Sari”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Ernita Sari”

txthg.Text = “83000”

End If

S = Left(txtkb, 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

TUGAS TIPE A

FEBRI A..

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Txtkt.SetFocus

Txtkt = “”

Txtht = “”

Txtjk = “”

Txtjb = “”

Textjt = “”

Txttotalp = “”

 

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

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

 

End Sub

 

Private Sub Textjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

End If

 

End Sub

 

Private Sub Txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

Txtht.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

Txtht.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

Txtht.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

Txtht.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

Textjt.SetFocus

End If

 

End Sub

tugas4

FEBRI 4

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

 

Private Sub cmdkeluar_Click()

 

End

End Sub

 

 

 

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.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 = “Manajemen Informatika”

ElseIf s = “3” Then

txtjur.Text = “Tehnik Informatika”

ElseIf s = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtps.Text = “Strata Satu”

ElseIf s = “2” Then

txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

textps.Text = “Diploma Empat”

ElseIf s = “4” 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

tugas3

FEBRI3

Private Sub cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case cbonpm.Text

Case “15100201”

nama = “AFRIZA UTAMA”

jurusan = “SISTEM INFORMASI”

Case “15100120”

nama = “A.N IMAM BUCHORI”

jurusan = “SISTEM INFORMASI”

Case “15100197”

nama = “AGUNG PRAMUDI”

jurusan = “SISTEM INFORMASI”

Case “15100196”

nama = “ALI MARWAN”

jurusan = “SISTEM INFORMASI”

Case “15100140”

nama = “ANDI SUCIPTO”

jurusan = “SISTEM INFORMASI”

Case “15100125”

nama = “ANDRI AGUNG DWI SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100203”

nama = “ARGA PURNAMA AJI”

jurusan = “SISTEM INFORMASI”

Case “15100121”

nama = “AYU ALFANI”

jurusan = “SISTEM INFORMASI”

Case “15100135”

nama = “AYU KRISMIATI”

jurusan = “SISTEM INFORMASI”

Case “15100127”

nama = “BAYU EKA ALFIANTO”

jurusan = “SISTEM INFORMASI”

Case “15100199”

nama = “BAYU PRABOWO”

jurusan = “SISTEM INFORMASI”

Case “15201018”

nama = “DESI IRSANTI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100122”

nama = “DIAN SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100130”

nama = “DIKI DIANTORO”

jurusan = “SISTEM INFORMASI”

Case “15100118”

nama = “ERLANGGA NURFERNANDO”

jurusan = “SISTEM INFORMASI”

Case “15100126”

nama = “ERMA DWIYANI”

jurusan = “SISTEM INFORMASI”

Case “15100116”

nama = “FAQIHUDDIN”

jurusan = “SISTEM INFORMASI”

Case “15100138”

nama = “FEBRI ARIYANTO”

jurusan = “SISTEM INFORMASI”

Case “15100198”

nama = “FEBRIANSYAH”

jurusan = “SISTEM INFORMASI”

Case “15100128”

nama = “HASAN HAFIDIN”

jurusan = “SISTEM INFORMASI”

Case “15100124”

nama = “ITA FIBRIYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100131”

nama = “KUKUH PRASETYO”

jurusan = “SISTEM INFORMASI”

Case “15100139”

nama = “M.ARYA BIMO RIFKI”

jurusan = “SISTEM INFORMASI”

Case “15100123”

nama = “MAD MUHAIDI”

jurusan = “SISTEM INFORMASI”

Case “15100136”

nama = “MAR’ATUS SHOLEHAH”

jurusan = “SISTEM INFORMASI”

Case “15100117”

nama = “MAYMANAH”

jurusan = “SISTEM INFORMASI”

Case “15100202”

nama = “RINANDA”

jurusan = “SISTEM INFORMASI”

Case “15100133”

nama = “RISKI SAFITRA RAMADON”

jurusan = “SISTEM INFORMASI”

Case “15100195”

nama = “RULLY INDRIANTO”

jurusan = “SISTEM INFORMASI”

Case “1510032”

nama = “SELTARINA”

jurusan = “SISTEM INFORMASI”

Case “15100206”

nama = “SITI MUKODIMAH”

jurusan = “SISTEM INFORMASI”

Case “15100205”

nama = “SUPRAPTI”

jurusan = “SISTEM INFORMASI”

Case “13100457”

nama = “SUSANTO”

jurusan = “SISTEM INFORMASI”

Case “15100137”

nama = “TIARA HERMADITA”

jurusan = “SISTEM INFORMASI”

Case “15100134”

nama = “WAHYU CANDRA WIJAYA”

jurusan = “SISTEM INFORMASI”

Case “15100129”

nama = “YELI FITRI LIANUARI”

jurusan = “SISTEM INFORMASI”

Case “15100119”

nama = “YUDA FERDIANTARA”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

txtquis = “”

txttugas = “”

txtuts = “”

txtuas = “”

txtna = “”

txthm = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna = NA

 

Select Case txtna

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”

End Select

txthm = HM

 

End Sub

 

 

Private Sub Form_Load()

cbonpm.AddItem “15100201”

cbonpm.AddItem “15100120”

cbonpm.AddItem “15100197”

cbonpm.AddItem “15100196”

cbonpm.AddItem “15100140”

cbonpm.AddItem “15100125”

cbonpm.AddItem “15100203”

cbonpm.AddItem “15100121”

cbonpm.AddItem “15100135”

cbonpm.AddItem “15100127”

cbonpm.AddItem “15100199”

cbonpm.AddItem “15201018”

cbonpm.AddItem “15100122”

cbonpm.AddItem “15100130”

cbonpm.AddItem “15100118”

cbonpm.AddItem “15100126”

cbonpm.AddItem “15100116”

cbonpm.AddItem “15100138”

cbonpm.AddItem “15100198”

cbonpm.AddItem “15100128”

cbonpm.AddItem “15100124”

cbonpm.AddItem “15100131”

cbonpm.AddItem “15100139”

cbonpm.AddItem “15100123”

cbonpm.AddItem “15100136”

cbonpm.AddItem “15100117”

cbonpm.AddItem “15100202”

cbonpm.AddItem “15100133”

cbonpm.AddItem “15100195”

cbonpm.AddItem “15100132”

cbonpm.AddItem “15100206”

cbonpm.AddItem “15100205”

cbonpm.AddItem “13100457”

cbonpm.AddItem “15100137”

cbonpm.AddItem “15100134”

cbonpm.AddItem “15100129”

cbonpm.AddItem “15100119”

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 txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

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

txtna = NA

 

Select Case txtna

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”

End Select

txthm = HM

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

 

tugas2

FEBRI2

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub Command2_Click()

End

End Sub

 

Private Sub optBiru_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub optMerah_Click()

Label2.ForeColor = vbRed

End Sub

 

Private Sub chkTebal_Click()

Label2.FontBold = chkTebal.Value

End Sub

 

Private Sub chkMiring_Click()

Label2.FontItalic = chkMiring.Value

End Sub

 

tugas 1

FEBRI 1

Private Sub chkBold_Click()

‘membuat teks tebal

If chkBold.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

 

Private Sub chkItalic_Click()

If chkItalic.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

 

Private Sub chkStrikeout_Click()

If chkStrikeout.Value = 1 Then

lblTeks.fontStrikeout = True

Else

lblTeks.fontStrikeout = False

End If

End Sub

 

Private Sub chkStrikethru_Click()

If chkStrikethru.Value = 1 Then

lblTeks.FontStrikethru = True

Else

lblTeks.FontStrikethru = False

End If

End Sub

 

Private Sub chkUnderline_Click()

If chkUnderline.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

 

Private Sub OptBlue_Click()

‘Membuat teks berwarna biru

lblTeks.ForeColor = vbBlue

End Sub

 

Private Sub OptGreen_Click()

‘Membuat teks berwarna hijau

lblTeks.ForeColor = vbGreen

End Sub

 

Private Sub optREd_Click()

‘Membuat teks berwarna merah

lblTeks.ForeColor = vbRed

 

End Sub

 

Private Sub OptYellow_Click()

‘Membuat teks berwarna kuning

lblTeks.ForeColor = vbYellow

End Sub

FEBRI GAJI

TUGAS 3.1

Private Sub cmdproses_Click()

gajikotor = Val(gajipokok) + Val(tunjangan) – Val(potongan)

pajak = Val(gajikotor) * 0.1

gajiditerima = Val(gajikotor) – Val(pajak)

 

End Sub

 

Private Sub cmdulang_Click()

gajipokok.SetFocus

gajipokok = “”

tunjangan = “”

potongan = “”

gajikotor = “”

pajak = “”

gajiditerima = “”

 

End Sub

 

TUGAS 3.2

Private Sub gajikotor_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

pajak.SetFocus

End If

End Sub

 

Private Sub gajipokok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tunjangan.SetFocus

End If

End Sub

 

Private Sub keluar_Click()

End

End Sub

 

Private Sub pajak_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajiditerima.SetFocus

 

 

End If

End Sub

 

Private Sub potongan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

gajikotor.SetFocus

End If

End Sub

 

Private Sub tunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

potongan.SetFocus

End If

End Sub

FEBRI DISKON

TUGAS 2.1

Private Sub cmdhitung_Click()

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

 

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

Private Sub cmdulangi_Click()

hargaawal.SetFocus

hargaawal = “”

diskon = “”

hargaahir = “”

TUGAS 2.2

End Sub

Private Sub cmdhitung_KeyPress(KeyAscii As Integer)

If keyAsscii = 13 Then

diskon = Val(hargaawal) * 0.1

hargaahir = Val(hargaawal) – Val(diskon)

End If

End Sub