TUGAS PEMROGAMAN KE 5

TUGAS 1 NIDN

 NIDN 1

Private Sub cbogol_Click()

Dim GOLONGAN, Gajipokok, Tunjangan, PAJAK, TOTAL As Variant

GOLONGAN = cbogol

Select Case GOLONGAN

Case “I”

Gajipokok = “1500000”

Tunjangan = “150000”

Case “II”

Gajipokok = “2000000”

Tunjangan = “200000”

Case “III”

Gajipokok = “2500000”

Tunjangan = “250000”

Case “IV”

Gajipokok = “3000000”

Tunjangan = “300000”

End Select

txtgp = Gajipokok

txttunj = Tunjangan

PAJAK = (Gajipokok + Tunjangan) * 0.1

txtpajak = PAJAK

TOTAL = Gajipokok + Tunjangan – PAJAK

txttotal = TOTAL

End Sub

 

Private Sub cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnm.Text = “”

cbogol.Text = “pilih golongan”

txtgp.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlg_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnm.Text = “”

cbogol.Text = “pilih golongan”

txtgp.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

Private Sub Command3_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnm.Text = “”

cbogol.Text = “pilih golongan”

txtgp.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnm.SetFocus

End If

End Sub

 

Private Sub txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

cbogol.SetFocus

End If

End Sub

 

 

TUGAS 2 NPM

NPM 2

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

 

End Sub

 

Private Sub cmdbatal_Click()

txtnm.SetFocus

txtnm.Text = “”

txtnpm.Text = “”

txtjuru.Text = “”

txtps.Text = “”

txtmasuk.Text = “”

txtno.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnm.SetFocus

txtnm.Text = “”

txtnpm.Text = “”

txtjuru.Text = “”

txtps.Text = “”

txtmasuk.Text = “”

txtno.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim A As String

txtmasuk.Text = “20” & Left(txtnpm.Text, 2)

A = Mid(txtnpm, 3, 1)

If A = “1” Then

txtjuru = “Sistem Informasi”

txtps = “Strata Satu”

ElseIf A = “2” Then

txtjuru = “Tekhnik Informatika”

txtps = “Diploma Empat”

ElseIf A = “3” Then

txtjuru = “Manajemen Informatika”

txtps = “Diploma Tiga”

ElseIf A = “4” Then

txtjuru = “Komputer Akuntansi”

txtps = “Diploma Dua”

End If

txtmasuk = Left(txtnpm, 2)

txtno = Right(txtnpm, 4)

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

End Sub

 

Private Sub txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

TUGAS 3 LAPTOP

ENTRILAPTOP3

Private Sub CboKode_Click()

Dim Merk, Satuan As Variant

Select Case CboKode.Text

Case “Apple MC965 MacBook Air”

Merk = “Apple MacBook Air MC965”

Satuan = 12800000

Case “Apple MC966 MacBook Air”

Merk = “Apple MacBook Air MC966”

Satuan = 15800000

Case “Apple MC968 MacBook Air”

Merk = “Apple MacBook Air MC965”

Satuan = 9900000

Case “Apple MC969 MacBook Air”

Merk = “Apple MacBook Air MC969”

Satuan = 11900000

Case “Apple MC700 MacBook Pro”

Merk = “Apple MacBook Pro MC700”

Satuan = 10800000

Case “Apple MC721 MacBook Pro”

Merk = “Apple MacBook Pro MC721”

Satuan = 15900000

Case “Apple MC723 MacBook Pro”

Merk = “Apple MacBook Pro MC723”

Satuan = 19300000

Case “Apple MC724 MacBook Pro”

Merk = “Apple MacBook Pro MC724”

Satuan = 13700000

Case “Apple MC311 MacBook Pro”

Merk = “Apple MacBook Pro MC311”

Satuan = 24200000

Case “Apple MC313 MacBook Pro”

Merk = “Apple MacBook Pro MC313”

Satuan = 11900000

Case “Apple MC314 MacBook Pro”

Merk = “Apple MacBook Pro MC314”

Satuan = 14700000

Case “Apple MC318 MacBook Pro”

Merk = “Apple MacBook Pro MC318”

Satuan = 17600000

Case “Apple MC322 MacBook Pro”

Merk = “Apple MacBook Pro MC322”

Satuan = 21300000

Case “Apple MC965 MacBook Pro”

Merk = “Apple MacBook Pro MC965”

Satuan = 12800000

Case “Apple MC966 MacBook Pro”

Merk = “Apple MacBook Pro MC966”

Satuan = 15800000

End Select

TxtMerk.Text = Merk

TxtHS.Text = Satuan

End Sub

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdbatal_Click()

CboKode.SetFocus

CboKode = “Kode Laptop”

TxtMerk = “”

TxtHS = “”

TxtTotal = “”

TxtHargaPen = “”

TxtDis = “”

TxtTotal = “”

TxtJJual = “”

End Sub

 

 

Private Sub CmdHL_Click()

CboKode.SetFocus

CboKode = “Kode Laptop”

TxtMerk = “”

TxtHS = “”

TxtTotal = “”

TxtHargaPen = “”

TxtDis = “”

TxtTotal = “”

TxtJJual = “”

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub CmdProses_Click()

 

TxtHargaPen.Text = Val(TxtHS.Text) * Val(TxtJJual.Text)

Select Case TxtHargaPen.Text

Case Is > 140000000

TxtDis = Val(TxtHargaPen) * 0.15

Case Is > 135000000

TxtDis = Val(TxtHargaPen) * 0.1

Case Is > 130000000

TxtDis = Val(TxtHargaPen) * 0.05

Case Is > 125000000

TxtDis = Val(TxtHargaPen) * 0.02

End Select

TxtTotal = Val(TxtHargaPen) – Val(TxtDis)

 

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

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

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

 

TUGAS 4 PENJUALAN KOMPUTER

KOMP 4

Private Sub CboKode_Click()

Dim JK, HS, HB As Integer

Select Case CboKode.Text

Case “P205”

JK = “Pentium II 500 Mega Hz”

HS = “1500000”

Case “P308”

JK = “Pentium III 800 Mega Hz”

HS = “2100000”

Case “P310”

JK = “Pentium III 1.0 Giga Hz”

HS = “3500000”

Case “P415”

JK = “Pentium IV 1.5 Giga Hz”

HS = “4000000”

Case “P417”

JK = “Pentium IV 1.7 Giga Hz”

HS = “4200000”

Case “P419”

JK = “Pentium IV 1.9 Giga Hz”

HS = “5500000”

End Select

TxtJCom = JK

TxtHS = HS

TxtJJual.SetFocus

End Sub

 

 

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdbatal_Click()

CboKode.SetFocus

