TUGAS 1-9 DATABASE

1. NPM

Private Sub CmdBatal_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CMDSAVE_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub CmdLagi_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CmdProses_Click()

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

 

Kode = TxtNpm

 

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

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

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

TxtPrody = Prody

 

NomorUrut = Right(Kode, 3)

TxtNomorUrut = NomorUrut

End Sub

 

Private Sub Cmdcancel_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CMDADD_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CMDKELUAR_CLICK(index as integer)

Unload Me

End Sub

SCREENSHOOT

 

2. TUGAS TOKO ALAT TULIS SALSABILA

          Private Sub CmdBatal_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CMDSAVE_Click()

Adodc1.Recordset.Save

End Sub

 

Private Sub CmdLagi_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CmdProses_Click()

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

 

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

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

TxtPrody = Prody

 

NomorUrut = Right(Kode, 3)

TxtNomorUrut = NomorUrut

End Sub

 

Private Sub Cmdcancel_Click()

TxtNama.SetFocus

TxtNama.Text = “”

TxtNpm.Text = “”

TxtJurusan.Text = “”

TxtPrody.Text = “”

TxtTahunMasuk.Text = “”

TxtNomorUrut.Text = “”

End Sub

 

Private Sub CMDADD_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CMDKELUAR_CLICK(index as integer)

Unload Me

End Sub

 SCREENSHOOOT

 

3. TUGAS GOLONGAN

 

Private Sub CMDkeluar_Click(index as integer)

Unload Me

End Sub

 

Private Sub cmdbaru_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub CMDHAPUS_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CMDSAVE_Click()

Adodc1.Recordset.save

End Sub

 

Private Sub txtnpm_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Form_load()

CBOGOLONGAN.AddItem “I”

CBOGOLONGAN.AddItem “II”

CBOGOLONGAN.AddItem “III”

CBOGOLONGAN.AddItem “IV”

End Sub

 

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case CBOGOLONGAN.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

 

Public Sub kosong()

txtNPM.SetFocus

txtNPM.Text = “”

txtnama.Text = “”

CBOGOLONGAN.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

SCREENSHOOT

 

4. TUGAS DATA BUKU STMIK PRINGSEWU

 

Private Sub CMD4_Click(index As Integer)

Unload Me

End Sub

 

Private Sub CMDADD_Click()

Adodc1.Recordset.addnew

End Sub

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTHTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CMDCANCEL_Click()

Adodc1.Recordset.Cancel

End Sub

 

Private Sub CMDKELUAR_Click(index As Integer)

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTHTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

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

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

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

 

 

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

SCREENSHOOT

 

 

5. TUGAS ENTRI 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

TxtJumlahJual.SetFocus

End Sub

 

Private Sub CMDADD_Click()

Adodc1.Recordset.addnew

End Sub

Private Sub CMDCANCEL_Click()

Adodc1.Recordset.Cancel

End Sub

 

Private Sub CMD4_Click(index As Integer)

Unload Me

End Sub

 

Private Sub CMDSAVE_Click()

Adodc1.Recordset.Update

End Sub

Private Sub CmdLagi_Click()

CboKode.SetFocus

 

CboKode.Text = “Pilih Kode Komputer”

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

SCREENSHOOT

 

6. TUGAS ENTRI PENJUALAN LAPTOP APEL

 

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

TxtMerk = Merk

TxtHarga = Harga

End Sub

 

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode.Text = “Pilih Kode 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

 

 

Private Sub CMD4_Click(index As Integer)

Unload Me

End Sub

 

Private Sub CMDADD_Click()

Adodc1.Recordset.AddNew

End Sub

 

 

Private Sub CMDCANCEL_Click()

Adodc1.Recordset.Cancel

End Sub

 

Private Sub CMDSAVE_Click()

Adodc1.Recordset.Save

End Sub

 SCREENSHOOT

 

 

7. 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, Tunjangan As Variant

 

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

TxtGolongan = Golongan

 

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

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

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

Adodc1.Recordset.Save

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

 

Private Sub CMDADD_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub CMDCANCEL_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub CMD4_Click(index As Integer)

Unload Me

End Sub

SCREENSHOOT

 

 

8. KERETA API

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 Kode, Harga, Jenis, Berangkat As Variant

 

Kode = Left(TxtKt.Text, 3)

Select Case Kode

Case “BIM”

Harga = 50000

Jenis = “BIMA”

Berangkat = “16.00”

Case “EKO”

Harga = 35000

Jenis = “EKONOMI”

Berangkat = “19.00”

Case “MUT”

Harga = 23000

Jenis = “MUTIARA”

Berangkat = “17.00”

Case “SEN”

Harga = 15000

Jenis = “SENJA”

Berangkat = “20.00”

End Select

TxtHt = Harga

TxtJk = Jenis

TxtJb = Berangkat

TxtJt.SetFocus

End Sub

 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

 

 

Private Sub Command3_Click()

Adodc1.Recordset.MoveLast

End Sub

 

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub TxtJt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

End If

End Sub

SCREENSHOOT

 

