TUGAS 9 PROGRAM

 

Tugas 1

Private Sub CboGolongan_Click()

Dim Golongan, GajiPokok, Tunjangan, Pajak, Total As Variant

 

Golongan = CboGolongan

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

TextGajiPokok = GajiPokok

TextTunjangan = Tunjangan

 

Pajak = (GajiPokok + Tunjangan) * 0.1

TextPajak = Pajak

 

Total = GajiPokok + Tunjangan – Pajak

TextTotal = Total

End Sub

 

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdBatal_Click()

TextNidn.SetFocus

TextNidn.Text = “”

TextNama.Text = “”

CboGolongan.Text = “”

TextGajiPokok.Text = “”

TextTunjangan = “”

TextPajak = “”

TextTotal = “”

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

TextNidn.SetFocus

TextNidn.Text = “”

TextNama.Text = “”

CboGolongan.Text = “”

TextGajiPokok.Text = “”

TextTunjangan = “”

TextPajak = “”

TextTotal = “”

End Sub

 

Private Sub cmdSave_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub Form_Load()

CboGolongan.AddItem “I”

CboGolongan.AddItem “II”

CboGolongan.AddItem “III”

CboGolongan.AddItem “IV”

End Sub

 

Private Sub Textnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

TextNama.SetFocus

End If

End Sub

 

Private Sub TextNama_KeyPress(keyascii As Integer)

If keyascii = 13 Then

CboGolongan.SetFocus

End If

End Sub

 

 

 

Tugas 2

 

 

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdBatal_Click()

TextNama.SetFocus

TextNama.Text = “”

TextNpm.Text = “”

TextJurusan.Text = “”

TextPrody.Text = “”

TextTahunMasuk.Text = “”

TextNomorUrut.Text = “”

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

TextNama.SetFocus

TextNama.Text = “”

TextNpm.Text = “”

TextJurusan.Text = “”

TextPrody.Text = “”

TextTahunMasuk.Text = “”

TextNomorUrut.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant

 

Kode = TextNpm

 

TahunMasuk = “20” & Left(Kode, 2)

TextTahunMasuk = TahunMasuk

 

KodeJurusan = Mid(Kode, 3, 1)

Select Case KodeJurusan

Case “1”

Jurusan = “Sistem Informasi”

Case “2”

Jurusan = “Teknik Informatika”

Case “3”

Jurusan = “Manajemen Informatika”

Case “4”

Jurusan = “Komputer Akuntansi”

End Select

TextJurusan = Jurusan

 

KodePrody = Mid(Kode, 4, 2)

Select Case KodePrody

Case “01”

Prody = “Strata Satu”

Case “02”

Prody = “Diplomat Empat”

Case “03”

Prody = “Diplomat Tiga”

Case “04”

Prody = “Diplomat Dua”

End Select

TextPrody = Prody

 

NomorUrut = Right(Kode, 3)

TextNomorUrut = NomorUrut

End Sub

 

Private Sub CmdSave_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub Textnama_keypress(keyascii As Integer)

If keyascii = 13 Then

TextNpm.SetFocus

End If

End Sub

 

 

 

Tugas 3

Private Sub CboKode_Click()

Dim Merk, Harga, Kode As 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

Textmt = Merk

Texths = Harga

End Sub

 

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub Cmdhitungulang_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Textmt.Text = “”

Texths.Text = “”

Textjj.Text = “”

Texthp.Text = “”

Textdis.Text = “”

Texttb.Text = “”

End Sub

 

Private Sub CmdProses_Click()

Dim HS, JJ, HP, Diskon, Total As Variant

HS = Val(Texths)

JJ = Val(Textjj)

HP = HS * JJ

Texthp = HP

 

Select Case HP

Case Is > 140000000

Diskon = HP * 0.15

Case Is > 135000000

Diskon = HP * 0.1

Case Is > 130000000

Diskon = HP * 0.05

Case Is > 125000000

Diskon = HP * 0.02

Case Is <= 125000000

Diskon = HP * 0

End Select

Textdis = Diskon

 

Texttb = HP – Diskon

End Sub

 

Private Sub CmdSave_Click()

Adodc1.Recordset.Save

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

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

textjk = jk

texths = Hs

End Sub

 

Private Sub cmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub Cmdclose_Click()

Form1.Show

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub Cmdhitungulang_Click()

Cbokode.SetFocus

 

Cbokode.Text = “”

textjk = “”

texths = “”

textjj = “”

texthp = “”

textdis = “”

texthb = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Hs, Jj, hp, Dis, hb As Variant

 

Jj = Val(textjj)

Hs = Val(texths)

hp = Hs * Jj

texthp = hp

Select Case hp

Case Is > 30000000

Dis = hp * 0.15

Case Is > 25000000

Dis = hp * 0.1

Case Is > 20000000

Dis = hp * 0.05

Case Is > 15000000

Dis = hp * 0.02

Case Is <= 150000000

Dis = hp * 0

End Select

textdis = Dis

 

hb = hp – Dis

texthb = hb

End Sub

 

 

Private Sub cmdSave_Click()

Adodc1.Recordset.Save

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

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

Textkt.SetFocus

Textkt = “”

Textht = “”

Textjk = “”

Textjb = “”

Textjt = “”

Texttp = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kt, Ht, Jk, jb As Variant

 

Kt = Left(Textkt.Text, 3)

Select Case Kt

Case “BIM”

Ht = 50000

Jk = “BIMA”

jb = “16.00”

Case “EKO”

Ht = 35000

Jk = “EKONOMI”

jb = “19.00”

Case “MUT”

Ht = 23000

Jk = “MUTIARA”

jb = “17.00”

Case “SEN”

Ht = 15000

Jk = “SENJA”

jb = “20.00”

End Select

Textht = Ht

Textjk = Jk

Textjb = jb

Textjt.SetFocus

End Sub

 

Private Sub CmdSave_Click()

Adodc1.Recordset.Save

End Sub

 

 

Private Sub CmdBatal_Click()

Textkt.SetFocus

Textkt = “”

Textht = “”

Textjk = “”

Textjb = “”

Textjt = “”

Texttp = “”

 

End Sub

 

Private Sub TextJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttp = Val(Textht.Text) * Val(Textjt.Text)

End If

End Sub

 

 

 

TUGAS 6

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “”

txtJudul = “”

txtPengarang = “”

txtTerbit = “”

txtPenerbit = “”

txtHarga = “”

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “”

txtJudul = “”

txtPengarang = “”

txtTerbit = “”

txtPenerbit = “”

txtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

 

Kode = CboKode