CboKode = “Kode”

TxtJCom = “”

TxtHS = “”

TxtJJual = “”

TxtHargaPen = “”

TxtDis = “”

TxtTotal = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “Kode”

TxtJCom = “”

TxtHS = “”

TxtJJual = “”

TxtHargaPen = “”

TxtDis = “”

TxtTotal = “”

 

End Sub

 

Private Sub CmdProses_Click()

TxtHargaPen.Text = Val(TxtHS) * Val(TxtJJual)

Select Case TxtHargaPen.Text

Case Is > 30000000

TxtDis = Val(TxtHargaPen) * 0.15

Case Is > 25000000

TxtDis = Val(TxtHargaPen) * 0.1

Case Is > 20000000

TxtDis = Val(TxtHargaPen) * 0.05

Case Is > 15000000

TxtDis = Val(TxtHargaPen) * 0.02

End Select

TxtTotal = Val(TxtHargaPen) – Val(TxtDis)

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

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

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

TUGAS 5 BUKU STMIK COMBO

BUKU COMBO 5

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub cmdhapus_Click()

Data2.Recordset.Delete

End Sub

 

Private Sub Cmdbatal_Click()

CboKode.SetFocus

CboKode.Text = “Kode”

TxtJudulBuku.Text = “”

TxtPeng.Text = “”

TxtTahunTer.Text = “”

TxtPenerbit.Text = “”

TxtHarga.Text = “”

End Sub

 

Private Sub CmdEnd_Click()

End

End Sub

 

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode.Text = “Kode”

TxtJudulBuku.Text = “”

TxtPeng.Text = “”

TxtTahunTer.Text = “”

TxtPenerbit.Text = “”

TxtHarga.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim JudulB, Peng, Pen, Hg As String

TxtTahunTer.Text = “20” & Right(CboKode, 2)

s = Mid(CboKode, 3, 3)

If s = “SIM” Then

JudulB = “Sistem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hg = “75900”

 

ElseIf s = “EDP” Then

JudulB = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hg = “62000”

 

ElseIf s = “MNJ” Then

JudulB = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hg = “42000”

 

ElseIf s = “CDR” Then

JudulB = “Corel Draw”

Peng = “Riyan Suhandi”

Hg = “53000”

 

ElseIf s = “RPL” Then

JudulB = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hg = “83000”

End If

TxtJudulBuku = JudulB

TxtPeng = Peng

TxtHarga = Hg

s = Mid(CboKode, 1, 1)

If s = “A” Then

Pen = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

Pen = “Indah Surabaya”

ElseIf s = “S” Then

Pen = “Salemba Empat”

ElseIf s = “E” Then

Pen = “Elek Media Komputindo”

ElseIf s = “M” Then

Pen = “Maxicom”

End If

TxtPenerbit.Text = Pen

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

 

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

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

TUGAS 6 TIKET KERETA API

TIKET 6

Private Sub CmdKeluar_Click()

End

End Sub

Private Sub CmdLagi_Click()

TxtKt.SetFocus

TxtKt.Text = “”

TxtHt.Text = “”

TxtJk.Text = “”

TxtJb.Text = “”

TxtJt.Text = “”

TxtTotalP.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim Jk, Ht, Jb As String

I = Left(TxtKt, 3)

If I = “BIM” Then

Jk = “BIMA”

Ht = “50000”

Jb = “16.00”

 

ElseIf I = “EKO” Then

Jk = “EKONOMI”

Ht = “35000”

Jb = “19.00”

ElseIf I = “MUT” Then

Jk = “MUTIARA”

Ht = “23000”

Jb = “17.00”

ElseIf I = “SEN” Then

Jk = “SENJA”

Ht = “15000”

Jb = “20.00”

End If

TxtJk = Jk

TxtHt = Ht

TxtJb = Jb

TxtJt.SetFocus

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

Private Sub Command3_Click()

TxtKt.SetFocus

TxtKt.Text = “”

TxtHt.Text = “”

TxtJk.Text = “”

TxtJb.Text = “”

TxtJt.Text = “”

TxtTotalP.Text = “”

End Sub

 

 

Private Sub TxtJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTotalP = Val(TxtHt) * Val(TxtJt)

End If

End Sub

 

 

TUGAS 7 BUKU STMIK KE2

DATABUKU 7

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

Private Sub CmdBatal_Click()

TxtKodeBuku.SetFocus

TxtKodeBuku = “”

TxtJudulBuku = “”

TxtPeng = “”

TxtTahunTer = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdEnd_Click()

End

End Sub

 

Private Sub CmdLagi_Click()

TxtKodeBuku.SetFocus

TxtKodeBuku = “”

TxtJudulBuku = “”

TxtPeng = “”

TxtTahunTer = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim JudulB, Peng, Pen, Hg As String

TxtTahunTer.Text = “20” & Mid(TxtKodeBuku, 5, 2)

s = Left(TxtKodeBuku, 3)

If s = “SIM” Then

JudulB = “Sistem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hg = “75900”

 

ElseIf s = “EDP” Then

JudulB = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hg = “62000”

 

ElseIf s = “MNJ” Then

JudulB = “Manajemen”

Peng = “Rian Hidayat”

Hg = “42000”

 

ElseIf s = “CDR” Then

JudulB = “Corel Draw”

Peng = “Siti Nur Khotimah”

Hg = “53000”

 

ElseIf s = “RPL” Then

JudulB = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hg = “83000”

End If

TxtJudulBuku = JudulB

TxtPeng = Peng

TxtHarga = Hg

 

s = Mid(TxtKodeBuku, 1, 1)

If s = “A” Then

Pen = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

Pen = “Indah Surabaya”

ElseIf s = “S” Then

Pen = “Salemba Empat”

ElseIf s = “E” Then

Pen = “Elek Media Komputindo”

ElseIf s = “M” Then

Pen = “Maxicom”

End If

TxtPenerbit.Text = Pen

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

TUGAS 8 PT PULANG PETANG

PULKE8

Private Sub cmdadd_Click()

Data2.Recordset.AddNew

Data2.Recordset.Update

Data2.Recordset.MoveLast

End Sub

 

Private Sub CmdBatal_Click()

TxtNamaKar.SetFocus

TxtNamaKar = “”

TxtNik = “”

TxtGol = “”

TxtKode = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtProf = “”

TxtGapok = “”

TxtTunj = “”

TxtTotalG = “”

End Sub

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

 

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.Moveprevious

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

Private Sub CmdLagi_Click()

TxtNamaKar.SetFocus

TxtNamaKar = “”

TxtNik = “”

TxtGol = “”

TxtKode = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtProf = “”

TxtGapok = “”

TxtTunj = “”