9. APLIKASI DATA BUKU

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

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 = Left(Kode, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Fadiya Ulfa”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Nurul Agustina”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Rian Hidayat”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “Siti Nur Khotimah”

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Winda Erlianti”

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

 

KodeTahun = Mid(Kode, 5, 2)

Select Case KodeTahun

Case “09”

Tahun = “20” & KodeTahun

Case “10”

Tahun = “20” & KodeTahun

Case “11”

Tahun = “20” & KodeTahun

Case “12”

Tahun = “20” & KodeTahun

Case “13”

Tahun = “20” & KodeTahun

End Select

TxtTerbit = Tahun

End Sub

 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

 

Private Sub Command3_Click()

Adodc1.Recordset.Save

Adodc1.Recordset.MoveLast

End Sub

 

Private Sub Command4_Click()

Unload Me

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

 

SCREENSHOOT

TUGAS VB PEMROGRAMAN 1-8

PROGRAM 1 NPM

 

Private Sub txtnpm_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

Private Sub Cmdbatal_Click()

kosong

End Sub

 

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Form_load()

CBOGOLONGAN.AddItem “I”

CBOGOLONGAN.AddItem “II”

CBOGOLONGAN.AddItem “III”

CBOGOLONGAN.AddItem “IV”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case CBOGOLONGAN.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtNPM.SetFocus

txtNPM.Text = “”

txtnama.Text = “”

CBOGOLONGAN.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

SCREENSHOOT

 

PROGRAM 2 NAMA,NPM DAN JURUSAN

 

Private Sub TxtNAMA_Keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

txtnpm.SetFocus

End If

 

End Sub

Private Sub CmdPROSES_CLICK()

Dim S, P As String

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

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

If S = “1” Then

txtJURUSAN.Text = “Sistem Informasi”

txtPROGRAM.Text = “Strata satu”

ElseIf S = “2” Then

txtJURUSAN.Text = “Manajemen Informatika”

txtPROGRAM.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtJURUSAN.Text = “Tehnik Informatika”

txtPROGRAM.Text = “Diploma Empat”

ElseIf S = “4” Then

txtJURUSAN.Text = “Manajemen & Komp. Akuntansi”

txtPROGRAM.Text = “Diploma Dua”

End If

txtNORUT.Text = Right(txtnpm.Text, 3)

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtJURUSAN.Text = “”

txtPROGRAM.Text = “”

txtTHNMASUK.Text = “”

txtNORUT.Text = “”

End Sub

 

Private Sub CmdLAGI_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtJURUSAN.Text = “”

txtPROGRAM.Text = “”

txtTHNMASUK.Text = “”

txtNORUT.Text = “”

 

End Sub

 

Private Sub CmdBATAL_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtJURUSAN.Text = “”

txtPROGRAM.Text = “”

txtTHNMASUK.Text = “”

txtNORUT.Text = “”

 

End Sub

 

Private Sub cmdKELUAR_Click()

End

End Sub

SCREENSHOOT

 

PROGRAM 3 APLIKASI DATA BUKU

 

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTHTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTHTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdProses_Click()

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

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

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

 

 

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

SCREENSHOOT

 

PROGRAM 4 DATA BUKU

 

 

Private Sub CmdBatal_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

TxtJudul = “”

TxtPengarang = “”

TxtTerbit = “”

TxtPenerbit = “”

TxtHarga = “”

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode = “Pilih Kode Buku”

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 = Left(Kode, 3)

Select Case KodeBuku

Case “SIM”

Judul = “Sistem Informasi Manajemen”

Pengarang = “Fadiya Ulfa”

Harga = 75900

Case “EDP”

Judul = “Elektronik Data Processing”

Pengarang = “Nurul Agustina”

Harga = 62000

Case “MNJ”

Judul = “Manajemen”

Pengarang = “Rian Hidayat”

Harga = 42000

Case “CDR”

Judul = “Corel Draw”

Pengarang = “Siti Nur Khotimah”

Harga = 53000

Case “RPL”

Judul = “Rekayasa Perangkat Lunak”

Pengarang = “Winda Erlianti”

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

 

KodeTahun = Mid(Kode, 5, 2)

Select Case KodeTahun

Case “09”

Tahun = “20” & KodeTahun

Case “10”

Tahun = “20” & KodeTahun

Case “11”

Tahun = “20” & KodeTahun

Case “12”

Tahun = “20” & KodeTahun

Case “13”

Tahun = “20” & KodeTahun

End Select

TxtTerbit = Tahun

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

SCREEENSHOOT

 

PROGRAM 5 APLIKASI DATA 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

TxtMerk = Merk

TxtHarga = Harga

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

CboKode.Text = “Pilih Kode 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

SCREENSHOOT

 

PROGRAM 6 PENJUALAN TIKET KERETA API

 

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 Kode, Harga, Jenis, Berangkat As Variant

 

Kode = Left(TxtKt.Text, 3)

Select Case Kode

Case “BIM”

Harga = 50000

Jenis = “BIMA”

Berangkat = “16.00”

Case “EKO”

Harga = 35000

Jenis = “EKONOMI”

Berangkat = “19.00”

Case “MUT”

Harga = 23000

Jenis = “MUTIARA”

Berangkat = “17.00”

Case “SEN”

Harga = 15000

Jenis = “SENJA”

Berangkat = “20.00”

End Select

TxtHt = Harga

TxtJk = Jenis

TxtJb = Berangkat

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

SCREENSHOOT

 

PROGRAM 7 PT. PULANG PETANG SETIAP HARI

 

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, Tunjangan As Variant

 

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

TxtGolongan = Golongan

 

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

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

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

SCREENSHOOT

 

PROGRAM 8 ENTRI PENJUALAN

 

 

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

TxtJumlahJual.SetFocus

End Sub

 

Private Sub CmdKeluar_Click()

Unload Me

End Sub

 

Private Sub CmdLagi_Click()

CboKode.SetFocus

 

CboKode.Text = “Pilih Kode Komputer”

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

 

SCREENSHOOT

 

TUGAS 3 PEMROGRAMAN 1

PROGRAM 1A

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

screenshoot

 

 

PROGRAM 1B

 

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

screenshoot

 

 

 

PROGRAM 2A

 

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

screenshoot

 

PROGRAM 2B

 

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

 

screenshoot

 

TUGAS BAHASA PEMROGRAMAN 2

TUGAS 1A

Private Sub ER1_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

ER2.SetFocus

End If

End Sub

 

Private Sub ER2_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

ER3 = Val(ER1) * Val(ER2)

ER2.SetFocus

End If

End Sub

 

Private Sub ERHITUNG_CLICK()

ER3 = Val(ER1) * Val(ER2)

End Sub

 

Private Sub erbersih_click()

ER1.SetFocus

ER1 = “”

ER2 = “”

ER3 = “”

 

End Sub

 

Private Sub ERKELUAR_CLICK()

End

End Sub

screenshoot

 

 

 

TUGAS 1B

Private Sub ER1_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

ER2.SetFocus

End If

End Sub

 

Private Sub ER2_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

ER2.SetFocus

End If

End Sub

 

Private Sub ERHITUNG_CLICK()

ER3 = Val(ER1) * Val(ER2)

End Sub

 

Private Sub erbersih_click()

ER1.SetFocus

ER1 = “”

ER2 = “”

ER3 = “”

 

End Sub

 

Private Sub ERKELUAR_CLICK()

End

End Sub

screenshoot

 

 

TUGAS 2A

Private Sub Text9_Change()

 

End Sub

 

Private Sub JPPENG1_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

JPPENG2.SetFocus

End If

End Sub

 

Private Sub JPpeng2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPENG3.Text = Val(JPPENG1.Text) – Val(JPPENG2.Text)

JPPEM1.SetFocus

End If

End Sub

 

Private Sub JPPen1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEN2.SetFocus

End If

End Sub

 

Private Sub Jppen2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEN3.Text = Val(JPPEN1.Text) + Val(JPPEN2.Text)

JPPER1.SetFocus

End If

End Sub

 

Private Sub Jpper1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPER2.SetFocus

End If

End Sub

 

Private Sub Jpper2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPER3.Text = Val(JPPER1.Text) * Val(JPPER2.Text)

JPPENG1.SetFocus

End If

End Sub

 

Private Sub JPPem1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEM2.SetFocus

End If

End Sub

 

Private Sub Jppem2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEM3.Text = Val(JPPEM1.Text) / Val(JPPEM2.Text)

JPPEM2.SetFocus

End If

End Sub

Private Sub JPPROSES_Click()

JPPEN3.Text = Val(JPPEN1.Text) + Val(JPPEN2.Text)

JPPER3.Text = Val(JPPER1.Text) * Val(JPPER2.Text)

JPPENG3.Text = Val(JPPENG1.Text) – Val(JPPENG2.Text)

JPPEM3.Text = Val(JPPEM1.Text) / Val(JPPEM2.Text)

 

End Sub

 

Private Sub jplagi_Click()

JPPEN1.Text = “”

JPPEN2.Text = “”

JPPEN3.Text = “”

JPPER1.Text = “”

JPPER2.Text = “”

JPPER3.Text = “”

JPPEM1.Text = “”

JPPEM2.Text = “”

JPPEM3.Text = “”

JPPENG1.Text = “”

JPPENG2.Text = “”

JPPENG3.Text = “”

 

End Sub

 

Private Sub JPbatal_Click()

JPPEN1.SetFocus

JPPEN1.Text = “”

JPPEN2.Text = “”

JPPEN3.Text = “”

JPPER1.Text = “”

JPPER2.Text = “”

JPPER3.Text = “”

JPPEM1.Text = “”

JPPEM2.Text = “”

JPPEM3.Text = “”

JPPENG1.Text = “”

JPPENG2.Text = “”

JPPENG3.Text = “”

 

End Sub

 

Private Sub jpkeluar_Click()

End

End Sub

screenshoot

 

 

 

 

TUGAS 2B

Private Sub Text9_Change()

 

End Sub

 

Private Sub JPPENG1_KEYPRESS(keyascii As Integer)

If keyascii = 13 Then

JPPENG2.SetFocus

End If

End Sub

 

Private Sub JPpeng2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEM1.SetFocus

End If

End Sub

 

Private Sub JPPen1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEN2.SetFocus

End If

End Sub

 

Private Sub Jppen2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPER1.SetFocus

End If

End Sub

 

Private Sub Jpper1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPER2.SetFocus

End If

End Sub

 

Private Sub Jpper2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPENG1.SetFocus

End If

End Sub

 

Private Sub JPPem1_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEM2.SetFocus

End If

End Sub

 

Private Sub Jppem2_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPEM2.SetFocus

End If

End Sub

Private Sub JPPROSES_Click()

JPPEN3.Text = Val(JPPEN1.Text) + Val(JPPEN2.Text)

JPPER3.Text = Val(JPPER1.Text) * Val(JPPER2.Text)

JPPENG3.Text = Val(JPPENG1.Text) – Val(JPPENG2.Text)

JPPEM3.Text = Val(JPPEM1.Text) / Val(JPPEM2.Text)

 

End Sub

 

Private Sub jplagi_Click()

JPPEN1.Text = “”

JPPEN2.Text = “”

JPPEN3.Text = “”

JPPER1.Text = “”

JPPER2.Text = “”

JPPER3.Text = “”

JPPEM1.Text = “”

JPPEM2.Text = “”

JPPEM3.Text = “”

JPPENG1.Text = “”

JPPENG2.Text = “”

JPPENG3.Text = “”

 

End Sub

 

Private Sub JPbatal_Click()

JPPEN1.SetFocus

JPPEN1.Text = “”

JPPEN2.Text = “”

JPPEN3.Text = “”

JPPER1.Text = “”

JPPER2.Text = “”

JPPER3.Text = “”

JPPEM1.Text = “”

JPPEM2.Text = “”

JPPEM3.Text = “”

JPPENG1.Text = “”

JPPENG2.Text = “”

JPPENG3.Text = “”

 

End Sub

 

Private Sub jpkeluar_Click()

End

End Sub

screenshoot

 

 

 

TUGAS 3A

Private Sub jpharga_keypress(keyasCII As Integer)

If keyasCII = 13 Then

JPDISKON = Val(JPHARGA) * 0.1

JPHA = Val(JPHARGA) – Val(JPDISKON)

End If

End Sub

Private Sub jphitung_click()

JPDISKON = Val(JPHARGA) * 0.1

JPHA = Val(JPHARGA) – Val(JPDISKON)

End Sub

 

Private Sub jpulangi_click()

JPHARGA.SetFocus

JPHARGA = ” ”

JPDISKON = ” ”

JPHA = ” ”

End Sub

Private Sub jpkeluar_click()

End

End Sub

screenshoot

 

TUGAS 3B

Private Sub jpharga_keypress(keyasCII As Integer)

If keyasCII = 13 Then

End If

End Sub

Private Sub jphitung_click()

JPDISKON = Val(JPHARGA) * 0.1

JPHA = Val(JPHARGA) – Val(JPDISKON)

End Sub

 

Private Sub jpulangi_click()

JPHARGA.SetFocus

JPHARGA = ” ”

JPDISKON = ” ”

JPHA = ” ”

End Sub

Private Sub jpkeluar_click()

End

End Sub

screenshoot

 

TUGAS 4A

Private Sub JPgp_keypress(keyascii As Integer)

If keyascii = 13 Then

JPTJ.SetFocus

End If

End Sub

 

Private Sub JPTJ_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPT.SetFocus

End If

End Sub

 

Private Sub JPpt_keypress(keyascii As Integer)

If keyascii = 13 Then

JPGK.SetFocus

End If

End Sub

 

Private Sub jpgk_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPJ.SetFocus

End If

End Sub

 

Private Sub jppj_keypress(keyascii As Integer)

If keyascii = 13 Then

JPGD.SetFocus

End If

End Sub

 

Private Sub JPproses_click()

JPGK = Val(JPGP) + Val(JPTJ) – Val(JPPT)

JPPJ = Val(JPGK) * 0.1

JPGD = Val(JPGK) – Val(JPPJ)

End Sub

 

Private Sub Jpulangi_click()

JPGP.SetFocus

JPGP = “”

JPTJ = “”

JPPT = “”

JPGK = “”

JPPJ = “”

JPGD = “”

End Sub

 

Private Sub jpkeluar_click()

End

End Sub

screenshoot

 

 

 

TUGAS 4B

Private Sub JPgp_keypress(keyascii As Integer)

If keyascii = 13 Then

JPTJ.SetFocus

End If

End Sub

 

Private Sub JPTJ_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPT.SetFocus

End If

End Sub

 

Private Sub JPpt_keypress(keyascii As Integer)

If keyascii = 13 Then

JPGK = Val(JPGP) + Val(JPTJ) – Val(JPPT)

JPPJ = Val(JPGK) * 0.1

JPGD = Val(JPGK) – Val(JPPJ)

JPGK.SetFocus

End If

End Sub

 

Private Sub jpgk_keypress(keyascii As Integer)

If keyascii = 13 Then

JPPJ.SetFocus

End If

End Sub

 

Private Sub jppj_keypress(keyascii As Integer)

If keyascii = 13 Then

JPGD.SetFocus

End If

End Sub

 

 

 

Private Sub JPproses_click()

JPGK = Val(JPGP) + Val(JPTJ) – Val(JPPT)

JPPJ = Val(JPGK) * 0.1

JPGD = Val(JPGK) – Val(JPPJ)

End Sub

 

Private Sub Jpulangi_click()

JPGP.SetFocus

JPGP = “”

JPTJ = “”

JPPT = “”

JPGK = “”

JPPJ = “”

JPGD = “”

End Sub

 

Private Sub jpkeluar_click()

End

End Sub

screenshoot

Tugas Bahasa Program VB

Tugas Pertama

Source Code

Private Sub JPNPM_keypress(keyascii As Integer)
If keyascii = 13 Then
JPNAMA.SetFocus
End If
End Sub

Private Sub jpnama_keypress(keyascii As Integer)
If keyascii = 13 Then
JPALAMAT.SetFocus
End If
End Sub

Private Sub commandlg_click()
JPNPM.SetFocus
JPNPM = “”
JPNAMA = “”
JPALAMAT = “”
End Sub

Private Sub commandbatal_click()
JPNPM = “”
JPNAMA = “”
JPALAMAT = “”
End Sub

Private Sub commandkeluar_click()
End

End Sub

 

Screenshoot

 

Tugas Kedua

 

Source Code

Private Sub ERNPM_Keypress(keyascii As Integer)
If keyascii = 13 Then
ERNAMA.SetFocus
End If

End Sub

Private Sub ERNAMA_keypress(keyascii As Integer)
If keyascii = 13 Then
ERALAMAT.SetFocus
End If

End Sub

Private Sub ERALAMAT_keypress(keyascii As Integer)
If keyascii = 13 Then
ERPS.SetFocus
End If

End Sub

Private Sub ERPS_keypress(keyascii As Integer)
If keyascii = 13 Then
ERJR.SetFocus
End If

End Sub

Private Sub ERJR_keypress(keyascii As Integer)
If keyascii = 13 Then
ERAGAMA.SetFocus
End If

End Sub

Private Sub cmdlagi_click()
ERNPM.SetFocus
ERNPM = ” ”
ERNAMA = ” ”
ERALAMAT = ” ”
ERPS = ” ”
ERJR = ” ”
ERAGAMA = ” ”

End Sub

Private Sub cmdbatal_click()
ERNPM.SetFocus
ERNPM = ” ”
ERNAMA = ” ”
ERALAMAT = ” ”
ERPS = ” ”
ERJR = ” ”
ERAGAMA = ” ”

End Sub

Private Sub cmdkeluar_click()
End
End Sub

 

Screenshoot

Pahala Shalat Berjamaah

UNIA ISLAM

 

REPUBLIKA.CO.ID

Pahala Shalat Berjamaah

Senin, 11 Juli 2011 | 14:32 WIB

salmanitb.com

Shalat gerhana (ilustrasi)

2

SHARE

 

Oleh Syamsu Hilal

 

 

Ibnu Umar meriwayatkan bahwa Rasulullah SAW bersabda, “Shalat berjamaah lebih utama 27 derajat dibandingkan shalat sendirian.” (HR Bukhari dan Muslim). Dengan alasan ini, seperti diceritakan Jabir ra, saking inginnya mendapatkan keutamaan pahala shalat berjamaah di masjid, banyak sahabat dari Bani Salamah terdorong pindah rumah mendekati masjid Nabi.

 

Mendengar kabar tersebut , Rasulullah  bertanya kepada mereka, “Benarkah kalian ingin pindah rumah mendekati masjid?” Mereka menjawab, “Benar, ya Rasulullah.” Nabi bersabda, “Wahai Bani Salamah, tetaplah di tempat kalian, karena setiap langkah kaki kalian ke masjid dicatat satu pahala.”

 

Selain itu, orang yang shalat berjamaah di masjid masih mendapat bonus pahala, yaitu setiap langkah kakinya ke masjid dapat menghapus satu kesalahan. Bahkan, selama menunggu datangnya shalat, dia tetap memperoleh pahala shalat. Setelah itu, selesai shalat, selama ia berada di masjid dan belum batal wudhu, para malaikat berdoa untuknya, “Ya Allah, berkahilah dia. Ya Allah, rahmatilah dia.” (Muttafaqun ‘alaih).

 

Rangkaian shalat dimulai dari berwudhu, yang merupakan sarat sahnya shalat. Dalam hadis yang diriwayatkan Malik, Nasa’, Ibnu Majah, dan Hakim, Rasul memberikan penjelasan mengenai wudhu ini. Beliau mengatakan, jika seseorang berwudhu lalu berkumur, maka dosa-dosa keluar dari mulutnya.

 

Jika orang itu membersihkan hidung, maka dosa-dosa keluar dari hidungnya. Jika dia membasuh muka, maka dosa-dosa keluar dari mukanya hingga dari bawah kelopak matanya. Jika dia membasuh kedua tangan, maka dosa-dosa keluar dari kedua tangannya hingga dari bawah kukunya.

 

Dan, Jika dia mengusap kepala, maka dosa-dosa keluar dari kepalanya hingga dari kedua telinganya. Jika dia membasuh kedua kaki, maka dosa-dosa keluar dari kedua kakinya hingga dari bawah kuku kakinya. Setelah itu, langkahnya ke masjid dan shalatnya menjadi tambahan pahala baginya.

 

Ketika datang waktu shalat, azan dikumandangkan di masjid atau mushala maka orang-orang yang mendengar seruan azan disunahkan mengucapkan sebagaimana yang diucapkan muazin. Jika ini dilakukan, orang-orang yang menjawab seruan azan tersebut akan masuk surga.

 

Selesai azan, kita disunahkan bershalawat dan berdoa untuk Rasulullah. Dengan melakukan ini, niscaya niscaya Allah memberi keberkahan 10 kali lipat dan kita akan mendapat syafaat dari Rasulullah di hari kiamat. Selain itu, sebelum dan atau sesudah shalat fardhu, kita dainjurkan melaksanakn shalat sunah rawatib.

 

Shalat tersebut berfungsi untuk menyempurnakan shalat fardhu yang kita tunaikan.

 

Setiap shalat sunah memiliki keutamaan, misalnya, “Dua rakaat shalat sunah sebelum Subuh lebih baik dibandingkan dunia dan seisinya.” (HR Ahmad, Muslim, Tirmidzi, dan Nasa`i). Subhanallah, setiap shalat fardhu yang dilaksanakan secara berjamaah di masjid ternyata memb

---

awa gerbong pahala sangat besar.

Perusak-perusak Niat dan Obatnya

1. Kebodohan

Kebodohan adalah musibah yang besar menimpa kehidupan manusia, dan menjadikannya terjerumus ke dalam berbagai macam penyimpangan dan kesesatan, seorang penya’ir berkata[1],

 Kebodohan sebelum maut adalah kematian untuk pemiliknya

Dan badan mereka menjadi kuburan sebelum dikuburkan

Roh mereka tidak tenang di dalam jasad mereka

Tidak ada tempat kembali walaupun hari nusyur.

Berilmu tentang hukum suatu ibadah adalah syarat sah niat sehingga ketika seorang hamba beribadah ia dapat menentukan (ta’yin) niatnya dengan benar, maka bila ia tidak mengetahui hukum sebuah ibadah; wajibkah atau sunahkah, tentu ia tidak dapat menta’yinnya dengan benar terlebih jika ibadah tersebut disyaratkan padanya menta’yin niat sebagaimana telah kita jelaskan di bab yang pertama.

Oleh karena itu kewajiban setiap hamba adalah mempelajari hukum-hukum ibadah yang hendak ia laksanakan, agar ia dapat beribadah kepada Allah dengan benar dan sesuai dengan apa yang disyari’atkan oleh Allah melalui lisan Rosul-Nya shallallahu ‘alaihi wasallam. Ilmu adalah obat penawar penyakit bodoh, maka menuntut ilmu adalah kewajiban bagi orang yang terkena penyakit seperti itu.

2. Waswas Setan

Setan berusaha mengggoda anak Adam dan menjerumuskannya kepada jurang Hawiyah, dengan berbagai macam cara ia menggoda manusia di antaranya adalah dengan waswas. Ibnu Qayim rahimahullah berkata: “Tempat niat adalah hati dan tidak hubungan dengan lisan sama sekali, oleh karena itu tidak pernah dinukil dari Nabi shallallahu ‘alaihi wa sallam tidak pula dari para shahabat melafadzkan niat tidak pula kita mendengar mereka menyebutkanya. Bacaan-bacaan yang diada-adakan sebelum bersuci dan shalat ini menjadi makanan empuk setan untuk menggoda ahli waswas, setan menahan mereka dan menyiksanya sehingga engkau lihat salah seorang dari mereka mengulang-ulang niat dan menyusahkan dirinya untuk melafadzkannya, padahal ia bukan bagian dari shalat sama sekali.”[2]

Syaikhul Islam rahimahullah berkata: “Diantara mereka ada yang melakukan sepuluh bid’ah yang tidak pernah dilakukan oleh Rosulullah shallallahu ‘alaihi wasallam tidak juga seorangpun dari shahabat, yaitu mengucapkan: “Audzubillahi minasyaithanirrajim nawaitu ushalli shalatadzuhri faridlotalwaqti adaan lillahi Ta’ala imaman au ma’muman arba’a raka’at mustaqbilal qiblah.” Yang artinya: “Aku berlindung kepada Allah dari godaan setan yang terkutuk, aku berniat melakukan shalat dzuhur kewajiban waktu itu karena Allah Ta’ala sebagai imam atau makmum 4 raka’at dengan menghadap kiblat.” Lalu ia menguatkan anggota tubuhnya, mengkerutkan dahinya, dan menegangkan urat lehernya, kemudian berteriak bertakbir seakan-akan meneriaki musuh. Padahal bila ia memeriksa sepanjang umur Nabi Nuh ‘Alaihissalam apakah perbuatan tersebut pernah dilakukan oleh Nabi shallallahu ‘alaihi wasallam atau seorang saja dari shahabat tentu ia tidak akan mendapatkannya kecuali jika ia mau berani berdusta. Kalaulah hal itu baik tentu mereka telah mendahului dan menunjukkan kita kepadanya.”[3]

Untuk menyingkap talbis iblis ini kita katakan kepada orang yang terkena waswas tersebut: “Jika engkau ingin menghadirkan niat maka niat itu sebenarnya telah hadir karena engkau telah berdiri untuk melaksanakan kewajiban dan itu adalah niat sedangkan niat tempatnya di hati bukan lafadz[4], maka orang yang duduk untuk berwudlu berarti ia telah berniat wudlu, orang yang berdiri untuk shalat berarti ia telah berniat shalat, dan orang yang berakal akan berfikir bahwa semua perbuatan ibadah tidak mungkin dilakukan dengan tanpa niat, karena niat itu selalu menyertai perbuatan manusia yang bersifat ikhtiyari (dibawah kehendak manusia) tidak perlu bersusah payah untuk menghasilkannya, bahkan bila ia ingin mengosongkan perbuatannya yang bersifat ikhtiyari tentu ia tidak akan mampu, kalaulah Allah memberi beban untuk berwudlu tanpa niat tentu ia adalah beban yang tak akan ada orang yang mampu melakukannya, maka jika keadaannya demikian lalu mengapa harus bersusah payah untuk menghasilkan niat ?! Dan jika ia merasa ragu apakah terhasilkan niatnya atau tidak maka ini adalah macam penyakit gila, karena pengetahuan manusia tentang dirinya adalah perkara yang bersifat yakin.[5]

Dihikayatkan dari ibnu ‘Aqil bahwa ada seseorang bertemu dengannya dan bertanya: “Aku mencuci anggota tubuhku namun aku merasa belum mencucinya, dan aku bertakbir namun aku merasa belum bertakbir? Ibnu ‘Aqil rahimahullah menjawab: “Kalau begitu tinggalkan shalat karena tidak wajib bagimu.” Ada orang berkata: “Mengapa engkau mengatakan demikian? Beliau menjawab: “Nabi shallallahu ‘alaihi wasallam bersabda: “Diangkat pena dari orang gila sampai ia waras.” Dan orang yang bertakbir namun ia merasa belum bertakbir bukanlah orang yang berakal, sedangkan orang gila tidak wajib sholat.”[6]

3. Penyakit Hati

Hati adalah segumpal darah yang menentukan anggota badan manusia, jika ia baik maka seluruh tubuhnya akan baik dan jika buruk maka anggota tubuh lainnya pun akan menjadi buruk. Buruknya hati akan menimbulkan keinginan-keinginan yang buruk dan keinginan yang buruk tersebut akan menimbulkan perbuatan yang tidak diridhai oleh Allah ‘Azza wa Jalla, di antara perkara yang dapat merusak niat adalah:

Cinta Dunia

Manusia diciptakan oleh Allah dengan tabiat mencintai dunia, Allah Ta’ala berfirman,

زُيِّنَ لِلنَّاسِ حُبُّ الشَّهَوَاتِ مِنَ النِّسَاءِ وَالْبَنِينَ وَالْقَنَاطِيرِ الْمُقَنطَرَةِ مِنَ الذَّهَبِ وَالْفِضَّةِ وَالْخَيْلِ الْمُسَوَّمَةِ وَاْلأَنْعَامِ وَالْحَرْثِ ذَلِكَ مَتَاعُ الْحَيَاةِ الدُّنْيَا وَاللهُ عِندَهُ حُسْنُ الْمَئَابِ

“Dihiaskan kepada manusia cinta terhadap apa yang diinginkan berupa wanita, anak-anak, harta benda yang bertumpuk berupa emas dan perak, kuda pilihan, binatang ternak dan sawah ladang.” (QS. Ali Imran: 14)

Cinta dunia yang berlebihan menjadikan manusia lupa akan tujuan hidupnya dengan timbulnya niat meraih kesenangan dunia dari amalan shalihnya, sehingga menjadikan amalannya tidak diterima oleh Allah Ta’ala dan di akhirat tidak mendapatkan apa-apa kecuali neraka.

مَن كَانَ يُرِيدُ الْحَيَاةَ الدُّنْيَا وَزِينَتَهَا نُوَفِّ إِلَيْهِمْ أَعْمَالَهُمْ فِيهَا وَهُمْ فِيهَا لاَيُبْخَسُونَ {15} أُوْلَئِكَ الَّذِينَ لَيْسَ لَهُمْ فِي اْلأَخِرَةِ إِلاَّ النَّارَ وَحَبِطَ مَاصَنَعُوا فِيهَا وَبَاطِلٌ مَّاكَانُوا يَعْمَلُونَ {16}

“Barang siapa menghendaki kehidupan dunia dan perhiasannya, pasti Kami berikan balasan atas pekerjaan mereka di dunia, dan mereka di dunia tidak akan dirugikan. Itulah orang-orang yang tidak memperoleh sesuatu di akhirat kecuali neraka, dan sia-sialah di sana apa yang telah mereka usahakan dan terhapuslah apa yang telah mereka kerjakan.” (QS. Huud: 15-16)

Imam Qatadah rahimahullah berkata, “Barang siapa yang niat dan tujuannya hanya mencari dunia, Allah akan memberikan balasan kebaikannya di dunia saja, kemudian ia kembali ke akhirat dengan tanpa membawa pahala sedikit pun, adapun seorang mukmin (yang ikhlas) maka kebaikannya dibalas di dunia dan di akhirat.”[7]

Amalan manusia karena mengharap kehidupan dunia bervariasi di antaranya:

Pertama: amalan shalih yang dilakukan oleh banyak orang dengan mengharapkan keridhaan Allah berupa shadaqah, shalat, berbuat baik kepada manusia dan lain-lain, atau meninggalkan kezaliman dan kemaksiatan yang ia tinggalkan dengan ikhlas karena Allah, namun ia tidak menginginkan pahalanya di akhirat akan tetapi ia menginginkan agar Allah membalasnya dengan dijaga dan ditambah hartanya, dijaga keluarganya, dilanggengkan kenikmatannya, dan ia tidak mempunyai keinginan mencari balasan di surga atau lari dari api neraka, maka orang ini hanya diberikan balasan amalannya di dunia saja sedangkan di akhirat ia tidak mendapat apa-apa. Ini adalah seperti yang disebutkan oleh Ibnu Abbas radhiallahu ‘anhuma.

Kedua: yang disebutkan oleh Imam Mujahid bin Jabr yaitu amalan shalih yang dicampuri dengan riya’ bukan mencari pahala akhirat, amalan seperti ini lebih berat dan menakutkan dari yang pertama.

Ketiga: amalan shalih yang tujuannya adalah meraih harta, seperti orang yang haji dengan tujuan berbisnis dan bukan karena Allah atau berhijrah karena ada dunia yang ingin ia capai, atau karena wanita yang ingin ia nikahi atau berjihad karena ingin mendapat ghanimah.

Keempat: amal shalih yang diniatkan padanya dua hal; karena Allah dan karena ingin meraih keinginan dunia, maka hukumnya untuk yang lebih kuat. [8]

Kewajiban seorang hamba adalah menyelamatkan dirinya dari tipu daya setan ini dengan memahami hakikat kehidupan dunia yang fana dan tidak kekal, kesenangannya adalah menipu dan kemewahannya tidak berharga di sisi Allah sedikit pun, Nabi shallallahu ‘alaihi wa sallam bersabda,

لَوْ كَانَتِ الدُّنْيَا تَزِنُ عِنْدَ اللهِ جَنَاحَ بَعُوضَةٍ مَا أَعْطَى كَافِرًا مِنْهَا شَرْبَةً مِنْ مَاءٍ.

“Kalaulah dunia itu berharga di sisi Allah seharga sayap nyamuk, Allah tidak akan memberi minum orang kafir setegukpun.” (HR. Ibnu Abi Syaibah)[9]

Oleh karena itu, Allah mengingatkan kita tentang hakikat kehidupan dunia dalam ayat yang banyak agar manusia ingat bahwa dunia bukanlah tujuan kehidupan seorang hamba dan bukan sesuatu yang kekal, Allah Ta’ala berfirman,

اعْلَمُوا أَنَّمَا الْحَيَاةُ الدُّنْيَا لَعِب وَلَهْوٌ وَزِينَةٌ وَتَفَاخُرٌ بَيْنَكُمْ وَتَكَاثُرٌ فِي اْلأَمْوَالِ وَاْلأَوْلاَدِ كَمَثَلِ غَيْثٍ أَعْجَبَ الْكُفَّارَ نَبَاتُهُ ثُمَّ يَهِيجُ فَتَرَاهُ مُصْفَرًّا ثُمَّ يَكُونُ حُطَامًا وَفِي اْلأَخِرَةِ عَذَابٌ شَدِيدٌ وَمَغْفِرَةٌ مِّنَ اللهِ وَرِضْوَانٌ وَمَاالْحَيَاةُ الدُّنْيَآ إِلاَّ مَتَاعُ الْغُرُورِ

“Ketahuilah, sesungguhnya kehidupan dunia itu hanyalah permainan dan senda gurau, perhiasan dan saling berbangga di antara kamu serta berlomba dalam kekayaan dan anak keturunan, seperti hujan yang tanam-tanamannya mengagumkan para petani; kemudian tanaman itu menjadi kering dan kamu lihat warnanya kuning kemudian menjadi hancur. Dan di akhirat ada adzab yang keras dan ampunan dari Allah serta keridhaan-Nya. Dan kehidupan dunia tidak lain hanyalah kesenangan yang menipu.” (QS. Al Hadid: 20)

Cinta Pujian dan Ketenaran

Yang paling ditakutkan oleh Nabi shallallahu ‘alaihi wa sallam terhadap umatnya adalah penyakit riya’ beliau bersabda,

إِنَّ أَخْوَفَ مَا أَخَافُ عَلَيْكُمْ الشِّرْكُ الْأَصْغَرُ قَالُوا يَا رَسُولَ اللَّهِ وَمَا الشِّرْكُ الْأَصْغَرُ قَالَ الرِّيَاءُ إِنَّ اللَّهَ تَبَارَكَ وَتَعَالَى يَقُولُ يَوْمَ تُجَازَى الْعِبَادُ بِأَعْمَالِهِمْ اذْهَبُوا إِلَى الَّذِينَ كُنْتُمْ تُرَاءُونَ بِأَعْمَالِكُمْ فِي الدُّنْيَا فَانْظُرُوا هَلْ تَجِدُونَ عِنْدَهُمْ جَزَاءً

“Sesungguhnya yang paling aku khawatirkan kepada kalian adalah syirik kecil.” Mereka berkata, “Apa itu syirik kecil wahai Rasulullah?” Beliau bersabda, “Riya, Allah akan berfirman kepada mereka pada hari manusia dibalas amalan mereka, “Pergilah kepada orang yang kalian harapkan pujian di dunia dan lihatlah apakah kalian mendapatkan pahala dari mereka!!” (HR. Ahmad)[10]

Penyakit ini sangat merusak niat seorang hamba dan menjadikannya terombang-ambing di lautan yang tak bertepi, ia telah memposisikan dirinya sebagai orang yang pertama kali dilemparkan ke dalam api neraka, Nabi shallallahu ‘alaihi wa sallam bersabda,

إِنَّ أَوَّلَ النَّاسِ يُقْضَى يَوْمَ الْقِيَامَةِ عَلَيْهِ رَجُلٌ اسْتُشْهِدَ فَأُتِيَ بِهِ فَعَرَّفَهُ نِعَمَهُ فَعَرَفَهَا قَالَ فَمَا عَمِلْتَ فِيهَا قَالَ قَاتَلْتُ فِيكَ حَتَّى اسْتُشْهِدْتُ قَالَ كَذَبْتَ وَلَكِنَّكَ قَاتَلْتَ لِأَنْ يُقَالَ جَرِيءٌ فَقَدْ قِيلَ ثُمَّ أُمِرَ بِهِ فَسُحِبَ عَلَى وَجْهِهِ حَتَّى أُلْقِيَ فِي النَّارِ وَرَجُلٌ تَعَلَّمَ الْعِلْمَ وَعَلَّمَهُ وَقَرَأَ الْقُرْآنَ فَأُتِيَ بِهِ فَعَرَّفَهُ نِعَمَهُ فَعَرَفَهَا قَالَ فَمَا عَمِلْتَ فِيهَا قَالَ تَعَلَّمْتُ الْعِلْمَ وَعَلَّمْتُهُ وَقَرَأْتُ فِيكَ الْقُرْآنَ قَالَ كَذَبْتَ وَلَكِنَّكَ تَعَلَّمْتَ الْعِلْمَ لِيُقَالَ عَالِمٌ وَقَرَأْتَ الْقُرْآنَ لِيُقَالَ هُوَ قَارِئٌ فَقَدْ قِيلَ ثُمَّ أُمِرَ بِهِ فَسُحِبَ عَلَى وَجْهِهِ حَتَّى أُلْقِيَ فِي النَّارِ وَرَجُلٌ وَسَّعَ اللَّهُ عَلَيْهِ وَأَعْطَاهُ مِنْ أَصْنَافِ الْمَالِ كُلِّهِ فَأُتِيَ بِهِ فَعَرَّفَهُ نِعَمَهُ فَعَرَفَهَا قَالَ فَمَا عَمِلْتَ فِيهَا قَالَ مَا تَرَكْتُ مِنْ سَبِيلٍ تُحِبُّ أَنْ يُنْفَقَ فِيهَا إِلَّا أَنْفَقْتُ فِيهَا لَكَ قَالَ كَذَبْتَ وَلَكِنَّكَ فَعَلْتَ لِيُقَالَ هُوَ جَوَادٌ فَقَدْ قِيلَ ثُمَّ أُمِرَ بِهِ فَسُحِبَ عَلَى وَجْهِهِ ثُمَّ أُلْقِيَ فِي النَّارِ

“Sesungguhnya orang yang pertama kali diadzab pada hari kiamat adalah orang yang mati syahid, lalu ia didatangkan menghadap Allah. Allah menyebutkan nikmat-Nya kepadanya dan ia pun mengakuinya. Allah berfirman, “Apa yang engkau amalkan dengannya?” Ia menjawab, “Aku berperang di jalan-Mu sampai aku mati syahid.” Allah berfirman, “Kamu dusta, akan tetapi kamu berperang agar disebut pemberani dan telah dikatakan padamu.” Lalu orang itu diperintahkan agar diseret dengan wajahnya sampai dilemparkan ke dalam api neraka. Dan orang yang mempelajari ilmu dan mengajarkannya serta membaca Alquran, ia didatangkan menghadap Allah. Allah menyebutkan nikmat-Nya kepadanya dan ia pun mengakuinya. Allah berfirman, “Apa yang engkau amalkan dengannya?” Ia menjawab, “Aku mempelajari ilmu dan membaca Alquran karena Engkau.” Allah berfirman, “Kamu dusta, akan tetapi kamu mempelajari ilmu agar disebut ulama dan membaca Alquran agar disebut qori dan telah dikatakan demikian kepadamu.” Lalu orang itu diperintahkan agar diseret dengan wajahnya sampai dilemparkan ke dalam api neraka. Dan orang yang Allah luaskan rezekinya dan diberi segala macam harta. Lalu ia didatangkan menghadap Allah. Allah menyebutkan nikmat-Nya kepadanya dan ia pun mengakuiya. Allah berfirman, “Apa yang engkau amalkan dengannya?” Ia menjawab, “Tidak ada satu pun jalan yang Engkau sukai untuk diinfakkan padanya, kecuali aku telah menginfakkannya karena Engkau.” Allah berfirman, “Kamu dusta, akan tetapi kamu berbuat itu agar disebut dermawan dan telah dikatakan demikian kepadamu.” Lalu orang itu diperintahkan agar diseret dengan wajahnya sampai dilemparkan ke dalam api neraka.” (HR. Muslim)[11]

Niat menjadi rusak dengan adanya riya, karena ia mengharapkan selain keridhaan Allah Ta’ala sehingga ia berhak mendapatkan sanksi dari Allah Ta’ala. Seorang hamba wajib bersungguh-sungguh untuk berjuang melawannya dengan memohon perlindungan kepada Allah dan bertawakal kepada-Nya dan menjihadi dirinya agar senantiasa ikhlas dalam beribadah.

Tamak kepada Harta dan Kedudukan

Nabi shallallahu ‘alaihi wa sallam menyebutkan bahwa tamak kepada harta dan kedudukan lebih berbahaya dari pada dua ekor serigala lapar, beliau bersabda,

مَا ذِئْبَانِ جَائِعَانِ أُرْسِلَا فِي غَنَمٍ بِأَفْسَدَ لَهَا مِنْ حِرْصِ الْمَرْءِ عَلَى الْمَالِ وَالشَّرَفِ لِدِينِهِ

“Tidaklah dua serigala lapar dilepaskan kepada seekor kambing lebih berbahaya dari rakusnya seseorang kepada harta dan kedudukan melalui agamanya.” (HR. Tirmidzi)[12]

Karena orang yang rakus kepada harta dan kedudukan seringkali menjadikan pelakunya melecehkan batasan-batasan Allah Ta’ala, tidak peduli apakah jalan yang ditempuhnya halal atau haram, bahkan ia pun berani memusuhi hamba-hamba Allah yang shalih bila ternyata menjadi aral untuknya dalam meraih dunia yang ia inginkan. Lebih-lebih rakus terhadap kedudukan, ia lebih berbahaya daripada rakus terhadap harta, karena pelakunya mendapatkan kelezatan lebih dari sekedar harta namun juga kehormatan dan ketundukan manusia kepadanya. Oleh karena itu, Nabi shallallahu ‘alaihi wa sallam melarang kita untuk meminta jabatan, beliau bersabda,

لَا تَسْأَلْ الْإِمَارَةَ فَإِنَّكَ إِنْ أُعْطِيتَهَا عَنْ مَسْأَلَةٍ وُكِلْتَ إِلَيْهَا وَإِنْ أُعْطِيتَهَا عَنْ غَيْرِ مَسْأَلَةٍ أُعِنْتَ عَلَيْهَا

“Janganlah engkau meminta jabatan, karena sesungguhnya jika engkau diberikan jabatan karena memintanya, maka engkau tidak akan dibantu namun diserahkan pada dirimu, dan jika engkau diberi jabatan karena engkau tidak memintanya maka engkau akan dibantu (oleh Allah).” (HR. Bukhari dan Muslim)

Dan yang lebih berat lagi adalah orang yang mencari kedudukan dunia melalui agamanya, dimana ia membela kepentingan dirinya di balik kedok agama, celakanya lagi ia berdalih dengan kaidah-kaidah syariat untuk membenarkan dirinya, sehingga agama menjadi permainan hawa nafsunya. Cobalah engkau lihat berapa banyak bid’ah dihalalkan untuk mencari suara lalu berdalih bahwa ini adalah keadaan darurat atau mashlahatnya besar atau seribu alasan lainnya, sunnah pun dilecehkan bahkan dianggapnya sebagai batu sandungan yang dapat menghalangi jalannya. Allahul musta’an.

Al Hafidz Ibnu Rajab rahimahullah berkata, “Telah menjadi jelas bahwa cinta harta dan kedudukan dan rakus kepada keduanya dapat merusak agama seseorang sehingga tidak tersisa darinya kecuali apa yang Allah kehendaki sebagaimana dikabarkan oleh Nabi shallallahu ‘alaihi wa sallam. Dan asal cinta harta dan kedudukan adalah cinta dunia, dan asal cinta dunia adalah mengikuti hawa nafsu. Wahb bin Munabbih rahimahullah berkata, “Dari mengikuti hawa nafsu timbullah cinta dunia, dan dari cinta dunia timbullah cinta harta dan kedudukan, dan dari cinta harta dan kedudukan timbullah menghalalkan apa-apa yang haram.”[13]

4. Fitnah Syubhat dan Syahwat

Syubhat dan syahwat adalah dua penyakit yang sangat merusak niat, adanya bid’ah dalam niat adalah akibat syubhat dan niat yang tidak ikhlas adalah akibat syahwat, dua macam fitnah ini dikumpulkan dalam sebuah ayat,

 كَالَّذِينَ مِن قَبْلِكُمْ كَانُوا أَشَدَّ مِنكُمْ قُوَّةً وَأَكْثَرَ أَمْوَالاً وَأَوْلاَدًا فَاسْتَمْتَعُوا بِخَلاَقِهِمْ فَاسْتَمْتَعْتُم بِخَلاَقِكُمْ كَمَا اسْتَمْتَعَ الَّذِينَ مِن قَبْلِكُم بِخَلاَقِهِمْ وَخُضْتُمْ كَالَّذِي خَاضُوا أَوْلَئِكَ حَبِطَتْ أَعْمَالُهُمْ فِي الدُّنْيَا وَاْلأَخِرَةِ وَأُوْلَئِكَ هُمُ الْخَاسِرُونَ

“(Keadaan orang munafik dan musyrikin) seperti orang-orang sebelum kamu, mereka lebih kuat dari pada kamu dan lebih banyak harta dan anak-anaknya. Maka mereka telah menikmati bagiannya dan kamu telah menikmati bagianmu sebagaimana orang-orang sebelum kamu menikmati bagiannya dan kamu tenggelam mempercakapkan (kepada hal-hal yang bathil) sebagaimana mereka tenggelam mempercakapkannya.” (QS. At Taubah: 69)

Ibnu Qayyim rahimahullah berkata, “Dan kamu telah menikmati bagianmu, maksudnya kamu menikmati bagianmu dari dunia dan syahwatnya. Dan kamu tenggelam mempercakapkan, maksudnya tenggelam mempercakapkan kebatilan yaitu syubhat. Allah Ta’ala mengisyaratkan dalam ayat ini kepada apa yang dapat merusak hati dan agama berupa bersenang-senang dengan syahwat dan tenggelam dalam kebatilan, karena rusaknya agama dapat terjadi dengan adanya keyakinan yang batil atau beramal tidak sesuai dengan ilmu yang shahih.”[14]

Adapun obat syubhat adalah dengan mencari ilmu yang shahih dan memurnikan mutaba’ah terhadap Rosulullah shallallahu ‘alaihi wa sallam dan berhukum dengannya dalam perkara besar maupun kecil dari urusan agama ini. Dan obat syahwat adalah dengan menumbuhkan rasa takut kepada Allah Ta’ala dan siksaan-Nya yang pedih serta memahami tentang hakikat kehidupan dunia ini sebagaimana telah kita sebutkan.

***

Penulis: Ustadz Abu Yahya Badrusalam, Lc. Artikel http://www.cintasunnah.com

[1] Lihat Ighatsatulahafan hal. 26. Tahqiq Majdi Fathi Sayid.

[2] Ighatsatulahafan hal 145.

[3] Ighatsatulahafan hal 146.

[4] Talbis iblis ibnul Jauzi hal 155.

[5] Ighatsatulahafan hal 145.

[6] Talbis iblis hal 155.

[7] Tafsir ibnu Katsir 4/217.

[8] Taisirul ‘Azizil Hamid Syarah Kitab Tauhid, Hal. 404.

[9] Musnad ibnu Abi Syaibah, 2:424 no.963 dan dishahihkan oleh Syaikh Al Bani dalam Silsilah Shahihah, no.686.

[10] Musnad Ahmad, 5:428 no. 23680 lihat Silsilah Shahihah Syaikh Al Bani no 951.

[11] Muslim 3:1513 no 1905.

[12] At Tirmidzi no.2376 dan dishahihkan oleh Syaikh Al Bani dalam Shahih Targhib no 1710.

[13] Ibnu Rajab, Syarah Ma Dzibaani Jaa’iaani, Hal. 71.

[14] Ibnu Qayyim, Ighotsatulahafan, Hal. 535.

sumber : https://alhilyahblog.wordpress.com/2013/12/05/perusak-perusak-niat-dan-obatnya/

Kaidah-Kaidah Penting dalam Ittiba’ (Mengikuti Sunnah Rasulullah)

Dalam ber-ittiba’, yaitu meneladani dan mencontoh tuntunan Nabi Shallallahu’alaihi Wasallam, terdapat beberapa kaidah penting yaitu:

1. Agama Islam dibangun di atas wahyu dan dalil yang shahih, bukan akal dan pendapat

Maka jika datang suatu perintah ataupun larangan dari Kitabullah atau sunnah (hadits) Rasul-Nya Shallallahu’alaihi Wasallam, wajib bagi menerimanya dan bersegera untuk menerapkannya dengan melaksanakan perintah atau menjauhi larangan. Oleh karena itu dahulu para salaf rahimahumullah berjalan mengikuti nash-nash. Mereka menghukumi seseorang di atas jalan yang benar selama dia mengikuti atsar.[1]

Zuhri berkata, “Risalah datangnya dari Allah, kewajiban Rasul Shallallahu’alaihi Wasallam adalah menyampaikan dan kewajiban kita adalah menerimanya.”[2]

Ketika menjelaskan perkataan Ath-Thahawi, “Telapak kaki Islam tidak akan tegak kecuali di atas permukaan menerima dan pasrah.” Ibnu Abil ‘Izz berkata, “Yaitu tidak akan kokoh keislaman seseorang yang tidak menerima dan tunduk kepada nash-nash al-Kitab dan as-Sunnah, tidak menolaknya dan tidak mempertentangkannya dengan pendapat, akal dan logikanya.”[3]

2. Wajib bagi seorang Muslim untuk mencari tahu tentang hukum syar’i dan memastikannya sebelum mengamalkannya di dalam semua urusan hidupnya

Karena Nabi Shallallahu’alaihi Wasallam bersabda,

(( مَنْ عَمِلَ عَمَلاً لَيْسَ عَلَيْهِ أَمْرُنَا فَهُوَ رَدٌّ ))

“Barangsiapa melakukan suatu amalan yang tidak ada perkara (tuntunan-pen) kami padanya maka tertolak.”[4]

Asy-Syathibi berkata, “Setiap orang yang mencari sesuatu yang tidak disyariatkan di dalam beban-beban syariat (ibadah-pen), berarti dia telah menyelisihi syariat. Dan setiap orang yang menyelisihi syariat, amalan dia di dalam penyelisihan itu adalah batil (sia-sia). Maka barangsiapa mencari sesuatu yang tidak disyariatkan di dalam beban-beban syariat, berarti amalannya juga batil.”[5]

Alangkah indahnya perkataan seorang khalifah yang lurus, Ali radhiallahu’anhu, ketika dia berkata, “Janganlah kalian mengikuti sunnahnya orang-orang (yang masih hidup –pen). Karena sesungguhnya ada seseorang yang melakukan amalan ahli surga kemudian dia berbalik lalu melakukan amalan ahli neraka sehingga dia mati dan termasuk ahli neraka. Dan sesungguhnya ada seseorang yang melakukan amalan ahli neraka kemudian dia berbalik – karena Allah mengetahui tentangnya – lalu dia melakukan amalan ahli surga sehingga dia mati dan termasuk ahli surga. Dan jika kalian memang harus melakukannya (mengikuti suatu sunnah –pen), maka hendaknya terhadap orang-orang yang telah wafat, bukan yang masih hidup.” Beliau mengisyaratkan kepada Rasul Shallallahu’alaihi Wasallam dan para sahabat beliau yang mulia.[6]

Dan juga perkataan Abu Zinad, “Sesungguhnya sunnah-sunnah dan sisi-sisi kebenaran banyak yang datang menyelisihi akal. Maka mau tidak mau kaum muslimin harus mengikutinya. Di antaranya, bahwa seorang wanita haidh mengganti puasa namun tidak mengganti shalat.”[7]

3. Maksud dari ittiba’ kepada Rasul Shallallahu’alaihi Wasallam adalah mengamalkan segala ajaran yang beliau bawa

Baik yang ada di dalam Al-Qur’an sebagai wahyu dari Allah Ta’ala kepada beliau, maupun berupa perintah maupun larangan, dan juga mengamalkan sunnah yang suci. Rasulullah Shallallahu’alaihi Wasallam bersabda,

أَلاَ إِنِّي أُوتِيتُ الْكِتَابَ وَمِثْلَهُ مَعَهُ أَلاَ إِنِّي أُوتِيتُ الْقُرْآنَ وَمِثْلَهُ مَعَهُ

“Ketahuilah, sesungguhnya aku diberi al-Kitab bersama dengan yang semisalnya. Ketahuilah, sesungguhnya aku diberi al-Kitab bersama dengan yang semisalnya.”[8]

‘Atha berkata, “Mentaati Rasul adalah dengan mengikuti al-Kitab dan as-Sunnah.”[9]

Al-‘allamah As-Sa’di berkata, “Sesungguhnya wajib bagi seluruh hamba untuk berpegang dan mengikuti apa yang dibawa oleh Rasul Shallallahu’alaihi Wasallam, tidak halal menyelisihinya. Dan sesungguhnya pernyataan Rasulullah Shallallahu’alaihi Wasallam sama dengan pernyataan Allah Ta’ala di dalam memberikan hukum. Maka tidak ada keringanan ataupun alasan bagi seorangpun untuk meninggalkannya. Dan tidak boleh mendahulukan perkataan seseorang atas perkataan beliau Shallallahu’alaihi Wasallam.”[10]

4. Ibadah-ibadah yang ditinggalkan oleh Nabi Shallallahu’alaihi Wasallam dan tidak beliau lakukan padahal ada sebab yang menuntutnya pada zaman beliau, maka melakukannya adalah bid’ah sedangkan meninggalkannya adalah sunnah

Seperti perayaan maulid Nabi, menghidupkan malam Isra’ Mi’raj, merayakan tahun baru hijrah serta yang semisalnya. Hal ini ditunjukkan oleh sabda Rasulullah Shallallahu’alaihi Wasallam,

(( مَنْ عَمِلَ عَمَلاً لَيْسَ عَلَيْهِ أَمْرُنَا فَهُوَ رَدٌّ ))

“Barangsiapa melakukan suatu amalan yang tidak ada perkara (tuntunan-pen) kami padanya maka tertolak.”[11]

Imam Malik rahimahullah berkata, “Apa saja yang bukan merupakan agama pada hari itu, maka pada hari ini juga bukan merupakan agama.”[12]

Ibnu Taimiyah rahimahullah berkata, “Meninggalkan sesuatu secara terus-menerus adalah sunnah, sebagaimana perbuatan yang terus-menerus adalah sunnah.”[13]

Ibnu Katsir rahimahullah berkata, “Adapun ahlussunnah wal jama’ah, mereka berkata bahwa setiap perkataan dan perbuatan yang tidak tetap dari para sahabat radhiallahu’anhum adalah bid’ah. Karena seandainya baik, tentunya mereka telah mendahului kita melakukannya.”[14]

5. Segala sesuatu yang dibutuhkan oleh manusia di dalam pokok-pokok dan cabang-cabang agama, di dalam urusan dunia dan akhirat, yang berupa ibadah dan muamalah, dalam keadaan damai ataupun perang, dalam masalah politik atau ekonomi, dan seterusnya, maka syariat telah menjelaskan dan menerangkannya

Allah Ta’ala berfirman.

وَنَزَّلْنَا عَلَيْكَ الْكِتَابَ تِبْيَانًا لِكُلِّ شَيْءٍ وَهُدًى وَرَحْمَةً وَبُشْرَى لِلْمُسْلِمِينَ

“Dan telah Kami turunkan suatu kitab kepadamu sebagai penjelas terhadap segala sesuatu, sebagai petunjuk, rahmat dan kabar gembira bagi kaum muslimin.” (QS. An-Nahl: 89)

Allah Ta’ala berfirman,

الْيَوْمَ أَكْمَلْتُ لَكُمْ دِينَكُمْ وَأَتْمَمْتُ عَلَيْكُمْ نِعْمَتِي وَرَضِيتُ لَكُمُ اْلإِسْلاَمَ دِينًا

“Pada hari ini telah Aku sempurnakan bagimu agamamu dan telah Aku cukupkan nikmat-Ku atasmu dan telah Aku ridhai Islam sebagai agama.” (QS. Al-Maidah: 3)

Seorang dari kaum musyrikin berkata kepada Salman Al-Farisi, “Apakah Nabimu mengajarkan segala sesuatu kepada kalian sampai pun pada masalah buang air?” Maka Salman menjawab, “Benar, beliau telah melarang kami dari menghadap kiblat ketika buang air besar maupun kecil … – sampai akhir hadits.”[15]

6. Ittiba’ tidak akan terwujud kecuali jika amalan sesuai dengan syariat di dalam enam perkara yaitu:

1. Sebab. Jika seseorang beribadah kepada Allah Ta’ala dengan satu ibadah yang disertai dengan sebab yang tidak syar’i maka ibadah ini tertolak kepada pelakunya. Contohnya, menghidupkan malam ke duapuluh tujuh bulan Rajab dengan shalat tahajjud, dengan anggapan bahwa malam itu adalah malam isra’ mi’raj.[16] Maka shalat tahajjud pada asalnya adalah ibadah, namun ketika dikaitkan dengan sebab ini, maka menjadi bid’ah karena dibangun di atas sebab yang tidak ditetapkan secara syar’i.
2. Jenis. Jika seseorang beribadah kepada Allah Ta’ala dengan suatu ibadah yang jenisnya tidak disyariatkan, maka ibadah itu tidak diterima. Contohnya, menyembelih kuda sebagai hewan kurban. Karena hewan kurban hanya dari jenis binatang ternak onta, sapi dan kambing.
3. Ukuran. Seandainya ada seseorang yang ingin menambah satu shalat sebagai shalat wajib atau menambah satu raka’at dalam shalat wajib, maka amalannya ini adalah bid’ah dan tertolak. Karena amalan (shalat) itu menyelisihi syari’at di dalam ukuran dan bilangannya.
4. Tata cara. Jika seseorang membolak-balik wudhu dan shalat, maka wudhu dan shalatnya tidak akan sah. Karena amalannya menyelisihi syari’at di dalam kaifiyah (tatacara).
5. Waktu. Seandainya seseorang menyembelih hewan kurban di bulan Rajab atau puasa Ramadhan di bulan syawwal atau wukuf di Arafah pada tanggal sembilan Dzulqa’idah, maka itu semua tidak akan sah karena menyelisihi syari’at di dalam waktu.
6. Tempat. Jika seseorang melakukan i’tikaf di rumahnya, tidak di masjid atau dia wukuf pada tanggal sembilan Dzulhijjah di Muzdalifah, maka hal itu tidak sah karena menyelisihi syari’at di dalam tempat.[17]

7. Asal di dalam ibadah bagi mukallaf adalah ta’abbud (merendahkan diri dan tunduk –pen) dan imtitsal (mewujudkan ketaatan –pen) tanpa melihat kepada hikmah-hikmah atau amalan-amalan yang dikandungnya, meskipun kadang nampak jelas pada sebagian banyak darinya

Syaikh Ibnu Utsaimin rahimahullah berkata menetapkan hal ini, “Wajib kita ketahui bahwa hikmah adalah perintah-perintah dan larangan-larangan Allah dan Rasul-Nya Shallallahu’alaihi Wasallam, maka kita wajib menerimanya. Jika ada seseorang yang bertanya kepada kita tentang hikmah di dalam suatu perkara, kita jawab bahwa sesungguhnya hikmah adalah perintah-perintah dan larangan-larangan Allah dan Rasul-Nya Shallallahu’alaihi Wasallam. Dalilnya dari al-Qur’an al-Karim adalah firman Allah Ta’ala,

وَمَا كَانَ لِمُؤْمِنٍ وَلاَ مُؤْمِنَةٍ إِذَا قَضَى اللَّهُ وَرَسُولُهُ أَمْرًا أَنْ يَكُونَ لَهُمُ الْخِيَرَةُ مِنْ أَمْرِهِمْ

“Tidak pantas bagi seorang laki-laki atau perempuan yang beriman memiliki pilihan di dalam urusan mereka jika Allah dan Rasul-Nya telah menetapkan satu urusan.” (QS. Al-Ahzaab: 36) Aisyah radhiallahu’anha pernah ditanya, kenapa seorang wanita yang haidh mengganti puasanya tetapi tidak mengganti shalat? Maka beliaupun menjawab, “Dahulu hal itu juga menimpa kita, lalu kami diperintah untuk mengganti puasa tapi tidak diperintah untuk mengganti shalat.[18] Maka beliau berdalil dengan sunnah dan tidak menyebutkan ‘illah (alasannya). Inilah hakikat taslim dan ibadah, yaitu menerima perintah Allah dan Rasul-Nya baik diketahui hikmahnya ataupun tidak. Jika seseorang tidak mau beriman terhadap sesuatu kecuali jika dia mengetahui hikmahnya, kita katakan, sesungguhnya engkau adalah orang yang mengikuti hawa nafsu, engkau tidak mau melaksanakan ketaatan kecuali jika nampak bagimu bahwa hal itu adalah baik.”[4] Alangkah menakjubkan Al-Faruq Umar radhiallahu’anhu ketika berkata, “Kenapa tetap berlari-lari kecil dan membuka bahu kanan (yakni ketika thawaf dalam haji dan umrah –pen) padahal Allah telah mengokohkan Islam, menghilangkan kekafiran dan orang-orangnya? Meskipun demikian kita tidak akan meninggalkan sesuatupun yang dulu kita lakukan pada zaman Rasulullah Shallallahu’alaihi Wasallam.”[19] Akan tetapi, dari penjelasan yang telah lalu, tidak boleh dipahami oleh seorang pun bahwa tidak ada tuntutan untuk membahas tentang hikmah dan makna yang terkandung di dalam ibadah-ibadah yang ditunjukkan oleh beberapa indikasi. Bagaimana tidak, sedangkan Allah Ta’ala dan Rasul-Nya Shallallahu’alaihi Wasallam telah menyebutkan sebagian darinya. Misalnya, firman Allah Ta’ala,

لَعَلَّكُمْ تَتَفَكَّرُونَ

“Agar kalian berfikir”

لَعَلَّكُمْ تُفْلِحُونَ

“Agar kalian beruntung”

لَعَلَّكُمْ تَتَّقُونَ

“Agar kalian bertakwa” Dan sabda Rasulullah Shallallahu’alaihi Wasallam,

إِنَّمَا جُعِلَ الطَّوَافُ بِالْبَيْتِ وَبَيْنَ الصَّفَا وَالْمَرْوَةِ وَرَمْيُ الْجِمَارِ ِلإِقَامَةِ ذِكْرِ اللَّهِ

“Sesungguhnya, diadakannya thawaf di Ka’bah, sa’i antara Shafa dan Marwa dan melempar jumrah, adalah untuk mengingat Allah.”[20] Akan tetapi, yang dimaksudkan adalah untuk memberi peringatan agar tidak berlebih-lebihan di dalam membahasnya dan agar tidak menggantungkan pelaksanaan suatu ibadah dengan pengetahuan terhadap hikmahnya. Adapun kaidah di dalam masalah adat, kebiasaan dan mu’amalah, adalah melihat dan menyelidiki hikmah-hikmah dan makna-maknanya, meskipun kadang tidak nampak jelas pada sebagian darinya.[21]

8. Kesusahan bukanlah tujuan syariat

Oleh karenanya, Rasulullah Shallallahu’alaihi Wasallam bersabda kepada seorang tua yang dipapah oleh kedua anaknya karena telah bernadzar untuk berjalan,

(( إِنَّ اللهَ عَنْ تَعْذِيبِ هَذَا نَفْسَهُ لَغَنِيٌّ ))

“Sesungguhnya Allah tidak butuh kepada penyiksaan orang ini terhadap dirinya.”[22] Al-‘Izz bin Abdis Salaam menguatkan hal ini, “Tidak benar mendekatkan diri (kepada Allah) dengan perkara-perkara yang menyusahkan. Karena seluruh pendekatan diri kepada Allah adalah pengagungan terhadap-Nya, sedangkan perkara-perkara yang menyusahkan itu bukanlah suatu pengagungan atau penghormatan.”[23] Dan yang dituntut dari seorang hamba adalah menjauhi larangan dan melaksanakan perintah sesuai dengan batas kemampuan. Dengan dalil sabda Nabi Shallallahu’alaihi Wasallam,

(( فَإِذَا نَهَيْتُكُمْ عَنْ شَيْءٍ فَاجْتَنِبُوهُ وَإِذَ أَمَرْتُكُمْ بِشَيْءٍ فَأْتُوا مِنْهُ مَا اسْتَطَعْتُمْ ))

“Jika aku larang kalian dari sesuatu, maka jauhilah. Dan jika aku perintahkan kalian dengan sesuatu, maka lakukanlah semampu kalian.”[24] Dasar dan landasan syariat adalah memberikan kemudahan dan menghilangkan kesusahan dari hamba-hamba. Dalilnya firman Allah,

مَا يُرِيدُ اللَّهُ لِيَجْعَلَ عَلَيْكُمْ مِنْ حَرَجٍ

“Allah tidak menghendaki membuat kesusahan kepada kalian.” (QS. Al-Maidah: 6) Oleh karena itu, perbedaan pahala dan balasan mengikuti tingkatan amal dan ukuran kemuliaannya, baik besar ataupun kecil tingkat kesusahannya.[25] Tapi tidak diragukan bahwa kesusahan – yang bukan merupakan tujuan – yang didapati oleh seorang mukallaf karena melaksanakan amalan yang disyariatkan, akan menambah pahala baginya. Allah Ta’ala berfirman,

ذَلِكَ بِأَنَّهُمْ لاَ يُصِيبُهُمْ ظَمَأٌ وَلاَ نَصَبٌ وَلاَ مَخْمَصَةٌ فِي سَبِيلِ اللَّهِ وَلاَ يَطَئُونَ مَوْطِئًا يَغِيظُ الْكُفَّارَ وَلاَ يَنَالُونَ مِنْ عَدُوٍّ نَيْلاً إِلاَّ كُتِبَ لَهُمْ بِهِ عَمَلٌ صَالِحٌ

“Yang demikian itu ialah karena mereka tidak ditimpa kesusahan, kepayahan dan kelaparan di jalan Allah, dan tidak (pula) menginjak suatu tempat yang membangkitkan amarah orang-orang kafir dan tidak menimpakan suatu bencana kepada musuh, melainkan dituliskan suatu amal shalih bagi mereka dengan sebab yang demikian itu.” (QS. At-Taubah: 120) Dari Jabir radhiallahu’anhu berkata, “Dahulu, rumah-rumah kami jauh dari masjid. Maka kami berniat menjual rumah-rumah kami dan mendekat menuju masjid. Lalu Rasulullah Shallallahu’alaihi Wasallam melarang kami dan bersabda,

(( إِنَّ لَكُمْ بِكُلِّ خُطْوَةٍ دَرَجَةً ))

“Sesungguhnya kalian mendapatkan satu derajat pada setiap langkah.”[26] Ketika Aisyah radhiallahu’anha berkata, “Wahai Rasulullah, orang-orang keluar untuk melakukan dua ibadah sekaligus (haji dan umrah –pen), sedangkan aku hanya melakukan satu ibadah (haji –pen)?” Rasulullah Shallallahu’alaihi Wasallam bersabda kepadanya,

(( انتظري فإذا طهرت فاخرجي إلى التنعيم فأهلي ثم ائْتِنَا بمكان كذا ، ولكنها على قدر نفقتك أو نصبك ))

“Tunggulah, jika engkau telah suci maka pergilah ke Tan’im lalu serukan talbiyah, kemudian datangilah kami di tempat anu. Akan tetapi hal itu sesuai dengan harta atau tenagamu.”[27] Al-‘Izz bin Abdis Salaam berkata tentang hal ini di dalam perkataan yang berharga, “Jika ditanyakan, apa ketentuan dari amalan susah yang diberi balasan lebih banyak dari amalan yang ringan? Aku katakan, jika ada dua perbuatan yang memiliki kesamaan di dalam kemuliaan, syarat-syarat, sandaran dan rukun-rukunnya, sedangkan salah satunya adalah amalan yang berat, maka pahala kedua amalan itu sama saja, karena keduanya memiliki kesamaan di dalam seluruh ketentuannya. Hanya saja yang satu berbeda dari yang lain karena ada penahanan diri terhadap perkara yang susah karena Allah Ta’ala, sehingga diberi pahala karena menahan perkara yang susah itu, bukan karena dzat kesusahan itu sendiri.”[28]

___

Catatan Kaki

1 Lihat perkataan Ibnu Sirin yang semisal dengan ini di dalam sunan Ad-Darimi no. 140.

2 Shahih Bukhari, Fathul Bari (13/504).

3 Syarh al-Aqidah ath-Thahawiyah (1/219).

4 Riwayat Muslim (3/1343) no: 1718.

5 Al-I’tisham karya Asy-Syathibi (2/358).

6 Al-Muwafaqaat (2/333).

7 Riwayat al-Bukhari, lihat Fathul Bari (4/192). Ibnu Hajar berkata, “Dan perkataan Abu Zinad, ‘sesungguhnya sunnah-sunnah banyak yang datang menyelisihi akal’, seakan-akan beliau mengisyaratkan kepada perkataan Ali, ‘seandainya agama ini (bersandar) dengan akal, tentunya bagian bawah sepatu lebih berhak untuk diusap dari pada bagian atasnya.’ Riwayat ini dikeluarkan oleh Ahmad (1267), Abu Daud (162), Ad-Daruquthni (1/199) dan para perawinya adalah tsiqaat (orang-orang yang terpercaya). Dan banyak yang semakna dengan ini di dalam Asy-Syar’iyat”.

8 Riwayat Ahmad (4/131) dishahihkan oleh al-Albani di dalam Shahihul Jami’ (1/516) no: 2643.

9 Riwayat Ad-Darimi (1/77) no: 223.

10 Tafsir as-Sa’di (7/333).

11 Riwayat Muslim (3/1343) no: 1718.

12 Al-I’tisham karya Asy-Syathibi (1/49).

13 Majmu’ Al-Fatawa karya Ibnu Taimiyah (26/172).

14 Tafsir al-Qur’an al-‘Azhim (4/156).

15 Riwayat Muslim (1/223) no. 262, lihat Tafsir As-Sa’di (4/230, 231)

16 Penetapan malam isra’ mi’raj telah dipeselisihkan oleh para ulama dan muncul lebih dari sepuluh pendapat. Lihat Fathul Bari karya Ibnu Hajar (7/203). Dan Syaikh Ibnu Baaz memiliki perkataan yang berharga tentang hal ini. Beliau berkata, “Malam terjadinya isra’ dan mi’raj ini tidak ada penentuannya di dalam hadits-hadits yang shahih. Semua riwayat yang datang tentang penentuannya, tidak ada yang shahih dari Nabi Shallallahu’alaihi Wasallam menurut ulama ahli hadits. Dan Allah memiliki hikmah yang dalam dimana Allah menjadikan manusia lupa terhadapnya. Seandainya penentuan malam itu benar, kaum muslimin tidak boleh mengkhususkannya dengan suatu ibadah apapun dan mereka tidak boleh merayakannya. Karena Nabi Shallallahu’alaihi Wasallam dan para sahabat beliau tidak merayakannya dan tidak mengkhususkannya dengan sesuatu apapun. Seandainya perayaan itu adalah perkara yang disyariatkan, tentunya Rasulullah Shallallahu’alaihi Wasallam telah menjelaskannya kepada umat ini dengan perkataan dan perbuatan. Dan seandainya hal itu terjadi, tentunya telah diketahui, dikenal dan para sahabat tentunya telah menukilkannya kepada kita. Sesungguhnya mereka telah menukilkan dari Nabi Shallallahu’alaihi Wasallam segala sesuatu yang dibutuhkan umat ini dan mereka tidak akan meremehkan sesuatupun dari agama ini. Bahkan mereka adalah orang-orang yang pertama kali menuju kebaikan. Maka seandainya perayaan malam ini disyariatkan, pasti mereka adalah orang-orang yang paling pertama melakukannya. Dan Nabi Shallallahu’alaihi Wasallam adalah orang yang paling menghendaki kebaikan bagi manusia. Beliau telah menyampaikan risalah dengan sungguh-sungguh dan telah menunaikan amanah. Maka seandainya pengagungan terhadap malam ini termasuk di dalam agama Islam, tentunya Nabi Shallallahu’alaihi Wasallam tidak akan lalai atau menyembunyikannya. Maka tatkala hal ini tidak terjadi sama sekali, diketahuilah bahwa perayaan dan pengagungan terhadap malam itu bukan dari agama Islam sama sekali.” (Lihat Fatwa Lajnah Daimah, 3/65).

16 Lihat Al-Ibda’ fii Bayaani Kamaalisy Syar’i wa Khatharil Ibtida’ karya Syaikh Ibnu Utsaimin halaman 21, 22.

17 Lihat Shahih Bukhari dengan Fathul Bari (1/501) no. 321.

18 Asy-Syarhul Mumti’ ‘ala Zaadil Mustaqni’ (4/165, 166).

19 Sunan Abi Daud no. 1887. Al-Albani berkata di dalam Shahih Sunan Abi Daud no. 2662, “Hasan Shahih.”

20 Sunan Abi Daud no. 1888. Di hasankan oleh Al-Arnauth di dalam takhrijnya terhadap Jami’ul Ushul no. 1505.

21 Lihat pembahasan Imam Asy-Syathibi tentang hal ini di dalam Al-Muwafaqaat (2/300-310).

22 Riwayat Muslim (3/1263) no. 1642.

23 Qawa’idul Ahkam fii Mashalihul Anam (1/30).

24 Al-Bukhari dengan Fathul Bari (13/264) no. 7288.

25 Lihat Qawa’idul Ahkam fii Mashalihul Anam (1/29, 30).

26 Riwayat Muslim (1/461) no. 664.

27 Al-Bukhari dengan Fathul Bari (13/264) no. 7288.

28 Qawa’idul Ahkam fii Mashalihul Anam (1/30).

—

Penulis: Ustadz Kholid Syamhudi, Lc.

Sumber: http://muslim.or.id

___

Keutamaan Istighfar dan Penghulu Doa Meminta Ampun

Salah satu hal yang sering diingatkan oleh ayah saya ketika mendapatkan musibah atau melakukan kesalahan adalah beristighfar. Bahkan hanya mendapatkan musibah atau kesalahan yang kelihatan sepele sekalipun, seperti lupa sesuatu atau salah ucap, maka ayah mengingatkan saya untuk beristighfar dan meminta ampun kepada Allah. Bisa jadi itu semua terjadi diakibatkan dosa-dosa yang pernah saya lakukan. Sungguh sebuah nasihat yang sederhana namun berharga. Rasulullah shallallahu ‘alaihi wa sallam yang ma’sum saja dalam sehari beristighfar paling tidak 100 kali. Salah satu dzikir pagi petang yang beliau contohkan adalah ucapan Astaghfirullah wa atuubu ilaihi  sebanyak 100 kali.

Berkaitan dengan istighfar ini ada sebuah atsar dari Hasan al-Bashri rahimahullah.

Seseorang mengadukan kepada Hasan al-Bashri tentang musim paceklik yang terjadi. Lalu al-Hasan menasehatkan,

“Beristighfarlah kepada Allah.”

Kemudian orang lain mengadu lagi kepada beliau tentang kemiskinannya. Lalu al-Hasan menasehatkan, “Beristighfarlah kepada Allah.”

Kemudian mengeluhkan lagi orang lain kepada beliau tentang kekeringan pada lahan (kebunnya). Lalu al-Hasan menasehatkan, “Beristighfarlah kepada Allah.”

Kemudian datang mengadu lagi orang lain kepada beliau karena belum mempunyai anak. Al-Hasan lalu menasehatkan, “Beristighfarlah kepada Allah.”

Kemudian al-Hasan membacakan ayat dalam surat Nuh,

فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا يُرْسِلِ السَّمَاءَ عَلَيْكُمْ مِدْرَارًا وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَلْ لَكُمْ جَنَّاتٍ وَيَجْعَلْ لَكُمْ أَنْهَارًا

“Mohonlah ampun kepada Tuhanmu, sesungguhnya Dia adalah Maha Pengampun. Niscaya Dia akan mengirimkan hujan lebat kepadamu, dan menambah harta dan anak-anakmu, dan menjadikan untukmu kebun-kebun dan mengadakan pula untukmu sungai-sungai.” (QS Nuh: 10-12) [Disebutkan oleh Ibnu Hajar di Fathul Bari 11/98]

Nasihat Imam Hasan al-Bashri ini seakan-akan bisa menjadi salah satu solusi bagi berbagai bencana, musibah dan keterpurukan ekonomi yang sedang menimpa penduduk negeri ini.

Ada sebuah doa istighfar yang paling utama di antara doa-doa istighfar yang lain yaitu yang disebut sayyidul istighfar. Dalam Shahih al-Bukhari dari Syaddad bin Aus radhiyallahu ‘anhu, dari Nabi shallallahu ‘alaihi wa sallam, beliau bersabda, “Penghulu istighfar adalah apabila engkau mengucapkan,

اَللَّهُمَّ أَنْتَ رَبِّيْ لاَ إِلَـهَ إِلاَّ أَنْتَ، خَلَقْتَنِيْ وَأَنَا عَبْدُكَ، وَأَنَا عَلَى عَهْدِكَ وَوَعْدِكَ مَا اسْتَطَعْتُ، أَعُوْذُ بِكَ مِنْ شَرِّ مَا صَنَعْتُ، أَبُوْءُ لَكَ بِنِعْمَتِكَ عَلَيَّ، وَأَبُوْءُ بِذَنْبِيْ فَاغْفِرْ لِيْ فَإِنَّهُ لاَ يَغْفِرُ الذُّنُوْبَ إِلاَّ أَنْتَ

“Ya Allah! Engkau adalah Rabbku, tidak ada Rabb yang berhak disembah kecuali Engkau. Engkaulah yang menciptakanku. Aku adalah hamba-Mu. Aku akan setia pada perjanjianku dengan-Mu semampuku. Aku berlindung kepada-Mu dari kejelekan yang kuperbuat. Aku mengakui nikmat-Mu kepadaku dan aku mengakui dosaku, oleh karena itu, ampunilah aku. Sesungguhnya tiada yang mengampuni dosa kecuali Engkau.” (HR. Bukhari no. 6306)

Faedah dari bacaan ini adalah sebagaimana yang Nabi shallallahu ‘alaihi wa sallam sabdakan dari lanjutan hadits di atas, “Barangsiapa mengucapkannya pada siang hari dan meyakininya, lalu dia mati pada hari itu sebelum waktu sore, maka dia termasuk penghuni surga. Dan barangsiapa mengucapkannya pada malam hari dalam keadaan meyakininya, lalu dia mati sebelum waktu pagi, maka dia termasuk penghuni surga.”

Dalam doa ini terkandung pengakuan akan ketauhidan, rububiyyah dan uluhiyyah Allah serta pengakuan akan kelemahan diri dan dosa. Di dalamnya terkandung hal-hal yang bisa menjadi sebab dikabulkannya doa tersebut.

 

Sumber

https://alhilyahblog.wordpress.com/2014/02/03/keutamaan-istighfar-dan-penghulu-doa-meminta-ampun/

Kesalahan-Kesalahan dalam Shalat yang Banyak Dilakukan Kaum Muslimin

Hindari kesalahan dalam melaksanakan ibadah shalat. Mengapa? Karena dalam Islam ibadah shalat memiliki kedudukan yang sangat agung. Rasulullah shalallahu ‘alaihi wa salam menerima perintah shalat 5 waktu langsung dari Allah di langit ke tujuh dalam peristiwa Isra’ Mi’raj. Shalat merupakan tiang agama dan baik buruknya hisab amal manusia ditentukan dari shalatnya. Dan di balik perintah shalat yang sekilas memberatkan umatnya ini, justru menunjukan kemurahan Allah terhadap hamba-hamba-Nya, dimana shalat yang dilakukan seorang hamba akan menjadi sarana penghapus dosa.

Rasulullah shallallahu ‘alaihi wasallam bersabda:

Dari Abu Hurairah radhiyallahu ‘anhu, ia berkata bahwa Rasulullah shallallahu ‘alaihi wa sallam bersabda,

أَرَأَيْتُمْ لَوْ أَنَّ نَهَرًا بِبَابِ أَحَدِكُمْ ، يَغْتَسِلُ فِيهِ كُلَّ يَوْمٍ خَمْسًا ، مَا تَقُولُ ذَلِكَ يُبْقِى مِنْ دَرَنِهِ. قَالُوا لاَ يُبْقِى مِنْ دَرَنِهِ شَيْئًا . قَالَ فَذَلِكَ مِثْلُ الصَّلَوَاتِ الْخَمْسِ ، يَمْحُو اللَّهُ بِهَا الْخَطَايَا

“Tahukah kalian, seandainya ada sebuah sungai di dekat pintu salah seorang di antara kalian, lalu ia mandi dari air sungai itu setiap hari lima kali, apakah akan tersisa kotorannya walau sedikit?” Para sahabat menjawab, “Tidak akan tersisa sedikit pun kotorannya.” Beliau berkata, “Maka begitulah perumpamaan shalat lima waktu, dengannya Allah menghapuskan dosa.” [HR. Bukhari no. 528 dan Muslim no. 667]

Dari Jabir radhiyallahu ‘anhu,

مَثَلُ الصَّلَوَاتِ الْخَمْسِ كَمَثَلِ نَهَرٍ جَارٍ غَمْرٍ عَلَى بَابِ أَحَدِكُمْ يَغْتَسِلُ مِنْهُ كُلَّ يَوْمٍ خَمْسَ مَرَّاتٍ. قَالَ قَالَ الْحَسَنُ وَمَا يُبْقِى ذَلِكَ مِنَ الدَّرَنِ

“Permisalan shalat yang lima waktu itu seperti sebuah suangi yang mengalir melimpah di dekat pintu rumah salah seorang di antara kalian. Ia mandi dari air sungai itu setiap hari lima kali.” Al Hasan berkata, “Tentu tidak tersisa kotoran sedikit pun (di badannya).” [HR. Muslim no. 668]

Namun fenomena yang terjadi adalah telah disia-siakannya ibadah yang mulia ini oleh banyak kaum muslimin, dimana mereka tidak menyempurnakan shalat mereka baik dari sisi batin berupa niat yang ikhlas dan khusyu’ serta dari sisi tatacara pelaksanaannya yang tidak sesuai tuntunan Rasulullah shalallahu ‘alaihi wa salam. Rasulullah shalallahu ‘alaihi wa salam memperingatkan akan fenomena ini dalam haditsnya yang mulia:

إِنَّ الرَّجُلَ لَيَنْصَرِفُ وَمَا كُتِبَ لَهُ إِلَّا عُشْرُ صَلَاتِهِ تُسْعُهَا ثُمْنُهَا سُبْعُهَا سُدْسُهَا خُمْسُهَا رُبْعُهَا ثُلُثُهَا نِصْفُهَا

“Sesungguhnya ada seseorang yang benar-benar mengerjakan shalat, namun pahala shalat yang tercatat baginya hanyalah sepersepuluh (dari) shalatnya, sepersembilan, seperdelapan, sepetujuh, seperenam, seperlima, seperempat, sepertiga, dan seperduanya saja.” [Hasan, Diriwayatkan oleh Abu Dawud, an-Nasa’i dan Ibnu Hibban dalam Shahihnya dengan riwayat senada, hadits no 537]

Salah satu sisi yang perlu dicermati dalam praktek ibadah shalat adalah tatacara yang sesuai dengan ajaran Rasulullah shalallahu ‘alaihi wa salam. Rasulullah shalallahu ‘alaihi wa salam pernah bersabda:

صَلُّوْا كَمَا رَأَيْتُمُوْنِيْ أُصَلِّي

“Shalatlah kamu sekalian sebagaimana kalian melihat aku shalat.” [HR Bukhari, Muslim, Ahmad. Lihat Irwaul Ghalil no: 213]

Di sini betapa Rasulullah shalallahu ‘alaihi wa salam menekankan pentingnya melaksanakan shalat dengan benar sesuai contoh dari beliau. Para sahabat menyaksikan bagaimana Rasulullah shalallahu ‘alaihi wa salam melakukan shalat dan kemudian mereka meriwayatkan apa yang mereka lihat kepada sahabat yang lain. Dan demikian seterusnya hingga menyebar dari generasi ke generasi.

Namun pada tulisan kali ini tidak akan membahas tatacara shalat Nabi. Untuk itu bisa dibaca salah satunya pada buku yang banyak dijadikan rujukan, yaitu Sifat Shalat Nabi susunan Syaikh Nashiruddin al-Albani rahimahullah dimana beliau mengumpulkan hadits-hadits shahih berkenaan dengan cara shalat Nabi shalallahu ‘alaihi wa salam. Pada tulisan ini hanya ditampilkan video kompilasi kesalahan-kesalahan yang mungkin banyak dilakukan oleh kaum muslimin dalam shalat mereka. Kesalahan-kesalahan tersebut bisa merusak atau mengurangi kesempurnaan shalat seorang muslim, sebagaimana hadits yang telah dikutip dimana pahala yang dicatat hanya setengah, sepertiga bahkan ada yang sepersembilannya. Karena berbentuk video sehingga diharapkan lebih menarik dan lebih mudah dipahami dibanding sekedar membaca tulisan dan penjelasan pada video dilengkapi juga dengan dalil-dalil dari hadits Nabi shalallahu ‘alaihi wa salam.

 

 

Sumber

https://alhilyahblog.wordpress.com/2015/10/29/kesalahan-kesalahan-dalam-shalat-yang-banyak-dilakukan-kaum-muslimin/