Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Tugas Belajar Bahasa Pemograman

Pada tutorial kali ini, kita bahas bersama contoh program visual basic. Langkah-langkah nya sbb:

1. Buka Microsoft Visual Studio

2. Buka New>>Project

3. Beri nama project anda pada name, kemudian klik ok

4. Setelah itu maka akan keluar From1 di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata pilih pada proporties.

  5.Listing Program dibawah ini :

Public Class Form3


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

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110504")
        npm.Items.Add("12110647")

        kodedosen.Items.Add("001")
        kodedosen.Items.Add("002")

        kmatakuliah.Items.Add("111")
        kmatakuliah.Items.Add("222")



        Dim i As Integer
        For i = 100 To 1 Step -1
            nk.Items.Add(i)
            nt.Items.Add(i)
            nuts.Items.Add(i)
            nuas.Items.Add(i)
        Next
    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.text
            Case Is = "12110504"
                nama.Text = "Shandora Raniwati Siregar"
                Jenjang.Text = "S1"
                jurusan.Text = "Teknik Informatika"

            Case Is = "12110647"
                nama.Text = "Florida situmorang"
                Jenjang.Text = "s1"
                jurusan.Text = "Teknik Informatika"

        End Select
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case Is = "001"
                nd.Text = "Kenedi Tampubolon S.Si"
            Case Is = "002"
                nd.Text = " Sinar Sinurat S.T, M.kom"
        End Select
    End Sub

    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
        Select Case kmatakuliah.Text
            Case Is = "111"
                matakuliah.Text = " Matriks  Dan LInier"
            Case Is = "222"
                matakuliah.Text = "Matematika diskrit"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        nak.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nuts.Text + 0.45 * nuas.Text

        If nak.Text >= 80 Then
            nhu.Text = "A"
            ket.Text = "Lulus"
        ElseIf nak.Text >= 70 Then
            nhu.Text = "B"
            ket.Text = " Lulus"
        ElseIf nak.Text >= 60 Then
            nhu.Text = "C"
            ket.Text = "Lulus"
        ElseIf nak.Text >= 50 Then
            nhu.Text = "D"
            ket.Text = "Tidak Lulus"
        Else
            nhu.Text = "E"
            ket.Text = "Tidak Lulus"
        End If
    End Sub
End Class