Popular Post

Archive for November 2013

16 Cara Ampuh Mengatasi Rasa Malas

By : Unknown


rasa malas
Kemalasan adalah musuh produktivitas. Jika kita malas, tidak ada cara lain kita bisa mencapai hal-hal yang berarti. Kita mungkin menunda-nunda melakukan sesuatu, atau bahkan jika kita melakukannya, kita melakukannya dengan setengah hati. Hasil berkualitas tinggi tidak akan tercapai dengan cara-cara seperti itu.
Jadi kita perlu untuk mengatasi kemalasan. Berikut adalah 16 tips yang saya anggap berguna untuk mengatasi kemalasan:
1. Olah raga
Anda bisa merasa malas jika anda tidak memiliki energi yang cukup untuk melakukan aktivitas anda. Berolahraga adalah cara yang baik untuk meningkatkan tingkat energi anda sehingga anda merasa berenergi dan waspada sepanjang hari.
2. Istirahat yang cukup
Tidak memiliki cukup istirahat juga bisa membuat anda malas. Bagaimana anda merasa antusias jika anda mengantuk? Jadi pastikan bahwa anda memiliki istirahat yang baik.
3. Tetapkan batas waktu minimum untuk memulai
Hal yang paling sulit adalah untuk memulai – sisanya akan lebih mudah. Jadi tetapkan sedikit waktu, seperti 15 menit atau bahkan 5 menit, dan mulailah mengerjakan tugas sampai waktunya habis. Setelah itu, akan lebih mudah memutuskan untuk melanjutkan.

Muhasabah Cinta

By : Unknown


 ***
"Cinta". Perkataan yang biasa kita dengar dan ungkapkan.   Setiap manusia yang berpeluang hidup di muka bumi ini pasti mengalami perasaan cinta.  Manusia memang dilahirkan secara fitrahnya mempunyai perasaan cinta.

Seorang ibu sanggup berkorban nyawa untuk anaknya kerana cintanya kepada anak.
Seorang bapa sanggup berkorban harta dan tenaga kerana perasaan cintanya kepada keluarga. 

Seorang penuntut sanggup mengharungi susah dan payah kerana cintanya kepada ilmu.

Seorang perwira sanggup berkorban jiwa kerana cintanya kepada tanah air. 

Seorang hartawan sanggup berkorban masa dan maruah kerana cintanya kepada harta. ..

dan seorang pencinta kononnya sanggup merentasi lautan
**
 berapi lantaran cintanya kepada kekasihnya. Secara dasarnya, kita sanggup berbuat apa sahaja kerana ingin menjaga dan mengejar cinta.Itulah cinta.  Ia fitrah.  Dan ia juga boleh menjadi fitnah. Ia boleh menjadikan seseorang mulia atau hina.  Ia bisa merubah manusia menjadi lebih baik di sisi Tuhan dan manusia, dan ia  juga bisa menjatuhkan nilai seseorang dari sudut pandangan Tuhan dan manusia.Sudah lama kita menjalani kehidupan ini, dan sudah banyak kali perkataan 'cinta' kita ungkapkan dan luahkan.

Wanita hiasan dunia

By : Unknown
 wanita hiasan dunia 
Wanita hiasan dunia..seindah hiasan wanita solehah..
wanita yang disayangi
adalah pencinta Tuhannya...
yang mengalir cinta,takut,dan harap...
yang mengusai perjalanan penghidupannya..
dari waktu ke waktu...
dari hari ke hari..
sehingga perjalanan di antara..
jasad dan nyawanya berakhir..

wanita yang dirindui...
adalah wanita yang dimata dan wajahnya..
terpancar sinar nur Ilahi..
lidahnya basah dengan zikrullah..
di sudut hati kecilnya..
sentiasa membesarkan Allah..

Program Menghitung Nilai Mahasiswa

By : Unknown
Assalamualaikum Wr.Wb.

Hari ini saya mempostingkan sedikit Program Tentang VB.Net...Dengan Judul "Perhitungan Nilai Mahasiswa"
BELAJAR BAHASA PEMOGRAMAN
Untuk Lebih Lanjut Design Form Berikuttt




