Jika seseorang hendak berdo’a, ia harus memperhatikan
beberapa adab dan etika agar do’anya dikabulkan oleh Allah, diantaranya:
1.Mengangkat
kedua tangan.
Ini termasuk adab-adab dan sunnah do’a
menurut kesepakatan kaum muslimin ( ijma’), ia merupakan etika yang paling
agung dan memiliki keutamaan mulia serta penyebab terkabulnya do’a.
2.Memulai
do’a dengan memuji Allah ta’ala
Mestinya setiap hamba memulai urusannya
dengan memuji Allah. Demikian juga ketika ia hendak berdo’a, karena cara seperti
ini lebih dekat kepada pengabulan do’a.
3.Bershalawat
kepada nabi SAW
Pada pembukaan do’a atau penghabisannya.
Tidak bershalawat kepada nabi sebelum memulai do’a dapat menyebabkan
terhalangnya pengabulan do’a.
4.Memulai
atau menutup setiap selesai 1 do’a dengan menyebut salah satu nama dari Asma ul
Husna yang sesuai dengan pemohonannya, karena yang demikian adalah tradisi para
nabi as didalam do’a mereka.
5.Sungguh-sungguh
dalam meminta.
Selayaknya seseorang sungguh-sungguh dalam
berdo’a. do’a adalah ibadah, maka harus dilakukan dengan kesungguhan dan cara
yang benar.
6.Menghadirkan
hati dalam berdo’a
Terpusatnya fikiran terhadap do’a yang
dimohonkan adalah suatu yang mesti. Janganlah seseorang berdo’a dengan lisannya
sementara hati dan fikirannya melayang entah kemana. Sebab, do’a tidak akan
dikabulkan dengan cara seperti ini.
7.Menampakkan
kebutuhan dan ketergantungan kepada Allah .
Agar
pemohonan menampakkan kefakiran dan kemiskinannya di hadapan Rabbnya, menghadap kepada- Nya dengan
perasaan hati, tunduk, pasrah, khusu’, harap dan cemas, baik dalam keadaan
sempit maupun lapang, sukar dan mudah.
8.Adab-adab
yang lainnya seperti;
Berdo’a dengan kata- kata singkat
dan padat serta do’a –do’a yang telah disyariatkan. Merintih di dalam berdo’a
dan meminta yang banyakkepada Allah.
Mengulangi do’a 3 kali. Bersikap merendah, khusu’ takut dan cemas. Tidak
berdo’a untuk kebinasaan keluarga, harta dan jiwa. Tidak berdo’a untuk suatu
perbuatan dosa dan untuk memutuskan tali silaturahmi. Memperbanyak do’a pada
saat –saat lapang. Tidak melampaui batas dalam berdo’a.
Do’a
adalah jalan keselamatan, tangga pengantar, sesuatu yangdituntut oleh orang-orang yang berpengetahuan
, kendaraan orang-orang shalih, tempat berlindung bagi kaum yang terzalimi dan
tertindas ,melalui do’a nikmat diturunkan dan melaluinya pula murka dihindarkan
.alangkah besar kebutuhan para hamba allah akan do’a, seorang muslim tidak akan
pernah bisa lepas dari kebutuhan akan do’a dalam setiap situasi dan kondisinya
.
Sebagai
manusia yang lemah kita senantiasa dianjurkan untuk memanjatkan do’a kepada
allah, tuhan semesta alam .berdo’a pada hakekatnya meminta atau memohon sesuatu
kepada allah dengan harapan apa yang kita mohon itu dikabulkan.dan allah telah
menjanjikan hal itu melalui firman-Nya.”Berdo’alahkepada-Ku, niscaya akan Ku
perkenankan bagimu”.(QS. Al-Mukmin {40}:60).
Berdasarkan ayat tersebut tak mungkin
Allah tidak mengabulkan do’a seseorang.setiap do’a dari seorang hamba Allah
pasti dikabulkan oleh Allah. Hanya saja diterimanya do’a itu bukan menurut
kehendak kita melainkan kehendak Allah. Karena Allah lebih mengetahui hal-hal
yang akan terjadi jika suatu do’a dikabulkan ataukah tidak.
Jadi
di sini yang berlaku adalah kehendak Allah bukan kehendak manusia.Bila Allah
tidak mengabulkan do’a kita itu bukan berarti menolak.Akan tetapi yang demikian
itu semata-mata adalah demi kebaikan kita sendiri. Sebab seandainya dikabulkan
bisa saja hal itu akan membawa kemudharatan bagi kita.(QS.Al Baqarah {2}:216).
Allah
tidak akan mengingkari janji –Nya. Namun kita juga jangan berprasangka buruk
terhadap Allah bila apa yang dijanjikan-Nya itu belum juga dipenuhi.Sebab
datangnya janji Allah tergantung dari sebab dan syarat yang telah dipilih oleh
Allah demi kebaikan kita juga. Oleh karena itu janganlah kita menjadi ragu
untuk terus berdo’a, hanya karena Allah belummengabulkan do’a kita. Jangan kita putus asa dalam berdo’a. Yakinlah
bahwa suatu saat do’a kita pasti terkabul seperti sabda Rasulullah:
“Tidakkah
seorang muslim Berdo’a dengan do’a yang tidak mengandung dosa di dalamya ,tidak
pula do’a yang memutus silaturahmi, melainkan Allahta’alaakan memberikan satu di antara tiga
hal: mungkin Allah akan merealisasikan do,a tersebut, atau mungkin dengan do’a
tersebut Allah akan menyelamatkannya kelak di akhirat, atau mungkin Allah akan
menghilangkan dari diri orang tersebut kesulitan yang semisal “.(HR.Ahmad,
derajatnya hasan shalih. Lihat fathul baari, 18/55).
Inilah hakikat dari do’a yang perlu kita
pahami. Do’a adalah salah satu bentuk penyerahan diri, tawaqqal seorang hamba
kepada Allah, Dzat yang maha mengetahui apa yang terbaik untuk hamba-Nya, baik
untuk saat ini, maupun untuk kehidupan hamba-Nya dimasa mendatang, bukan
terwujudnya semua keinginan dari apa yang diinginkan oleh seseorang, karena manusia,
sesungguhnya tidaklah mengetahui dengan pasti apa yang terbaik bagi dirinya
sendiri, jika ia memandang kehidupan dunia ini hanyalah sementara.
Nah, saat ini saya menjelaskan tentang
langkah-langkah membuat program yang berhubungan dengan nilai mahasiswa. Disini
saya menggunakan wamp5 dan MySQL ODBC 3.51. Bagi yang belum ada, silakan di
install dulu yah..bagi yang udah ada ayo belajar mencobanya.
Berikut ikuti ya…..
1.Buat
dulu database dengan 3 tabel yaitu table biodata, table matakuliah, dan table
nilai. Masing-masing table terdiri dari 3 kolom.
Pada table biodat entry kan sbb dan
jadikan nim sbg primary key:
Field
Type
Nim
Varchar(20)
Nama
Varchar(30)
Alamat
Varchar(50)
Pada table matakuliah entry kan sbb dan
jadikan kodemtk sbg primary key:
Field
Type
Kodemtk
Varchar(10)
Namamtk
Varchar(20)
Jumsks
Int(11)
Pada table nilai entry kan sbb dan jadikan
nim serta kodemtk sbg primary key:
Field
Type
Nim
Varchar(20)
Kodemtk
Varchar(20)
Nilai
Int(11)
2.Koneksikan database tsb melalui connector ODBC
3,51. Langkah2nya :
ÞControl panel > system and security
> administrative tool > data source (ODBC) > add > MySQL ODBC 3.51
Driver > finish.
ÞKemudian isi DSN nya terserah yang
penting di ingat eaaahhh
ÞServernya isi dengan localhost
ÞUsernya isi dengan root
ÞPilih apa nama database anda buat tadi.
3.Silakan dibuka Microsoft Visual Basic
nya. Open 1 form dan 1 module. Pada form di buat 4 buah label, 4 textbox, 6
buah commondbuttom, 1 buah datagrid, dan 1 buah adodc. Seperti pada table
dibawah ini:
Selanjutnya
kita mau buat form ketiga dengan nama NILAI MAHASISWA,dimana form ini merupakan
gabungan dari kedua form sebelumnya kira2 bentuknya sprti ne dech…
8.Pada
form code nya coba dech diketikan j yang ini:
Private
Sub cbokode_Click()
sqlstr
= "select * from matakuliah where kodemtk='" & cbokode.Text &
"'"
Set
rsmatakuliah = conn.Execute(sqlstr)
If
Not rsmatakuliah.EOF Then
txtnamamtk.Text = rsmatakuliah!namamtk
txtjumsks.Text = rsmatakuliah!jumsks
End
If
End
Sub
Private
Sub cbonim_Click()
sqlstr
= "select * from biodata where nim='" & cbonim.Text &
"'"
Set
rsbiodata = conn.Execute(sqlstr)
If
Not rsbiodata.EOF Then
txtnama.Text = rsbiodata!nama
txtalamat.Text = rsbiodata!alamat
End
If
txtangka.SetFocus
End
Sub
Private
Sub cmdcancel_Click()
bersih
End
Sub
Private
Sub cmddelete_Click()
X
= MsgBox("Yakin Data di Hapus?", vbYesNo, "Hapus Data")
If
X = vbYes Then
koneksisql
"delete from nilai where nim='" & cbonim.Text & "' and kodemtk='"
& cbomtk.Text & "'"
bersih
tampildata
Else
Exit
Sub
bersih
End
If
End
Sub
Private
Sub cmdedit_Click()
X
= MsgBox("Yakin Data di Edit..?", vbYesNo, "Edit Data")
If
X = vbYes Then
koneksisql
"update nilai set nim='" & cbonim.Text &
"',kodemtk='" & cbomtk.Text & "',nilai='" &
txtangka.Text & "' where nim='" & cbonim.Text & "'
and kodemtk='" & cbokode.Text & "'"
tampildata
bersih
End
If
End
Sub
Private
Sub cmdfind_Click()
sqlstr
= "select * from nilai where nim='" & cbonim.Text & "'
and kodemtk='" & cbokode.Text & "'"
Set
rsnilai = conn.Execute(sqlstr)
If
Not rsnilai.EOF Then
cbonim.Text = rsnilai!nim
cbokode.Text = rsnilai!kodemtk
txtangka.Text = rsnilai!nilai
Else
MsgBox "Data Tidak Ada...!"
bersih
End
If
End
Sub
Private
Sub cmdsave_Click()
X
= MsgBox("Yakin Data Akan di Simpan?", vbYesNo, "Save
Data")
If
X = vbYes Then
koneksisql
"insert into nilai values('" & cbonim.Text & "','"
& cbokode.Text & "','" & Val(txtangka.Text) &
"')"
tampildata
bersih
Else
bersih
End
If
End
Sub
Private
Sub cmdexit_Click()
Unload
Me
End
Sub
Private
Sub Form_Load()
bukakoneksi
isicbonim
isicbokode
tampildata
End
Sub
Sub
bersih()
cbonim.Text
= ""
txtnama.Text
= ""
txtalamat.Text
= ""
cbokode.Text
= ""
txtnamamtk.Text
= ""
txtjumsks.Text
= ""
txtangka.Text
= ""
txthuruf.Text
= ""
txtket.Text
= ""
End
Sub
Sub
tampildata()
conn.CursorLocation
= adUseClient
sqlstr
= "select * from nilai"
Set
rsnilai = conn.Execute(sqlstr)
Set
DataGrid1.DataSource = rsnilai
End
Sub
Sub
isicbonim()
sqlstr
= "select * from biodata"
Set
rsbiodata = conn.Execute(sqlstr)
If
Not rsbiodata.EOF Then 'jika ada
rsbiodata.MoveFirst
While Not rsbiodata.EOF
cbonim.AddItem rsbiodata!nim
rsbiodata.MoveNext
Wend
End
If
End
Sub
Sub
isicbokode()
sqlstr
= "select * from matakuliah"
Set
rsmatakuliah = conn.Execute(sqlstr)
If
Not rsmatakuliah.EOF Then
rsmatakuliah.MoveFirst
While Not rsmatakuliah.EOF
cbokode.AddItem rsmatakuliah!kodemtk
rsmatakuliah.MoveNext
Wend
End
If
End
Sub
Private
Sub txtangka_Change()
If
Val(txtangka.Text) >= 80 Then
txthuruf.Text = "A"
txtket.Text = "Lulus"
ElseIf
Val(txtangka.Text) >= 70 Then
txthuruf.Text = "B"
txtket.Text = "Lulus"
Else
txthuruf.Text = "C"
txtket.Text = "Gagal"
End
If
End
Sub
Hmm…. Sekian dulu panduannya
ea..kapan-kapan ditambah lagi dech..
Mudah2an berhasil ngerjain program yang
satu ini ya…Amiieennnnn.
.jpg)
