TA’ARUF LEWAT HP
Ta’aruf adah bahasa arab yang berartisaling mengenal. Jika yang dimaksud disini adalah ingin berkenalan dengan sesama jenis yang ada faedahnya menurut agama, atau dengan mahromnya karena lama putus hubungan atau tidak tau sebelumnya, maka boleh jika tidah mengandung fitnah atau maksiat.
Apabila yang dimaksud ta’aruf adah ingin mencari jodoh lewat HP, ini banyak fitnahnya. Inilah yang sering kita saksikan. Didalamnya sering terjadi kebohongan, penipuan, rayuan gombal, serta bualan mulut yang tidak menuntu pangkal dan ujungnya. Bahkan akan mengganggu kehidupan setiap harinya. Tidak jarang hal itu terbayang ketika sedang sholat, hendak tidur, atau waktu-waktu lainnya.
Inilah jiwa pemuda dan pemudi yang terfitnah HP. Boleh jadi mereka bardua akan menyampaikan pesan bertemu disuatu tempat tanpa sepengetahuan orang tua. Orang tua dibohongi bahkan memaksa minta uang untuk maksiat tanpa terkontrol waktunya. Belum lagi bila sampai menukar gambar via HP, bisa jadi mencium gambar dan menyembahnya, bahkan bisa sampai bersentuhan badan dan yang lainnya.
Kita pun tidak tahu apakah wanita atau laki-laki itu jujur untuk melangsungkan pernikahan dengan segera atau hanya basa-basi. Atau menggagalkan janjinya dengan lari atau pergi jauh dengan meninggalkan wanita yang telah hamil terlebih dahulu? Na’udzu billahi min dzlik.
Maka tinggalkan penyakit yang berbahaya ini. Kita ta’aruf cara sunah Rosululloh saja. Lebih mudah ditempuh dan bersih dari dosa dan beban mental. Caranya jika ada laki-laki yang mengharapkan Ukhti, mintalah segera laki-laki itu kerumah orang tua Ukhti. Berilah alamat yang jelas. Segeraputuskan hubungan komunikasi HP. Jika dia mau dating, insya Alloh dialah laki-laki yang bertanggung jawab dan serius untuk menikah.
Adapun untuk mengenalnya, bisa ditanyakan kepada teman akrabnya atau tetangganya.
Sumber : al-Mawaddah
Rabu, 28 April 2010
PRAHARA ATAS NAMA CINTA DAN KASIH SAYANG
PRAHARA
ATAS NAMA CINTA DAN KASIH SAYANG
Cinta adalah fitroh anak manusia. Mencintai dan dicintai adalah tabiat dasar dalam kehidupannya. Sebagai agama yang pripurna,Islam tidak mungkin melarangnya, sebagaimana juga tidak mungkin membiarkannya terumbar bebas tanpa kendali. Disinilah peran syari’at yang sangat penting. Islam mengatur bagaimana seseorang harus mencintai dan dicintai.
Cinta bisa menjadi sesuatu yang sangat agung, juga bisa menjadi sesuatu yang sangat hina. Alangkah agungnya cinta bila terikat dengan cinta pada Alloh dan Rosul-Nya.
Dengan cintanya pada Alloh, Bilal bin Robah mampu menahan pedihnya siksaan di tengah terik padang pasir. Dengan cinta pada surga, Handholah meninggalkan malam pertamanya untuk menyongsong kesyahidan dalam sebuah peperangan melawan kaum kafir. Cinta semacam inilah yang akan mengantarkan seseorang untuk mencapai kebahagiaan hakiki di surge-Nya yang kekal nan abadi.
Pada saat ada yang bertanya kepada Rosululloh tentang kapan terjadinya hari kiamat, maka beliau balik bertanya, “ Apa yang telah engkau persiapkan? “ Dia menjawab, “ Saya mempersiapkan cintaku pada Alloh dan Rosul-Nya.” Maka rosululloh menjawab dengan sebuah jawaban agung:”Engkau akan bersama dengan orang-orang ayng engkau cintai.”
Allohu Akbar, subhanalloh.
Namun, jika cinta dan saying berbaur syahwat dan nafsu setan, niscaya prahara dan kehancuran adalah akibatnya.Atas nama cinta seseorang berani melanggar syari’at Alloh dan Rosul-nya. Atas nama cinta, terkadang ada yang berani meninggalkan kewajiban. Pandangan haram, sentuhan haram bahkan zinah harus diterjang dengan mengatas namakan cinta.
Cinta inilah yang akhir-akhir ini banyak melanda dikalangan muda dan kaum tua. Bila dating hari valentine, seakan semuanya kompak untuk menyambutdan merayakannya. Tanpa mereka sadari bahwa dalam perayaan hari valentine itu terdapat banyak pelanggaran rambu-rambu syar’i. Pada perayaan hari tersebut terdapat pergaulan bebas tak mengenal istilah mahrom dan yang bukan mahrom, terdapat zina mata, telinga, tangan, kaki, dan terkadang sampai zina farji. Menghamburkan uang pada sesuatu yang tidak ada manfaatnya, menyia-nyiakan waktu dan kesempatan yang Alloh anugerahkan. Dan yang piling parah adalah paranan kagum pada orang kafir serta latah meniru dan tasyabbuh pada mereka.
Jika memang demikian, maka apakah merayakan hari tersebut bias dianggapsebagai ungkapan cinta dan kasih sayang? Ataukah sebenarnya adalah sebuah prahara dan bencana yang ner-atas namakan cinta? Semoga renungan semacam ini menyadarkan diri-diri yang lalai. Wabillahit taufiq.
Sumber : al-Mawaddah
ATAS NAMA CINTA DAN KASIH SAYANG
Cinta adalah fitroh anak manusia. Mencintai dan dicintai adalah tabiat dasar dalam kehidupannya. Sebagai agama yang pripurna,Islam tidak mungkin melarangnya, sebagaimana juga tidak mungkin membiarkannya terumbar bebas tanpa kendali. Disinilah peran syari’at yang sangat penting. Islam mengatur bagaimana seseorang harus mencintai dan dicintai.
Cinta bisa menjadi sesuatu yang sangat agung, juga bisa menjadi sesuatu yang sangat hina. Alangkah agungnya cinta bila terikat dengan cinta pada Alloh dan Rosul-Nya.
Dengan cintanya pada Alloh, Bilal bin Robah mampu menahan pedihnya siksaan di tengah terik padang pasir. Dengan cinta pada surga, Handholah meninggalkan malam pertamanya untuk menyongsong kesyahidan dalam sebuah peperangan melawan kaum kafir. Cinta semacam inilah yang akan mengantarkan seseorang untuk mencapai kebahagiaan hakiki di surge-Nya yang kekal nan abadi.
Pada saat ada yang bertanya kepada Rosululloh tentang kapan terjadinya hari kiamat, maka beliau balik bertanya, “ Apa yang telah engkau persiapkan? “ Dia menjawab, “ Saya mempersiapkan cintaku pada Alloh dan Rosul-Nya.” Maka rosululloh menjawab dengan sebuah jawaban agung:”Engkau akan bersama dengan orang-orang ayng engkau cintai.”
Allohu Akbar, subhanalloh.
Namun, jika cinta dan saying berbaur syahwat dan nafsu setan, niscaya prahara dan kehancuran adalah akibatnya.Atas nama cinta seseorang berani melanggar syari’at Alloh dan Rosul-nya. Atas nama cinta, terkadang ada yang berani meninggalkan kewajiban. Pandangan haram, sentuhan haram bahkan zinah harus diterjang dengan mengatas namakan cinta.
Cinta inilah yang akhir-akhir ini banyak melanda dikalangan muda dan kaum tua. Bila dating hari valentine, seakan semuanya kompak untuk menyambutdan merayakannya. Tanpa mereka sadari bahwa dalam perayaan hari valentine itu terdapat banyak pelanggaran rambu-rambu syar’i. Pada perayaan hari tersebut terdapat pergaulan bebas tak mengenal istilah mahrom dan yang bukan mahrom, terdapat zina mata, telinga, tangan, kaki, dan terkadang sampai zina farji. Menghamburkan uang pada sesuatu yang tidak ada manfaatnya, menyia-nyiakan waktu dan kesempatan yang Alloh anugerahkan. Dan yang piling parah adalah paranan kagum pada orang kafir serta latah meniru dan tasyabbuh pada mereka.
Jika memang demikian, maka apakah merayakan hari tersebut bias dianggapsebagai ungkapan cinta dan kasih sayang? Ataukah sebenarnya adalah sebuah prahara dan bencana yang ner-atas namakan cinta? Semoga renungan semacam ini menyadarkan diri-diri yang lalai. Wabillahit taufiq.
Sumber : al-Mawaddah
Langkah-langkah Animasi Tombol(button)
Langkah-langkah Animasi Tombol(button)
1. Klik Insert-New Symbol, kemudian pada name tulis 1.
2. Buat gambar dengan menggunakan Oval Tool,Klik Text Tool untuk menulis angkanya,ulangi langkah tersebut sebanyak 3X.
3. Klik Insert-Layer,ulangi langkah sebanyak 4X.
4. Layer 1 Klik window-Library, kemudian pindahkan dari jendela Library.
5. Pada Layer2 frame2 klik kanan kemudian Keyframe, Buat kotak .
6. Pada Layer2 frame15 klik kanan-Keyframe, Buat Oval kemudian delete.
7. Pada Frame 1-15 Properties Tween-Shape.
8. Pada Layer3 Frame16 Key Frame kemudian buat tulisan dengan menggunakan Text Tool di sebelah kanan .
9. Pada Frame 16-25 select delete.
10. Pada Layer 18 Properties Tween-Shap.
11. Pada Layer4 Frame26 Insert Keyframe buat kotak, kemudian Klik kanan kotak pilih Convert to Symbol.
12. Pada Layer4 Frame 30 Klik kanan pilih Insert Keyframe dan kemudian geser kotak kearah kanan.
13. Pada Layer1 Frame30 Klik Kanan pilih Insert KeyFrame.
14. Pada Layer2 Frame2 Lihat Properties kemudian Tulis di Label ubah
15. Pada Layer3 Frame16 Lihat Properties kemudian Tulis di Label text
16. Pada Layer4 Frame26 Lihat Properties kemudian Tulis di Label putar
17. Pada Layer1 Frame1 Lihat Properties kemudian Tulis di Label tombol
18. Pada Layer2 Frame2 Lihat Properties kemudian Tulis di Label ubah
OUTPUT :
Symbol=Symbol 4, Layer=Layer 2, Frame=15: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("ubah")}
Symbol=Symbol 4, Layer=Layer 3, Frame=25: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("text")}
Symbol=Symbol 4, Layer=Layer 4, Frame=30: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("tombol")}
Symbol=Symbol 4, Layer=Layer 1, Frame=30: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("putar")}
1. Klik Insert-New Symbol, kemudian pada name tulis 1.
2. Buat gambar dengan menggunakan Oval Tool,Klik Text Tool untuk menulis angkanya,ulangi langkah tersebut sebanyak 3X.
3. Klik Insert-Layer,ulangi langkah sebanyak 4X.
4. Layer 1 Klik window-Library, kemudian pindahkan dari jendela Library.
5. Pada Layer2 frame2 klik kanan kemudian Keyframe, Buat kotak .
6. Pada Layer2 frame15 klik kanan-Keyframe, Buat Oval kemudian delete.
7. Pada Frame 1-15 Properties Tween-Shape.
8. Pada Layer3 Frame16 Key Frame kemudian buat tulisan dengan menggunakan Text Tool di sebelah kanan .
9. Pada Frame 16-25 select delete.
10. Pada Layer 18 Properties Tween-Shap.
11. Pada Layer4 Frame26 Insert Keyframe buat kotak, kemudian Klik kanan kotak pilih Convert to Symbol.
12. Pada Layer4 Frame 30 Klik kanan pilih Insert Keyframe dan kemudian geser kotak kearah kanan.
13. Pada Layer1 Frame30 Klik Kanan pilih Insert KeyFrame.
14. Pada Layer2 Frame2 Lihat Properties kemudian Tulis di Label ubah
15. Pada Layer3 Frame16 Lihat Properties kemudian Tulis di Label text
16. Pada Layer4 Frame26 Lihat Properties kemudian Tulis di Label putar
17. Pada Layer1 Frame1 Lihat Properties kemudian Tulis di Label tombol
18. Pada Layer2 Frame2 Lihat Properties kemudian Tulis di Label ubah
OUTPUT :
Symbol=Symbol 4, Layer=Layer 2, Frame=15: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("ubah")}
Symbol=Symbol 4, Layer=Layer 3, Frame=25: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("text")}
Symbol=Symbol 4, Layer=Layer 4, Frame=30: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("tombol")}
Symbol=Symbol 4, Layer=Layer 1, Frame=30: Line 1: Mouse events are permitted only for button instances
on(release){gotoandplay("putar")}
LANGKAH-LANGKAH ANIMASI TEXT
LANGKAH-LANGKAH ANIMASI TEXT
1. Buat sebuah tulisan dengan menggunakan text tool
2. Pilih frame yang diinginkan misalnya frame 5,Klik kanan pada frame tersebut dan pilih insert keyframe atau tekan tombol f6 lalu geser tulisan
3. Klik kanan pada frame 1,pilih create motion tween atau dapat juga dengan mengklik frame 1 kemudian buka panel properties dan pada tween pilih motion
4. Ulangi langkah-langkah tersebut sempai beberapa kali ,ubah ukuran tulisan menjadi lebih besar
1. Buat sebuah tulisan dengan menggunakan text tool
2. Pilih frame yang diinginkan misalnya frame 5,Klik kanan pada frame tersebut dan pilih insert keyframe atau tekan tombol f6 lalu geser tulisan
3. Klik kanan pada frame 1,pilih create motion tween atau dapat juga dengan mengklik frame 1 kemudian buka panel properties dan pada tween pilih motion
4. Ulangi langkah-langkah tersebut sempai beberapa kali ,ubah ukuran tulisan menjadi lebih besar
LANGKAH-LANGKAH ANIMASI GAMBAR PECAH
LANGKAH-LANGKAH ANIMASI GAMBAR PECAH
1. Buat sebuah bola menggunakan oval tool
2. Pilih frame yang diinginkan misalnya frame 5,Klik kanan pada frame tersebut dan pilih insert keyframe atau tekan tombol f6 lalu geser bola
3. Klik kanan pada frame 1,pilih create motion tween atau dapat juga dengan mengklik frame 1 kemudian buka panel properties dan pada tween pilih motion
4. Ulangi langkah-langkah tersebut sempai beberapa kali,untuk membuat bola terpecah-pecah kemudian pada frame terakhir gunakan LASSO TOOL pada TOOLBOX
1. Buat sebuah bola menggunakan oval tool
2. Pilih frame yang diinginkan misalnya frame 5,Klik kanan pada frame tersebut dan pilih insert keyframe atau tekan tombol f6 lalu geser bola
3. Klik kanan pada frame 1,pilih create motion tween atau dapat juga dengan mengklik frame 1 kemudian buka panel properties dan pada tween pilih motion
4. Ulangi langkah-langkah tersebut sempai beberapa kali,untuk membuat bola terpecah-pecah kemudian pada frame terakhir gunakan LASSO TOOL pada TOOLBOX
Sabtu, 24 April 2010
HOTEL ‘SENAnG HATI’
Berikut ini adalah model relasional dari ERD diatas :
Tamu (No_Tamu, Nama_tamu, Alamat, Jenis Kelamin, Telpn, dll)
SK (Kunci Super) : {No_Tamu}, {No_Tamu, Nama_Tamu}
CK (Kunci Cndidat) : {No_Tamu, Nama}
PK (Prmry Key) : {No_Tamu}
AK (Kunci Alter) : {Nama_Tamu}
Ck (k. Komposit) : {No_Tamu, Nama_Tamu)
Hotel (No_Kamar, Nama_kamar, Status, Jns_kmr, hrga, dll)
SK (Kunci Super) : {No_Kamar}, {No_Kamar, Nama_kamar}
CK (Kunci Cndidat) : {No_Kamar}
PK (Prmry Key) : {No_Kama}
AK (Kunci Alter) : {Nama_kamar}
Ck (k. Komposit) : {No_Kamar, Nama_kamar}
Transaksi (No_Tamu, No_Kamar, tgl_msk,Tgl_kluar, Biaya)
SK (Kunci Super) : {No_Tamu, No_Kamar}
CK (Kunci Cndidat) : {No_Tamu, Nama}
PK (Prmry Key) : {No_Tamu, No_Kamar}
AK (Kunci Alter) : { }
Ck (k. Komposit) : {No_Tamu, No_Kamar}
Tamu (No_Tamu, Nama_tamu, Alamat, Jenis Kelamin, Telpn, dll)
SK (Kunci Super) : {No_Tamu}, {No_Tamu, Nama_Tamu}
CK (Kunci Cndidat) : {No_Tamu, Nama}
PK (Prmry Key) : {No_Tamu}
AK (Kunci Alter) : {Nama_Tamu}
Ck (k. Komposit) : {No_Tamu, Nama_Tamu)
Hotel (No_Kamar, Nama_kamar, Status, Jns_kmr, hrga, dll)
SK (Kunci Super) : {No_Kamar}, {No_Kamar, Nama_kamar}
CK (Kunci Cndidat) : {No_Kamar}
PK (Prmry Key) : {No_Kama}
AK (Kunci Alter) : {Nama_kamar}
Ck (k. Komposit) : {No_Kamar, Nama_kamar}
Transaksi (No_Tamu, No_Kamar, tgl_msk,Tgl_kluar, Biaya)
SK (Kunci Super) : {No_Tamu, No_Kamar}
CK (Kunci Cndidat) : {No_Tamu, Nama}
PK (Prmry Key) : {No_Tamu, No_Kamar}
AK (Kunci Alter) : { }
Ck (k. Komposit) : {No_Tamu, No_Kamar}
coding chek in pada VB
Chek In:
Private Sub Command1_Click()
intHasil = MsgBox("Anda Sudah menyimpan?", vbYesNo, "PERHATIAN!!")
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub from_Load()
List1.AddItem "Laki-laki"
List1.AddItem "Perempuan"
End Sub
Private Sub Text1_GotFocus()
Text1.Text = " "
End Sub
Private Sub Text2_GotFocus()
Text2.Text = " "
End Sub
Private Sub Text3_GotFocus()
Text3.Text = " "
End Sub
Private Sub Text4_GotFocus()
Text4.Text = " "
End Sub
Private Sub Text5_GotFocus()
Text5.Text = " "
End Sub
Private Sub Text6_GotFocus()
Text6.Text = " "
End Sub
Private Sub Command1_Click()
intHasil = MsgBox("Anda Sudah menyimpan?", vbYesNo, "PERHATIAN!!")
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub from_Load()
List1.AddItem "Laki-laki"
List1.AddItem "Perempuan"
End Sub
Private Sub Text1_GotFocus()
Text1.Text = " "
End Sub
Private Sub Text2_GotFocus()
Text2.Text = " "
End Sub
Private Sub Text3_GotFocus()
Text3.Text = " "
End Sub
Private Sub Text4_GotFocus()
Text4.Text = " "
End Sub
Private Sub Text5_GotFocus()
Text5.Text = " "
End Sub
Private Sub Text6_GotFocus()
Text6.Text = " "
End Sub
Langganan:
Postingan (Atom)
