tugas 5

NPM   1

TUGAS 1

Private Sub cmd_batal_Click()

txt_nama.SetFocus

txt_nama.Text = ” ”

txt_npm.Text = ” ”

txt_kelas.Text = ” ”

txt_jurusan.Text = ” ”

txt_program.Text = ” ”

txt_tahun.Text = ” ”

txt_urut.Text = ” ”

txt_pendaftaran.Text = ” ”

txt_pendidikan.Text = ” ”

txtbangunan.Text = ” ”

txt_almamater.Text = ” ”

txt_total.Text = ” ”

End Sub

Private Sub cmd_keluar_Click()

End

End Sub

Private Sub cmd_lagi_Click()

txt_nama.SetFocus

txt_nama.Text = ” ”

txt_npm.Text = ” ”

txt_kelas.Text = ” ”

txt_jurusan.Text = ” ”

txt_program.Text = ” ”

txt_tahun.Text = ” ”

txt_urut.Text = ” ”

txt_pendaftaran.Text = ” ”

txt_pendidikan.Text = ” ”

txtbangunan.Text = ” ”

txt_almamater.Text = ” ”

txt_total.Text = ” ”

End Sub

Private Sub cmd_proses_Click()

Dim x As String

x = Left(txt_npm.Text, 1)

If x = “E” Then

txt_kelas.Text = “Eksekutif”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

ElseIf x = “R” Then

txt_kelas.Text = “Reguler”

txt_almamater.Text = “600000”

txtbangunan.Text = “1250000”

End If

txt_tahun.Text = “20” & Mid(txt_npm.Text, 3, 2)

x = Mid(txt_npm.Text, 5, 1)

If x = “1” Then

txt_jurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then

txt_jurusan.Text = “Managemen Informatika”

ElseIf x = “3” Then

txt_jurusan.Text = “Managemen dan Komp. Akuntansi”

End If

x = Mid(txt_npm.Text, 6, 2)

If x = “01” Then

txt_program.Text = “Strata Satu”

txt_pendaftaran.Text = “200000”

ElseIf x = “02” Then

txt_program.Text = “Diploma Tiga”

txt_pendaftaran.Text = “150000”

ElseIf x = “03” Then

txt_program.Text = “Diploma Satu”

txt_pendaftaran.Text = “150000”

End If

x = Left(txt_npm.Text, 1) & Mid(txt_npm.Text, 6, 2)

If x = “E” & “01” Then

txt_pendidikan.Text = “1900000”

ElseIf x = “E” & “02” Then

txt_pendidikan.Text = “1650000”

ElseIf x = “E” & “03” Then

txt_pendidikan.Text = “1350000”

ElseIf x = “R” & “01” Then

txt_pendidikan.Text = “1500000”

ElseIf x = “R” & “02” Then

txt_pendidikan.Text = “1250000”

ElseIf x = “R” & “03” Then

txt_pendidikan.Text = “1250000”

End If

txt_urut = Right(txt_npm.Text, 3)

txt_almamater.SetFocus

End Sub

Private Sub txt_almamater_keypress(keyascii As Integer)

If keyascii = 13 Then

txt_nama.SetFocus

txt_total.Text = Val(txt_pendaftaran.Text) + Val(txt_pendidikan.Text) + Val(txtbangunan.Text) + Val(txt_almamater.Text)

End If

End Sub

NPM    2

TUGAS2

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

End Sub

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

Private Sub kr_Click()

End

End Sub

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

txtbp = ” ”

txtterbilang.Text = ” ”

End Sub

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

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

If S = “1” Then

t3.Text = “Sistem Informasi”

t4.Text = “Strata Satu”

txtbp.Text = “1950000”

txtterbilang.Text = “satu juta sembilan ratus lima pulluh”

ElseIf S = “2” Then

t3.Text = “Tehnik informasi”

t4.Text = “Diploma Empat”

txtbp.Text = “1750000”

txtterbilang.Text = “satu juta tujuh ratus lima puluh”

ElseIf S = “3” Then

t3.Text = “Manajemen Informatika”

t4.Text = “Diploma tiga”

txtbp.Text = “1650000”

txtterbilang.Text = “satu juta enam ratus lima puluh”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

t4.Text = “Diploma Dua”

txtbp.Text = “1450000”

txtterbilang.Text = “satu juta empat ratus lima puluh”

End If

t6.Text = Right(t2.Text, 3)

End Sub

ENTRI  tugs 3

TUGAS 3

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Asus A43SA”

merk = “Asus A43SA-VX090D”

satuan = “5500000”

Case “Asus A43SD”

