Tips Agar Sholat Taraweh Tidak Ngantuk

Sesuai pengalaman yang saya rasakan pada saat menunaikan sholat sunnah tarawih di masjid,ketika itu baru beberapa rakoaat saja saya sudah merasakan ngantuk yang berlebihan bahkan saya hapir jatuh ketika mau bangun dari tahyat awal,,heheh.mungkin busat sahabat sahabat kita yang budiman pernah merasakan ngantuk pada saat memnunaikan sholat Tarawih.Disini saya akan mencoba menjelaskan berbagai tips agar tidak ngantuk yang berlebihan ketika melaksanakan sholat tarawih.

1.  Saat berbuka puasa hindari makan terlalu kenyang,karena biasanya kalau kita memakan makanan terlalu kenyang akibatnya adalah terjangkit rasa ngantuk yang berlebihan pada saat melaksanakan sholat tarawih,untuk itu hindari kebiasaan itu lebih baik makan tajilan terlebih dahulu dan nanti habis tarawih di lanjutkan makan lagi sesuai keinginan anda.
2. Pada waktu siang biasakan tidur siang,karena pada bulan puasa tidur juga termasuk ibadah,,hehe tapi ingat teman jangan terlalu banyak tidur pada siang hari nanti bisa juga menimbulkan kepala kita menjadi pening atau pusing.
3. Biasakan istirahat yang cukup pada siang hari,untuk memulihkan tenaga pada saat melaksanakan tarawih pada malam harinya.
4.  Niat dengan benar jangan karena terpaksa melaksanakannya,oleh karena itu ingat “apapun yang kita laksanakan tergantung pada niatnya”.
5. Jangan di anggap beban sholat tarawih itu,karena kalau kita anggap seperti itu maka pada diri kita pun muncul rasa tidak semangat untuk melakukanya,dengan ketidak semangat itupun pasti akan muncul rasa ngantuk pada diri kita.

BULAN SUCI RAMADHAN

Bulan Ramadhan yaitu bulan dimana kita sebagai umat muslim melaksanakan ibadah puasa guna melaksanakan rukun islam yang ke 4.pada bulan ini kita sebagai umat muslim di uji oleh alloh untuk menahan diri dari makan,minum dan hawa nafsu,kita puasa pada bula ini tidak hanya Manahan untuk tidak makan dan mainum tetapi kita di tuntut untuk menjadi hawa nafsu kita karena dengan itu maka puasa kita di terima oleh alloh swt.

Alloh telah berfirman,yang artinya “ hai orang orang yang beriman di wajibkan atas kamu berpuasa sebagaimana di wajibkan atas orang sebelum kamu,supaya kamu bertakwa”.oleh karena itu kita wajib melaksanakannya sesuai firman alloh di atas.Di bulan ini alloh akan memberikan pahala dua kali lipatnya dari bulan bulan lainya,untuk itu mari kita senantiasa selalu memperbanyak amalan amalan yang baik seperti sodhakah terhadap anak yatim,orang tidak mampu dan fakir miskin bagi yang mampu,namun bagi orang orang yang tidak bisa membagi hartanya karena dia juga belum mencukupi,maka jangan berkecil hati masih ada banyak pahala yang kita bisa melaksanakanya,dengan memperbanyak bacaan al’quran sholat malam dan dzikir secara terus menerus insya alloh akan diberikan keberkahan dalam menjalani ibadah puasa kali ini amiin.

Jadikanlah bulan puasa kali ini menjadi koreksi diri kita, tengok kesalahan,kelalean pada bulan puasa yang sebelumnya kita perbaiki apa yang kurang dan harus di perbaiki ,kita harus selalu berfikir bulan ini harus menjadi bulan yang lebih baik dari pada bulan kemaren untuk itu marilah kita laksanakan dengan baik sesuai dengan peraturan dalam syariat islam.

Janganlah kita sia siakan bualn puasa ini dengan perbuatan yang di larang oleh alloh,marilah kita manfaatkan dengan semaksimal mungkin dengna niat hati yang ikhlas dan karena ridho alloh pasti puasa kita di terima di sisinya

