Contoh Progam Visual Basic 2008

Tugas : Belajar Bahasa Pemrograman

Pada tutorial kali ini, saya akan membuat satu contoh program Visual Basic 2008.
Langkah-langkahnya sebagai berikut :

1. Buka Microsoft Visual Studio 2008
2. Klik => Create: Project
3. Ubah Project name dengan Nama anda

4. Maka setelah itu akan muncul sebuah Form1 pada Project kita

5. Kemudian Desain Form tersebut dengan Label, TextBox, ComboBox, dan Button yang dapat kita pilih
    pada properties Toolbox, yang ada di sebelah kiri Form anda

Gambar Tampilan VB

6. Listing program

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        Nama.Text = ""

        NPM.Text = ""

        MataKuliah.Text = ""

        NamaDosen.Text = ""

        NilaiKehadiran.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        NilaiUAS.Text = ""

        NilaiAkhir.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KodeDosen.Text = ""

        KodeMataKuliah.Text = ""

        NIlaiHuruf.Text = ""

        Keterangan.Text = ""

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110574"

                Nama.Text = "Melly Fersi Fera"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case "12110741"

                Nama.Text = "Dinda Pratiwi"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

            Case "12110695"

                Nama.Text = "Siti Annisa"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

            Case "12110927"

                Nama.Text = "Emmy Christina Sihombing"

                Jenjang.Text = "S1"

                Jurusan.Text = "SI"

            Case "1202208"

                Nama.Text = "Lista Septriani Simanjuntak"

                Jenjang.Text = "D3"

                Jurusan.Text = "KA"

        End Select

    End Sub

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

        Dim i As Integer

        For i = 100 To 1 Step -1

            NilaiKehadiran.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiTugas.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUTS.Items.Add(i)

        Next

        For i = 100 To 1 Step -1

            NilaiUAS.Items.Add(i)

        Next i

        NPM.Items.Add("12110574")

        NPM.Items.Add("12110741")

        NPM.Items.Add("12110695")

        NPM.Items.Add("12110927")

        NPM.Items.Add("1202208")

        KodeMataKuliah.Items.Add("123")

        KodeMataKuliah.Items.Add("456")

        KodeMataKuliah.Items.Add("789")

        KodeMataKuliah.Items.Add("012")

        KodeDosen.Items.Add("012")

        KodeDosen.Items.Add("345")

        KodeDosen.Items.Add("678")

        KodeDosen.Items.Add("901")

        NilaiAkhir.Enabled = False

    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

        Select Case NilaiAkhir.Text

            Case Is >= 80

                NIlaiHuruf.Text = "A"

                Keterangan.Text = "LULUS"

            Case 70 To 79

                NIlaiHuruf.Text = "B"

                Keterangan.Text = "LULUS"

            Case 60 To 69

                NIlaiHuruf.Text = "C"

                Keterangan.Text = "GAGAL"

            Case 50 To 59

                NIlaiHuruf.Text = "D"

                Keterangan.Text = "GAGAL"

            Case Is <= 49

                NIlaiHuruf.Text = "E"

                Keterangan.Text = "GAGAL"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeMataKuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeMataKuliah.SelectedIndexChanged

        Select Case KodeMataKuliah.Text

            Case "123"

                MataKuliah.Text = "VB"

            Case "456"

                MataKuliah.Text = "Matriks"

            Case "789"

                MataKuliah.Text = "Struktur Data"

            Case "012"

                MataKuliah.Text = "SIMBAD"

        End Select

        NilaiAkhir.Enabled = False

    End Sub

    Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged

        Select Case KodeDosen.Text

            Case "012"

                NamaDosen.Text = "Mesran"

            Case "345"

                NamaDosen.Text = "Kennedi Tampubolon"

            Case "678"

                NamaDosen.Text = "Alex Rikki S."

            Case "901"

                NamaDosen.Text = "Rivalry K. Hondro"

        End Select

    End Sub

    Private Sub NilaiKehadiran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiKehadiran.SelectedIndexChanged

        

    End Sub

    Private Sub NilaiAkhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiAkhir.TextChanged

        

    End Sub

End Class

7. setelah selesai, tekan F5 atau Start Debugging untuk menjalankan programnya

Hasilnya :

Gambar VB setelah Selesai

• Nama, Jenjang, dan Jurusan akan muncul saat anda memilih NPM
• Nama Dosen akan muncul saat anda memilih Kode Dosen
• Mata kuliah akan muncul saat anda memilih Kode Mata Kuliah
• Nilai Kehadiran, Nilai Tugas, Nilai UTS, dan Nilai UAS ada pilih nilai angka terserah anda.
• kemudian klik proses maka Nilai Akhir, Nilai Huruf, dan Keterangan akan muncul

silahkan di coba ya teman. :)