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 From3 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("12110647")
        npm.Items.Add("12110989")
        npm.Items.Add("12110927")

        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 = "12110647"
                nama.Text = "florida situmorang"
                jenjang.text = "S1"
                jurusan.Text = "Teknik Informatika"

            Case Is = "12110989"
                nama.Text = "Yulia Hannelore"
                Jenjang.text = "s1"
                jurusan.Text = "Teknik Informatika"

            Case Is = "12110927"
                nama.Text = "Emmy sihombing"
                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 ("001")
                nd.Text = "Tonni Limbong S.kom, M.kom"
            Case ("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 = " Sistem basis data"
            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 = Val(0.1 * nk.Text) + Val(0.15 * nt.Text) + Val(0.3 * nuts.Text) + Val(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