Review MESRAN.NET

Assalamu'alaikum Wr Wb...

Disini saya pribadi mau merekomendasikan buat yang hobi programming atau berminat untuk mempelajari apa itu pemograman , mau itu VB NET, PASCAL, ALGORITMA dan C++. Disini saya juga memberikan kemudahan serta Efesiensi dalam menpelajarinya.
Hal pertama yag harus anda lakukan, yaitu bergabung disitus mesran.net ataupun mesran.blogspot.com ' kamu bisa mempelajarinya tanpa harus keluar rumah, perpustakaan atau dimanalah sebab situs tersebut untuk materinya sudah lengkap serta bahasa yang mudah untuk dimengerti.

Semoga yang saya beri ini bermanfaat bagi teman-teman sekalian.

And Good Luck

Wassalamu'alaikum Wr Wb.

Tugas Pemrogaman Visual Basic

disini saya tampilkan hasil dari projek yang saya kerjakan..

 

dan ini adalah cara pengerjaan untuk menampilkan proses yang diatas.

Public Class Form1

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

        npm.Items.Add("13110000")

        npm.Items.Add("13120001")

        npm.Items.Add("13130002")

        Kd_dosen.Items.Add("2011001")

        Kd_dosen.Items.Add("2011002")

        Kd_dosen.Items.Add("2011003")

        kd_makul.Items.Add("kk1213")

        kd_makul.Items.Add("aa1213")

        kd_makul.Items.Add("ss1213")

        Dim nilai As Integer

        nilai = 1

        Do While nilai <= 100

            hadir.Items.Add(nilai)

            tugas.Items.Add(nilai)

            uas.Items.Add(nilai)

            uts.Items.Add(nilai)

            nilai = nilai + 1

        Loop

    End Sub

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

        Select Case npm.Text

            Case "13110000"

                nama.Text = "Ayu Andira"

            Case "13110001"

                nama.Text = "Ridho Ananda"

            Case Else

                nama.Text = "Ihsanuddin"

        End Select

    End Sub

    Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_dosen.SelectedIndexChanged

        Select Case Kd_dosen.Text

            Case "2011001"

                nama_dosen.Text = "Rizal S.Kom"

            Case "2011002"

                nama_dosen.Text = "Zakir S.Kom"

            Case "2011003"

                nama_dosen.Text = "Yasir S.Kom"

        End Select

    End Sub

    Private Sub kd_makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_makul.SelectedIndexChanged

        Select Case kd_makul.Text

            Case "kk1213"

                makul.Text = "Sistem Operasi"

            Case "aa1213"

                makul.Text = "Data Base"

            Case "ss1213"

                makul.Text = "Struktur Data"

        End Select

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        npm.Text = " "

        nama.Text = " "

        jenjang.Text = " "

        nama_dosen.Text = " "

        Kd_dosen.Text = " "

        kd_makul.Text = " "

        makul.Text = " "

        hadir.Text = " "

        tugas.Text = " "

        uts.Text = " "

        uas.Text = " "

        akhir.Text = " "

        Huruf.Text = " "

        keterangan.Text = " "

        jurusan.Text = " "

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

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

        If akhir.Text >= 50 Then

            keterangan.Text = "lulus"

        Else

            keterangan.Text = "gagal"

        End If

        If akhir.Text >= "80" Then

            Huruf.Text = "A"

        ElseIf akhir.Text = "70" Then

            Huruf.Text = "B"

        ElseIf akhir.Text = "60" Then

            Huruf.Text = "C"

        ElseIf akhir.Text = "50" Then

            Huruf.Text = "D"

        ElseIf akhir.Text <= "50" Then

            Huruf.Text = "E"

        End If

        Dim x As String

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

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "0" Then

            jenjang.Text = "D1"

        ElseIf x = "1" Then

            jenjang.Text = "D3"

        ElseIf x = "2" Then

            jenjang.Text = "S1"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

        If x = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf x = "12" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "13" Then

            jurusan.Text = "Teknik Komputer"

        End If

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

End Class