Bahasa pemrograman Visual Basic

Belajar Bahasa Pemrograman

Langkah-langkahnya :

1. Buka program VB (Visual basic)

2. klik create:project

3.ubah project dengan nama anda

4. Maka setelah itu akan muncul form1 pada project kita

5. Desain form1 tersebut dengan Label, TextBox, Combobox, Button

6. Listing program

Public Class Form2

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

        NPM.Items.Add("12110677")

        NPM.Items.Add("12110678")

        NPM.Items.Add("12110679")

        NPM.Items.Add("12110680")

        kode_dosen.Items.Add("0711320")

        kode_dosen.Items.Add("0711321")

        kode_dosen.Items.Add("0711322")

        kode_dosen.Items.Add("0711323")

        kode_matakuliah.Items.Add("KBTI4302")

        kode_matakuliah.Items.Add("KBTI4305")

        kode_matakuliah.Items.Add("KBTI4301")

        kode_matakuliah.Items.Add("KBTI4303")

        Dim i As Integer

        For i = 1 To 100

            nilai_kehadiran.Items.Add(i)

            nilai_tugas.Items.Add(i)

            nilai_uts.Items.Add(i)

            nilai_uas.Items.Add(i)

        Next i

    End Sub

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

        Select Case NPM.Text

            Case "12110677"

                NAMA.Text = "Evi rida Maha"

            Case "12110678"

                NAMA.Text = "Nurvarida"

            Case "12110679"

                NAMA.Text = "Ade Fitriani"

            Case "12110680"

                NAMA.Text = "Nurainun"

        End Select

        Jenjang.Text = "S1"

        Jurusan.Text = "Teknik Informatika"

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        Select kode_dosen.Text

            Case "0711320"

                nama_dosen.Text = "Sony Bahagia S.Kom"

            Case "0711321"

                nama_dosen.Text = "Mesran,M.kom"

            Case "0711322"

                nama_dosen.Text = "piliphus tarigan S.T M.kom"

            Case "0711323"

                nama_dosen.Text = "Tonny Limbong S.kom 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 "KBTI4302"

                mata_kuliah.Text = "Komunikasi Data"

            Case "KBTI4305"

                mata_kuliah.Text = "Pemograman Visual"

            Case "KBTI4301"

                mata_kuliah.Text = "Arsitektur dan organisasi komputer"

            Case "KBTI4303"

                mata_kuliah.Text = "Sistem Basis Data"

        End Select

    End Sub

   

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        nilai_akhir.Text = nilai_kehadiran.Text * 0.15 + nilai_tugas.Text * 0.25 + nilai_uts.Text * 0.35 + nilai_uas.Text * 0.45

        If nilai_akhir.Text >= 80 Then

            nilai_huruf.Text = "A"

            keterangan.Text = "LULUS"

        ElseIf nilai_akhir.Text >= 70 Then

            nilai_huruf.Text = "B"

            keterangan.Text = "LULUS"

        ElseIf nilai_akhir.Text >= 60 Then

            nilai_huruf.Text = "C"

            keterangan.Text = "LULUS"

        ElseIf nilai_akhir.Text >= 50 Then

            nilai_huruf.Text = "D"

            keterangan.Text = "GAGAL"

        Else

            nilai_huruf.Text = "E"

            keterangan.Text = "GAGAL"

        End If

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

        kode_dosen.Text = ""

        nama_dosen.Text = ""

        kode_matakuliah.Text = ""

        mata_kuliah.Text = ""

        nilai_kehadiran.Text = ""

        nilai_tugas.Text = ""

        nilai_uts.Text = ""

        nilai_uas.Text = ""

        nilai_akhir.Text = ""

        nilai_huruf.Text = ""

        keterangan.Text = ""

    End Sub

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

        End

    End Sub

End Class

7. Setelah dijalankan :

silahkan di coba ya teman :)