merk = “Asus A43SD-VX052D”

satuan = “4500000”

Case “Asus A43SJ”

merk = “Asus A43SJ-VX792D”

satuan = “4300000”

Case “Asus A43TA”

merk = “Asus A43TA-VX034D”

satuan = “4900000”

Case “Asus N43SL”

merk = “Asus N43SL-VX264D”

satuan = “4300000”

Case “Apple MD311”

merk = “Apple MacBook Pro MD311”

satuan = “19300000”

Case “Apple MD313”

merk = “Apple MacBook Pro MD314”

satuan = “24200000”

Case “Apple MD314”

merk = “Apple MacBook Pro MD314”

satuan = “11900000”

Case “Apple MD322”

merk = “Apple MacBook Pro MD322”

satuan = “14700000”

Case “Apple MC965”

merk = “Apple MecBook Air MC965”

satuan = “21300000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

Private Sub Form_Load()

cbokode.AddItem “Asus A43SA”

cbokode.AddItem “Asus A43SD”

cbokode.AddItem “Asus A43SJ”

cbokode.AddItem “Asus A43TA”

cbokode.AddItem “Asus N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MD965”

End Sub

DATA BUKU

TGS 4

Private Sub cmdlg_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

Private Sub Cmdproses_Click()

Dim S As String

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

