Sunday, December 8, 2013

Nilai Mahasiswa dengan List View



blog ihsan




Public Class Form1
    Sub BuatTabel()
        LV1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        LV1.Columns.Add("Kode Dosen", 80, HorizontalAlignment.Right)
        LV1.Columns.Add("Nama Dosen", 180, HorizontalAlignment.Right)
        LV1.Columns.Add("Kode MataKuliah", 80, HorizontalAlignment.Right)
        LV1.Columns.Add("Matakuliah", 180, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai UAS", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai Hadir", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai UTS", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai Tugas", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai Akhir", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Nilai Huruf", 50, HorizontalAlignment.Right)
        LV1.Columns.Add("Keterangan", 50, HorizontalAlignment.Right)
        LV1.View = View.Details
        LV1.GridLines = True
        LV1.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = npm.Text
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(Kd_dosen.Text)
        Lst.SubItems.Add(nama_dosen.Text)
        Lst.SubItems.Add(kd_makul.Text)
        Lst.SubItems.Add(makul.Text)
        Lst.SubItems.Add(hadir.Text)
        Lst.SubItems.Add(uas.Text)
        Lst.SubItems.Add(tugas.Text)
        Lst.SubItems.Add(uts.Text)
        Lst.SubItems.Add(akhir.Text)
        Lst.SubItems.Add(Huruf.Text)
        Lst.SubItems.Add(keterangan.Text)
        LV1.Items.Add(Lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        npm.Items.Add("12110071")
        npm.Items.Add("12120019")
        npm.Items.Add("12130017")
        Kd_dosen.Items.Add("2011001")
        Kd_dosen.Items.Add("2011002")
        Kd_dosen.Items.Add("2011003")
        kd_makul.Items.Add("VB1213")
        kd_makul.Items.Add("BD1213")
        kd_makul.Items.Add("SD1213")

        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 "12110071"
                nama.Text = "Ihsanuddin"
            Case "12120019"
                nama.Text = "Ratna Kumala"
            Case Else
                nama.Text = "Denny Kurniawan"
        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 = "Mesran S.Kom M.Kom"
            Case "2011002"
                nama_dosen.Text = "Pilipus S.Kom"
            Case "2011003"
                nama_dosen.Text = "Alex Rikki S.Kom M.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 "VB1213"
                makul.Text = "Visual Basic"
            Case "DB1213"
                makul.Text = "Data Base"
            Case "SD1213"
                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
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jenjang.Text = "S1"
        ElseIf x = "12" Then
            jenjang.Text = "D3"
        ElseIf x = "13" Then
            jenjang.Text = "D1"

        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

    Private Sub simpan_LV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_LV.Click
        IsiTabel()
        npm.Text = ""
        nama.Text = ""
        Kd_dosen.Text = ""
        nama_dosen.Text = ""
        makul.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        hadir.Text = ""
        uts.Text = ""
        uas.Text = ""
        tugas.Text = ""
        akhir.Text = ""
        Huruf.Text = ""
        keterangan.Text = ""
    End Sub
End Class

Posted by at No comments:

Saturday, December 7, 2013

ABOUT MESRAN.NET

mesran.net


Assalamualaikum Wr.Wb

Hai teman",,
Dalam kesempatan kali ini saya mau recommended kan website yang berbau dengan pemrograman, dimana mesran.net memberikan kepada para pembacanya pelajaran yang sangat menarik untuk di ikuti dan di pelajari. Bagi kamu yang suka dengan Pemrograman, kamu bisa mempelajarinya semua disini,,, karena ehh karena, di mesran.net pembelajaran tentang program cukup LENGKAP loohh,, di dalam nya ada :
VB.NET
PASCAL
ALGORITMA
C++
bagi kamu yang belum bergabung dengan mesran.net buruan,,, ingat yea bagi KAMU yang SUKA dengan PEMROGRAMAN masuk aja ke situs ini dijamin deh kamu akan dapat apa yang kamu cari di situs ini,,, beliau adalah dosen saya di STMIK BUDIDARMA, saya cukup bangga dapat belajar dengannya,, uraian darinya gak rumit dan gak berbelit-belit,, ada lagi ni teman, didalamnya juga ada cerita lucu, kejadian di dalam kampus,, bagi kamu, kamu, dan kamu, jangan tunggu lagi yea,,, God Luck Guys,,,,

Wassalam,,,
Posted by at No comments:
Labels:

Friday, November 15, 2013

Tugas Pemrograman Visual Studio

Ini adalah hasil dari projek yang di jalankan.


http://ihsanwestley4.blogspot.com/



Dan ini adalah cara atau jalan penegerjaannya. (rumusnya)



Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110071")
        npm.Items.Add("12120019")
        npm.Items.Add("12130017")
        Kd_dosen.Items.Add("2011001")
        Kd_dosen.Items.Add("2011002")
        Kd_dosen.Items.Add("2011003")
        kd_makul.Items.Add("VB1213")
        kd_makul.Items.Add("BD1213")
        kd_makul.Items.Add("SD1213")

        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 "12110071"
                nama.Text = "Ihsanuddin"
            Case "12120019"
                nama.Text = "Ratna Kumala"
            Case Else
                nama.Text = "Denny Kurniawan"
        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 = "Mesran S.Kom M.Kom"
            Case "2011002"
                nama_dosen.Text = "Rivalry S.Kom"
            Case "2011003"
                nama_dosen.Text = "Alex Rikki S.Kom M.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 "VB1213"
                makul.Text = "Visual Basic"
            Case "DB1213"
                makul.Text = "Data Base"
            Case "SD1213"
                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
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jenjang.Text = "S1"
        ElseIf x = "12" Then
            jenjang.Text = "D3"
        ElseIf x = "13" Then
            jenjang.Text = "D1"

        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

Posted by at No comments:
Labels:
Subscribe to: Posts (Atom)