Ini progam pertamanya

ini Prosesnya

Public Class Form1

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

        Npm.Items.Add("12110979")

        Npm.Items.Add("12110777")

        Npm.Items.Add("12110987")

        Npm.Items.Add("12110977")

        Npm.Items.Add("12110778")

        Kdo_Dosen.Items.Add("301")

        Kdo_Dosen.Items.Add("302")

        Kdo_Dosen.Items.Add("303")

        Kdo_Dosen.Items.Add("304")

        Kdo_Dosen.Items.Add("305")

        Kde_makul.Items.Add("201")

        Kde_makul.Items.Add("202")

        Kde_makul.Items.Add("203")

        Kde_makul.Items.Add("204")

        Kde_makul.Items.Add("205")

        Dim x As Integer

        For x = 1 To 100

            kehadiran.Items.Add(x)

            tugas.Items.Add(x)

            UTS.Items.Add(x)

            UAS.Items.Add(x)

        Next x

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "12110979"

                N_Mha.Text = "Sofiana Barus"

                jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110777"

                N_Mha.Text = "Susila"

                jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110987"

                N_Mha.Text = "Linda  Wati"

                jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110977"

                N_Mha.Text = "Deswin Tiyani"

                jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case Else

                N_Mha.Text = "Lia Anugrah"

                jenjang.Text = "S1"

                Jurusan.Text = "TI"

        End Select

    End Sub

    Private Sub Kdo_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdo_Dosen.SelectedIndexChanged

        Select Case Kdo_Dosen.Text

            Case "301"

                Nma_Dosen.Text = "Yasir Hasan, S.kom"

            Case "302"

                Nma_Dosen.Text = "Philipus Tarigan,ST.M Kom"

            Case "303"

                Nma_Dosen.Text = "Mesran,S.Kom,M Kom"

            Case "304"

                Nma_Dosen.Text = "Kenndi Tampubolon,S.Si"

            Case Else

                Nma_Dosen.Text = "Pristiwanto,S.Kom"

        End Select

    End Sub

    Private Sub Kde_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kde_makul.SelectedIndexChanged

        Select Case Kde_makul.Text

            Case "201"

                Makul.Text = "Pemrograman Visual"

            Case "202"

                Makul.Text = "Struktur Data"

            Case "203"

                Makul.Text = "Arsitektur & Organisasi Komputer"

            Case "204"

                Makul.Text = "Komunikasi Data"

            Case Else

                Makul.Text = "Matriks & Transformasi Linier "

        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        akhir.Text = 0.1 * kehadiran.Text + 0.15 * tugas.Text + 0.4 * UTS.Text + 0.6 * UAS.Text

        If akhir.Text >= 80 Then

            huruf.Text = "A"

            keterangan.Text = "Lulus"

        ElseIf akhir.Text >= 70 Then

            huruf.Text = "B"

            keterangan.Text = "Lulus"

        ElseIf akhir.Text >= 60 Then

            huruf.Text = "C+"

            keterangan.Text = "Lulus"

        ElseIf akhir.Text >= 50 Then

            huruf.Text = "C"

            keterangan.Text = "Perbaikan"

        ElseIf akhir.Text >= 40 Then

            huruf.Text = "D"

            keterangan.Text = "Ujian Ulang"

        Else

            huruf.Text = "E"

            keterangan.Text = "Gagal"

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        Npm.Text = ""

        N_Mha.Text = ""

        jenjang.Text = ""

        Jurusan.Text = ""

        Kdo_Dosen.Text = ""

        Nma_Dosen.Text = ""

        Kde_makul.Text = ""

        Makul.Text = ""

        kehadiran.Text = ""

        tugas.Text = ""

        UTS.Text = ""

        UAS.Text = ""

        akhir.Text = ""

        huruf.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

Hasilnya

Cara Alami Untuk Menghilangkan Jerawat Dan Bekasnya

Banyak sekali cara alami dan tradisional yang bisa anda temukan di internet untuk mengatasi problem jerawat. Memang patut dicoba sebelum anda menggunakan cara klinis medis. Namun perlu diperhatikan juga bahwa tidak semua cara alami mengatasi jerawat akan cocok untuk anda. Penting sekali untuk mengenali terlebih dahulu karakter kulit anda :

1.    Apakah sensitif (mudah gatal, dan merah-merah) atau tidak.

2.    Jenis kulit anda kering atau berminyak?