Public Class Form1

    Sub jenjur()
        Dim jen = Microsoft.VisualBasic.Right(NPM.Text, 2)
        Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
        If jen = "07" Then
            jenjang.Text = "S1"
        ElseIf jen = "02" Then
            jenjang.Text = "S1"
        ElseIf jen = "50" Then
            jenjang.Text = "D3"
        ElseIf jen = "44" Then
            jenjang.Text = "D3"
        End If

        If jur = "02" Then
            jurusan.Text = "T I"
        ElseIf jur = "01" Then
            jurusan.Text = "S I"
        ElseIf jur = "00" Then
            jurusan.Text = "M I"
        End If
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        If NPM.Text = "12110207" Then
            Nama.Text = "Yurna"
            Call jenjur()
        ElseIf NPM.Text = "12110102" Then
            Nama.Text = "ilam"
            Call jenjur()
        ElseIf NPM.Text = "12110150" Then
            Nama.Text = "Rinni"
            Call jenjur()
        ElseIf NPM.Text = "12110044" Then
            Nama.Text = "Chanif"
            Call jenjur()
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110207")
        NPM.Items.Add("12110102")
        NPM.Items.Add("12110150")
        NPM.Items.Add("12110044")

        kodedosen.Items.Add("A001")
        kodedosen.Items.Add("A002")
        kodedosen.Items.Add("A003")

        kodematkul.Items.Add("MK01")
        kodematkul.Items.Add("MK02")
        kodematkul.Items.Add("MK03")

        Dim A As Integer
        For A = 100 To 1 Step -3
            nhadir.Items.Add(A)
            ntugas.Items.Add(A)
            nuts.Items.Add(A)
            nuas.Items.Add(A)
        Next A




    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        If kodedosen.Text = "A001" Then
            namadosen.Text = "Putri"
        ElseIf kodedosen.Text = "A002" Then
            namadosen.Text = "Yanni"
        ElseIf kodedosen.Text = "A003" Then
            namadosen.Text = "Ronny"

        End If

    End Sub

    Private Sub namadosen_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namadosen.TextChanged

    End Sub

    Private Sub namamatkul_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namamatkul.TextChanged


    End Sub

    Private Sub kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematkul.SelectedIndexChanged

        If kodematkul.Text = "MK01" Then
            namamatkul.Text = "Agama Islam"
        ElseIf kodematkul.Text = "MK02" Then
            namamatkul.Text = "Kalkulus"
        ElseIf kodematkul.Text = "MK03" Then
            namamatkul.Text = "Pemograman"
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nakhir.Text = 0.1 * nhadir.Text + 0.15 * ntugas.Text + 0.3 * nuts.Text + 0.45 * nuas.Text


        If nakhir.Text >= 85 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= "65" Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= "50" Then
            nhuruf.Text = "D"
        ElseIf nakhir.Text >= "40" Then
            nhuruf.Text = "E"

        End If

        If nakhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "GAGAL"


        End If

    End Sub
End Class


Sejarah Internet

By : Unknown
sejarah internetSejarah internet dimulai pada Agustus 1962 dan penciptaan internet pertama kali dikemukakan oleh J.C.R Licklider dari MIT Massachutts Institute of Technology. Konsep awal dinamakan “Galactic Network”. ia mengemukakan tentang jaringan global yang memungkinkan orang dapat mengakses data dan program dari mana saja. Oktober 1962 beliau mengepalai program penelitian komputer di ARPA yang merupakan bagian dari Departmenet Pertahanan Amerika Serikat.
Pada 1965 peneliti dari MIT bernama Lawrence G. Roberts sering juga disebut Larry Roberts dan Thomas Merill melakukan koneksi komputer TX-2 di MIT dengan komputer Q-32 di California menggunakan jalur telpon berkecepatan rendah untuk menciptakan jaringan berskala luas untuk pertama kalinya.
Pada tahun 1966 Larry Roberts mengembangkan konsep jaringan komputer/ Kemudian beliau merencanakan jaringa yang disebut ARPANET yang dipublikasikan pada tahun 1967. Pada tahun 1969 ARPANET telah melibatkan empat buah komputer yang terkoneksi. Komputer pertama berada di university of California Los Angelos, komputer ke dua berada di Stanford Research Institute, komputer ketiga berada di University of California Barbara dan koputer ke emat berada di University Utah.

TIPS MENGATASI VMJ (virus merah jambu) bagi akhwat

By : Unknown



