Tugas Pemograman Visual Basic

1. Buka Microsoft Visual Studio 2008

    Seperti gambar di bawah ini :

2. Klik => Create: Project
3. Ubah Project name dengan nama program yang akan anda buat dan klik OK

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

 

5. Kemudian, Desain Form tersebut dengan Label, TextBox, ComboBox, Button dan GroupBox, pada kotak Toolbox, yang ada di sebelah kiri Form anda.Seperti gambar di bawah ini: 

 

Dan jangan lupa menulis “name” sama “text”nya di properties yang ada di sebelah kanan layar anda

6.Sekarang kita masuk ke source kodenya

Public Class Form1

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

        Call addNPM()

        Call addkodedosen()

        Call addkodematakuliah()

    End Sub

    Sub addNPM()

        NPM.Items.Add("12110796")

        NPM.Items.Add("12110760")

        NPM.Items.Add("12110758")

    End Sub

    Sub addkodedosen()

        kodedosen.Items.Add("KBTI4305")

        kodedosen.Items.Add("KBTI4306")

    End Sub

    Sub addkodematakuliah()

        kodematakuliah.Items.Add("0075")

        kodematakuliah.Items.Add("0567")

    End Sub

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

        If NPM.Text = "12110796" Then

            Nama.Text = "AHMAD RIYAN DAYANI"

            jenjang.Text = "S1"

            Jurusan.Text = "Teknologi Informasi & Networking"

        ElseIf NPM.Text = "12110760" Then

            Nama.Text = "SAHRUL"

            jenjang.Text = "D3"

            Jurusan.Text = "Manajemen Informatika"

        ElseIf NPM.Text = "12110758" Then

            Nama.Text = "ARDIANSYAH"

            jenjang.Text = "D1"

            Jurusan.Text = "Komputerisasi Akuntansi"

        End If

    End Sub

    Private Sub kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged

        Select Case kodedosen.Text

            Case "KBTI4305"

                namadosen.Text = "Mesran,M.kom"

            Case "KBTI4306"

                namadosen.Text = "Yasir Hasan,S.kom"

        End Select

    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        If kodematakuliah.Text = "0075" Then

            matakuliah.Text = "Pemograman Visual"

        ElseIf kodematakuliah.Text = "0567" Then

            matakuliah.Text = "Sistem Operasi"

        End If

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        tn.Text = 0.1 * nt.Text + 0.15 * nm.Text + 0.35 * nuts.Text + 0.4 * nuas.Text

        If tn.Text >= 80 Then

            nh.Text = "A"

        ElseIf tn.Text >= 70 Then

            nh.Text = "B"

        ElseIf tn.Text >= 60 Then

            nh.Text = "C"

        ElseIf tn.Text >= 50 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

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

        kodedosen.Text = ""

        namadosen.Text = ""

        kodematakuliah.Text = ""

        matakuliah.Text = ""

        nt.Text = ""

        nm.Text = ""

        nuts.Text = ""

        nuas.Text = ""

        tn.Text = ""

        nh.Text = ""

        NPM.Focus()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Me.Close()

    End Sub

End Class

hasilnya:

 

Catatan :

1.Nama, Jenjang, dan Jurusan akan muncul saat anda memilih NPM

2.Nama Dosen akan muncul saat anda memilih Kode Dosen

3.Mata kuliah akan muncul saat anda memilih Kode Mata Kuliah

3.Nilai Mid, Nilai Tugas, Nilai UTS, dan Nilai UAS anda input sendiri

4.kemudian klik proses maka Total Nilai dan Nilai Huruf akan muncul.

Tweet

Subscribe to receive free email updates: