Jumat, 16 Januari 2015

Segitiga Bermuda menurut Islam

Segitiga Bermuda Bukan Tempat Dajjal (QS Al Kahfi 1 - 10)

Segitiga Bermuda (Bermuda Triangle), atau disebut juga Segitiga Setan adalah sebuah wilayah lautan di Samudra Atlantik seluas 1,5 juta 
mil2 atau 4 juta km2 yang membentuk
garis segitig aantara Bermuda, wilayah teritorial Britania Raya sebagai titik di sebelah utara, Puerto Riko, teritorial Amerika Serikat sebagai titik di sebelah selatan dan Miami, negara bagian Florida, Amerika Serikat sebagai titik di sebelah barat.

Segitiga bermuda sangat misterius. Sering ada isu paranormal di daerah tersebut yang menyatakan alasan dari peristiwa hilangnya kapal yang melintas. Ada pula yang mengatakan bahwa sudah menjadi gejala alam bahwa tidak boleh melintasi wilayah tersebut. Bahkan ada pula yang mengatakan bahwa itu semua akibat ulah makhluk luar angkasa. 

Bahkan Umat Islam pun tidak ketinggalan Ikut meramaikan Isu tersebut dengan memasukkan nama Dajjal sebagai Aktor Utamanya. suatu ramalan dan analisa yang tidak berdasar sama sekali baik dari segi agama Alquran maupun dari Segi Ilmu Pengetahuan.


Sebagaimana apa yang telah kami jabarkan pada artikel terdahulu bahwa Dajjal bukanlah Makhluk serta tidak ada Dasar yang kuat dalam Alquran tentang keberadaan Dajjal.



lalu apa sebenarnya dajjal ....? 
Sebagian golongan berpendapat  Dajjal adalah manusia dari bani Adam. Sebagian para ulama menyatakan Dajjal adalah setan. Sebagian lagi menyatakan bapak manusia ibu dari bangsa jin.  Menurut Admin Semua pendapat ini benar. Oleh karena itu Nabi ‘Isa ‘alaihissalam membunuh dgn cara membunuh manusia biasa.”


Rasulullah saw bersabda:
"Barangsiapa yang membaca sepuluh ayat dari surat Al-Kahfi, ia tidak akan terkena bahaya fitnah Dajjal, barangsiapa yang membaca seluruh ayatnya ia akan masuk surga."


Dari Hadist Rosulullah Tersebut Nampaklah Nyata Siapa dajjal  karena di dalam hadist tersebut dijelaskan bahwa dengan membaca 10 Ayat dari Surah Al Kahfi Insya allah kita akan terhindar dari Fitnah Dajjal. lalu siapa Dajjal yang dimaksud disini ,,..?
Mari kita baca dan kita Ulas sedikit Surah Al Kahfi ayat 1 - 10.


Firman Allah SWT  QS Al Kahfi 1 - 3 : 



"segala puji bagi Allah yang telah menurunkan kepada hamba-Nya Al kitab (Al-Quran) dan Dia tidak Mengadakan kebengkokan di dalamnya; sebagai bimbingan yang lurus, untuk memperingatkan siksaan yang sangat pedih dari sisi Allah dan memberi berita gembira kepada orang-orang yang beriman, yang mengerjakan amal saleh, bahwa mereka akan mendapat pembalasan yang baik, mereka kekal di dalamnya untuk selama-lamanya."

Dalam ayat diatas dijelaskan bahwa telah diturunkan kitab suci Alquran yang tidak ada kebengkokan dalam arti tidak ada makna yang berlawanan maupun penyimpangan terhadap kebenaran, ayat 1 - 3 menjelaskan bahwa siapa yang membaca dan mengamalkan alquran akan selamat, dan mendapatkan balasan yang baik kelak di syurga.

Dajjal 1 diterangkan dalam lanjutan surah Al Kahfi 
Firman Allah SWT  QS Al Kahfi 4 - 8 : 