Entah bagaimana mendeskripsikan perasaan ini
Kalut dalam masalah menjadikan hidup makin tak terarah
Hal ini lah yang sering dialami oleh akhwat-akhwat kita yang sedang dilanda dilema kelas berat, entah karna patah hati atau bahkan jatuh cinta yang tak terungap. ketika seorang akhwat dilanda virus merah jambu  bisa jadi dia tersiksa dengan virus itu, bukan hanya membahayakan bahkan sampai mematikan jika tidak ditanggulangi dengan baik dan benar,
Wah jatuh cinta kok keliatan serem gitu sih? Kok bisa?
Ya bisa saja, karena saat akhwat jatuh cinta ia tak mampu melakukan apa-apa selain memedam dalam hati terdalam, memang itu lah yang harus dilakukan bagi akhwat yang terserang virus ini.
Hal yang tak lumrah bukan bila akhwat menyatakan perasaannya pada ikhwan yang disukainya, kan gengsi gitu.

MUHASABAH DIRI

By : Unknown




Ada seorang pemuda Arab yang baru saja menyelesaikan bangku kuliahnya di Amerika. Pemuda ini adalah salah seorang yang diberi nikmat oleh Allah berupa pendidika agama Islam bahkan dia mampu mendalaminya. Selain belajar, dia juga seorang jurudakwah Islam. Ketika berada di Amerika, dia berkenalan dengan salah seorang Nasrani. Hubungan mereka semakin akrab, dengan harapan semoga Allah s.w.t. memberinya hidayah masuk Islam.

Pada suatu hari mereka berdua berjalan-jalan di sebuah perkampungan di Amerika dan melintas dekat sebuah gereja yang terdapat di kampung tersebut. Temannya itu meminta agar dia turut masuk ke dalam gereja. Mula mula dia keberatan, namun kerana desakan akhirnya pemuda itu pun memenuhi permintaannya lalu ikut masuk ke dalam gereja dan duduk di salah satu bangku dengan hening, sebagaimana kebiasaan mereka.

Ketika paderi masuk, mereka serentak berdiri untuk memberikan penghormatan lantas kembali duduk. Di saat itu, si paderi agak terbeliak ketika melihat kepada para hadirin dan berkata, ‘Di tengah kita ada seorang Muslim. Aku harap dia keluar dari sini.’ Pemuda Arab itu tidak bergerak dari tempatnya. Paderi tersebut mengucapkan perkataan itu berkali-kali, namun dia tetap tidak bergerak dari tempatnya. Hingga akhirnya paderi itu berkata, ‘Aku minta dia keluar dari sini dan aku menjamin keselamatannya.’ Barulah pemuda ini beranjak keluar.

9 Tips Gaya Hidup Sehat Menuju Abad 21

By : Unknown



9 Tips Gaya Hidup Sehat Menuju Abad 21




TEMPO.COJakarta - Dokter Phaidon L Toruan dalam sebuah bincang santai tentang penyakit di abad ke-21 di Jakarta beberapa waktu lalu mengatakan gaya hidup di abad ini mengerikan. Yaitu akan semakin bergantung dengan penyediaan makanan yang serba cepat atau siap saji. Pilihan makan ini disebabkan semakin mudahnya akses konektivitas dan menyebabkan kurangnya aktivitas fisik.

Tetapi, katanya, gaya hidup modern tersebut tidak bisa dihindari. Jeleknya lagi perubahan gaya hidup manusia modern pada abad ini diperparah dengan berkurangnya kualitas lingkungan hidup di tempat tinggal. Phaidon menuturkan tips supaya hidup sehat sebagai berikut:

1. Mengubah pola pikir
Hal yang paling mendasar untuk menjalankan pola hidup sehat dengan mengubah pola pikir supaya hidup mau serius mencanangkan hidup sehat. Setidaknya mesti ketat memiliki komitmen untuk menjalankan gaya hidup sehat dan praktiknya seperti agama, dengan harus mencari orang atau sosok yang benar-benar mampu sebagai teladan dan mau menyadarkan pentingnya hidup sehat.

2. Membutuhkan kemampuanl
Seperti halnya kecerdasan, kesehatan pun membutuhkan kemampuan supaya bisa serius bisa memiliki tubuh yang sehat, langsing, bugar, bergairah, dan relatif bebas. Kemampuan ini artinya akan menyesuaikan dengan jenis kelamin pria atau wanita, pekerja kantor atau ibu rumah tangga, usia, dan sebagainya. 

Beramallah yang Rutin dan Rajin Muhasabah Diri (Nasehat pada Hanzhalah)

