forrm nilai mahasiswa

Di bawah ini adalah desain dari perhitungan nilai mahasiswa dengan menggunakan visual basic 2008 :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110720")

        npm.Items.Add("12110730")

        npm.Items.Add("12110740")

        kdosen.Items.Add("0720")

        kdosen.Items.Add("0730")

        kdosen.Items.Add("0740")

        kmatkul.Items.Add("A11")

        kmatkul.Items.Add("A22")

        kmatkul.Items.Add("A33")

        Dim i As Integer

        For i = 1 To 100

            hadir.Items.Add(i)

            tugas.Items.Add(i)

            uts.Items.Add(i)

            uas.Items.Add(i)

        Next i

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(npm.Text, 2)

        Select Case npm.Text

            Case "12110720"

                nama.Text = "APRYANTI S"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

            Case "12110730"

                nama.Text = "BARRY"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

            Case Else

                nama.Text = "CITRA"

                If x = "20" Then

                    jenjang.Text = "S1"

                    jurusan.Text = "Sistem informasi"

                ElseIf x = "30" Then

                    jenjang.Text = "D3"

                    jurusan.Text = "Manajemen"

                ElseIf x = "40" Then

                    jenjang.Text = "D1"

                    jurusan.Text = "Akutansi"

                End If

        End Select

    End Sub

    Private Sub kmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatkul.SelectedIndexChanged

        Select Case kmatkul.Text

            Case "A11"

                matkul.Text = "SISTEM OPERASI"

            Case "A22"

                matkul.Text = "SISTEM BASIS DATA"

            Case Else

                matkul.Text = "LOGIKA DAN ALGORITMA"

        End Select

    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged

        Select Case kdosen.Text

            Case "0720"

                ndosen.Text = "YASIR HASAN S.KOM"

            Case "0730"

                ndosen.Text = "HARVEI D.HUTAHAEAN S.KOM,M.KM"

            Case Else

                ndosen.Text = "MHD.IQBAL BATUBARA S.K,M.KOM"

        End Select

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kdosen.Text = ""

        ndosen.Text = ""

        kmatkul.Text = ""

        matkul.Text = ""

        hadir.Text = ""

        tugas.Text = ""

        uts.Text = ""

        uas.Text = ""

        NA.Text = ""

        NH.Text = ""

        ket.Text = ""

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        NA.Text = 0.1 * hadir.Text + 0.15 * tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text

        If NA.Text >= 80 Then

            NH.Text = "A"

        ElseIf NA.Text >= 70 Then

            NH.Text = "B"

        ElseIf NA.Text >= 60 Then

            NH.Text = "C"

        ElseIf NA.Text >= 50 Then

            NH.Text = "D"

        Else

            NH.Text = "E"

        End If

        If NA.Text >= 50 Then

            ket.Text = "LULUS"

        Else

            ket.Text = "GAGAL"

        End If

    End Sub

    Private Sub NA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NA.KeyPress

        If Asc(e.KeyChar) = 13 Then

            btnproses_Click(sender, e)

        End If

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

End Class

Ini adalah hasil dari desain tersebut :

Cara Mengatasi Sulit Tidur di Malam Hari

Sulit tidur di malam hari dikenal juga dengan istilah insomnia. Diperkirakan sebagian besar orang pernah mengalami insomnia dalam kehidupannya sehari-hari.

Ada banyak faktor yang dapat menyebabkan seseorang mengalami kesulitan untuk bisa tidur atau penyakit insomnia ini, bisa saja karena faktor stress, kelelahan tingkat tinggi, atau akibat gangguan kesehatan tertentu pada tubuh.

Dewasa ini, gangguan tidur seperti penyakit insomnia diderita oleh sebagian besar mereka yang hidup di kota. Berbagai tekanan sosial dan ekonomi membuat setiap orang menjadi sangat terbebani dengan kebutuhan dan tuntutan pekerjaan.

Hal seperti inilah yang akan meningkatkan resiko stress dan seringkali dibawa pulang ke rumah menyebabkan waktu istirahat tidak optimal.

