CONTOH PROGRAM INPUT NILAI MENGGUNAKAN VB.NET 2008

Public Class Form1



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


        NPM.Items.Add("13110708")
        NPM.Items.Add("13110708")
        NPM.Items.Add("13110709")
        NPM.Items.Add("13110710")
        NPM.Items.Add("13110711")
        NPM.Items.Add("13110712")



        MKULIAH.Items.Add("VISUAL BASIC")
        MKULIAH.Items.Add("KONSEP PEMOGRAMAN")
        MKULIAH.Items.Add("TRASFORMASI LINIER")
        MKULIAH.Items.Add("ARSITEKTUR KOMPUTER")
        MKULIAH.Items.Add("STRUKTUR DATA")
        MKULIAH.Items.Add("SISTEM BASIS DATA")
        MKULIAH.Items.Add("KOMUKASI DATA")
        MKULIAH.Items.Add("PRANGKAT LUNAK APLIKASI")




        LV.Columns.Add("NPM", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 70, HorizontalAlignment.Center)
        LV.Columns.Add("MKULIAH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("NUTS", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NUAS", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NANGKA", 70, HorizontalAlignment.Center)
        LV.Columns.Add("NHURUF", 70, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True




        Dim L As Integer
        For L = 100 To 1 Step -5


        Next
    End Sub

    Sub ISITABEL()

        Dim LIST As New ListViewItem
        LIST.Text = NPM.Text

        LIST.SubItems.Add(NAMA.Text)

        LIST.SubItems.Add(MKULIAH.Text)

        LIST.SubItems.Add(NUTS.Text)

        LIST.SubItems.Add(NUAS.Text)

        LIST.SubItems.Add(NANGKA.Text)


        LIST.SubItems.Add(NHURUF.Text)
        LV.Items.Add(LIST)



    End Sub



    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
   
        NANGKA.Text = Val(NUTS.Text) + Val(NUAS.Text)

        NHURUF.Text = Val(NUTS.Text) + (NUAS.Text)


        If NANGKA.Text >= 80 Then
            NHURUF.Text = "A"
        ElseIf NANGKA.Text >= 75 Then
            NHURUF.Text = "B+"
        ElseIf NANGKA.Text >= 70 Then
            NHURUF.Text = "B"
        ElseIf NANGKA.Text >= 69 Then
            NHURUF.Text = "C"





        End If
        MsgBox("WELCOME")

        KET.Text = "SELAMAT ANDA BERHASIL"
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        If NPM.Text = "13110708" Then
            NAMA.Text = "AAN ARSELA"

        ElseIf NPM.Text = "13110707" Then
            NAMA.Text = "AFRISAL"

        ElseIf NPM.Text = "13110709" Then
            NAMA.Text = "ULAN"

        ElseIf NPM.Text = "13110710" Then
            NAMA.Text = "ANDI"

        ElseIf NPM.Text = "13110711" Then
            NAMA.Text = "PUTRI"

        ElseIf NPM.Text = "13110712" Then
            NAMA.Text = "RIDWAN"

        End If
    End Sub

    Private Sub ISILIST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ISILIST.Click
        ISITABEL()

        NPM.Text = ""
        NAMA.Text = ""
        MKULIAH.Text = ""
        NUTS.Text = ""
        NUAS.Text = ""
        NANGKA.Text = ""
        NHURUF.Text = ""

    End Sub

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

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()

    End Sub

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



 
End Class

Semoga bermanfaat bagi teman2 semua..:)