mencari nilai mahasiswa

http://www.mesran.blogspot.com/search/label/Pemrograman%20Visual%20Basic%20Net


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVale As System.EventArgs) Handles MyBase.Load
        CBNPM.Items.Add("12110714")
        CBNPM.Items.Add("12110407")
        CBNPM.Items.Add("12110082")

        CBKODES.Items.Add("MS001")
        CBKODES.Items.Add("PL002")
        CBKODES.Items.Add("TN003")

        CBKOMAKUL.Items.Add("PV001")
        CBKOMAKUL.Items.Add("A0002")
        CBKOMAKUL.Items.Add("SBD003")

        Dim X As Integer
        For X = 100 To 1 Step -1
            CBHADIR.Items.Add(X)
            CBTUGAS.Items.Add(X)
            CBUTS.Items.Add(X)
            CBUAS.Items.Add(X)

        Next X
    End Sub

    Private Sub CBNPM_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCBNPM.SelectedIndexChanged
        Select Case CBNPM.Text
            Case "12110714"
                TBNAMA.Text = "DEDY HERMAWAN"
                JURUSAN.Text = "TEKNIK INFORMATIKA"
            Case "12110407"
                TBNAMA.Text = "AHMAD FAUZI LINGGA"
                JURUSAN.Text = "SISTEM INFORMASI"
            Case "12110082"
                TBNAMA.Text = "NURFATIAH NASUTION"
                JURUSAN.Text = "TEKNIK INFORMATIKA"

        End Select
        Dim X As String
        X = Microsoft.VisualBasic.Right(NPM.Text, 2)
        If CBNPM.Text = "12110602" Then
            JENJANG.Text = "S1"
        ElseIf CBNPM.Text = "12110407" Then
            JENJANG.Text = "S1"
        ElseIf CBNPM.Text = "12110082" Then
            JENJANG.Text = "D3"
        End If
    End Sub

    Private Sub CBKODES_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCBKODES.SelectedIndexChanged
        Select Case CBKODES.Text
            Case "MS001"
                DOSEN.Text = "MESRAN M.KOM"
            Case "PL002"
                DOSEN.Text = "PRISTIWANTO S.KOM"
            Case "TN003"
                DOSEN.Text = "YASIR HASAN S.KOM"

        End Select
    End Sub

    Private Sub CBKOMAKUL_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesCBKOMAKUL.SelectedIndexChanged
        Select Case CBKOMAKUL.Text
            Case "PV001"
                MATAKULIAH.Text = "PROGRAM VISUAL"
            Case "A0002"
                MATAKULIAH.Text = "KOMUNIKASI DATA"
            Case "SBD003"
                MATAKULIAH.Text = "SISTEM OPERASI"


        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 * CBHADIR.Text + 0.15 * CBTUGAS.Text + 0.35 * CBUTS.Text + 0.45 * CBUAS.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"
        Else
            HURUF.Text = "E"

        End If
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        CBNPM.Text = ""
        TBNAMA.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        DOSEN.Text = ""
        CBKODES.Text = ""
        CBNPM.Text = ""
        CBTUGAS.Text = ""
        CBNPM.Text = ""
        CBUTS.Text = ""
        CBUAS.Text = ""
        CBHADIR.Text = ""
        CBKOMAKUL.Text = ""
        MATAKULIAH.Text = ""
        KETERANGAN.Text = ""
        HURUF.Text = ""
        AKHIR.Text = ""
    End Sub

End Clas



Komentar

Posting Komentar

Postingan populer dari blog ini

Menghapus data Pada Listview

Gambar
http://www.mesran.blogspot.com/ Class Form1     Sub buattabel()         LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)         LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)         LV.View = View.Details         LV.GridLines = True         LV.FullRowSelect = True     End Sub     Sub isitabel()         Dim lst As New ListViewItem         lst.Text = NPM.Text         lst.SubItems.Add(Nama.Text)         LV.Items.Add(lst)     End Sub     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As S...
Baca selengkapnya

PROGRAM PEMBAYARAN LISTRIK DENGAN VB NET

Gambar
http://www.mesran.blogspot.com Public Class Form1        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim x As String         No_urut.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)         x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)         If x = "MED" Then             daerah.Text = "MEDAN"             pajak.Text = 0.015         ElseIf x = "BEL" Then             daerah.Text = "BELAWAN"             pajak.Text = 0.015         ElseIf x = "TEM" Then             daerah.Text = "AKSARA"             pajak.Text...
Baca selengkapnya

ENTAH SIAPA YANG TAHU??

Gambar
ENTAH SIAPA YANG TAHU?? Dalam rintihan lelakaq sasak sering aku bercerita Tentang langit jingga, tentang gunung yang berdiri megah Ditanah yang tak bernama.. Baru sekali aku menemukanya… Dulu sebelum aku tidur nenekku sering bercerita   entah tentang cerita raja-raja sampai silsilah keluarga sebagi penghantar tidur malamku Tapi .. tak pernah tentang tanah ini, Di tanahku daun berguguran hanya seperempat musim saja Selebihnya daun-daun hijau sesekali jatuh namun menjadi humus Ber re_inkarnasi menjadi daun-daun baru atau sebagai ayah untuk daun-daun yang lama. Dua batang bunga melati maasih menyulam hidup di dahan pepohonan tua Entah sampai kapan,, ? Seolah tak punya harapan.. Sering aku berdiskusi dengan angin malam Menikmati hembusan angin yang Nampak mulai tak damai,, Tak juga dingin Tak sedamai gendongan inaq dikala bayi, tak sedingin pelukan mamiq dikala terik..? Kadang aku tersenyum sendiri,, mengapa aku hidup disini,, Coba mengelana bagai raja pejanggik dalam dongeng Apa un...
Baca selengkapnya