S = Mid(txtkb.Text, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi manajemen”

txtp.Text = “Andra setiawan”

ElseIf S = “EDP” Then

txtjb.Text = “elektronik data Procesing”

txtp.Text = “Desi istiqomah”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandi fitrajaya”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri indah sari”

ElseIf S = “RPL” Then

txtjb.Text = “Rekaya Perangkat Lunak ”

txtp.Text = “Ernita sari”

End If

S = Left(txtkb.Text, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txthg.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txthg.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txthg.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txthg.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txthg.Text = “83000”

End If

End Sub

Private Sub txtkb_Change()

End Sub

PT

TUGAS 5

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

s = Left(txtnik.Text, 4)

txttahun.Text = “2015”

s = Mid(txtnik.Text, 5, 1)

If s = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAJER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf s = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KA.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf s = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “STAF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

s = Mid(txtnik.Text, 7, 1)

If s = “S” Then

txtkode.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf s = “M” Then

txtkode.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf s = “J” Then

txtkode.Text = “J”

txtstatus.Text = “JANDA”

ElseIf s = “D” Then

txtkode.Text = “D”

txtstatus.Text = “DUDA”

End If

s = Right(txtnik.Text, 3)

If s = “KEU” Then

txtbagian.Text = “ACOUNTING”

ElseIf s = “ADM” Then

txtbagian.Text = “Administrasi”

ElseIf s = “SDM” Then

txtbagian.Text = “General affair”

ElseIf s = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf s = “SPM” Then

txtbagian.Text = “SECURITY”

End If

txttoga.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub cmdbatal_click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtkode.Text = “”

txtsta.Text = “”

txtthn.Text = “”

txtbagian.Text = “”

txtjabatan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttoga.Text = “”

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

Iklan

huruf mutu

HURFMUTUF

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

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

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

Unload Me

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”

End Select

txthm.Text = HM

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

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”

End Select

txthm.Text = HM

End If

End Sub

NIDN

NDNF

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

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

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

NPM TUGAS 4

NPMF

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub Form_Activate()

t1.SetFocus

t1.Text = “”

t2.Text = “”

t3.Text = “”

t4.Text = “”

t5.Text = “”

t6.Text = “”

End Sub

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

Private Sub kr_Click()

End

End Sub

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

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

If S = “1” Then

t3.Text = “Sistem Informasi”

ElseIf S = “2” Then

t3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

t3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “01” Then

t4.Text = “Strata Satu”

ElseIf S = “02” Then

t4.Text = “Diploma Tiga”

ElseIf S = “03” Then

t4.Text = “Diploma Empat”

ElseIf S = “04” Then

t4.Text = “Diploma Dua”

End If

t6.Text = Right(t2.Text, 3)

End Sub

NPM TUGAS 5

NPMFU

Private Sub bl_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub Form_Activate()

t1.SetFocus

t1.Text = “”

t2.Text = “”

t3.Text = “”

t4.Text = “”

t5.Text = “”

t6.Text = “”

End Sub

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

Private Sub kr_Click()

End

End Sub

Private Sub lg_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

End Sub

Private Sub ps_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

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

If S = “1” Then

t3.Text = “Sistem Informasi”

t4.Text = “Strata Satu”

ElseIf S = “2” Then

t3.Text = “Manajemen Informatika”

t4.Text = “Diploma Tiga”

ElseIf S = “3” Then

t3.Text = “Tehnik Informatika”

t4.Text = “Diploma Empat”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

t4.Text = “Diploma Dua”

End If

t6.Text = Right(t2.Text, 3)

End Sub

TUGAS 6

PENJUALNKOMPF

Private Sub cmdhitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cmdclose_Click()

Unload Me

End Sub

Private Sub cboclose_Click()

Unload Me

End Sub

Private Sub cbohitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

Private Sub Cbokodekomputer_Click()

Dim jeniskomputer, hargasatuan As String

Select Case cbokodekomputer.Text

Case “P205”

jeniskomputer = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jeniskomputer = “Pentium III 800 Mega Hz”

hargasatuan = “2100000”

Case “P310”

jeniskomputer = “Pentium III 1 Giga Hz”

hargasatuan = “3500000”

Case “P415”

jeniskomputer = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jeniskomputer = “Pentium IV 1.7 Giga Hz”

hargasatuan = “4200000”

Case “P419”

jeniskomputer = “Pentium IV 1.9 Giga Hz”

hargasatuan = “5500000”

End Select

txtjeniskomputer.Text = jeniskomputer

txthargasatuan.Text = hargasatuan

txtjumlahjual.SetFocus

End Sub

Private Sub cmdproses_Click()

txthargabayar = Val(txthargapenjualan.Text) – Val(txtdiskon.Text)

End Sub

Private Sub Form_Load()

cbokodekomputer.AddItem “P205”

cbokodekomputer.AddItem “P308”

cbokodekomputer.AddItem “P310”

cbokodekomputer.AddItem “P415”

cbokodekomputer.AddItem “P417”

cbokodekomputer.AddItem “P419”

End Sub

Private Sub txthargapenjualan_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

End If

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub txthargasatuan_KeyPress(KeyAscii As Integer)

txtjumlahjual.SetFocus

End Sub

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.SetFocus

End If

End Sub

tugas

F 1

a

Private Sub Cmd1_Click()

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Cmd2_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

txtpj = “”

Txtgd = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

Private Sub Txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End If

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

F2

Private Sub Checkbold_Click()

If Checkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

Private Sub Checkitalic_Click()

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

Private Sub Checkstrikethru_Click()

If Checkstrikethru.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

Private Sub Checkunderline_Click()

If Checkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Opt1red_Click()

Lbltext.ForeColor = vbRed

End Sub

Private Sub Opt2green_Click()

Lbltext.ForeColor = vbGreen

End Sub

Private Sub Opt3blue_Click()

Lbltext.ForeColor = vbBlue

End Sub

Private Sub Opt4yellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

F3

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmd2_Click()

End

End Sub

Private Sub Optblue_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optyellow_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optred_Click()

Label2.ForeColor = vbRed

End Sub

tugas

F 1

Private Sub Cmd1_Click()

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End Sub

Private Sub Cmd3_Click()

End

End Sub

Private Sub Cmd2_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

txtpj = “”

Txtgd = “”

End Sub

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

Private Sub Txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtgk = Val(Txtgp) + Val(Txttj) – Val(Txtpt)

txtpj = Val(Txtgk) * 0.1

Txtgd = Val(Txtgk) – Val(txtpj)

End If

End Sub

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

F2

Private Sub Checkbold_Click()

If Checkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

Private Sub Checkitalic_Click()

If Checkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

Private Sub Checkstrikethru_Click()

If Checkstrikethru.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

Private Sub Checkunderline_Click()

If Checkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

End

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Opt1red_Click()

Lbltext.ForeColor = vbRed

End Sub

Private Sub Opt2green_Click()

Lbltext.ForeColor = vbGreen

End Sub

Private Sub Opt3blue_Click()

Lbltext.ForeColor = vbBlue

End Sub

Private Sub Opt4yellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

F3

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Cmd1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Cmd2_Click()

End

End Sub

Private Sub Optblue_Click()

Label2.ForeColor = vbBlue

End Sub

Private Sub Optgreen_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub Optyellow_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub Optred_Click()

Label2.ForeColor = vbRed

End Sub

tugas

4

Tugas 4 dan 5

Private Sub cmdhitung_Click()

Dim a, b, c As Double

Text2.Text = Val(Text1.Text) * 0.1

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

Private Sub cmdQuit_Click()

End

End Sub

Private Sub cmdulang_Click()

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

tugas

3

Tugas 2 dan 3        

c

Private Sub Command1_Click()

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

tugas

2

Tugas 1

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

End Sub

Private Sub Command3_Click()

End

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