Hal hal yang membatalkan puasa:

·         Makan dan minum

·         Muntah di sengaja

·         Memasukan benda atau yang lainya ke dalam mulut dengan sengaja

·         Haid

·         Nifas

·         Hilangnya akal atau mabuk

·         Melakukan hubungan intim antara laki laki dengna perempuan pada hari puasa tersebut

·         Dll.

 Syarat sah puasa :

• islam
• niat 
• baligh
• berakal
• suci dari hadas besar,misal haid,nifas.

CARA MENGHILANGKAN TANDA TANG DAN OBENG PADA BLOG

Biasanya dalam awal pembuatan blog kita menemukan sebuah keganjalan pada tampilan tema yang kita pilih dengan adanya tanda tang dan obeng yang membuat desain tema jadi tidak enak di lihat atau pun di pandang oleh si pemilik blog maupun para pengunjung blog kita.maka dari itu saya akan sedikit berbagi mengenai cara menghilangkan tanda tersebut,mari kita ikuti langkah langkahnya sbb:

• Buka blog anda dengan masuk ke www.blogger.com
• Kemudian masuk ke desain template
•   Pilih edit HTML
•   jangan lupa centang tanda Expend Template Widget,agar ketika terjadi kesalahan memasukan kode   mudah di kembalikan seperti semula
•     Kamudian cari kode di bawah ini

        ]]></b:skin>

•        Caranya tekan tombol Ctrl+F ,kemudian tinggal di copy paste kode diatas
•         Kemudian tinggal masukan kode di bawah ini tepat di atas kode  ]]></b:skin>

               .quickedit{
             display:none;
              }

• Selesai,coba lihat tampilan blog anda setelah di edit,mudah mudahan berhasil amiin.

    Selamat mencoba…….

Cara Membuat Scroll Bar Pada Postingan Blog

Pada kesempatan kali ini saya akan mencoba menjelaskan mengenai kegunaan Scroll Bar dan juga fungsinya.Sroll bar biasanya di gunakan untuk meminimalisasi tempat apabila kita memosting suatu kode program atau artikel yang lainya yang panjang dan sangat memakan tempat yang banyak di blog sehingga akan tidak terlihat terlalu banyak artikel dama satu postingan pada blog.Dengan adanya Scroll bar ini akan membuat suatu postingan akan terlihat sedikit tapi isinya banyak dengan scroll yang tersedia.

Oke kita langsung saja pada cara pembuatanya sebagai berikut :

·         tulis postingan baru pada blog anda

·         masuk ke html kemudian masukan kode di bawah ini

<div style='padding: 5px; overflow: auto; width: auto;height:200px;border:1px solid #000000'>

Letakan tulisan atau postingan di sini…!!!!

</div>

      Catatan :

ü  masukan kode di atas ke html,,sedangkan postingan atau tulisan anda masukan pada compose,anda tinggal ganti tulisan yang berwarna merah pada kode diatas dengan postingan anda.

ü  Height:200px; kode untuk mengatur lebar atas bawah pada scroll bar.silahkan ganti dengan keinginan anda.

ü  Solid#000000’> berfungsi untuk mengatur warna garis kotak pada scroll yang di inginkan

ü  Outo:width:berfungsi untuk mengukur otomatis lebar scroll

ü  Border:1px solid, berfungsi untuk mengatur ukuran tebal garis scroll

              lihat hasilnya sbb :

Membuat aplikasi sederhana dengan vb.net 2008

Diatas adalah contoh from applikasi tersebut dengan menggunakan aplikasi pemograman vb.net 2008 

• buat form seperti tampilan diatas dengan menggunakan  vb.net 2008
• beri nama pada button,textbox,radiobutton maupun label sesuai dengan nama masing masing dari button,label,radiobutton dan textbox.
• klik ganda pada form yang tadi dibuat kemudian masukan kode di bawah ini:

Public Class Form1

    Dim ZX1, ZX2, ZX3, Z, a, b, c, y0, d, e, f, simpulan As String
    Dim tanda = " + "
    Dim dualing(3, 4) As String

    Sub hitung()
        Dim y1 = "y1", y2 = "y2", y3 = "y3"


        If txtZX1.Text <> "" Then
            ZX1 = txtZX1.Text & "x1"
        Else
            ZX1 = ""
        End If
        If txtZX2.Text <> "" Then
            ZX2 = tanda & txtZX2.Text & "x2 "
        Else
            ZX2 = ""
        End If
        If txtZX3.Text <> "" Then
            ZX3 = tanda & txtZX3.Text & "x3"
        Else
            ZX3 = ""
        End If

        If rbtnMax.Checked Then

            If cmbtanda1.SelectedItem = ">=" Then
                tanda = " - "
                If txtAhasil.Text <> "" Then
                    dualing(0, 3) = tanda + txtAhasil.Text + y1
                Else
                    dualing(0, 3) = ""
                End If

                If txtAX1.Text <> "" Then
                    dualing(0, 0) = tanda + txtAX1.Text + y1
                Else
                    dualing(0, 0) = ""
                End If

                If txtAX2.Text <> "" Then
                    dualing(0, 1) = tanda + txtAX2.Text + y1
                Else
                    dualing(0, 1) = ""
                End If
                If txtAX3.Text <> "" Then
                    dualing(0, 2) = tanda + txtAX3.Text + y1
                Else
                    dualing(0, 2) = ""
                End If


            Else
                tanda = " + "
                If txtAhasil.Text <> "" Then
                    dualing(0, 3) = tanda + txtAhasil.Text + y1
                Else
                    dualing(0, 3) = ""
                End If

                If txtAX1.Text <> "" Then
                    dualing(0, 0) = tanda + txtAX1.Text + y1
                Else
                    dualing(0, 0) = ""
                End If

                If txtAX2.Text <> "" Then
                    dualing(0, 1) = tanda + txtAX2.Text + y1
                Else
                    dualing(0, 1) = ""
                End If
                If txtAX3.Text <> "" Then
                    dualing(0, 2) = tanda + txtAX3.Text + y1
                Else
                    dualing(0, 2) = ""
                End If
            End If
            If cmbtanda2.SelectedItem = ">=" Then
                tanda = " - "
                If txtBhasil.Text <> "" Then
                    dualing(1, 3) = tanda + txtBhasil.Text + y2
                Else
                    dualing(1, 3) = ""
                End If

                If txtBX1.Text <> "" Then
                    dualing(1, 0) = tanda + txtBX1.Text + y2
                Else
                    dualing(1, 0) = ""
                End If

                If txtBX2.Text <> "" Then
                    dualing(1, 1) = tanda + txtBX2.Text + y2
                Else
                    dualing(1, 1) = ""
                End If
                If txtBX3.Text <> "" Then
                    dualing(1, 2) = tanda + txtBX3.Text + y2
                Else
                    dualing(1, 2) = ""
                End If
            Else
                tanda = " + "
                If txtBhasil.Text <> "" Then
                    dualing(1, 3) = tanda + txtBhasil.Text + y2
                Else
                    dualing(1, 3) = ""
                End If

                If txtBX1.Text <> "" Then
                    dualing(1, 0) = tanda + txtBX1.Text + y2
                Else
                    dualing(1, 0) = ""
                End If

                If txtBX2.Text <> "" Then
                    dualing(1, 1) = tanda + txtBX2.Text + y2
                Else
                    dualing(1, 1) = ""
                End If
                If txtBX3.Text <> "" Then
                    dualing(1, 2) = tanda + txtBX3.Text + y2
                Else
                    dualing(1, 2) = ""
                End If
            End If
            If cmbtanda3.SelectedItem = ">=" Then
                tanda = " - "
                If txtChasil.Text <> "" Then
                    dualing(2, 3) = tanda + txtChasil.Text + y3
                Else
                    dualing(2, 3) = ""
                End If

                If txtCX1.Text <> "" Then
                    dualing(2, 0) = tanda + txtCX1.Text + y3
                Else
                    dualing(2, 0) = ""
                End If

                If txtCX2.Text <> "" Then
                    dualing(2, 1) = tanda + txtCX2.Text + y3
                Else
                    dualing(2, 1) = ""
                End If
                If txtCX3.Text <> "" Then
                    dualing(2, 2) = tanda + txtCX3.Text + y3
                Else
                    dualing(2, 2) = ""
                End If
            Else
                tanda = " + "
                If txtChasil.Text <> "" Then
                    dualing(2, 3) = tanda + txtChasil.Text + y3
                Else
                    dualing(2, 3) = ""
                End If

                If txtCX1.Text <> "" Then
                    dualing(2, 0) = tanda + txtCX1.Text + y3
                Else
                    dualing(2, 0) = ""
                End If

                If txtCX2.Text <> "" Then
                    dualing(2, 1) = tanda + txtCX2.Text + y3
                Else
                    dualing(2, 1) = ""
                End If
                If txtCX3.Text <> "" Then
                    dualing(2, 2) = tanda + txtCX3.Text + y3
                Else
                    dualing(2, 2) = ""
                End If


            End If

            y0 = "Y0 = " & dualing(0, 3) & dualing(1, 3) & dualing(2, 3)
            a = "a) " & dualing(0, 0) & dualing(1, 0) & dualing(2, 0) & " >= " & txtZX1.Text
            b = "b) " & dualing(0, 1) & dualing(1, 1) & dualing(2, 1) & " >= " & txtZX2.Text
            If ZX3 <> "" Then
                c = "c) " & dualing(0, 2) & dualing(1, 2) & dualing(2, 2) & " >= " & txtZX3.Text
            Else
                c = ""
            End If

        ElseIf rbtnMin.Checked Then
            If cmbtanda1.SelectedItem = "<=" Then
                tanda = " - "
                If txtAhasil.Text <> "" Then
                    dualing(0, 3) = tanda + txtAhasil.Text + y1
                Else
                    dualing(0, 3) = ""
                End If

                If txtAX1.Text <> "" Then
                    dualing(0, 0) = tanda + txtAX1.Text + y1
                Else
                    dualing(0, 0) = ""
                End If

                If txtAX2.Text <> "" Then
                    dualing(0, 1) = tanda + txtAX2.Text + y1
                Else
                    dualing(0, 1) = ""
                End If
                If txtAX3.Text <> "" Then
                    dualing(0, 2) = tanda + txtAX3.Text + y1
                Else
                    dualing(0, 2) = ""
                End If


            Else
                tanda = " + "
                If txtAhasil.Text <> "" Then
                    dualing(0, 3) = tanda + txtAhasil.Text + y1
                Else
                    dualing(0, 3) = ""
                End If

                If txtAX1.Text <> "" Then
                    dualing(0, 0) = tanda + txtAX1.Text + y1
                Else
                    dualing(0, 0) = ""
                End If

                If txtAX2.Text <> "" Then
                    dualing(0, 1) = tanda + txtAX2.Text + y1
                Else
                    dualing(0, 1) = ""
                End If
                If txtAX3.Text <> "" Then
                    dualing(0, 2) = tanda + txtAX3.Text + y1
                Else
                    dualing(0, 2) = ""
                End If
            End If
            If cmbtanda2.SelectedItem = "<=" Then
                tanda = " - "
                If txtBhasil.Text <> "" Then
                    dualing(1, 3) = tanda + txtBhasil.Text + y2
                Else
                    dualing(1, 3) = ""
                End If

                If txtBX1.Text <> "" Then
                    dualing(1, 0) = tanda + txtBX1.Text + y2
                Else
                    dualing(1, 0) = ""
                End If

                If txtBX2.Text <> "" Then
                    dualing(1, 1) = tanda + txtBX2.Text + y2
                Else
                    dualing(1, 1) = ""
                End If
                If txtBX3.Text <> "" Then
                    dualing(1, 2) = tanda + txtBX3.Text + y2
                Else
                    dualing(1, 2) = ""
                End If
            Else
                tanda = " + "
                If txtBhasil.Text <> "" Then
                    dualing(1, 3) = tanda + txtBhasil.Text + y2
                Else
                    dualing(1, 3) = ""
                End If

                If txtBX1.Text <> "" Then
                    dualing(1, 0) = tanda + txtBX1.Text + y2
                Else
                    dualing(1, 0) = ""
                End If

                If txtBX2.Text <> "" Then
                    dualing(1, 1) = tanda + txtBX2.Text + y2
                Else
                    dualing(1, 1) = ""
                End If
                If txtBX3.Text <> "" Then
                    dualing(1, 2) = tanda + txtBX3.Text + y2
                Else
                    dualing(1, 2) = ""
                End If
            End If
            If cmbtanda3.SelectedItem = "<=" Then
                tanda = " - "
                If txtChasil.Text <> "" Then
                    dualing(2, 3) = tanda + txtChasil.Text + y3
                Else
                    dualing(2, 3) = ""
                End If

                If txtCX1.Text <> "" Then
                    dualing(2, 0) = tanda + txtCX1.Text + y3
                Else
                    dualing(2, 0) = ""
                End If

                If txtCX2.Text <> "" Then
                    dualing(2, 1) = tanda + txtCX2.Text + y3
                Else
                    dualing(2, 1) = ""
                End If
                If txtCX3.Text <> "" Then
                    dualing(2, 2) = tanda + txtCX3.Text + y3
                Else
                    dualing(2, 2) = ""
                End If
            Else
                tanda = " + "
                If txtChasil.Text <> "" Then
                    dualing(2, 3) = tanda + txtChasil.Text + y3
                Else
                    dualing(2, 3) = ""
                End If

                If txtCX1.Text <> "" Then
                    dualing(2, 0) = tanda + txtCX1.Text + y3
                Else
                    dualing(2, 0) = ""
                End If

                If txtCX2.Text <> "" Then
                    dualing(2, 1) = tanda + txtCX2.Text + y3
                Else
                    dualing(2, 1) = ""
                End If
                If txtCX3.Text <> "" Then
                    dualing(2, 2) = tanda + txtCX3.Text + y3
                Else
                    dualing(2, 2) = ""
                End If


            End If

            y0 = "Y0 = " & dualing(0, 3) & dualing(1, 3) & dualing(2, 3)
            a = "a) " & dualing(0, 0) & dualing(1, 0) & dualing(2, 0) & " <= " & txtZX1.Text
            b = "b) " & dualing(0, 1) & dualing(1, 1) & dualing(2, 1) & " <= " & txtZX2.Text
            If ZX3 <> "" Then
                c = "c) " & dualing(0, 2) & dualing(1, 2) & dualing(2, 2) & " <= " & txtZX3.Text
            Else
                c = ""
            End If
        End If
        If cmbtanda1.SelectedItem = "=" Then
            d = ""
        Else
            d = y1 + ","
        End If
        If cmbtanda2.SelectedItem = "=" Then
            e = ""
        Else
            e = y2 + ","

        End If
        If cmbtanda3.SelectedItem = "=" Then
            f = ""
        Else
            f = y3 + ","
        End If
        If rbtnmax.Checked Then
         
            simpulan = d + e + f + " >= 0"

        ElseIf rbtnmin.Checked Then
            simpulan = d + e + f + " <= 0"
        End If
     

        Z = "Z = " + ZX1 + ZX2 + ZX3
        lbhasil.Items.Add(Z)
        lbhasil.Items.Add(y0)
        lbhasil.Items.Add(a)
        lbhasil.Items.Add(b)
        lbhasil.Items.Add(c)
        lbhasil.Items.Add(simpulan)


    End Sub


    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        lbhasil.Items.Clear()

        hitung()

    End Sub




End Class