Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tugas Belajar Bahasa Pemograman

1. Desainlah Formnya seperti gambar di bawah ini :

2. ketiklah listing berikut ini :

Public Class Form_Nilai

    Private Sub Form_Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeDosen.Items.Add("001312")
        KodeDosen.Items.Add("001654")
        KodeMataKuliah.Items.Add("001")
        KodeMataKuliah.Items.Add("002")
        NPM.Items.Add("12110639")
        NPM.Items.Add("12116780")
        NPM.Items.Add("12113412")
        Dim i As Integer
        For i = 1 To 100
            NilaiKehadiran.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiTugas.Items.Add(i)
        Next i
        i = 100
        For i = 1 To 100
            NilaiUTS.Items.Add(i)
        Next i
        For i = 1 To 100
            NilaiUAS.Items.Add(i)
        Next i
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NPM.Text = ""
        Nama.Text = " "
        Jenjang.Text = ""
        Jurusan.Text = ""
        NamaDosen.Text = ""
        MataKuliah.Text = " "
        KodeMataKuliah.Text = ""
        KodeDosen.Text = ""
        Keterangan.Text = ""
        NilaiKehadiran.Text = " "
        NilaiTugas.Text = " "
        NilaiUTS.Text = " "
        NilaiAkhir.Text = " "
        NilaiUAS.Text = " "
        NilaiHuruf.Text = ""
    End Sub

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

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NilaiAkhir.Text = 0.1 * NilaiKehadiran.Text + 0.15 * NilaiTugas.Text + 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text
        If NilaiAkhir.Text >= 50 Then
            Keterangan.Text = "Anda Lulus"
        Else
            Keterangan.Text = "Anda Gagal"
        End If
        If NilaiAkhir.Text >= 80 Then
            NilaiHuruf.Text = "A"
        ElseIf NilaiAkhir.Text >= 70 Then
            NilaiHuruf.Text = "B"
        ElseIf NilaiAkhir.Text >= 60 Then
            NilaiHuruf.Text = "C"
        ElseIf NilaiAkhir.Text >= 50 Then
            NilaiHuruf.Text = "D"
        Else
            NilaiHuruf.Text = "E"
        End If
    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
        Dim z As String
        z = KodeDosen.Text
        If z = "001312" Then
            NamaDosen.Text = "Mesran S.Kom,M.Kom"
        ElseIf z = "001654" Then
            NamaDosen.Text = "Sinar Sinurat, ST, M.Kom"
        End If
    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged
        Dim p As String
        p = KodeMataKuliah.Text
        If p = "001" Then
            MataKuliah.Text = "Pemograman Visual Basic"
        ElseIf p = "002" Then
            MataKuliah.Text = "Matematika Diskrit"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Dim a As String
        a = NPM.Text
        If NPM.Text = "12110639" Then
            Nama.Text = "Sondang R. Sitohang"
        ElseIf NPM.Text = "12116780" Then
            Nama.Text = "Yanti"
        ElseIf NPM.Text = "12113412" Then
            Nama.Text = "Murni"
        End If
    End Sub
End Class

3. Tekan F5, dan hasilnya seperti gambar dibawah ini :

Sekian postingan tugas saya ini....