Agar aktivitas tidur Anda pada malam hari menjadi lebih teratur, berikut ini adalah beberapa tips yang dapat membantu Anda untuk mengatasi serta memperbaiki pola tidur Anda menjadi lebih teratur dan sehat:

Melakukan Aktivitas yang Menyehatkan

Usahakanlah Anda untuk meluangkan waktu untuk beraktivitas yang menyehatkan seperti halnya berolahraga pada pagi atau siang hari. Dengan Anda berolahraga, atau melakukan latihan fisik lainnya bahkan dalam porsi moderat ditambah dengan dua sesi latihan otot terbukti dapat memperbaiki kesulitan tidur di kalangan perempuan.

Selain itu juga dengan berolahraga Anda dapat mengurangi tingkat kecemasan dan depresi serta membantu untuk mengatur suhu pada tubuh kita.

Menurunkan Intensitas Cahaya

Cobalah untuk membiasakan menurunkan intensitas cahaya pada kamar Anda atau bisa tanpa menggunakan lampu. Karena dengan Anda mematikan lampu kamar merupakan upaya Anda untuk memberikan sinyal kepada tubuh bahwa waktu tidur sudah tiba.

Dari pemilihan jenis bola lampu juga bisa mempengaruhi mudah tidaknya seseorang untuk tertidur. Maka gunakanlah cahaya putih yang dingin dan terang seperti lampu neon yang berisi komponen biru yang signifikan, dengan cahaya biru ini, lebih daripada warna lain dalam spektrum cahaya, dapat menekan tubuh untuk melepaskan melatonin, hormon yang membuat kita mudah mengantuk.

Atau bisa juga memilih lampu dengan nuansa cahaya soft atau warm dengan temperature sekitar 3000 kelvins atau di bawahnya. Lampu jenis ini sudah diyakini tidak akan memicu insomnia pada diri Anda.

Matikan Gadget atau Televisi

Cobalah untuk menurunkan intensitas cahaya pada layar gadget atau televisi Anda apabila Anda memang sedang menonton siaran TV atau sedang membuka alat elektronik lainnya yang berhubungan dengan layar.

Dengan Anda menonton televisi atau membuka gadget mungkin saja hal itu dapat membuat Anda lebih rileks, tetapi layar pada TV, gadget, atau komputer Anda akan memancarkan cahaya biru yang lebih banyak dibandingkan lampu pada kamar Anda.

Ditambah lagi obyek yang Anda tatap di layar akan membuat Anda berkonsentrasi sehingga otak Anda akan terus bekerja, dan bukannya Anda tambah mengantuk, tetapi malah tambah asyik menatap layar tersebut.

Apabila Anda tidak mampu melepas kebiasaan menonton TV atau bermain gadget, pastikanlah Anda untuk menurunkan intensitas cahaya pada layarnya sehingga tidak terlalu terang. Para ahli merekomendasikan Anda untuk membaca artikel atau buku-buku ringan dengan pencahayaan yang redup. Cara ini dapat diyakini dapat membantu anda agar lebih cepat tidur.

Hindari Kebiasaan Buruk

Selain masalah penerangan atau pencahayaan ini, anda juga harus menghindari atau kalau bisa hentikan kebiasaan minum kopi, the, colah dan minuman lainnya yang mengandung kafein, terutama pada sore hari atau malam hari pada saat hendak tidur.

Selain itu biasakanlah minum minuman yang hangat pada saat hendak tidur, karena hal itu dapat membantu untuk lebih cepat mengantuk dan tertidur.

###

Nah itulah beberapa tips sederhana untuk mengatasi sulit tidur di malam hari. Semoga artikel ini membantu Anda untuk mengatasi susah tidur Anda. Semoga bermanfaat.

3 MANFAAT BUAH PIR UNTUK KESEHATAN

Pir, yang tergolong ke dalam genus Pyrus, adalah sejenis tanaman yang tumbuh di berbagai tempat di dunia, dari daerah pantai hingga daerah beriklim sedang, dari Eropa barat hingga Afrika utara dan Asia.

