Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

TugasBelajar 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 From di project kita, kemudian desain From tersebut dengan menggunakan Label, Textbox, Combobox, dan Botton yang dapat kata pilih pada proporties seperti gambar dibawah ini :

 5. Ketiklah listing program berikut:

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("1198")
        npm.Items.Add("1176")
        npm.Items.Add("1156")

        Kodedosen.Items.Add("001")
        Kodedosen.Items.Add("002")
        Kodedosen.Items.Add("003")


        kodematakuliah.Items.Add("aa1")
        kodematakuliah.Items.Add("aa2")
        kodematakuliah.Items.Add("aa3")


        BEBEK()
        sate()
        copy()
        pecel()
    End Sub

    Sub BEBEK()
        Dim i As Integer

        i = 100
        While i >= 1
            kehadiran.Items.Add(i)
            i = i - 1
        End While
    End Sub

    Sub sate()
        Dim a As Integer
        a = 100
        While a >= 1
            tugas.Items.Add(a)
            a = a - 1
        End While
    End Sub

    Sub copy()
        Dim z As Integer
        z = 100
        While z >= 1
            uts.Items.Add(z)
            z = z - 1
        End While
    End Sub

    Sub pecel()
        Dim y As Integer
        y = 100
        While y >= 1
            uas.Items.Add(y)
            y = y - 1
        End While
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case ("1198")
                Nama.Text = "santi"
                Jenjang.Text = "S1"
                Jurusan.Text = "teknik informatika"
            Case ("1176")
                Nama.Text = "irwan"
                Jenjang.Text = "D3"
                Jurusan.Text = "manejemen informatika"
            Case ("1156")
                Nama.Text = "irma"
                Jenjang.Text = "S1"
                Jurusan.Text = "sistem informatika"

        End Select
    End Sub

    Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged
        Select Case Kodedosen.Text
            Case ("001")
                dosen.Text = "muhammad syarizal S.Kom, M.Kom"
            Case ("002")
                dosen.Text = "Paska Hasugian S.Kom, M.Kom"
            Case ("003")
                dosen.Text = "Kristian Siregar S.Kom,M.Kom"

        End Select
    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged
        Select Case kodematakuliah.Text
            Case ("aa1")
                matakuliah.Text = "PTI"
            Case ("aa2")
                matakuliah.Text = "IMK"
            Case ("aa3")
                matakuliah.Text = "HTML"


        End Select
    End Sub

    Private Sub akhir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles akhir.TextChanged

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        akhir.Text = Val(0.1 * kehadiran.Text) + Val(0.15 * tugas.Text) + Val(0.35 * uts.Text) + Val(0.45 * uas.Text)
        Dim i As String
        i = "GAGAL"
        If akhir.Text >= 50 Then i = "LULUS"
        Keterangan.Text = i
        udang()
    End Sub

    Sub udang()
      
        If akhir.Text >= 80 Then
            status.Text = "A"
        ElseIf akhir.Text >= 70 Then
            status.Text = "B"
        ElseIf akhir.Text >= 60 Then
            status.Text = "C"
        ElseIf akhir.Text >= 50 Then
            status.Text = "D"
        Else
            status.Text = "E"
        End If
    End Sub
    Sub batal()
        npm.Text = ""
        Nama.Text = ""
        Jurusan.Text = ""
        Jenjang.Text = ""
        Kodedosen.Text = ""
        kodematakuliah.Text = ""
        kehadiran.Text = ""
        tugas.Text = ""
        uts.Text = ""
        uas.Text = ""
        akhir.Text = ""
        Keterangan.Text = ""
        matakuliah.Text = ""
        status.Text = ""
        dosen.Text = ""

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        batal()

    End Sub
End Class

 6. setelah itu tekan F5 dan akan tampil hasil programnya seperti gambar di bawah ini :

 

Sekian postingan saya, mudah-mudahan berguna untuk kita semua.
Terimakasih.....!!!