By : Unknown


muhasabah_introspeksiKita diperintahkan beramal kontinu atau rutin walau perlahan-lahan. Inilah yang diperintahkan oleh Rasulullahshallallahu 'alaihi wa sallam pada Hanzhalah, di mana Hanzhalah salah seorang sahabat yang menjadi juru tulis Rasul shallallahu 'alaihi wa sallam. Beramal yang kontinu walau sedikit ini adalah amalan yang paling disukai Allah. Juga kisah Hanzhalah berikut mengajarkan pada kita untuk

Salam AIDILADHAH

By : Unknown
Saat berderai jatuh,
Titisan air mata IBRAHIM,
Melihat keteguhan iman,
Anaknya ISMAIL,
Dikala itulah bermulanya,
Sejarah agung,
ERTI SEBUAH PENGORBANAN

SELAMAT MENYAMBUT HARI RAYA AIDILADHA...
MAAF ZAHIR & BATIN...

kullu 'am Wa Antum bi Alfi Khoir...

Jihad Fisabilillah

By : Unknown

Takbir!

"Dan berjihadlah kamu pada jalan Allah dengan jalan yang sebenar-benarnya."

[Al-Hajj: 78]

jihad jihad! jihad islam!
 
Firman Allah dalam surah An-Nisa ayat 75

وَمَا لَكُمْ لَا تُقَاتِلُونَ فِي سَبِيلِ اللَّهِ وَالْمُسْتَضْعَفِينَ مِنَ الرِّجَالِ وَالنِّسَاءِ وَالْوِلْدَانِ الَّذِينَ يَقُولُونَ رَبَّنَا أَخْرِجْنَا مِنْ هَٰذِهِ الْقَرْيَةِ الظَّالِمِ أَهْلُهَا وَاجْعَل لَّنَا مِن لَّدُنكَ وَلِيًّا وَاجْعَل لَّنَا مِن لَّدُنكَ نَصِيرًا

Yang bermaksud : Dan apakah yang menghalang kamu (maka kamu) tidak mahu berperang pada jalan Allah (untuk menegakkan ugama Islam) dan (untuk menyelamatkan) orang-orang yang tertindas dari kaum lelaki, perempuan dan kanak-kanak, iaitu mereka yang selalu (berdoa dengan) berkata: "Wahai Tuhan kami! Keluarkanlah kami dari negeri (Makkah) ini, yang penduduknya (kaum kafir musyrik) yang zalim, dan jadikanlah bagi kami dari pihakMu seorang pemimpin yang mengawal (keselamatan ugama kami), dan jadikanlah bagi kami dari pihakMu seorang pemimpin yang membela kami (dari ancaman musuh)".

Surah Al-Anfal Ayat 39

وَقَاتِلُوهُمْ حَتَّىٰ لَا تَكُونَ فِتْنَةٌ وَيَكُونَ الدِّينُ كُلُّهُ لِلَّهِ ۚ فَإِنِ انتَهَوْا فَإِنَّ اللَّهَ بِمَا يَعْمَلُونَ بَصِيرٌ

Yang bermaksud : Dan perangilah mereka sehingga tidak ada lagi fitnah, dan (sehingga) menjadilah ugama itu seluruhnya (bebas) bagi Allah semata-mata. Kemudian jika mereka berhenti (dari kekufurannya dan gangguannya, nescaya mereka diberikan balasan yang baik) kerana sesungguhnya Allah Maha Melihat akan apa yang mereka kerjakan.

Ukhwah Fillah

By : Unknown

Ukhwah itu indah apabila didalamnya terisi jutaan rahmat Allah...

Bila menangis ada yang meredakan,
Bila genbira ada yang mengingatkan,
Bila terleka ada yang menegur,
Bila sakit ada yang mendoakan,
Bila sihat ada yang meraikan 
dan segalanya lebih indah
seandainya ianya kerana Allah..

Ya Allah...

Andai sahabatku resah...

Tenangkanlah hatinya dengan teduhan ma'firahMu,

Andai dirinya terancam lindungilah jasadnya dengan kebesaranMu,

Andai tubuhnya kedinginan,
selimutkanlah ia dengan kasih sayangMu,

Andai dirinya merindu,
rindukanlah jiwanya dengan saat bertemu denganMu...

- Copyright © Yurna Lissahra - Date A Live - Powered by Blogger - Designed by Johanes Djogan -