"Dan untuk memperingatkan kepada orang-orang yang berkata: "Allah mengambil seorang anak." mereka sekali-kali tidak mempunyai pengetahuan tentang hal itu, begitu pula nenek moyang mereka. Alangkah buruknya kata-kata yang keluar dari mulut mereka; mereka tidak mengatakan (sesuatu) kecuali dusta. Maka (apakah) barangkali kamu akan membunuh dirimu karena bersedih hati setelah mereka berpaling, Sekiranya mereka tidak beriman kepada keterangan ini (Al-Quran).Sesungguhnya Kami telah menjadikan apa yang di bumi sebagai perhiasan baginya, agar Kami menguji mereka siapakah di antara mereka yang terbaik perbuatannya. dan Sesungguhnya Kami benar-benar akan menjadikan (pula) apa yang di atasnya menjadi tanah rata lagi tandus."

Telah jelas kiranya dalam ayat diatas Dajjal hanya mempunyai satu mata atau buta sebelah matanya , dalam arti tidak bisa membedakan mana yang benar dan mana yang salah.

Dajjal 2
"Atau kamu mengira bahwa orang-orang yang mendiami gua dan (yang mempunyai) raqim itu, mereka Termasuk tanda-tanda kekuasaan Kami yang mengherankan?. (ingatlah) tatkala Para pemuda itu mencari tempat berlindung ke dalam gua, lalu mereka berdoa: "Wahai Tuhan Kami, berikanlah rahmat kepada Kami dari sisi-Mu dan sempurnakanlah bagi Kami petunjuk yang Lurus dalam urusan Kami (ini)."

Dajjal yang ini sudah seringkali kita rasakan akibat dari perbuatannya yang semena mena, karena kekuasaan yang dimilikinya telah membuat lupa akan apa yang baik dan apa yang kurang baik. Dajjal yang kedua  adalah musuh sekelompok pemuda ashabul kahfi ingin menghindari fitnah Dajjal. dan lebih memilih melarikan diri dan bersembunyi di dalam gua. 
Untuk lebih jelas nya Siapa Dajjal yang dimaksud baca kelanjutan surah Al Kahfi / baca kisah kisah islami tentang ashabul kahfi..

Lalu Misteri Apa yang ada di dalam SEGI TIGA BERMUDA baca disini  dan hentikan fitnah / cerita fiksi tentang keberadaan Dajjal di segitiga bermuda. 
Karena segitiga bermuda tidak jauh berbeda dengan fenomena JABAL MAGNET  baca lebih  Jabal maghnet

Wallahu'alam


Excel macro berbasis Barcode

Private Sub combro_kode_Change()
    Dim index As Integer
    Worksheets("REKAP").Activate
    Cells(combro_kode.ListIndex + 6, 4).Select
    text_nama = ActiveCell.Value
    Cells(combro_kode.ListIndex + 6, 5).Select
    text_satuan = ActiveCell.Value
    Cells(combro_kode.ListIndex + 6, 11).Select
    text_stock = ActiveCell.Value
    Worksheets("OUT").Activate
End Sub
Private Sub combro_user_Change()
    Dim index As Integer
 
    Worksheets("USER").Activate
    Cells(combro_user.ListIndex + 2, 2).Select
    text_user = ActiveCell.Value
    Cells(combro_user.ListIndex + 2, 3).Select
    text_dept = ActiveCell.Value
    Cells(combro_user.ListIndex + 2, 4).Select
    text_IO = ActiveCell.Value
    Worksheets("OUT").Activate
End Sub
Private Sub cmd_tambah_Click()
    Dim Wury As Long
    Wury = WorksheetFunction.CountA(Range("B:B")) + 4
    Cells(Wury, 2).Select
    Cells(Wury, 2).Value = combro_kode.Value
    Cells(Wury, 3).Value = text_nama.Value
    Cells(Wury, 4).Value = text_satuan.Value
    Cells(Wury, 15).Value = text_tanggal.Value
    Cells(Wury, 6).Value = text_jumlah.Value
    Cells(Wury, 7).Value = text_dept.Value
    Cells(Wury, 8).Value = text_user.Value
    Cells(Wury, 9).Value = text_IO.Value
    Cells(Wury, 10).Value = text_ket.Value
    Call bersih
    combro_kode.SetFocus
