Mengulas tentang Mesran.net

 

Kali ini saya akan membuat postingan yang mengulas Tentang Mesran.Net

Sebelumnya saya ingin bercerita sedikit tentang dosen saya ini.

Dosen saya yang bernama  Mesran ini menurut saya salah satu dosen yang bisa dikatakan cukup ketat dan disiplin dalam segala peraturan yang ada dikampus. Contohnya aja, kalau kita tidak memakai pakaian seragam Putih Hitam pada hari Selasa atau Kamis, datang telat lebih dari 15 menit langsung deh di suruh keluar sama bapak itu.

Tugas Praktikum NILAI MAHASISWA

 
Public Class Form1

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

        npm.Items.Add("13110253")
        npm.Items.Add("13110289")
        npm.Items.Add("13110319")
        MK.Items.Add("Visual Basic")
        MK.Items.Add("Logika Algoritma")
        MK.Items.Add("Sistem Operasi")
        MK.Items.Add("Struktur Data")
        MK.Items.Add("Arsitektur dan Organisasi Komputer")
        MK.Items.Add("Komunikasi Data")




    End Sub

    Sub buattabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Mata Kuliah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Angka", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Huruf", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nilai Uas", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Uts", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nilai Praktikum", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub Isitable()
        Dim ist As New ListViewItem
        ist.Text = npm.Text
        ist.SubItems.Add(nama.Text)
        ist.SubItems.Add(MK.Text)
        ist.SubItems.Add(N_angka.Text)
        ist.SubItems.Add(N_huruf.Text)
        ist.SubItems.Add(N_uas.Text)
        ist.SubItems.Add(N_uts.Text)
        ist.SubItems.Add(N_Praktikum.Text)
        LV.Items.Add(ist)
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "13110253" Then
            nama.Text = "Devie Ayuningsih"
        ElseIf npm.Text = "13110289" Then
            nama.Text = "Ica capahh"
        ElseIf npm.Text = "13110319" Then
            nama.Text = "Linda Bahtera"
        End If
        npm.ForeColor = Color.Blue
        nama.ForeColor = Color.Green
        MK.ForeColor = Color.Red
        N_angka.ForeColor = Color.Blue
        N_huruf.ForeColor = Color.Blue
        N_uas.ForeColor = Color.Blue
        N_uts.ForeColor = Color.Blue
        N_Praktikum.ForeColor = Color.Blue
        LV.ForeColor = Color.Red


    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
        Close()
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        N_angka.Text = 0.3 * N_uts.Text + 0.3 * N_uas.Text + 0.4 * N_Praktikum.Text


        If N_angka.Text >= 80 Then
            N_huruf.Text = "A"
        ElseIf N_angka.Text >= 70 Then
            N_huruf.Text = "B"
        ElseIf N_angka.Text >= 60 Then
            N_huruf.Text = "C"
        ElseIf N_angka.Text >= 50 Then
            N_huruf.Text = "D"
        Else
            N_huruf.Text = "E"
        End If

    End Sub

    Private Sub Btn_isilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_isilist.Click
        Call Isitable()
        npm.Text = ""
        nama.Text = ""
        MK.Text = ""
        N_angka.Text = ""
        N_huruf.Text = ""
        N_uas.Text = ""
        N_uts.Text = ""
        N_Praktikum.Text = ""

    End Sub

    Private Sub Btn_hpsnpm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpsnpm.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btn_hpslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hpslist.Click
        LV.Items.Clear()
    End Sub

    Private Sub Btn_Hpsdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hpsdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub
End Class