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:

 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        npm.Items.Add("12110649")

        npm.Items.Add("12110504")

        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 = "12110649"

                nama.Text = "M.Triadi Syahputra"

                Jenjang.Text = "S1"

                jurusan.Text = "Teknik Informatika"

            Case Is = "12110504"

                nama.Text = "Shandora Siregar"

                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

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub

End Class

Selamat mencoba yaa Teman-teman.....