Terdapat 30 spesies buah pir , diantaranya adalah Pyrus communis, Pyrus nivalis, dan Pyrus salicifolia. Pir dan apel merupakan kedua tanaman yang berkerabat, sehingga beberapa spesies buah ini kadangkala sukar dibedakan. Namun sebenarnya keduanya dapat dibedakan dengan mudah. Daging buah pir memiliki sel batu, sedangkan apel tidak. Bila buah apel dapat mengapung di air, maka buah pir akan tenggelam.

Mungkin sedikit awam nama buahan tersebut, namun siapa sangka buah pir memiliki banyak manfaat untuk kesehatan. Bentuk dari buah pir ini hampir seperti buah lemon tapi lebih besar dan tidak melebihi ukuran buah melon.
Sekarang banyak orang mengkonsumsi buah pir untuk kesehatan mereka karena selain rasanya yang manis juga sehat untuk organ tubuh kita.

Berikut 3 manfaat dalam mengkonsumsi buah pir.

1.   Mengendalikan tekanan darah.

Buah pir tergolong tanaman yang memiliki nilai gisi yang cukup baik, diantaranya adalah kalium, serat pangan (dietary fiber), vitamin C, vitamin K dan tembaga. Menurut The George Mateljan Foundation (2006), kandungan serat pangan pada buah pir termasuk dalam kategori baik. Mengkonsumsi satu buah pir memenuhi 19,8 persen kebutuhan tubuh akan serat pangan setiap hari.

Selain untuk menurunkan kadar kolesterol, kandungan serat pangannya sangat berguna untuk sistem pencernaan. Konsumsi serat dalam jumlah yang cukup sangat baik untuk mengatasi sembelit dan aman untuk lambung yang sensitif atau radang usus. kandungan serat dan tembaga pada buah pir juga dapat mencegah terjadinya kanker kolon. Kandungan serat yang tinggi menjadikan buah pir sangat baik bagi penderita diabetes.

2.   Sebagai asupan vitamin.

Buah pir merupakan sumber vitamin C yang baik. Konsumsi stu buah pir setiap hari memenuhi 17 persen kebutuhan tubuh akan vitamin C setiap hari. Vitamin C dikenal sebagai senyawa utama tubuh yang dibutuhkan dalam berbagai proses penting, mulai dari pembuatan kolagen, pengangkut lemak, pengangkut elektron dari berbagai reaksi enzemik, pemacu gusi yang sehat, pengatur tingkat kolesterol, serta pemacu imunitas. Selain itu, vitamin C sangat diperlukan tubh untuk penyembuhan luka dan meningkatan fungsi otak agar dapat bekerja maksimal.

Kandungan vitamin K pada buah pir juga cukup baik. Konsumsi satu buah pir memenuhi 15 persen kebutuhan tubuh akan vitamin K setiap hari. Vitamin K sangat berguna untuk membantu proses pembekuan darah. Vitamin K mempunyai potensi dalam mencegah penyakit serius, seperti penyakit jantung dan stoke, karena efeknya yang dapat mengurangi pengerasan pembuluh darah oleh faktor timbunan plak kalsium.

3.   Mengurangi resiko terkena kanker.

Pir mempunyai sejumlah manfaat yang berguna untuk menjaga kesehatan. selain kandungan gizi yang tinggi, buah pir juga mengandung senyawa-senyawa yang esensial bagi tubuh. Buah pir mengandung asam klorogenat (chlorogenic acid) yang merupakan salah satu bagian dari asam hidroksi sinamat (hydroxy cinnamic acid), asam hidroksi sinamat ini berperan sebagai antioksidan yang dapat membendung pembentukan sel kanker. Hasil penelitian juga menunjukan bahwa asam tersebut juga mampu mencegah pertumbuhan bakteri Shigella sonnei, yang menjadi penyebab penyakit pada saluran pencernaan.

Asam hidroksi sinamat juga dapat mencegah terjadinya kanker kolon. Kemampuan tersebut dimiliki karena asam itu dapat mengikat nitrat di dalam perut, sehingga menghambat terbentuknya nitrosamin. Nitrosamin merupakan senyawa karsinogenik (penyebab kanker) yang sangat potensial di dalam tubuh.