TxtTotalG = “”

End Sub

Private Sub CmdProses_Click()

Dim S As String

TxtTahun.Text = Left(TxtNik, 4)

S = Mid(TxtNik, 5, 1)

If S = “A” Then

TxtGol = “A”

TxtJabatan = “Manager”

TxtGapok = “4000000”

TxtTunj = “1025000”

ElseIf S = “B” Then

TxtGol = “B”

TxtJabatan = “Ka. Seksi”

TxtGapok = “3500000”

TxtTunj = “975000”

ElseIf S = “C” Then

TxtGol = “C”

TxtJabatan = “Staff”

TxtGapok = “3000000”

TxtTunj = “925000”

End If

S = Right(TxtNik, 3)

If S = “KEU” Then

TxtProf = “Accounting”

ElseIf S = “ADM” Then

TxtProf = “Administrasi”

ElseIf S = “SDM” Then

TxtProf = “General Affair”

ElseIf S = “EDP” Then

TxtProf = “IT Unit”

ElseIf S = “SPM” Then

TxtProf = “Security”

End If

S = Mid(TxtNik, 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

TxtTotalG = Val(TxtGapok) + Val(TxtTunj)

End Sub

 

Private Sub cmdsave_Click()

Data2.Recordset.AddNew

Data2.Recordset.Update

Data2.Recordset.MoveNext

 

End Sub

 

 

Private Sub TxtNamaKar_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNik.SetFocus

End If

End Sub

 

 

TUGAS 9 TOKO ALAT TULIS

tokoalat 9

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

Txtkode.SetFocus

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

Data1.Recordset.MovePrevious

End Sub

 

Private Sub cmdhitung_Click()

txtby = Val(txthb * txtjb)

If txtjb.Text > 5 Then

txtpot = Val(txtby) * 0.02

Else

txtpot = Val(txtby) * 0

End If

txttb = Val(txtby – txtpot)

 

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdproses_Click()

Dim KB, HB, NB As Variant

KB = Mid(Txtkode, 5, 2)

Select Case KB

Case “SP”

NB = “SPIDOL”

HB = 9500

Case “BT”

NB = “BUKU TULIS”

HB = 12500

Case “TP”

NB = “TIP EX”

HB = 3000

Case “PG”

NB = “PENGGARIS”

HB = 25000

Case “PT”

NB = “PAPAN TULIS”

HB = 50000

End Select

Txtnb = NB

txthb = HB

txtjb.SetFocus

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveNext

End Sub

 

FORM 2

FORM2

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Unload Me

End Sub

 

 

Iklan

TUGAS KE 4

TUGAS 1 GOLONGAN GAJI

1 GOL

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Form_load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cbogol_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogol.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 = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

TUGAS 2 NPM

2 NPM

Private Sub CmdBatal_Click()

kosong

End Sub

Public Sub kosong()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

txtjr.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

kosong

End Sub

 

Private Sub CmdProses_Click()

Dim KetAs String

Ket = Mid(TxtNpm.Text, 3, 1)

If Ket = “1” Then

txtjr.Text = “SistemInformasi”

ElseIfKet = “2” Then

txtjr.Text = “ManajemenInformatika”

ElseIfKet = “3” Then

txtjr.Text = “TehnikInformatika”

ElseIfKet = “4” Then

txtjr.Text = “Manajemen&Komp. Akuntansi”

End If

Ket = Mid(TxtNpm.Text, 4, 2)

If Ket = “00” Then

TxtPrody.Text = “Strata Satu”

ElseIfKet = “01” Then

TxtPrody.Text = “Diploma Tiga”

ElseIfKet = “02” Then

TxtPrody.Text = “Diploma Empat”

ElseIfKet = “03” Then

TxtPrody.Text = “Diploma Dua”

End If

TxtNomorUrut.Text = Right(TxtNpm.Text, 3)

TxtTahunMasuk.Text = “20” &Left(TxtNpm.Text, 2)

End Sub

 

 

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNpm.SetFocus

End If

 

End Sub

 

TUGAS 3 ENTRI PENJUALAN LAPTOP

3 LAPTOP APPLE

Private Sub CboKode_Click()

Dim Merk, Harga, KodeAs Variant

 

Kode = Mid(CboKode.Text, 7, 5)

Select Case Kode

Case “MC965”

Merk = “Apple MC965 MacBook Air”

Harga = 12800000

Case “MC966”

Merk = “Apple MC966 MacBook Air”

Harga = 15800000

Case “MC968”

Merk = “Apple MC968 MacBook Air”

Harga = 9900000

Case “MC969”

Merk = “Apple MC969 MacBook Air”

Harga = 11900000

Case “MC700”

Merk = “Apple MC700 MacBook Pro”

Harga = 10800000

Case “MC721”

Merk = “Apple MC721 MacBook Pro”

Harga = 15900000

Case “MC723”

Merk = “Apple MC723 MacBook Pro”

Harga = 19300000

Case “MC724”

Merk = “Apple MC724 MacBook Pro”

Harga = 13700000

Case “MC311”

Merk = “Apple MC311 MacBook Pro”

Harga = 24200000

Case “MC313”

Merk = “Apple MC313 MacBook Pro”

Harga = 11900000

Case “MC314”

Merk = “Apple MC314 MacBook Pro”

Harga = 14700000

Case “MC318”

Merk = “Apple MC318 MacBook Pro”

Harga = 17600000

Case “MC322”

Merk = “Apple MC322 MacBook Pro”

Harga = 21300000

End Select

TxtMerk = Merk

TxtHarga = Harga

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode.Text = “PilihKode Laptop”

TxtMerk.Text = “”

TxtHarga.Text = “”

TxtJual.Text = “”

TxtHargaJual.Text = “”

TxtDiskon.Text = “”

TxtTotal.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim HS, Jual, Jumlah, Diskon, Total As Variant

HS = Val(TxtHarga)

Jual = Val(TxtJual)

Jumlah = HS * Jual

TxtHargaJual = Jumlah

 

Select Case Jumlah

Case Is > 140000000

Diskon = Jumlah * 0.15

Case Is > 135000000

Diskon = Jumlah * 0.1

Case Is > 130000000

Diskon = Jumlah * 0.05

Case Is > 125000000

Diskon = Jumlah * 0.02

Case Is <= 125000000

Diskon = Jumlah * 0

End Select

TxtDiskon = Diskon

 

Total = Jumlah – Diskon

TxtTotal = Total

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 4 PENJUALAN KOMPUTER

4 PENJUALAN KOMPUTER

Private Sub CboKode_Click()

Dim kode, jk, hs As Variant

 

kode = CboKode

Select Case kode

Case “P205”

jk = “Pentium II   500 Mega Hz”

hs = 1500000

Case “P308”

jk = “Pentium III 800 Mega Hz”

hs = 2100000

Case “P310”

jk = “Pentium III 1.0 Giga Hz”

hs = 3500000

Case “P415”

jk = “Pentium IV 1.5 Giga Hz”

hs = 4000000

Case “P417”

jk = “Pentium IV 1.7 Giga Hz”

hs = 4200000

Case “P419”

jk = “Pentium IV 1.9 Giga Hz”

hs = 5500000

End Select

TxtJenisKomputer = jk

TxtHargaSatuan = hs

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

 

CboKode.Text = “PilihKodeKomputer”

TxtJenisKomputer = “”

TxtHargaSatuan = “”

TxtJumlahJual = “”

TxtHargaJual = “”

TxtDiskon = “”

TxtHargaBayar = “”

End Sub

 

Private Sub CmdProses_Click()

Dim HargaSatuan, Jumlah, Penjualan, Diskon, Bayar As Variant

 

Jumlah = Val(TxtJumlahJual)

HargaSatuan = Val(TxtHargaSatuan)

Penjualan = HargaSatuan * Jumlah

TxtHargaJual = Penjualan

Select Case Penjualan

Case Is > 30000000

Diskon = Penjualan * 0.15

Case Is > 25000000

Diskon = Penjualan * 0.1

Case Is > 20000000

Diskon = Penjualan * 0.05

Case Is > 15000000

Diskon = Penjualan * 0.02

Case Is <= 150000000

Diskon = Penjualan * 0

End Select

TxtDiskon = Diskon

 

Bayar = Penjualan – Diskon

TxtHargaBayar = Bayar

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 5 PENJUALAN TIKET KERETA

5 PENJUALAN TIKET KERETA

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

TxtKt.SetFocus

TxtKt = “”

TxtHt = “”

TxtJk = “”

TxtJb = “”

TxtJt = “”

TxtTotal = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Jk, Ht, JbAs String

I = Left(TxtKt, 3)

If I = “BIM” Then

Jk = “BIMA”

Ht = “50000”

Jb = “16.00”

ElseIf I = “EKO” Then

Jk = “EKONOMI”

Ht = “35000”

Jb = “19.00”

ElseIf I = “MUT” Then

Jk = “MUTIARA”

Ht = “23000”

Jb = “17.00”

ElseIf I = “SEN” Then

Jk = “SENJA”

Ht = “15000”

Jb = “20.00”

End If

TxtJk = Jk

TxtHt = Ht

TxtJb = Jb

TxtJt.SetFocus

End Sub

 

Private Sub TxtJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTotal = Val(TxtHt.Text) * Val(TxtJt.Text)

End If

End Sub

TUGAS 6 DATA BUKU 1

6 DATA BUKU STMIK

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “PilihKodeBuku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “PilihKodeBuku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, HargaAs Variant

 

Kode = CboKode

KodeBuku = Mid(Kode, 3, 3)

Select Case KodeBuku

Case “SIM”

Judul = “SistemInformasiManajemen”

Pengarang = “YatiNurOktavia”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Imam Tarmizi”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Valentina Mariana Adiwianti”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “RiyanSuhandi”

Harga = 53000

Case “RPL”

Judul = “RekayasaPerangkatLunak”

Pengarang = “SintaUmpuSinga”

Harga = 83000

End Select

TxtJudul = Judul

TxtPengarang = Pengarang

TxtHarga = Harga

 

KodePenerbit = Left(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

TxtPenerbit = Penerbit

 

TxtTerbit.Text = “20” &Right(CboKode, 2)

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

 

TUGAS 7 DATA BUKU 2

7 DATA BUKU KE 2

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “PilihKodeBuku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “PilihKodeBuku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, HargaAs Variant

 

Kode = CboKode

KodeBuku = Left(Kode, 3)

Select Case KodeBuku

Case “SIM”

Judul = “SistemInformasiManajemen”

Pengarang = “FadiyaUlfa”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “NurulAgustina”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “RianHidayat”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “SitiNurKhotimah”

Harga = 53000

Case “RPL”

Judul = “RekayasaPerangkatLunak”

Pengarang = “WindaErlianti”

Harga = 83000

End Select

TxtJudul = Judul

TxtPengarang = Pengarang

TxtHarga = Harga

 

KodePenerbit = Right(Kode, 1)

Select Case KodePenerbit

Case “A”

Penerbit = “Andi Offset Yogyakarta”

Case “I”

Penerbit = “Indah Surabaya”

Case “S”

Penerbit = “Indah Surabaya”

Case “E”

Penerbit = “Elek Media Komputindo”

Case “M”

Penerbit = “Maxicom”

End Select

TxtPenerbit = Penerbit

 

TxtTerbit = “20” &Mid(CboKode, 5, 2)

End Sub

 

Private Sub Form_Load()

CboKode.AddItem “SIM-09-A”

CboKode.AddItem “EDP-10-I”

CboKode.AddItem “MNJ-11-S”

CboKode.AddItem “CDR-12-E”

CboKode.AddItem “RPL-13-M”

End Sub

 

TUGAS 8 PT PULANG PETANG

8 PULANG PETANG

Private Sub CmdBatal_Click()

TxtNama.SetFocus

TxtNama = “”

TxtNik = “”

TxtGolongan = “”

TxtKodeStatus = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtBagian = “”

TxtGajiPokok = “”

TxtTunjangan = “”

TxtTotalGaji = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

TxtNama.SetFocus

TxtNama = “”

TxtNik = “”

TxtGolongan = “”

TxtKodeStatus = “”

TxtStatus = “”

TxtTahun = “”

TxtJabatan = “”

TxtBagian = “”

TxtGajiPokok = “”

TxtTunjangan = “”

TxtTotalGaji = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, TunjanganAs Variant

 

Golongan = Mid(TxtNik.Text, 5, 1)

TxtGolongan = Golongan

 

KodeStatus = Mid(TxtNik.Text, 7, 1)

TxtKodeStatus = KodeStatus

 

If KodeStatus = “S” Then

Status = “Single”

ElseIfKodeStatus = “M” Then

Status = “Menikah”

ElseIfKodeStatus = “J” Then

Status = “Janda”

ElseIfKodeStatus = “D” Then

Status = “Duda”

End If

TxtStatus = Status

 

Tahun = Left(TxtNik.Text, 4)

TxtTahun = Tahun

 

Select Case Golongan

Case “A”

Jabatan = “Manager”

GajiPokok = 4000000

Tunjangan = 1025000

Case “B”

Jabatan = “Ka. Seksi”

GajiPokok = 3500000

Tunjangan = 975000

Case “C”

Jabatan = “Staff”

GajiPokok = 3000000

Tunjangan = 925000

End Select

TxtJabatan = Jabatan

TxtGajiPokok = GajiPokok

TxtTunjangan = Tunjangan

 

KodeBagian = Right(TxtNik.Text, 3)

Select Case KodeBagian

Case “KEU”

Bagian = “Accounting”

Case “ADM”

Bagian = “Administrasi”

Case “SDM”

Bagian = “General Affair”

Case “EDP”

Bagian = “IT Unit”

Case “SPM”

Bagian = “Security”

End Select

TxtBagian = Bagian

 

TxtTotalGaji = GajiPokok + Tunjangan

End Sub

 

Private Sub Form_Activate()

TxtNama.SetFocus

End Sub

 

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNik.SetFocus

End If

End Sub

TUGAS KE 3

TUGAS 1

TGS 1

source code

 

Private Sub chkBold_Click()

‘membuatteksTebal’

If chkBold.Value = 1 Then

lblteks.FontBold = True

Else

lblteks.FontBold = False

End If

End Sub

 

Private Sub chkItalic_Click()

‘membuatteks miring’

If chkItalic.Value = 1 Then

lblteks.FontItalic = True

Else

lblteks.FontItalic = False

End If

End Sub

 

Private Sub chkstikethru_Click()

‘membuatteksBergaristengah’

If chkStikethru.Value = 1 Then

lblteks.FontStrikethru = True

Else

lblteks.FontStrikethru = False

End If

End Sub

 

Private Sub chkUnderline_Click()

‘membuatteksBergarisbawah’

If chkUnderline.Value = 1 Then

lblteks.FontUnderline = True

Else

lblteks.FontUnderline = False

End If

End Sub

 

Private Sub cmdexit_Click()

End

End Sub

 

Private Sub optBlue_Click()

‘membuatteksberwarnabiru’

lblteks.ForeColor = vbBlue

End Sub

 

Private Sub optGreen_Click()

‘membuatteksberwarnahijau’

lblteks.ForeColor = vbGreen

End Sub

 

Private Sub optRed_Click()

‘membuatteksberwarnamerah’

lblteks.ForeColor = vbRed

End Sub

 

Private Sub optYellow_Click()

‘membuatteksberwarnakuning’

lblteks.ForeColor = vbYellow

End Sub

 

TUGAS 2

TUGAS PROSES

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case cbonpm.Text

Case “15201193”

nama = “INTAN RATNASARI”

jurusan = “ManajemenInformatika”

Case “15100007”

nama = “DESI YULIANTI”

jurusan = “SistemInformasi”

Case “15100031”

nama = “ARTIKA KUSTRIYANI”

jurusan = “SistemInformasi”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

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

cbonpm.AddItem “15201193”

cbonpm.AddItem “15100007”

cbonpm.AddItem “15100031”

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

 

TUGAS 3

TGS ENTER

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case cbonpm.Text

Case “15201193”

nama = “INTAN RATNASARI”

jurusan = “ManajemenInformatika”

Case “15100007”

nama = “DESI YULIANTI”

jurusan = “SistemInformasi”

Case “15100031”

nama = “ARTIKA KUSTRIYANI”

jurusan = “SistemInformasi”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

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

cbonpm.AddItem “15201193”

cbonpm.AddItem “15100007”

cbonpm.AddItem “15100031”

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

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

 

TUGAS 4

TGS 1

Private Sub Form_Activate()

txtnm.SetFocus

End Sub

 

Private Sub Optblue_Click()

lblnm.ForeColor = vbBlue

End Sub

 

Private Sub Optred_Click()

lblnm.ForeColor = vbRed

End Sub

 

Private Sub chkunderline_Click()

lblnm.FontUnderline = chkUnderline.Value

End Sub

 

Private Sub Chkbold_Click()

lblnm.FontBold = chkbold.Value

End Sub

 

Private Sub cmdok_Click()

lblnm.Caption = txtnm.Text

End Sub

 

Private Sub Cmdselesai_Click()

End

End Sub

 

 

TUGAS BAHASA PEMROGAMAN 1

TUGAS 1 PERKALIAN (HITUNG)

1

Private Sub intan1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan2.SetFocus

End If

End Sub

 

 

Private Sub intanhitung_click()

intanhasil = Val(intan1) * Val(intan2)

End Sub

 

Private Sub intanbersih_Click()

intan1.SetFocus

intan1 = “”

intan2 = “”

intanhasil = “”

End Sub

 

Private Sub intankeluar_Click()

End

End Sub

 

TUGAS 2 PERKALIAN(ENTER)

2

Private Sub intan1_keypress(keyascii As Integer)

If keyascii = 13 Then

intan2.SetFocus

End If

End Sub

 

Private Sub intan2_keypress(keyascii As Integer)

If keyascii = 13 Then

intanhasil.SetFocus

intanhasil = Val(intan1) * Val(intan2)

End If

End Sub

 

Private Sub intanhitung_click()

intanhasil = Val(intan1) * Val(intan2)

End Sub

 

Private Sub intanbersih_Click()

intan1.SetFocus

intan1 = “”

intan2 = “”

intanhasil = “”

End Sub

 

Private Sub intankeluar_Click()

End

End Sub

 

TUGAS 3 KALKULATOR(PROSES)

3

Private Sub intan1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan2.SetFocus

End If

End Sub

 

Private Sub intan2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan4.SetFocus

intan3 = Val(intan1) + Val(intan2)

End If

End Sub

 

Private Sub intan4_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan5.SetFocus

End If

End Sub

 

Private Sub intan5_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan7.SetFocus

intan6 = Val(intan4) * (intan5)

End If

End Sub

 

Private Sub intan7_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan8.SetFocus

End If

End Sub

 

Private Sub intan8_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan10.SetFocus

intan9 = Val(intan7) – Val(intan8)

End If

End Sub

 

Private Sub intan10_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan11.SetFocus

End If

End Sub

 

Private Sub intan11_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan12 = Val(intan10) / Val(intan11)

End If

End Sub

 

Private Sub intanproses_Click()

If intan10 = “” Or intan11 = “” Then

intan3 = Val(intan1) + Val(intan2)

intan6 = Val(intan4) * Val(intan5)

intan9 = Val(intan7) – Val(intan8)

intan12 = 0

 

Else

 

intan3 = Val(intan1) + Val(intan2)

intan6 = Val(intan4) * Val(intan5)

intan9 = Val(intan7) – Val(intan8)

intan12 = Val(intan10) / Val(intan11)

End If

End Sub

 

Private Sub intanulang_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

intan4 = ” ”

intan5 = ” ”

intan6 = ” ”

intan7 = ” ”

intan8 = ” ”

intan9 = ” ”

intan10 = ” ”

intan11 = ” ”

intan12 = ” ”

End Sub

 

Private Sub intanbatal_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

intan4 = ” ”

intan5 = ” ”

intan6 = ” ”

intan7 = ” ”

intan8 = ” ”

intan9 = ” ”

intan10 = ” ”

intan11 = ” ”

intan12 = ” ”

End Sub

 

 

Private Sub intankeluar_Click()

End

End Sub

 

TUGAS 4 KALKULATOR(ENTER)

4

Private Sub intan1_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan2.SetFocus

End If

End Sub

 

Private Sub intan2_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan4.SetFocus

intan3 = Val(intan1) + Val(intan2)

End If

End Sub

 

Private Sub intan4_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan5.SetFocus

End If

End Sub

 

Private Sub intan5_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan7.SetFocus

intan6 = Val(intan4) * (intan5)

End If

End Sub

 

Private Sub intan7_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan8.SetFocus

End If

End Sub

 

Private Sub intan8_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan10.SetFocus

intan9 = Val(intan7) – Val(intan8)

End If

End Sub

 

Private Sub intan10_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan11.SetFocus

End If

End Sub

 

Private Sub intan11_keypress(keyAscii As Integer)

If keyAscii = 13 Then

intan12 = Val(intan10) / Val(intan11)

End If

End Sub

 

Private Sub intanulang_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

intan4 = ” ”

intan5 = ” ”

intan6 = ” ”

intan7 = ” ”

intan8 = ” ”

intan9 = ” ”

intan10 = ” ”

intan11 = ” ”

intan12 = ” ”

End Sub

 

Private Sub intanbatal_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

intan4 = ” ”

intan5 = ” ”

intan6 = ” ”

intan7 = ” ”

intan8 = ” ”

intan9 = ” ”

intan10 = ” ”

intan11 = ” ”

intan12 = ” ”

End Sub

 

Private Sub intankeluar_Click()

End

End Sub

 

TUGAS 5 DISKON(HITUNG)

5

Private Sub intan1_keypress(keyascii As Integer)

If keyascii = 13 Then

intan3.SetFocus

intan2 = Val(intan1) * 0.1

intan3 = Val(intan1) – Val(intan2)

End If

End Sub

 

Private Sub intanhitung_Click()

intan2 = Val(intan1) * 0.1

intan3 = Val(intan1) – Val(intan2)

End Sub

 

Private Sub intanulang_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

End Sub

 

Private Sub intanquit_Click()

End

End Sub

 

 

 

TUGAS 6 DISKON(ENTER)

6

Private Sub intan1_keypress(keyascii As Integer)

If keyascii = 13 Then

intan3.SetFocus

intan2 = Val(intan1) * 0.1

intan3 = Val(intan1) – Val(intan2)

End If

End Sub

 

Private Sub intanulang_Click()

intan1.SetFocus

intan1 = ” ”

intan2 = ” ”

intan3 = ” ”

End Sub

 

Private Sub intanquit_Click()

End

End Sub

 

 

TUGAS 7 PERHITUNGAN GAJI(PROSES)

7

Private Sub intanpokok_Keypress(keyascii As Integer)

If keyascii = 13 Then

intantunjangan.SetFocus

End If

 

End Sub

 

 

Private Sub intanpotongan_Keypress(keyascii As Integer)

If keyascii = 13 Then

intankotor = Val(intanpokok) + Val(intantunjangan) – Val(intanpotongan)

intanpajak = Val(intankotor) * 0.1

intanterima = Val(intankotor) – Val(intanpajak)

End If

 

End Sub

 

Private Sub intantunjangan_Keypress(keyascii As Integer)

If keyascii = 13 Then

intanpotongan.SetFocus

End If

 

End Sub

 

Private Sub intanproses_Click()

intankotor = Val(intanpokok) + Val(intantunjanganj) – Val(intanpotongan)

intanpajak = Val(intankotor) * 0.1

intanterima = Val(intanpokok) – Val(intanpajak)

 

End Sub

 

Private Sub intanulang_Click()

intanpokok.SetFocus

intanpokok = ” ”

intantunjangan = ” ”

intanpotongan = ” ”

intankotor = ” ”

intanpajak = ” ”

intanterima = ” ”

 

End Sub

 

Private Sub cmdulang_Click()

intanpokok.SetFocus

intanpokok = ” ”

intantunjangan = ” ”

intanpotongan = ” ”

intankotor = ” ”

intanpajak = ” ”

intanterima = ” ”

 

End Sub

 

Private Sub intankeluar_Click()

End

 

End Sub

TUGAS 8 PERHITUNGAN GAJI(ENTER)

8

Private Sub intanpokok_Keypress(keyascii As Integer)

If keyascii = 13 Then

intantunjangan.SetFocus

End If

 

End Sub

 

 

Private Sub intanpotongan_Keypress(keyascii As Integer)

If keyascii = 13 Then

intankotor = Val(intanpokok) + Val(intantunjangan) – Val(intanpotongan)

intanpajak = Val(intankotor) * 0.1

intanterima = Val(intankotor) – Val(intanpajak)

End If

 

End Sub

 

Private Sub intantunjangan_Keypress(keyascii As Integer)

If keyascii = 13 Then

intanpotongan.SetFocus

End If

 

End Sub

 

Private Sub intanulang_Click()

intanpokok.SetFocus

intanpokok = ” ”

intantunjangan = ” ”

intanpotongan = ” ”

intankotor = ” ”

intanpajak = ” ”

intanterima = ” ”

 

End Sub

 

Private Sub cmdulang_Click()

intanpokok.SetFocus

intanpokok = ” ”

intantunjangan = ” ”

intanpotongan = ” ”

intankotor = ” ”

intanpajak = ” ”

intanterima = ” ”

 

End Sub

 

Private Sub intankeluar_Click()

End

 

End Sub

TUGAS 2 VISUAL BASIC BAHASA PEMROGAMAN

iinti

Private Sub Txtisnpm_keypress(KeyAsCii As Integer)
If KeyAsCii = 13 Then
Txtisnama.SetFocus
End If
End Sub

Private Sub Txtisnama_keypress(KeyAsCii As Integer)
If KeyAsCii = 13 Then
Txtisalamat.SetFocus
End If
End Sub

Private Sub Txtisalamat_keypress(KeyAsCii As Integer)
If KeyAsCii = 13 Then
Txtisprogramstudi.SetFocus
End If
End Sub

Private Sub Txtisprogramstudi_keypress(KeyAsCii As Integer)
If KeyAsCii = 13 Then
Txtisjurusan.SetFocus
End If
End Sub

Private Sub Txtisjurusan_keypress(KeyAsCii As Integer)
If KeyAsCii = 13 Then
Txtisagama.SetFocus
End If
End Sub

Private Sub cmdislagi_click()
Txtisnpm.SetFocus
Txtisnpm = ” ”
Txtisnama = ” ”
Txtisalamat = ” ”
Txtisprogramstudi = ” ”
Txtisjurusan = ” ”
Txtisagama = ” ”
End Sub

Private Sub cmdisbatal_click()
Txtisnpm.SetFocus
Txtisnpm = ” ”
Txtisnama = ” ”
Txtisalamat = ” ”
Txtisprogramstudi = ” ”
Txtisjurusan = ” ”
Txtisagama = ” ”
End Sub

Private Sub cmdiskeluar_click()
End
End Sub

TUGAS 1 VISUAL BASIC BAHASA PEMROGAMAN

inton

Private Sub Txtisnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtisnama.SetFocus
End If
End Sub

Private Sub Txtisnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtisalamat.SetFocus
End If
End Sub

Private Sub Cmdislagi_Click()
Txtisnpm.SetFocus
Txtisnpm = ” ”
Txtisnama = ” ”
Txtisalamat = ” ”
End Sub

Private Sub Cmdisbatal_Click()
Txtisnpm.SetFocus
Txtisnpm = ” ”
Txtisnama = ” ”
Txtisalamat = ” ”
End Sub

Private Sub Cmdiskeluar_Click()
End
End Sub

Empat Alasan Ulama Aceh Pro Kontra pada Vaksin Polio Tetes

Proses membuat vaksin di Bio Farma
Proses membuat vaksin di Bio Farma

REPUBLIKA.CO.ID, MEULABOH — Pengemuka agama di Kabupaten Aceh Barat, Provinsi Aceh membahas kembali fatwa Majelis Permusyawaratan Ulama (MPU) Aceh Nomor 03 Tahun 2015 tentang Vaksin Polio Tetes. Salah seorang ulama Aceh, Rasmudin mengatakan masih banyak masyarakat bahkan ulama di Aceh Barat pro-kontra terhadap halalnya vaksin polio tetes. “Karena itu hari ini diadakan diskusi dan sosialisasi untuk melahirkan sebuah kesepahaman,” kata Ketua Panitia Rasmudin di Meulaboh, Senin (9/11).

Dalam keputusan MPU Aceh terhadap fatwa tentang vaksin polio tetes menetapkan empat rumusan. Disebutkan bahwa vaksin polio tetes bagi balita adalah virus yang diambil dari penderita polio, dikembangkan dengan media ginjal janin kera berekor panjang yang berumur 120 hari, lalu dipisahkan dengan menggunakan Tripsin (enzim babi).

Kemudian ada yang menyatakan vaksin polio tetes adalah mutanajjis (barang terkena najis). Lalu disebutkan penggunaan vaksin polio tetes dalam kondisi darurat adalah dibolehkan.

Selanjutnya dalam taushiah diharapkan kepada pemerintah untuk mengupayakan vaksin polio tetes yang suci. Selain itu juga mengharapkan kepada pakar medis untuk memproduksi vaksin polio tetes yang suci. “Kami mendukung terhadap fatwa tersebut, yang intinya kita mengharapkan pemerintah memproduksi vaksin polio tetes yang suci,” tambah Ketua Badan Komunikasi Pengurus Remaja Masjid Indonesia (BKPRMI) Aceh Barat, Khairul.

Lebih lanjut dia mengatakan, BKPRMI Aceh Barat sangat mendukung fatwa MPU Aceh Nomor 03 Tahun 2015 tentang Vaksin Polio Tetes demi kemaslahatan umat dan kesehatan anak meskipun masih ada pro-kontra di sejumlah kalangan masyarakat. Dia menyebutkan vaksin tersebut tidak diharamkan, tapi hanya sebatas mutanajjis. Karena bersinguhan dengan najis yang ada peluang disucikan. Hanya saja ulama di Aceh berharap ada upaya pemerintah memproduksi vaksin polio tetes yang suci.

“Vaksin ini mutanajis, dan dibolehkan untuk balita karena dalam kondisi darurat, kemudian pengharapan kepada pemerintah membuat vaksin pengganti, dalam hal ini Bio Farma mencari virus lain yang halalan thayib,” katanya menambahkan.

Pertemuan itu sendiri dihadiri unsur tokoh ulama Aceh Barat dan MPU, Wakil Ketua MPU Aceh Tengku H Faisal Ali, Kepala Sekretariat MPU Aceh Saifuddin Puteh dan unsur dinas kesehatan Provinsi Aceh dan Kabupaten Aceh Barat, serta perwakilan dari Departemen Kesehatan RI.

sumber : http://khazanah.republika.co.id/berita/dunia-islam/fatwa/15/11/09/nxjgp2384-empat-alasan-ulama-aceh-pro-kontra-pada-vaksin-polio-tetes

Berilmu Sepanjang Hayat

Kegiatan belajar mengajar di Papua Barat
Kegiatan belajar mengajar di Papua Barat

REPUBLIKA.CO.ID, Oleh: Dadang Kahmad

Baqi bin Makhlad, seorang murid Imam Ahmad Bin Hanbal, layak menjadi teladan bagi para pencari ilmu. Ketika berusia 20 tahun, ia melakukan perjalanan dari Andalusia menuju Baghdad dengan berjalan kaki demi mencari ilmu.

Ia rela menempuh perjalanan yang begitu panjang, melewati padang pasir, melintasi lautan, dan mendaki pegunungan. Upaya itu dilakukan Baqi bin Makhlad untuk belajar hadis pada ulama terkemuka bernama Imam Ahmad bin Hambal.

Di tengah perjalanan ke Kota Baghdad, ia mendengar kabar bahwa Imam Ahmad bin Hanbal sedang menghadapi ujian.Saat itu, Imam Ahmad bin Hanbal berkukuh pada pendapatnya bahwa Alquran bukanlah makhluk.

Akibatnya, penguasa melarang sang imam untuk mengajar atau membuka majelis ilmu. Ia dipenjara di rumahnya. Mengetahui hal itu, Baqi pun bersedih. Namun, langkahnya untuk berguru pada sang imam tak berhenti.

Ia tetap melanjutkan perjalanan ke Baghdad. Setibanya di ibu kota Dinasti Abbasiyah, Baqi meletakkan perbekalannya dan pergi menuju Masjid Agung. Ia lalu pergi mencari rumah Imam Ahmad bin Hanbal.

Ia kemudian mengetuk pintu dan mengucap salam dan Imam Ahmad pun menjawab salam serta membuka pintu. “Aku adalah orang yang asing di negeri ini dan ingin mencari ilmu, tidaklah aku melakukan perjalanan mencari ilmu ini kecuali kepadamu,” ujar Baqi.

Imam Ahmad lalu bertanya, “Dari manakah asalmu?” “Dari Barat jauh. Aku mangarungi lautan untuk menuju ke sini,” jawab Baqi. Sang imam lalu berkata, “Tempat tinggalmu jauh sekali, dan sebetulnya aku ingin membantumu, tetapi aku sedang dalam tahanan rumah dan tidak boleh mengajarkan sesuatu.”

“Wahai Abu Abdillah (sebutan Imam Ahmad)… aku adalah orang yang asing, tidak ada satupun dari orang Baghdad yang mengenaliku. Jika engkau mau aku akan datang kepadamu setiap hari sebagai seorang pengemis kemudian aku ketuk pintu rumahmu aku meminta sedekah, kemudian engkau membacakan kepadaku walaupun satu hadis dalam sehari,” ucap Baqi.

“Baiklah…,” ujar Imam Ahmad bin Hanbal. “Engkau boleh seperti itu tetapi dengan syarat tidak menceritakannya kepada para pencari hadis yang lain karena nanti mereka akan iri kepadamu.”

Kisah di atas memberi pesan pada kita, sejauh apa pun jarak akan ditempuh oleh orang-orang yang haus akan ilmu dan kebenaran. Orang terdahulu lebih baik keluar dari tempat tinggal untuk hijrah dari kondisi kebodohan.

Mencari ilmu atau belajar adalah proses yang harus dilakukan terus-menerus meskipun kita tidak lagi berada di lingkungan sekolah atau universitas.

Rasulullah SAW bersabda, “Barangsiapa yang menempuh jalan untuk menuntut ilmu maka Allah akan mudahkan baginya jalan menuju surga.” (HR Muslim).

Ilmu begitu penting dalam kehidupan umat manusia yang hendak mempertebal keimanan. Karena, ilmu dan keimanan laiknya dua sisi mata uang logam yang tidak terpisahkan.

Tanpa ilmu pengetahuan, keimanan kita bakal keropos. Sedangkan, tanpa keimanan, ilmu kita laksana kapal terbang tak berpilot, dapat mencelakakan para penumpang.

Itulah mengapa Allah SWT memerintahkan kita untuk selalu berlapang-lapang dalam majelis keilmuan (QS al-Mujaadilah [58]: 11). Di dalam Islam, belajar harus terus-menerus dilakukan tanpa mengenal usia, waktu, dan kesempatan.

Karena itu, ketika prinsip belajar sepanjang hidup tidak kita tanamkan dalam keyakinan, Rasulullah SAW bersabda, “Sesungguhnya Allah tidak menahan ilmu dari manusia dengan cara merenggutnya. Tetapi, dengan mewafatkan para ulama cendekia sehingga tidak lagi tersisa seorang alim.

Dengan demikian, orang-orang mengangkat pemimpin-pemimpin yang dungu lalu ditanya dan dia memberi fatwa tanpa ilmu pengetahuan. Mereka sesat dan menyesatkan,” (HR Mutafaqalaih). Wallahu alam.

sumber : http://www.republika.co.id/berita/dunia-islam/hikmah/15/11/07/nxfgh8301-berilmu-sepanjang-hayat

Amal Terbaik

bri-memberi-bantuan-pada-korban-merapi-_130918114645-810

REPUBLIKA.CO.ID, Oleh: Iu Rusliana

Suatu hari Abu Dzarr bin Jundah RA bertanya kepada Rasulullah SAW, “Amal apakah yang paling utama?” Beliau menjawab, “Iman kepada Allah dan berjuang di jalan-Nya.

Aku bertanya, “Memerdekakan budak yang bagaimana yang paling utama?” Beliau menjawab, “Memerdekakan budak ketika sangat disayangi tuannya dan yang paling mahal harganya.

Aku bertanya, “Seandainya aku tidak mampu berbuat yang sedemikian, lalu bagaimana?” Beliau menjawab, “Kamu membantu orang yang bekerja atau kamu menyibukkan diri agar hidupmu tidak sia-sia.

Aku bertanya lagi: “Wahai Rasulullah, bagaimana jika aku tidak mampu melakukan sebagian pekerjaan itu? “Beliau menjawab, “Janganlah kamu berbuat kejahatan kepada sesama manusia, karena sesungguhnya yang demikian itu termasuk sedekah untuk dirimu.” (HR Bukhari dan Muslim).

Hadis di atas menunjukkan betapa banyak jalan untuk kebaikan. Iman menjadi amalan yang paling utama, bahkan menduduki peringkat teratas. Tentu saja bukan tanpa sebab, tanpa iman yang kokoh, sikap tauhid, segala amal kebaikan menjadi tak ada nilai spiritualnya.

Iman kepada Allah Yang Maha Kuasa menjadi sarana pembebasan manusia dari penghambaan pada yang lainnya. Tidak ada lagi tuhan-tuhan kecil yang diperhamba, selain Tuhan sejati, Allah SWT.

Rasulullah Saw bersabda, “ Iman itu mempunyai tujuh puluh atau enam puluh lebih cabang, yang paling utama adalah ucapan Laa Ilaaha Illallah, dan yang paling rendah adalah menyingkirkan gangguan dari jalan. Sedangkan malu adalah cabang dari iman.” (HR Bukhari dan Muslim)

Dalam praktiknya, ikhlas dalam seluruh kegiatan ibadah merupakan kunci untuk memperoleh amalan terbaik. Firman Allah SWT, “Padahal mereka tidak disuruh kecuali supaya menyembah Allah dengan memurnikan ketaatan kepada-Nya dalam (menjalankan) agama yang lurus, dan supaya mereka mendirikan shalat dan menunaikan zakat; dan yang demikian itulah agama yang lurus,” (QS Al-Bayyinah:5).

Niat yang tulus dalam beribadah tentu menjadikan setiap kebaikan memiliki keutamaan yang lebih di hadapan Allah.

Rasul bersabda, “Setiap amal disertai dengan niat. Setiap amal seseorang tergantung dengan apa yang diniatkannya. Karena itu, siapa saja yang hijrahnya karena Allah dan Rasul-Nya, maka hijrahnya diterima dan diridhai Allah dan Rasul-Nya. Tetapi barang siapa yang melakukan hijrah demi kepentingan dunia, atau karena wanita yang akan dinikahinya, maka hijrahnya akan mendapat apa yang menjadi tujuannya,” (HR Bukhari Muslim).

sumber : http://www.republika.co.id/berita/dunia-islam/hikmah/15/11/09/nxinwx301-amal-terbaik