Yuk,, belajar Konsep Pemrograman Visual Basic

Yuk,, belajar Konsep Pemrograman Visual Basic:

By :     Melpin Hutauruk 
    

1.      Buatlah Form seperti gambar dibawah ini:

      

2.      Ketiklah listing seperti berikut ini:

Public Class Form1

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
        Select Case Npm.Text
            Case "12110161"
                Nama.Text = "Melpin Hutauruk"
                Jurusan.Text = "Teknik Informatika"
                Jenjang.Text = "STRATA I"
            Case "12110646"
                Nama.Text = "Anisah Harahap"
                Jenjang.Text = " STRATA I"
                Jurusan.Text = "Sistem Informasi"
            Case "12110564"
                Nama.Text = "Lista Simanjuntak"
                Jenjang.Text = "DIPLOMA III"
                Jurusan.Text = " Manajemen Informatika"
            Case Else
                Nama.Text = "ELISABETH "
        End Select
    End Sub

Private Sub Kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_dosen.SelectedIndexChanged
    Select Case Kode_dosen.Text
        Case "111"
            Nama_dosen.Text = "Mesran, S.Kom, M.Kom"
        Case "121"
            Nama_dosen.Text = "Yasir Hasan, S.Kom"
        Case "221"
            Nama_dosen.Text = "Sinar Sinurat, ST, M.Kom"
        Case Else
            Nama_dosen.Text = "Sony Bahagia Sinaga, M.Kom"
    End Select
End Sub

Private Sub Kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_matakuliah.SelectedIndexChanged
    Select Case Kode_matakuliah.Text
        Case "001"
            Nama_matakuliah.Text = "PEMOGRAMAN VISUAL"
        Case "002"
            Nama_matakuliah.Text = "SISTEM BASIS DATA"
        Case "003"
            Nama_matakuliah.Text = "STRUKTUR DATA"
        Case Else
            Nama_matakuliah.Text = "KOMUNIKASI DATA"
    End Select
End Sub

Private Sub Nilai_kehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nilai_kehadiran.SelectedIndexChanged
    Dim i As Integer
    For i = 100 To 1 Step -1
        Nilai_kehadiran.Items.Add(i)
    Next i

End Sub

Private Sub N_Tugas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N_Tugas.SelectedIndexChanged
    Dim i As Integer
    For i = 1 To 100
        N_Tugas.Items.Add(i)
    Next i

End Sub

Private Sub N_UTS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N_UTS.SelectedIndexChanged
    Dim i As Integer
    For i = 1 To 100
        N_UTS.Items.Add(i)
    Next i
End Sub

Private Sub N_UAS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N_UAS.SelectedIndexChanged
    Dim i As Integer
    For i = 1 To 100
        N_UAS.Items.Add(i)
    Next
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 = ""
    Nama_dosen.Text = ""
    Nama_matakuliah.Text = ""
    NA.Text = ""
    NH.Text = ""
    Keterangan.Text = ""
    N_UTS.Text = ""
    N_UAS.Text = ""
    N_Tugas.Text = ""
    Kode_matakuliah.Text = ""
    Kode_dosen.Text = ""
    Nilai_kehadiran.Text = ""

End Sub

Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        NA.Text = 3.0 * N_UTS.Text + 0.45 * N_UAS.Text + 0.1 * Nilai_kehadiran.Text + 0.15 * N_Tugas.Text

        If NA.Text >= 50 Then
            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAL"
        End If

        If NA.Text >= 80 Then
            NH.Text = "A"
        ElseIf NA.Text >= 70 Then
            NH.Text = "B"
        ElseIf NA.Text >= 60 Then
            NH.Text = "C"
        ElseIf NA.Text >= 50 Then
            NH.Text = "D"
        Else
            NH.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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("12110161")
        Npm.Items.Add("12110646")
        Npm.Items.Add("12110564")

    Kode_dosen.Items.Add("111")
    Kode_dosen.Items.Add("121")
    Kode_dosen.Items.Add("221")
    Kode_dosen.Items.Add("223")

    Kode_matakuliah.Items.Add("001")
    Kode_matakuliah.Items.Add("002")
    Kode_matakuliah.Items.Add("003")
    Kode_matakuliah.Items.Add("004")


    Dim i As Integer
    For i = 1 To 100
        N_UTS.Items.Add(i)
    Next i
    i = 100
    For i = 1 To 100
        N_UAS.Items.Add(i)
    Next
    Do While i >= 1
        N_Tugas.Items.Add(i)
        i = i - 1
    Loop
    For i = 100 To 1 Step -1
        Nilai_kehadiran.Items.Add(i)
    Next i
End Sub
End Class

3.     Tekan F5/ Debug pilih start debuging untuk melihat hasil , maka hasilnya seperti gambar                  dibawah ini :

                  

            Selamat mencoba..... bagi anda para pembaca, semoga artikel ini bermanfaat . Kritik dan saran anda sangat saya hargai . Terimakasih......:)