REVIEW MENGENAI MESRAN.NET

Mungkin sudah banyak yang sudah tahu apa itu pemograman atau lebih dikenal bahasa Pemograman ? Dan bagi siapa saja yang kurang tahu tentang pemrograman itu termasuk saya salah satunya, alangkah bagusnya kita sempatkan dulu melihat http//:mesran.net/

Mesran.Net adalah sebuah situs dimana kita dapat berbagi ilmu serta mendapatkan ilmu. Di dalamnya terdapat berbagai macam jenis ilmu, termasuk juga ilmu komputer mengenai programming.
Dipastikan di Mesran.Net anda pasti akan mendapatkan ilmu yang bermanfaat dan juga berbagai kebaikan. Sehingga kita semua dapat saling berbagi kebaikan.

Jika kita rajin untuk membuka,membaca,dan mengulas postingan web ini, maka kita akan mampu sedikit demi sedikit memahami program yang kita kurang mengerti. Program tersebut diantaranya:

·         VB.Net

·         Java

·         Pascal

·         C,C++

·         Dan lain-lain

Bagi yang berminat langsung saja klik link di bawah ini,

http//:mesran.net

PEMROGRAMAN VISUAL BASIC

 Berikut ini adalah tugas Belajar Bahasa Pemrograman yang diberikan bapak Mesran kepada kelas kami TI-P1205.

Adapun bentuk formnya kurang lebih seperti dibawah ini:

Public Class Form2

   
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110474"
                nama.Text = "Imron Rosyadi"
                jenjang.Text = "S1"
                jurusan.Text = "TEKNIK INFORMATIKA"

            Case "12110456"
                nama.Text = "mahmulia"
                jenjang.Text = "DIII"
                jurusan.Text = "SISTEM INFORMASI"
            Case "12110555"
                nama.Text = "Awaluddin"
                jenjang.Text = "D1"
                jurusan.Text = "KOMPUTER AKUNTANSI"
           
        End Select
        na.Enabled = False
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110474")
        NPM.Items.Add("12110456")
        NPM.Items.Add("12110555")


        KDOS.Items.Add("1001")
        KDOS.Items.Add("1002")
        KDOS.Items.Add("1003")

        Kodemkul.Items.Add("KM1")
        Kodemkul.Items.Add("KM2")
        Kodemkul.Items.Add("KM3")

        Dim I As Integer
        For I = 0 To 100
            nilkehadiran.Items.Add("" & I)
            nt.Items.Add("" & I)
            nuts.Items.Add("" & I)
            nuas.Items.Add("" & I)
        Next

        na.Enabled = False
    End Sub

    Private Sub KDOS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDOS.SelectedIndexChanged
        Select Case KDOS.Text
            Case "1001"
                ndosen.Text = "MESRAN"
            Case "1002"
                ndosen.Text = "YASIR HASAN"
            Case "1003"
                ndosen.Text = "ALEX RIKKI"




        End Select
    End Sub

    Private Sub Kodemkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodemkul.SelectedIndexChanged
        Select Case Kodemkul.Text

            Case "KM1"
                mkuliah.Text = "PEMROGRAMAN VISUAL"
            Case "KM2"
                mkuliah.Text = "SISTEM OPERASI"
            Case "KM3"
                mkuliah.Text = "STRUKTUR DATA"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = nilkehadiran.Text * 0.1 + nt.Text * 0.15 + nuts.Text * 0.35 + nuas.Text * 0.4




        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
            ktrngn.Text = "LULUS"
        Else
            ktrngn.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 = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        KDOS.Text = ""
        ndosen.Text = ""
        Kodemkul.Text = ""
        mkuliah.Text = ""
        nilkehadiran.Text = ""
        nt.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        na.Text = ""
        nh.Text = ""
        ktrngn.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

Dan setelah kita klik tombol proses maka hasil yang keluar seperti gambar di bawah ini:

SELAMAT MENCOBA,,,,