Sabtu, 16 November 2013

Membuat Form Nilai Mahasiswa

Listing Program :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110982")
        NPM.Items.Add("12110040")
        NPM.Items.Add("12113456")
        NPM.Items.Add("12118890")
        NPM.Items.Add("12113435")

        KDosen.Items.Add("D001")
        KDosen.Items.Add("D002")
        KDosen.Items.Add("D003")
        KDosen.Items.Add("D004")
        KDosen.Items.Add("D005")

        Kodematkul.Items.Add("M001")
        Kodematkul.Items.Add("M002")
        Kodematkul.Items.Add("M003")
        Kodematkul.Items.Add("M004")
        Kodematkul.Items.Add("M005")

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

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