Sebaiknya anda mulai mencoba bahan alami dengan yang paling ringan kekuatannya, misalnya dengan tomat atau madu dicampur kayu manis. Mengapa anda harus menggunakan yang paling ringan? Karena kulit adalah bagian yang sensitif. Orang lain mungkin bisa puas dengan menggunakan baking soda. Tapi bila kulit anda sensitif dan mudah merah, maka yang ada adalah kulit akan terbakar bila terkena baking soda. Akibatnya, masalah akan bertambah rumit.

Tomat mengandung bahan kimia yaitu asam yang membantu mengeringkan jerawat. Tidak hanya ini, tetapi dalam tomat adalah vitamin (A, C dan K) dan likopen, yang dapat ditemukan dalam banyak obat jerawat. 

Cara alami dengan tomat :

1.    Iris tomat lalu tempelkan pada daerah bermasalah wajah anda, atau

2.    Anda juga dapat menggiling tomat menjadi pulp dan berlaku seperti masker wajah. Ulangi proses tersebut secara teratur.

Madu merupakan agen antibakteri, sehingga sering dimanfaatkan untuk membunuh bakteri dan menghilangkan jerawat. Kayu manis memiliki minyak esensial yang terkandung di dalamnya. Minyak esensial ini memungkinkan untuk menjadi agen anti-pembekuan darah, dan anti-inflamasi pada kulit.

Cara alami dengan madu dan kayu manis :

1.    Menggunakan sekitar 1 sendok teh kayu manis dan sekitar 3 sendok makan madu.

2.    Mencampurnya bersama-sama sampai membentuk pasta.

3.    Oleskan ke seluruh wajah seperti halnya masker.

4.    Biarkan sekitar 1 atau 2 jam, kemudian cuci dengan air.

Menurut sebagian orang, masker ini mampu mengatasi jerawat dengan cepat. Juga akan membuat kulit anda lembut, mengurangi peradangan atau kemerahan.

Cara Alami Untuk Menghilangkan Jerawat Dan Bekasnya

Banyak sekali cara alami dan tradisional yang bisa anda temukan di internet untuk mengatasi problem jerawat. Memang patut dicoba sebelum anda menggunakan cara klinis medis. Namun perlu diperhatikan juga bahwa tidak semua cara alami mengatasi jerawat akan cocok untuk anda. Penting sekali untuk mengenali terlebih dahulu karakter kulit anda :

1.    Apakah sensitif (mudah gatal, dan merah-merah) atau tidak.

2.    Jenis kulit anda kering atau berminyak?

Sebaiknya anda mulai mencoba bahan alami dengan yang paling ringan kekuatannya, misalnya dengan tomat atau madu dicampur kayu manis. Mengapa anda harus menggunakan yang paling ringan? Karena kulit adalah bagian yang sensitif. Orang lain mungkin bisa puas dengan menggunakan baking soda. Tapi bila kulit anda sensitif dan mudah merah, maka yang ada adalah kulit akan terbakar bila terkena baking soda. Akibatnya, masalah akan bertambah rumit.

Tomat mengandung bahan kimia yaitu asam yang membantu mengeringkan jerawat. Tidak hanya ini, tetapi dalam tomat adalah vitamin (A, C dan K) dan likopen, yang dapat ditemukan dalam banyak obat jerawat. 

Cara alami dengan tomat :

1.    Iris tomat lalu tempelkan pada daerah bermasalah wajah anda, atau

2.    Anda juga dapat menggiling tomat menjadi pulp dan berlaku seperti masker wajah. Ulangi proses tersebut secara teratur.

Madu merupakan agen antibakteri, sehingga sering dimanfaatkan untuk membunuh bakteri dan menghilangkan jerawat. Kayu manis memiliki minyak esensial yang terkandung di dalamnya. Minyak esensial ini memungkinkan untuk menjadi agen anti-pembekuan darah, dan anti-inflamasi pada kulit.

Cara alami dengan madu dan kayu manis :

1.    Menggunakan sekitar 1 sendok teh kayu manis dan sekitar 3 sendok makan madu.

2.    Mencampurnya bersama-sama sampai membentuk pasta.

3.    Oleskan ke seluruh wajah seperti halnya masker.

4.    Biarkan sekitar 1 atau 2 jam, kemudian cuci dengan air.

Menurut sebagian orang, masker ini mampu mengatasi jerawat dengan cepat. Juga akan membuat kulit anda lembut, mengurangi peradangan atau kemerahan.