End Sub

     
Private Sub SpinButton1_Change()
    text_jumlah = SpinButton1.Value
End Sub

Sub bersih()
    combro_kode.Value = ""
    text_nama.Value = ""
    text_satuan.Value = ""
End Sub

Kamis, 15 Januari 2015

Excel macro berdasar nama barang

Private Sub cb_nama_barang_Change()
    Dim index As Integer
    Worksheets("REKAP").Activate
    Cells(cb_nama_barang.ListIndex + 6, 3).Select
    tb_Kode = ActiveCell.Value
    Cells(cb_nama_barang.ListIndex + 6, 5).Select
    tb_unit = ActiveCell.Value
    Cells(cb_nama_barang.ListIndex + 6, 11).Select
    text_stock = ActiveCell.Value
 
    Worksheets("OUT").Activate
End Sub

Private Sub cb_user_Change()
    Dim index As Integer
    Worksheets("USER").Activate
    Cells(cb_user.ListIndex + 2, 2).Select
    TextBox1 = ActiveCell.Value
    Cells(cb_user.ListIndex + 2, 3).Select
    TextBox2 = ActiveCell.Value
    Cells(cb_user.ListIndex + 2, 4).Select
    TextBox3 = ActiveCell.Value
    Worksheets("OUT").Activate
End Sub

Private Sub cmd_db_Click()
    Unload Me
    Worksheets("OUT").Activate
End Sub

Private Sub cmd_tambah_Click()
    Dim Wury As Long
    Wury = WorksheetFunction.CountA(Range("B:B")) + 4
    Cells(Wury, 2).Select
    Cells(Wury, 2).Value = tb_Kode.Value
    Cells(Wury, 3).Value = cb_nama_barang.Value
    Cells(Wury, 4).Value = tb_unit.Value
    Cells(Wury, 15).Value = tb_tgl_terima.Value
    Cells(Wury, 6).Value = tb_jumlah.Value
    Cells(Wury, 7).Value = TextBox2.Value
    Cells(Wury, 8).Value = TextBox1.Value
    Cells(Wury, 9).Value = TextBox3.Value
    Call bersih
    cb_nama_barang.SetFocus
End Sub

Private Sub SpinNilai_Change()
    tb_jumlah.Value = SpinNilai
End Sub

Sub bersih()
    tb_Kode.Value = ""
    cb_nama_barang.Value = ""
    tb_unit.Value = ""
 
End Sub

Private Sub tb_jumlah_Change()
On Error GoTo A
    tb_jumlah = Format(tb_jumlah * 1, "#,##0")
    Exit Sub
A:  tb_jumlah = ""
End Sub

Jumat, 29 Agustus 2014

Excel Mine for WH - Barang Keluar

Private Sub cb_nama_barang_Change()
    Dim index As Integer
    index = cb_nama_barang.ListIndex
    tb_kode = Cells(index + 1000, 29).Value
    tb_unit = Cells(index + 1000, 30).Value
End Sub
Private Sub cmd_data_base_Click()
    ThisWorkbook.Application.Visible = True
    Worksheets("OUT").Activate
    FormOut.Hide
End Sub

Private Sub cmd_tambah_data_Click()

    Dim Wury As Long
    Worksheets("OUT").Activate
    Wury = WorksheetFunction.CountA(Range("A:A")) + 3
    Cells(Wury, 1).Value = tb_kode.Value
    Cells(Wury, 2).Value = cb_nama_barang.Value
    Cells(Wury, 3).Value = tb_unit.Value
    Cells(Wury, 4).Value = tb_tgl_terima.Value
    Cells(Wury, 5).Value = tb_jumlah.Value
    Cells(Wury, 9).Value = tb_ket
'=============================================================================

Sorce Code VBA Excel

Credit untuk :belajar-vbe.blogspot.com/

Bermaksud untuk mengingat saja bukan untuk copy paste... mohon maaf credit di atas ya... sekalian belajar.

Beberapa Contoh Kode


AUTO RUN

Ada beberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membukaworkbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka.
Sub Auto_Open( )
Msgbox “hi”
End Sub
Private Sub Workbook_Open( )
Msgbox “hi”
End Sub