Popular Post

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.

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