KodeBuku = Mid(Kode, 3, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Yati Nur Oktavia”

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

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Sinta Umpu Singa”

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

 

KodeTahun = Right(Kode, 2)

Select Case KodeTahun

Case “01”

Tahun = “20” & KodeTahun

Case “02”

Tahun = “20” & KodeTahun

Case “03”

Tahun = “20” & KodeTahun

Case “04”

Tahun = “20” & KodeTahun

Case “05”

Tahun = “20” & KodeTahun

End Select

txtTerbit = Tahun

End Sub

 

Private Sub CmdSave_Click()

Adodc1.Recordset.Save

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

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdBatal_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

 

Private Sub CmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

 

Private Sub CmdProses_Click()

Dim KODE, KB, JB, P, HRP As Variant

 

KODE = cbokb

KB = Left(KODE, 3)

Select Case KB

Case “SIM”

JB = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

HRP = 75900

Case “EDP”

JB = “Elektronik Data Processing”

P = “Nurul Agustina”

HRP = 62000

Case “MNJ”

JB = “Manajemen”

P = “Rian Hidayat”

HRP = 42000

Case “CDR”

JB = “Corel Draw”

P = “Siti Nur Khotimah”

HRP = 53000

Case “RPL”

JB = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

HRP = 83000

End Select

Textjb = JB

Textp = P

Texthrp = HRP

 

Textpen = Right(KODE, 1)

Select Case Textpen

Case “A”

Pen = “Andi Offset Yogyakarta”

Case “I”

Pen = “Indah Surabaya”

Case “S”

Pen = “Indah Surabaya”

Case “E”

Pen = “Elek Media Komputindo”

Case “M”

Pen = “Maxicom”

End Select

Textpen = Pen

 

Texttt = Mid(KODE, 5, 2)

Select Case Texttt

Case “09”

TT = “2001” & TT

Case “10”

TT = “2003” & TT

Case “11”

TT = “2003” & TT

Case “12”

TT = “2004” & TT

Case “13”

TT = “2005” & TT

End Select

Texttt = TT

End Sub

 

Private Sub CmdSave_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub Form_Load()

cbokb.AddItem “SIM-09-A”

cbokb.AddItem “EDP-10-I”

cbokb.AddItem “MNJ-11-S”

cbokb.AddItem “CDR-12-E”

cbokb.AddItem “RPL-13-M”

End Sub

 

 

 

Tugas 8

Private Sub cmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdBatal_Click()

TextNama.SetFocus

TextNama = “”

TextNik = “”

TextGolongan = “”

TextKodeStatus = “”

TextStatus = “”

TextTahun = “”

TextJabatan = “”

TextBagian = “”

TextGajiPokok = “”

TextTunjangan = “”

TextTotalGaji = “”

End Sub

 

Private Sub cmdHapus_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CmdKeluar_Click()

Form1.Show

End Sub

 

Private Sub CmdLagi_Click()

TextNama.SetFocus

TextNama = “”

TextNik = “”

TextGolongan = “”

TextKodeStatus = “”

TextStatus = “”

TextTahun = “”

TextJabatan = “”

TextBagian = “”

TextGajiPokok = “”

TextTunjangan = “”

TextTotalGaji = “”

End Sub

 

Private Sub CmdProses_Click()

Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

 

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

TextGolongan = Golongan

 

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

TextKodeStatus = KodeStatus

 

If KodeStatus = “S” Then

Status = “Single”

ElseIf KodeStatus = “M” Then

Status = “Menikah”

ElseIf KodeStatus = “J” Then

Status = “Janda”

ElseIf KodeStatus = “D” Then

Status = “Duda”

End If

TextStatus = Status

 

Tahun = Left(TextNik.Text, 4)

TextTahun = 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

TextJabatan = Jabatan

TextGajiPokok = GajiPokok

TextTunjangan = Tunjangan

 

KodeBagian = Right(TextNik.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

TextBagian = Bagian

 

TextTotalGaji = GajiPokok + Tunjangan

End Sub

 

Private Sub cmdSave_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub Form_Activate()

TextNama.SetFocus

End Sub

 

Private Sub TextNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextNik.SetFocus

End If

End Sub

 

 

 

TUGAS 9

Private Sub CmdAdd_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CmdCancel_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub cmdhitung_Click()

Txtby = Val(Txthb * Txtjb)

If Txtjb.Text > 5 Then

Txtp = Val(Txtby) * 0.02

Else

Txtp = 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(txtkb, 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()

Adodc1.Recordset.Save

End Sub

 

 

Iklan

TUGAS VB

GOLONGAN

GOLONGAN1

GOLONGAN

 

Private Sub CboGolongan_Click()

Dim Golongan, GajiPokok, Tunjangan, Pajak, Total As Variant

Golongan = CboGolongan

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

TextGajiPokok = GajiPokok

TextTunjangan = Tunjangan

Pajak = (GajiPokok + Tunjangan) * 0.1

TextPajak = Pajak

Total = GajiPokok + Tunjangan – Pajak

TextTotal = Total

End Sub

Private Sub CmdBatal_Click()

TextNidn.SetFocus

TextNidn.Text = “”

TextNama.Text = “”

CboGolongan.Text = “”

TextGajiPokok = “”

TextTunjangan = “”

TxtPajak = “”

TxtTotal = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

TextNidn.SetFocus

TextNidn.Text = “”

TextNama.Text = “”

CboGolongan.Text = “”

TextGajiPokok = “”

TextTunjangan = “”

TextPajak = “”

TextTotal = “”

End Sub

Private Sub Form_Load()

CboGolongan.AddItem “I”

CboGolongan.AddItem “II”

CboGolongan.AddItem “III”

CboGolongan.AddItem “IV”

End Sub

Private Sub Textnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

TextNama.SetFocus

End If

End Sub

Private Sub TextNama_KeyPress(keyascii As Integer)

If keyascii = 13 Then

CboGolongan.SetFocus

End If

End Sub

NPM

NPM1

NPM

 

Private Sub CmdBatal_Click()

TextNama.SetFocus

TextNama.Text = “”

TextNpm.Text = “”

TextJurusan.Text = “”

TextPrody.Text = “”

TextTahunMasuk.Text = “”

TextNomorUrut.Text = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

TextNama.SetFocus

TextNama.Text = “”

TextNpm.Text = “”

TextJurusan.Text = “”

TextPrody.Text = “”

TextTahunMasuk.Text = “”

TextNomorUrut.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim Kode, KodeJurusan, KodePrody, Jurusan, Prody, TahunMasuk, NomorUrut As Variant

Kode = TextNpm

TahunMasuk = “20” & Left(Kode, 2)

TextTahunMasuk = TahunMasuk

KodeJurusan = Mid(Kode, 3, 1)

Select Case KodeJurusan

Case “1”

Jurusan = “Sistem Informasi”

Case “2”

Jurusan = “Teknik Informatika”

Case “3”

Jurusan = “Manajemen Informatika”

Case “4”

Jurusan = “Komputer Akuntansi”

End Select

TextJurusan = Jurusan

KodePrody = Mid(Kode, 4, 2)

Select Case KodePrody

Case “01”

Prody = “Strata Satu”

Case “02”

Prody = “Diplomat Empat”

Case “03”

Prody = “Diplomat Tiga”

Case “04”

Prody = “Diplomat Dua”

End Select

TextPrody = Prody

NomorUrut = Right(Kode, 3)

TextNomorUrut = NomorUrut

End Sub

Private Sub Form_Load()

End Sub

Private Sub Textnama_keypress(keyascii As Integer)

If keyascii = 13 Then

TextNpm.SetFocus

End If

End Sub

 PNJULAN LAPTOP

PNJULAN LAPTO1

PENJUALAN LAPTOP

 

Private Sub CboKode_Click()

Dim Merk, Harga, Kode As 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

Textmt = Merk

Texths = Harga

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub Cmdhitungulang_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Textmt.Text = “”

Texths.Text = “”

Textjj.Text = “”

Texthp.Text = “”

Textdis.Text = “”

Texttb.Text = “”

End Sub

Private Sub CmdProses_Click()

Dim HS, JJ, HP, Diskon, Total As Variant

HS = Val(Texths)

JJ = Val(Textjj)

HP = HS * JJ

Texthp = HP

Select Case HP

Case Is > 140000000

Diskon = HP * 0.15

Case Is > 135000000

Diskon = HP * 0.1

Case Is > 130000000

Diskon = HP * 0.05

Case Is > 125000000

Diskon = HP * 0.02

Case Is <= 125000000

Diskon = HP * 0

End Select

Textdis = Diskon

Texttb = HP – Diskon

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

PENJLN KOM

PNJULN KOM1

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

textjk = jk

texths = Hs

End Sub

Private Sub Cmdclose_Click()

Unload Me

End Sub

Private Sub Cmdhitungulang_Click()

Cbokode.SetFocus

Cbokode.Text = “”

textjk = “”

texths = “”

textjj = “”

texthp = “”

textdis = “”

texthb = “”

End Sub

Private Sub CmdProses_Click()

Dim Hs, Jj, hp, Dis, hb As Variant

Jj = Val(textjj)

Hs = Val(texths)

hp = Hs * Jj

texthp = hp

Select Case hp

Case Is > 30000000

Dis = hp * 0.15

Case Is > 25000000

Dis = hp * 0.1

Case Is > 20000000

Dis = hp * 0.05

Case Is > 15000000

Dis = hp * 0.02

Case Is <= 150000000

Dis = hp * 0

End Select

textdis = Dis

hb = hp – Dis

texthb = hb

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

BUKU STMIK

Private Sub CmdBatal_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

Private Sub CmdProses_Click()

Dim KODE, KB, JB, P, HRP As Variant

KODE = cbokb

KB = Left(KODE, 3)

Select Case KB

Case “SIM”

JB = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

HRP = 75900

Case “EDP”

JB = “Elektronik Data Processing”

P = “Nurul Agustina”

HRP = 62000

Case “MNJ”

JB = “Manajemen”

P = “Rian Hidayat”

HRP = 42000

Case “CDR”

JB = “Corel Draw”

P = “Siti Nur Khotimah”

HRP = 53000

Case “RPL”

JB = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

HRP = 83000

End Select

Textjb = JB

Textp = P

Texthrp = HRP

Textpen = Right(KODE, 1)

Select Case Textpen

Case “A”

Pen = “Andi Offset Yogyakarta”

Case “I”

Pen = “Indah Surabaya”

Case “S”

Pen = “Indah Surabaya”

Case “E”

Pen = “Elek Media Komputindo”

Case “M”

Pen = “Maxicom”

End Select

Textpen = Pen

Texttt = Mid(KODE, 5, 2)

Select Case Texttt

Case “09”

TT = “2001” & TT

Case “10”

TT = “2003” & TT

Case “11”

TT = “2003” & TT

Case “12”

TT = “2004” & TT

Case “13”

TT = “2005” & TT

End Select

Texttt = TT

End Sub

Private Sub Form_Load()

cbokb.AddItem “SIM-09-A”

cbokb.AddItem “EDP-10-I”

cbokb.AddItem “MNJ-11-S”

cbokb.AddItem “CDR-12-E”

cbokb.AddItem “RPL-13-M”

End Sub

BUKU STMIK

BUKU STMIK1

BUKU STMIK

 

Private Sub CmdBatal_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

cbokb.SetFocus

cbokb = “”

Textjb = “”

Textp = “”

Texttt = “”

Textpen = “”

Texthrp = “”

End Sub

Private Sub CmdProses_Click()

Dim KODE, KB, JB, P, HRP As Variant

KODE = cbokb

KB = Left(KODE, 3)

Select Case KB

Case “SIM”

JB = “Sistem Informasi Manajemen”

P = “Fadiya Ulfa”

HRP = 75900

Case “EDP”

JB = “Elektronik Data Processing”

P = “Nurul Agustina”

HRP = 62000

Case “MNJ”

JB = “Manajemen”

P = “Rian Hidayat”

HRP = 42000

Case “CDR”

JB = “Corel Draw”

P = “Siti Nur Khotimah”

HRP = 53000

Case “RPL”

JB = “Rekayasa Perangkat Lunak”

P = “Winda Erlianti”

HRP = 83000

End Select

Textjb = JB

Textp = P

Texthrp = HRP

Textpen = Right(KODE, 1)

Select Case Textpen

Case “A”

Pen = “Andi Offset Yogyakarta”

Case “I”

Pen = “Indah Surabaya”

Case “S”

Pen = “Indah Surabaya”

Case “E”

Pen = “Elek Media Komputindo”

Case “M”

Pen = “Maxicom”

End Select

Textpen = Pen

Texttt = Mid(KODE, 5, 2)

Select Case Texttt

Case “09”

TT = “2001” & TT

Case “10”

TT = “2003” & TT

Case “11”

TT = “2003” & TT

Case “12”

TT = “2004” & TT

Case “13”

TT = “2005” & TT

End Select

Texttt = TT

End Sub

Private Sub Form_Load()

cbokb.AddItem “SIM-09-A”

cbokb.AddItem “EDP-10-I”

cbokb.AddItem “MNJ-11-S”

cbokb.AddItem “CDR-12-E”

cbokb.AddItem “RPL-13-M”

End Sub

KERETA

KERETA1

KERETA

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

Textkt.SetFocus

Textkt = “”

Textht = “”

Textjk = “”

Textjb = “”

Textjt = “”

Texttp = “”

End Sub

Private Sub CmdProses_Click()

Dim Kt, Ht, Jk, jb As Variant

Kt = Left(Textkt.Text, 3)

Select Case Kt

Case “BIM”

Ht = 50000

Jk = “BIMA”

jb = “16.00”

Case “EKO”

Ht = 35000

Jk = “EKONOMI”

jb = “19.00”

Case “MUT”

Ht = 23000

Jk = “MUTIARA”

jb = “17.00”

Case “SEN”

Ht = 15000

Jk = “SENJA”

jb = “20.00”

End Select

Textht = Ht

Textjk = Jk

Textjb = jb

Textjt.SetFocus

End Sub

Private Sub TextJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttp = Val(Textht.Text) * Val(Textjt.Text)

End If

End Sub

DATA BUKU

DATA BUKU1

 DATA BUKU

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “”

txtJudul = “”

txtPengarang = “”

txtTerbit = “”

txtPenerbit = “”

txtHarga = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “”

txtJudul = “”

txtPengarang = “”

txtTerbit = “”

txtPenerbit = “”

txtHarga = “”

End Sub

Private Sub CmdProses_Click()

Dim Kode, KodeBuku, KodePenerbit, KodeTahun, Tahun, Penerbit, Judul, Pengarang, Harga As Variant

Kode = CboKode

KodeBuku = Mid(Kode, 3, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Yati Nur Oktavia”

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

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Sinta Umpu Singa”

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

KodeTahun = Right(Kode, 2)

Select Case KodeTahun

Case “01”

Tahun = “20” & KodeTahun

Case “02”

Tahun = “20” & KodeTahun

Case “03”

Tahun = “20” & KodeTahun

Case “04”

Tahun = “20” & KodeTahun

Case “05”

Tahun = “20” & KodeTahun

End Select

txtTerbit = Tahun

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

Capture

Capture1

PULANG PETANG

Private Sub CmdBatal_Click()

TextNama.SetFocus

TextNama = “”

TextNik = “”

TextGolongan = “”

TextKodeStatus = “”

TextStatus = “”

TextTahun = “”

TextJabatan = “”

TextBagian = “”

TextGajiPokok = “”

TextTunjangan = “”

TextTotalGaji = “”

End Sub

Private Sub CmdKeluar_Click()

Unload Me

End Sub

Private Sub CmdLagi_Click()

TextNama.SetFocus

TextNama = “”

TextNik = “”

TextGolongan = “”

TextKodeStatus = “”

TextStatus = “”

TextTahun = “”

TextJabatan = “”

TextBagian = “”

TextGajiPokok = “”

TextTunjangan = “”

TextTotalGaji = “”

End Sub

Private Sub CmdProses_Click()

Dim Golongan, KodeBagian, KodeStatus, Status, Tahun, Jabatan, Bagian, GajiPokok, Tunjangan As Variant

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

TextGolongan = Golongan

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

TextKodeStatus = KodeStatus

If KodeStatus = “S” Then

Status = “Single”

ElseIf KodeStatus = “M” Then

Status = “Menikah”

ElseIf KodeStatus = “J” Then

Status = “Janda”

ElseIf KodeStatus = “D” Then

Status = “Duda”

End If

TextStatus = Status

Tahun = Left(TextNik.Text, 4)

TextTahun = 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

TextJabatan = Jabatan

TextGajiPokok = GajiPokok

TextTunjangan = Tunjangan

KodeBagian = Right(TextNik.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

TextBagian = Bagian

TextTotalGaji = GajiPokok + Tunjangan

End Sub

Private Sub Form_Activate()

TextNama.SetFocus

End Sub

Private Sub TextNama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TextNik.SetFocus

End If

End Sub

 

TUGAS 3 BAHASA PEMROGRAMAN VB

TUGAS 1

Private Sub CboNpm_Click()

Dim Nama, Jurusan, HR As String

Select Case CboNpm.Text

Case “15100001”

Nama = “Stevanus Prihanuji”

Jurusan = “Sistem Informasi”

Case “15100002”

Nama = “Fergiawan Listianto”

Jurusan = “Sistem Informasi”

Case “15100003”

Nama = “Renita Fitri Andriyanti”

Jurusan = “Sistem Informasi”

Case “15100004”

Nama = “Evi Setyorini”

Jurusan = “Sistem Informasi”

Case “15100005”

Nama = “Anggi Maharani”

Jurusan = “Sistem Informasi”

Case “15100006”

Nama = “Oktafiani”

Jurusan = “Sistem Informasi”

Case “15100007”

Nama = “Desi Yulianti”

Jurusan = “Sistem Informasi”

Case “15100008”

Nama = “Ahmad Yudi”

Jurusan = “Sistem Informasi”

Case “15100009”

Nama = “Opi Laraswati”

Jurusan = “Sistem Informasi”

Case “15100010”

Nama = “Laili Rizkia Putri”

Jurusan = “Sistem Informasi”

Case “15100011”

Nama = “Tia Anggraeni”

Jurusan = “Sistem Informasi”

Case “15100012”

Nama = “Fisuryani”

Jurusan = “Sistem Informasi”

Case “15100014”

Nama = “Ita Indriyani”

Jurusan = “Sistem Informasi”

Case “15100015”

Nama = “M Arif Rizki”

Jurusan = “Sistem Informasi”

Case “15100016”

Nama = “Mirzon Prananda”

Jurusan = “Sistem Informasi”

Case “15100017”

Nama = “Desi Auliani”

Jurusan = “Sistem Informasi”

Case “15100018”

Nama = “Tri Setia Ningsih”

Jurusan = “Sistem Informasi”

Case “15100023”

Nama = “Anggun Destriyanti”

Jurusan = “Sistem Informasi”

Case “15100024”

Nama = “Rizah Anggraeni”

Jurusan = “Sistem Informasi”

Case “15100025”

Nama = “Rahmat Darmawan”

Jurusan = “Sistem Informasi”

Case “15100026”

Nama = “Reza Anggara”

Jurusan = “Sistem Informasi”

Case “15100027”

Nama = “Rio Adi Pradhana”

Jurusan = “Sistem Informasi”

Case “15100030”

Nama = “Hermin Sukmiati”

Jurusan = “Sistem Informasi”

Case “15100031”

Nama = “Artika Kustriyani”

Jurusan = “Sistem Informasi”

Case “15100032”

Nama = “Intan Ratnasari”

Jurusan = “Manajemen Informatika”

Case “15100033”

Nama = “Dona Ari Wijaya”

Jurusan = “Sistem Informasi”

Case “15100034”

Nama = “Dimas Bima Ananta”

Jurusan = “Sistem Informasi”

Case “15100036”

Nama = “”

Jurusan = “Sistem Informasi”

Case “15100037”

Nama = “Jefri Erlamsyah”

Jurusan = “Sistem Informasi”

Case “15100038”

Nama = “Panji Wahyu Trihantoro”

Jurusan = “Sistem Informasi”

Case “15100039”

Nama = “Yusuf Sugianto”

Jurusan = “Sistem Informasi”

Case “15100040”

Nama = “Bagas Anggara”

Jurusan = “Sistem Informasi”

Case “15100041”

Nama = “Rudi Rizkiyanto”

Jurusan = “Sistem Informasi”

End Select

TxtNama = Nama

TxtJurusan = Jurusan

TxtNilaiQuis.SetFocus

End Sub

 

Private Sub CmdBatal_Click()

CboNpm.SetFocus

CboNpm.Text = “”

TxtNama.Text = “”

TxtJurusan.Text = “”

TxtNilaiQuis.Text = “”

TxtNilaiTugas.Text = “”

TxtUts.Text = “”

TxtUas.Text = “”

TxtNilaiAkhir.Text = “”

TxtMutu.Text = “”

TxtNilaiAkhir.BackColor = vbWhite

TxtMutu.BackColor = vbWhite

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub CmdProses_Click()

Dim NA As Integer

Dim Mutu As String

TxtNilaiAkhir = Val((TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

 

Select Case TxtNilaiAkhir.Text

Case Is > 80

Mutu = “A”

Case Is > 70

Mutu = “B”

Case Is > 60

Mutu = “C”

Case Is > 50

Mutu = “D”

Case Is < 50

Mutu = “E”

End Select

TxtMutu = Mutu

End Sub

 

Private Sub Form_Load()

CboNpm.AddItem “15100001”

CboNpm.AddItem “15100002”

CboNpm.AddItem “15100003”

CboNpm.AddItem “15100004”

CboNpm.AddItem “15100005”

CboNpm.AddItem “15100006”

CboNpm.AddItem “15100007”

CboNpm.AddItem “15100008”

CboNpm.AddItem “15100009”

CboNpm.AddItem “15100010”

CboNpm.AddItem “15100011”

CboNpm.AddItem “15100012”

CboNpm.AddItem “15100014”

CboNpm.AddItem “15100015”

CboNpm.AddItem “15100016”

CboNpm.AddItem “15100017”

CboNpm.AddItem “15100018”

CboNpm.AddItem “15100023”

CboNpm.AddItem “15100024”

CboNpm.AddItem “15100025”

CboNpm.AddItem “15100026”

CboNpm.AddItem “15100027”

CboNpm.AddItem “15100030”

CboNpm.AddItem “15100031”

CboNpm.AddItem “15100032”

CboNpm.AddItem “15100033”

CboNpm.AddItem “15100034”

CboNpm.AddItem “15100036”

CboNpm.AddItem “15100037”

CboNpm.AddItem “15100038”

CboNpm.AddItem “15100039”

CboNpm.AddItem “15100040”

CboNpm.AddItem “15100041”

End Sub

 

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNilaiTugas.SetFocus

End If

End Sub

 

Private Sub TxtNilaiTugas_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 2

Private Sub CboNpm_Click()

Dim Nama, Jurusan, HR As String

Select Case CboNpm.Text

Case “15100001”

Nama = “Stevanus Prihanuji”

Jurusan = “Sistem Informasi”

Case “15100002”

Nama = “Fergiawan Listianto”

Jurusan = “Sistem Informasi”

Case “15100003”

Nama = “Renita Fitri Andriyanti”

Jurusan = “Sistem Informasi”

Case “15100004”

Nama = “Evi Setyorini”

Jurusan = “Sistem Informasi”

Case “15100005”

Nama = “Anggi Maharani”

Jurusan = “Sistem Informasi”

Case “15100006”

Nama = “Oktafiani”

Jurusan = “Sistem Informasi”

Case “15100007”

Nama = “Desi Yulianti”

Jurusan = “Sistem Informasi”

Case “15100008”

Nama = “Ahmad Yudi”

Jurusan = “Sistem Informasi”

Case “15100009”

Nama = “Opi Laraswati”

Jurusan = “Sistem Informasi”

Case “15100010”

Nama = “Laili Rizkia Putri”

Jurusan = “Sistem Informasi”

Case “15100011”

Nama = “Tia Anggraeni”

Jurusan = “Sistem Informasi”

Case “15100012”

Nama = “Fisuryani”

Jurusan = “Sistem Informasi”

Case “15100014”

Nama = “Ita Indriyani”

Jurusan = “Sistem Informasi”

Case “15100015”

Nama = “M Arif Rizki”

Jurusan = “Sistem Informasi”

Case “15100016”

Nama = “Mirzon Prananda”

Jurusan = “Sistem Informasi”

Case “15100017”

Nama = “Desi Auliani”

Jurusan = “Sistem Informasi”

Case “15100018”

Nama = “Tri Setia Ningsih”

Jurusan = “Sistem Informasi”

Case “15100023”

Nama = “Anggun Destriyanti”

Jurusan = “Sistem Informasi”

Case “15100024”

Nama = “Rizah Anggraeni”

Jurusan = “Sistem Informasi”

Case “15100025”

Nama = “Rahmat Darmawan”

Jurusan = “Sistem Informasi”

Case “15100026”

Nama = “Reza Anggara”

Jurusan = “Sistem Informasi”

Case “15100027”

Nama = “Rio Adi Pradhana”

Jurusan = “Sistem Informasi”

Case “15100030”

Nama = “Hermin Sukmiati”

Jurusan = “Sistem Informasi”

Case “15100031”

Nama = “Artika Kustriyani”

Jurusan = “Sistem Informasi”

Case “15100032”

Nama = “Intan Ratnasari”

Jurusan = “Manajemen Informatika”

Case “15100033”

Nama = “Dona Ari Wijaya”

Jurusan = “Sistem Informasi”

Case “15100034”

Nama = “Dimas Bima Ananta”

Jurusan = “Sistem Informasi”

Case “15100036”

Nama = “”

Jurusan = “Sistem Informasi”

Case “15100037”

Nama = “Jefri Erlamsyah”

Jurusan = “Sistem Informasi”

Case “15100038”

Nama = “Panji Wahyu Trihantoro”

Jurusan = “Sistem Informasi”

Case “15100039”

Nama = “Yusuf Sugianto”

Jurusan = “Sistem Informasi”

Case “15100040”

Nama = “Bagas Anggara”

Jurusan = “Sistem Informasi”

Case “15100041”

Nama = “Rudi Rizkiyanto”

Jurusan = “Sistem Informasi”

End Select

TxtNama = Nama

TxtJurusan = Jurusan

TxtNilaiQuis.SetFocus

End Sub

 

Private Sub CmdBatal_Click()

CboNpm.SetFocus

CboNpm.Text = “”

TxtNama.Text = “”

TxtJurusan.Text = “”

TxtNilaiQuis.Text = “”

TxtNilaiTugas.Text = “”

TxtUts.Text = “”

TxtUas.Text = “”

TxtNilaiAkhir.Text = “”

TxtMutu.Text = “”

TxtNilaiAkhir.BackColor = vbWhite

TxtMutu.BackColor = vbWhite

End Sub

 

Private Sub CmdKeluar_Click()

End

End Sub

 

Private Sub CmdProses_Click()

Dim NA As Integer

Dim Mutu As String

TxtNilaiAkhir = Val((TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

 

Select Case TxtNilaiAkhir.Text

Case Is > 80

Mutu = “A”

Case Is > 70

Mutu = “B”

Case Is > 60

Mutu = “C”

Case Is > 50

Mutu = “D”

Case Is < 50

Mutu = “E”

End Select

TxtMutu = Mutu

End Sub

 

Private Sub Form_Load()

CboNpm.AddItem “15100001”

CboNpm.AddItem “15100002”

CboNpm.AddItem “15100003”

CboNpm.AddItem “15100004”

CboNpm.AddItem “15100005”

CboNpm.AddItem “15100006”

CboNpm.AddItem “15100007”

CboNpm.AddItem “15100008”

CboNpm.AddItem “15100009”

CboNpm.AddItem “15100010”

CboNpm.AddItem “15100011”

CboNpm.AddItem “15100012”

CboNpm.AddItem “15100014”

CboNpm.AddItem “15100015”

CboNpm.AddItem “15100016”

CboNpm.AddItem “15100017”

CboNpm.AddItem “15100018”

CboNpm.AddItem “15100023”

CboNpm.AddItem “15100024”

CboNpm.AddItem “15100025”

CboNpm.AddItem “15100026”

CboNpm.AddItem “15100027”

CboNpm.AddItem “15100030”

CboNpm.AddItem “15100031”

CboNpm.AddItem “15100032”

CboNpm.AddItem “15100033”

CboNpm.AddItem “15100034”

CboNpm.AddItem “15100036”

CboNpm.AddItem “15100037”

CboNpm.AddItem “15100038”

CboNpm.AddItem “15100039”

CboNpm.AddItem “15100040”

CboNpm.AddItem “15100041”

End Sub

 

Private Sub TxtNilaiQuis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNilaiTugas.SetFocus

End If

End Sub

 

Private Sub TxtNilaiTugas_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 Mutu As String

TxtNilaiAkhir = Val((TxtNilaiQuis) + Val(TxtNilaiTugas) + Val(TxtUts) + Val(TxtUas)) / 4

 

Select Case TxtNilaiAkhir.Text

Case Is > 80

Mutu = “A”

Case Is > 70

Mutu = “B”

Case Is > 60

Mutu = “C”

Case Is > 50

Mutu = “D”

Case Is < 50

Mutu = “E”

End Select

TxtMutu = Mutu

End If

End Sub

 

Private Sub TxtUts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUas.SetFocus

End If

End Sub

TUGAS 3

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

LblTampil.FontBold = True

Else

LblTampil.FontBold = False

End If

End Sub

 

Private Sub ChkItalic_Click()

If ChkItalic.Value = 1 Then

LblTampil.FontItalic = True

Else

LblTampil.FontItalic = False

End If

End Sub

 

Private Sub ChkStrikeOut_Click()

If ChkStrikeOut.Value = 1 Then

LblTampil.FontStrikethru = True

Else

LblTampil.FontStrikethru = False

End If

End Sub

 

Private Sub ChkUnderline_Click()

If ChkUnderline.Value = 1 Then

LblTampil.FontUnderline = True

Else

LblTampil.FontUnderline = False

End If

End Sub

 

Private Sub CmdExit_Click()

End

End Sub

 

 

Private Sub OptBlue_Click()

LblTampil.ForeColor = vbBlue

End Sub

 

Private Sub OptGreen_Click()

LblTampil.ForeColor = vbGreen

End Sub

 

Private Sub OptRed_Click()

LblTampil.ForeColor = vbRed

End Sub

 

Private Sub OptYellow_Click()

LblTampil.ForeColor = vbYellow

End Sub

TUGAS 4

Private Sub ChkBold_Click()

If ChkBold.Value = 1 Then

LblShow.FontBold = True

Else

LblShow.FontBold = False

End If

End Sub

 

Private Sub ChkMiring_Click()

If ChkMiring.Value = 1 Then

LblShow.FontItalic = True

Else

LblShow.FontItalic = False

End If

End Sub

 

Private Sub CmdOk_Click()

LblShow.Caption = TxtInput.Text

End Sub

 

Private Sub CmdSelesai_Click()

End

End Sub

 

Private Sub OptBlue_Click()

LblShow.ForeColor = vbBlue

End Sub

 

Private Sub OptRed_Click()

LblShow.ForeColor = vbRed

End Sub

BAHASA PEMROGRAMAN 2

 

TUGAS K 1A(hitung)

Private Sub Huruf1_Keypress(keyascii As Integer)

If keyascii = 13 Then

Huruf2.SetFocus

End If

End Sub

Private Sub commandHitung_click()

HurufHasil = Val(Huruf1) * Val(Huruf2)

End Sub

Private Sub commandBersih_Click()

Huruf1.SetFocus

Huruf1 = ” ”

Huruf2 = ” ”

HurufHasil = ” ”

End Sub

Private Sub commandKeluar_Click()

End

End Sub

 

 TUGAS K 1B (enter)

Private Sub Huruf2_Keypress(keyascii As Integer)

If keyascii = 13 Then

HurufHasil = Val(Huruf1) * Val(Huruf2)

End If

End Sub

 

Capture

kalkulator1kalkulator2

 

TUGAS K 2 A(proses)

Private Sub Hurufp1_keypress(keyascii As Integer)

If keyascii = 13 Then

Hurufp2.SetFocus

End If

End Sub

Private Sub Hurufper1_keypress(keyascii As Integer)

If keyascii = 13 Then

Hurufper2.SetFocus

End If

End Sub

Private Sub Hurufpeng1_keypress(keyascii As Integer)

If keyascii = 13 Then

Hurufpeng2.SetFocus

End If

End Sub

Private Sub Hurufpem1_keypress(keyascii As Integer)

If keyascii = 13 Then

Hurufpem2.SetFocus

End If

End Sub

Private Sub commandproses_Click()

hasilp = Val(Hurufp1) + Val(Hurufp2)

hasilper = Val(Hurufper1) * Val(Hurufper2)

hasilpeng = Val(Hurufpeng1) – Val(Hurufpeng2)

hasilpem = Val(Hurufpem1) / Val(Hurufpem2)

End Sub

Private Sub commandlagi_Click()

Hurufp1.SetFocus

Hurufper1.SetFocus

Hurufpeng1.SetFocus

Hurufpem1.SetFocus

Hurufp1 = “”

Hurufp2 = “”

Hurufper1 = “”

Hurufper2 = “”

Hurufpeng1 = “”

Hurufpeng2 = “”

Hurufpem1 = “”

Hurufpem2 = “”

hasilp = “”

hasilper = “”

hasilpeng = “”

hasilpem = “”

End Sub

Private Sub commandbatal_Click()

Hurufper1.SetFocus

Hurufpeng1.SetFocus

Hurufpem1.SetFocus

Hurufp1 = “”

Hurufp2 = “”

Hurufper1 = “”

Hurufper2 = “”

Hurufpeng1 = “”

Hurufpeng2 = “”

Hurufpem1 = “”

Hurufpem2 = “”

hasilp = “”

hasilper = “”

hasilpeng = “”

hasilpem = “”

End Sub

Private Sub commandkeluar_Click()

End

End Sub

 

TUGAS K 2 B(enter)

Private Sub Hurufp2_keypress(keyascii As Integer)

If keyascii = 13 Then

hasilp = Val(Hurufp1) + Val(Hurufp2)

Hurufper1.SetFocus

End If

End Sub

Private Sub Hurufper2_keypress(keyascii As Integer)

If keyascii = 13 Then

hasilper = Val(Hurufper1) * Val(Hurufper2)

Hurufpeng1.SetFocus

End If

End Sub

Private Sub Hurufpeng2_keypress(keyascii As Integer)

If keyascii = 13 Then

hasilpeng = Val(Hasilpeng1) – Val(Hurufpeng2)

Hurufpem1.SetFocus

End If

End Sub

Private Sub Hurufpem2_keypress(keyascii As Integer)

If keyascii = 13 Then

hasilpem = Val(Hurufpem1) / Val(Hurufpem2)

End If

End Sub

harga1

1

harga2

 

TUGAS K 3 A(hitung)

Private Sub commandhitung_click()

Huruf2 = Val(Huruf1) * 0.1

Huruf3 = Val(Huruf1) – Val(Huruf2)

End Sub

Private Sub commandulang_Click()

Huruf1.SetFocus

Huruf1 = ” ”

Huruf2 = ” ”

Huruf3 = ” ”

End Sub

Private Sub commandkeluar_Click()

End

End Sub

 

TUGAS 3 B(enter)

Private Sub Huruf1_keypress(keyascii As Integer)

If keyascii = 13 Then

Huruf2 = Val(Huruf1) * 0.1

Huruf3 = Val(Huruf1) – Val(Huruf2)

End If

End Sub

S

H

Capture

 

TUGAS 4 A(proses)

Private Sub huruf1_keypress(keyascii As Integer)

If keyascii = 13 Then

HURUF2.SetFocus

End If

End Sub

Private Sub huruf2_keypress(keyascii As Integer)

If keyascii = 13 Then

HURUF3.SetFocus

End If

End Sub

Private Sub commandproses_click()

HURUF4 = Val(HURUF1) + Val(HURUF2) – Val(HURUF3)

HURUF5 = Val(HURUF4) * 0.1

HURUF6 = Val(HURUF4) – Val(HURUF5)

End Sub

Private Sub commandulang_click()

HURUF1.SetFocus

HURUF1 = “”

HURUF2 = “”

HURUF3 = “”

HURUF4 = “”

HURUF5 = “”

HURUF6 = “”

End Sub

Private Sub commandkeluar_click()

End

End Sub

 

Tugas k4 B(enter)

Private Sub huruf3_keypress(keyascii As Integer)

If keyascii = 13 Then

HURUF4 = Val(HURUF1) + Val(HURUF2) – Val(HURUF3)

HURUF5 = Val(HURUF4) * 0.1

HURUF6 = Val(HURUF4) – Val(HURUF5)

HURUF4.SetFocus

End If

TUGAS BAHASA PEMROGRAMAN

 

TUGAS KEDUA

Private Sub HurufNpm_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufNama.SetFocus
End If
End Sub
Private Sub HurufNama_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufAlamat.SetFocus
End If
End Sub
Private Sub HurufAlamat_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufProgramStudy.SetFocus
End If
End Sub
Private Sub HurufProgramStudy_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufJurusan.SetFocus
End If
End Sub
Private Sub HurufJurusan_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufAgama.SetFocus
End If
End Sub
Private Sub commandlagi_click()
HurufNpm.SetFocus
HurufNpm = ” ”
HurufNama = ” ”
HurufAlamat = ” ”
HurufProgramStudy = ” ”
HurufJurusan = ” ”
HurufAgama = ” ”
End Sub
Private Sub commandbatal_click()
HurufNpm.SetFocus
HurufNpm = ” ”
HurufNama = ” ”
HurufAlamat = ” ”
HurufProgramStudy = ” ”
HurufJurusan = ” ”
HurufAgama = ” ”
End Sub
Private Sub commandkeluar_click()
End
End Sub

TUGAS BAHASA PEMROGRAMAN

TUGAS PERTAMA

Private Sub HurufNpm_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufNama.SetFocus
End If
End Sub
Private Sub HurufNama_keypress(keyascii As Integer)
If keyascii = 13 Then
HurufAlamat.SetFocus
End If
End Sub
Private Sub commandlagi_click()
HurufNpm.SetFocus
HurufNpm = ” ”
HurufNama = ” ”
HurufAlamat = ” ”
End Sub
Private Sub commandbatal_click()
HurufNpm.SetFocus
HurufNpm = ” ”
HurufNama = ” ”
HurufAlamat = ” ”
End Sub
Private Sub commandkeluar_click()
End
End Sub

 

 

10 Hikmah Melaksanakan Ibadah Puasa Ramadhan

Featured image

10 Hikmah Melaksanakan Ibadah Puasa Ramadhan — Ibadah puasa Ramadhan memiliki banyak keutamaan, dan diantara keutamaan tersebut sebagian besar manfaat/hikmahnya merupakan untuk diri kita sendiri.

Hikmah berpuasa yang kita dapatkan ini tentunya berkaitan erat dengan amalan puasa yang kita jalani dan tentunya amalan pada puasa ramadhan bukanlah hanya menahan makan dan minum saja, melainkan juga menjalankan amalan ibadah Ramadhan lainnya, seperti bersedekah, Itikaf, Silaturahmi, Menghindari diri  dari yang haram, dan banyak lagi.

Maka dari itu, agar lebih termotivasi dalam menyempurnakan puasa tahun 2013 ini, kami sajikan untuk Anda 10 hikmah melaksanaka ibadah puasa Ramadhan yang dikutip dari berbagai sumber, selamat menyimak.

  1. Melatih Disiplin Waktu — Untuk menghasilkan puasa yang tetap fit dan kuat di siang hari, maka tubuh memerlukan istirahat yang cukup, hal ini membuat kita tidur lebih teratur demi lancarnya puasa. Bangun untuk makan sahur dipagi hari juga melatih kebiasaan untuk bangun lebih pagi untuk mendapatkan rejeki (makanan).
  2. Keseimbangan dalam Hidup — Pada hakikatnya kita adalah hamba Allah yang diperintahkan untuk beribadah. Namun sayang hanya karena hal duniawi seperti pekerjaan, hawa nafsu dan lain-lain kita sering melupakan kewajiban kita. Pada bulan puasa ini kita terlatih untuk kembali mengingat dan melaksanakan seluruh kewajiban tersebut dengan imbalan pahala yang dilipatgandakan.
  3. Mempererat Silaturahmi — Dalam Islam ada persaudaraan sesama muslim, akan tampak jelas jika berada dibulan Ramadhan, Orang memberikan tajil perbukaan puasa gratis. Sholat bersama di masjid, memberi ilmu islam dan banyak ilmu Islam di setiap ceramah dan diskusi keagamaan yang dilaksanakan di Masjid.
  4. Lebih Perduli Pada Sesama — Dalam Islam ada persaudaraan sesama muslim, akan tampak jelas jika berada dibulan Ramadhan, Orang memberikan tajil perbukaan puasa gratis. Sholat bersama di masjid, memberi ilmu islam dan banyak ilmu Islam di setiap ceramah dan diskusi keagamaan yang dilaksanakan di Masjid.
  5. Tahu Bahwa Ibadah Memiliki Tujuan — Tujuan puasa adalah melatih diri kita agar dapat menghindari dosa-dosa di hari yang lain di luar bulan Ramadhan. Kalau tujuan tercapai maka puasa berhasil. Tapi jika tujuannya gagal maka puasa tidak ada arti apa-apa. Jadi kita terbiasa berorientasi kepada tujuan dalam melakukan segala macam amal ibadah.
  6. Tiap Kegiatan Mulia Merupakan Ibadah — Setiap langkah kaki menuju masjid ibadah, menolong orang ibadah, berbuat adil pada manusia ibadah, tersenyum pada saudara ibadah, membuang duri di jalan ibadah, sampai tidurnya orang puasa ibadah, sehingga segala sesuatu dapat dijadikan ibadah. Sehingga kita terbiasa hidup dalam ibadah. Artinya semua dapat bernilai ibadah.
  7. Berhati-hati Dalam Berbuat — Puasa Ramadhan akan sempurna dan tidak sia-sia apabila selain menahan lapar dan haus juga kita menghindari keharaman mata, telinga, perkataan dan perbuatan. atihan ini menimbulkan kemajuan positif bagi kita jika diluar bulan Ramadhan kita juga dapat menghindari hal-hal yang dapat menimbulkan dosa seperti bergunjing, berkata kotor, berbohong, memandang yang dapat menimbulkan dosa, dan lain sebagainya.
  8. Berlatih Lebih Tabah — Dalam Puasa di bulan Ramadhan kita dibiasakan menahan yang tidak baik dilakukan. Misalnya marah-marah, berburuk sangka, dan dianjurkan sifat Sabar atas segala perbuatan orang lain kepada kita. Misalkan ada orang yang menggunjingkan kita, atau mungkin meruncing pada Fitnah, tetapi kita tetap Sabar karena kita dalam keadaan Puasa.
  9. Melatih Hidup Sederhana — Ketika waktu berbuka puasa tiba, saat minum dan makan sedikit saja kita telah merasakan nikmatnya makanan yang sedikit tersebut, pikiran kita untuk makan banyak dan bermacam-macam sebetulnya hanya hawa nafsu saja.
  10. Melatih Untuk Bersyukur — Dengan memakan hanya ada saat berbuka, kita menjadi lebih mensykuri nikmat yang kita miliki saat tidak berpuasa. Sehingga kita dapat menjadi pribadi yang lebih mensyukuri nikmat Allah SWT.

Demikianlah hikmah dalam melaksanakan ibadah puasa Ramadhan, semoga bermanfaat bagi kita umat muslim.

http://blog.lazada.co.id/10-hikmah-melaksanakan-ibadah-puasa-ramadhan/

Hikmah Bersedekah

Ternyata sedekah itu tidak mengenal salah sasaran meskipun diberikan kepada pencuri, orang kaya dan pelacur. Di riwayatkan di dalam Shahih Bukhari bahwa seseorang yang bersedekah dan ingin mendapatkan pahala Sedekah secara sembunyi – sembunyi “shadaqah sirr” , tidak di ketahui orang lain, ia pun mengumpulkan uang, lalu malam – malam ia menutup wajahnya dengan kain dia mencari orang yang berhak.

Lalu ia lihat ada seorang yang termenung di malam hari, diam saja, duduk saja, tidak bicara, tidak apa duduk saja di pinggir jalan, “ini orang yang tidak mampu, tengah malam masih belum tidur, masih duduk di sini” maka di lemparkannya uang itu pada orang itu dan ia pun pergi melarikan diri supaya orangnya tidak tau dia yang memberi, maka keesokan harinya
dia sudah gembira, sudah sedekah dengan sedekah sembunyi – sembunyi, esok harinya dapat kabar gempar kampung karena seorang pencuri dapat harta di beri orang yang tidak di kenal, dia berkata : Wahai Allah Bagi Mu segala puji, aku mau sedekah sembunyi – sembunyi, ternyata yang ku beri pencuri, pencuri sedang menunggu kesempatan untuk mencuri, menanti waktu untuk mencuri, di kira dia seorang Fuqara padahal ia pencuri, ia berkata “berarti aku tidak akan berhenti, aku akan lanjut lagi”

Ia pun mengumpulkan uang lagi, sudah terkumpul ia keluar lagi di malam hari.Lantas ia melihat seorang tua renta, yang berjalan tertatih – tatih dengan tongkatnya, pelan – pelan jalannya tidak ada yang menemaninya, tidak ada yang mendampinginya, “ini pasti orang susah” dia lemparkan uang itu dalam sebuah kantong kepada orang tua itu dan dia pun lari pergi, keesokan harinya gempar orang terkaya di kampung itu, yang paling kikir dapat sedekah sembunyi – sembunyi semalam, maka ia pun berkata : Wahai Allah Bagi Mu segala puji, aku jadi memberi orang yang paling kaya, yang paling kikir, tidak berguna sedekahku, yang pertama di berikan pada pencuri yang ke dua ternyata salah beri juga, di berikan kepada orang yang kaya dan paling kikir.

Lantas dia tidak kapok, tapi ketiga kalinya dia berbuat dia mencari wanita saja, dia lihat “nah ini wanita sedang duduk” maka di berikan padanya harta itu dan keesokan harinya, gempar lagi kampung itu, seorang pelacur mendapatkan sedekah yang sembunyi – sembunyi, ia katakan “Yaa Rabb cukup 3 kali”  Wahai Allah sudah cukup ini, pencuri yang kuberi, yang kedua orang kaya paling kikir yang ketiga pelacur, sudah aku tidak mau bersedekah lagi.

Maka Allah subhanahu wata’ala tunjukan beberapa tahun kemudian, bahwa Allah subhanahu wata’ala membukakan kemuliaan dari uang halal yang ia berikan itu jauh lebih dari pada maksud yang dia kehendaki, ia inginkan beri kepada orang Fuqara tapi Allah sampaikan uang Nya pada pencuri, pencuri biasa makan uang haram apakah ia terus mencuri, malam itu pencuri itu dapat uang halal dari orang yang  sedekah sembunyi – sembunyi,  harta yang haram itu mempengaruhi tubuh kita, harta yang halal juga mempengaruhi, kalau harta yang halal mempengaruhi kita untuk ingin beribadah, maka pencuri itu mendapatkan itu dia bersyukur.

“Subhanallah, aku selama ini terus menerus mencuri sekarang Allah beri” ia pun Taubat, tidak lama orang ini yang penyedekah pertama setelah sekian tahun dia dengar kabar ada seorang wali Allah yang wafat maka ia mendatangi jenazahnya, “ini kalau tidak salah ini yang dulu ku beri, dulu pencuri” dia bertanya “ini orang asal muasalnya dimana”  “dulu dia pencuri , gara – gara ia dapat uang di tengah malam, di beri oleh seorang penyedekah yang tidak ia kenal dia Taubat sampai dia menjadi Wali Allah subhanahu wata’ala”,
dia berkata “Subhanallah” Allah disampaikan derajatnya menjadi Wali Allah dari harta orang ini karena sedekahnya sembunyi – sembunyi dan ikhlas niatnya walaupun nyampainya kepada pencuri.

Yang kedua maka dia pun berkata,  “Wahai Allah, selesai janjiku dari yang pertama yaitu pencuri lalu bagaimana dengan orang tua yang kikir” orang tua yang kikir itu tidak berapa lama ia membangun suatu rumah untuk Sedekah untuk yatim dan

anak – anak miskin dan Fuqara, Kenapa ? karena ia jadi Taubat Ia ingat “aku ini orang kaya disedekahi orang, karna apa ? karena aku kikir”   akhirnya ia pun bertaubat kepada Allah, ia bangun rumah Sedekah ia wakafkan, pahalanya orang ini dapat pada penyedekah pertama, demikian Dahsyatnya rahasia kemuliannya, dan ia pun berkata:  “Allah aku memahami yang ke dua, lalu bagaimana dengan yang ketiga”

Tidak ada jawaban, sudah hampir 30 tahun, lalu ia mendengar dua orang ulama, adik kakak, dua – duanya ulama yang Shaleh, dua – duanya pemuda, maka ia berkata  “aduh aku ingin kenal dengan dua pemuda ini” sulit di jumpai, di ikuti muridnya, untuk berjumpa sulit, hebat sekali ini adik kakak ini, dua – duanya ulama, dua – duanya Shaleh, dua – duanya berhasil dan sukses, maka ia Tanya  “ini asal muasalnya anak ini ulama ini dari mana ? dua pemuda ini” “ini dulu ibunya pelacur tapi gara – gara di beri sedekah oleh seorang yang sedekah sembunyi – sembunyi, Taubat lantas kemudian dia pakai uang itu untuk menyekolahkan dua anaknya ini untuk menjadi ulama, sampai menjadi ulama besar”

Maka orang ini sujud kepada Allah, Rabbiy Kau tidak kecewakan hamba – hamba Mu, demikian kasih sayang Ilahi subhanahu wata’ala, ribuan orang yang bertaubat dari kedua anak itu mendapatkan pahalanya kepada si pemberi yang pertama, walaupun awalnya terlihat buruk namun akhirnya Allah buat sedemikian indah.

Dikutip dari ceramah Habibana Munzir Almusawwa(majelisrasulullah.org)

https://sedekahdoa.wordpress.com/hikmah-sedekah/

Metode Pendidikan Agama Islam di Indonesia akan Adopsi Negara Inggris?

Featured image

Jakarta, Aktual.com — Peserta ‘short course’ guru pendidikan agama Islam (GPAI), Maman Suryaman menjelaskan, bahwa pengaplikasian ilmu agama Islam yaitu dengan membuat desain pelatihan metodologi pendidikan dan budi pekerti berbasis Islam.

Ilmu pengetahuan tersebut ia pelajari dari Universitas dan sekolah di Oxford, Inggris, dalam mengubah cara pengajaran pendidikan Islam yang sebenarnya.

“Yang utama itu menyamakan persepsi apa sih itu Islam rahmatin lil alamin,” kata Maman‎, kepada Aktual.com, di Jakarta, Rabu (4/11).

Ia mengatakan, bahwa inti dalam metode pendidikan harus menyamakan ‘mindset’ para guru tentang Islam. Menurutnya, Islam itu menyelamatkan umat serta berbuat baik kepada dirinya sendiri, orang lain dan kepada seluruh Alam Semesta.

“Jadi orang yang menganut Islam rahmatin lil alamin itu selalu bisa membagi kasih sayang. Jadi tidak ada kamusnya orang yang rahmatin lil alamin itu menyakiti orang lain dan menyakiti Alam Semesta ini,” jelasnya menambahkan.

Hal tersebut menjadi penting, karena dalam kemajemukan masyarakat Indonesia tidak bisa dihindari potensi beda suku dan budaya, dimana bisa menyebabkan perpecahan.

Lebih jauh ia mengatakan selama tinggal di Oxford, dirinya melihat toleransi beragama.‎

“Kami melihat anak-anak dari berbagai suku bangsa, ada yang keturunan Pakistan, orang Inggris, India, dan juga Indonesia, tapi ketika diajarkan pelajaran agama mereka sangat toleran, dan mereka belajar dalam kondisi yang menyenangkan,” terang Maman.

“Ini pemahaman yang baru bagi saya. Oh ternyata belajar agama bisa menyenangkan dan sekaligus bisa mendapatkan nilai-nilainya,” tambahnya.

Maman mengatakan bahwa Indonesia ingin mengadopsi toleransi beragama dari Inggris. Yakni, mengajarkan agama dengan cara yang menarik, tetapi di dalamnya akan dimasukkan tentang keindahan Islam yang toleran dan rahmatin lil alamin, saling menghargai dalam perbedaan, dan menyenangkan.

http://www.aktual.com/metode-pendidikan-agama-islam-di-indonesia-akan-adopsi-negara-inggris/

Radikalisme Vs Pendidikan, Ini Komentar Prof Kamaruddin

Featured image

Jakarta, Aktual.com — Profesor Dr. Phil. Kamaruddin Amin, MA mengatakan, bahwa lembaga pendidikan Islam memberi kontribusi fundamental terhadap terciptanya negara Indonesia.

“Indonesia hari ini Kan yang moderat tidak terlepas dari kontribusi fundamental, ini yang harus kita rawat serta perbaiki terus menerus,” demikian kata Kamaruddin, kepada Aktual.com, di Kementrian Agama, Jakarta, Rabu (4/11).

Kamaruddin menjelaskan, seringnya terjadi konflik yang mengatasnamakan agama tidak ada artinya jika dibandingkan dengan Indonesia yang begitu besar dan majemuk.

“Itu tidak berarti jika dibandingkan dengan besarnya Indonesia tetapi ini juga harus kita antisipasi,” katanya lagi.

Menurutnya, Indonesia sedang menghadapi tantangan dengan berbagai kelompok tertentu yang mempromosikan radikalisme dan ekstrimisme.

“Ada di Indonesia, itu fakta,” tegas Kamaruddin

“Sehingga ini harus kita hadapi lewat pendidikan, karena kalau pendidikan agamanya bagus, tidak mudah kalau dipenetrasi oleh ajaran-ajaran seperti itu,” urai ia menambahkan.

http://www.aktual.com/radikalisme-vs-pendidikan-ini-komentar-prof-kamaruddin/