Yuk,belajar konsep pemograman Visualbasic

Yuk,belajar konsep pemograman Visualbasic
1. Buatlah form seperti gambar dibawah ini.



2. Ketiklah listing sperti berikut ini :

Public Class Form1

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

        npm.Items.Add("12111000")

        npm.Items.Add("12111001")

        npm.Items.Add("12111011")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Green

        kdosen.Items.Add("01")

        kdosen.Items.Add("02")

        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")

        kode_mt.Items.Add("002")

        kode_mt.Items.Add("003")

        nk.Items.Add("50")

        nk.Items.Add("60")

        nk.Items.Add("70")

        nk.Items.Add("80")

        nk.Items.Add("90")

        nt.Items.Add("50")

        nt.Items.Add("60")

        nt.Items.Add("70")

        nt.Items.Add("80")

        nt.Items.Add("90")

        nuts.Items.Add("50")

        nuts.Items.Add("60")

        nuts.Items.Add("70")

        nuts.Items.Add("80")

        nuts.Items.Add("90")

        nu.Items.Add("50")

        nu.Items.Add("60")

        nu.Items.Add("70")

        nu.Items.Add("80")

        nu.Items.Add("90")

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12111000"

                nama.Text = "Valentino"

                jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

            Case "12111001"

                nama.Text = "Pedrosa"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

            Case Else

                nama.Text = "Lorenzo"

                jenjang.Text = "D1"

                jurusan.Text = "teknik komputer"

        End Select

    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskdosen.SelectedIndexChanged

        If kdosen.Text = "01" Then

            ndosen.Text = "Mesran"

        ElseIf kdosen.Text = "02" Then

            ndosen.Text = "Toni Limbong"

        ElseIf kdosen.Text = "03" Then

            ndosen.Text = "Sinar Sinurat"

        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles hapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kdosen.Text = ""

        ndosen.Text = ""

        kode_mt.Text = ""

        mkuliah.Text = ""

        nk.Text = ""

        nt.Text = ""

        nu.Text = ""

        nu.Text = ""

        nakhir.Text = ""

        nhuruf.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskode_mt.SelectedIndexChanged

        Select Case kode_mt.Text

            Case "001"

                mkuliah.Text = "visuL Basic"

            Case "002"

                mkuliah.Text = "kalkulus"

            Case Else

                mkuliah.Text = "Matriks"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles proses.Click

        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nu.Text

        If nakhir.Text >= 80 Then

            nhuruf.Text = "A"

            keterangan.Text = "sangat memuaskan"

        ElseIf nakhir.Text >= 70 Then

            nhuruf.Text = "B"

            keterangan.Text = "memuaskan"

        ElseIf nakhir.Text >= 60 Then

            nhuruf.Text = "C"

            keterangan.Text = "cukup memuaskan"

        ElseIf nakhir.Text >= 50 Then

            nhuruf.Text = "D"

            keterangan.Text = " buruk"

        Else

            nhuruf.Text = "E"

            keterangan.Text = "sangat buruk"

        End If

    End Sub

End Class

Tekan F5 maka hasilnya akan seperti dibawah ini !!!

=> SELAMAT MENCOBA.

Kuis Pak Mesran

soal 1

LISTING PROGRAM

Public Class Form1

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

        KP.Items.Add("TOK-MED-100")

        KP.Items.Add("PAB-BEL-101")

        KP.Items.Add("SWA-BEL-102")

        KP.Items.Add("PAB-MED-103")

        KP.Items.Add("RUM-MED-104")

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(KP.Text, 3)

       

        If x = "100" Then

            Nama.Text = "Muhammad Ardianto"

        ElseIf x = "101" Then

            Nama.Text = "Jekson Sinaga"

        ElseIf x = "102" Then

            Nama.Text = "Triani Arista"

        ElseIf x = "103" Then

            Nama.Text = "Aldyan"

        End If

        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then

            HargaM3.Text = 500

            BBeban.Text = 250000

            Tipe.Text = "Pabrik"

        ElseIf x = "TOK" Then

            HargaM3.Text = 500

            BBeban.Text = 25000

            Tipe.Text = "Toko"

        ElseIf x = "RUM" Then

            HargaM3.Text = 500

            BBeban.Text = 10000

            Tipe.Text = "Rumah"

        ElseIf x = "SWA" Then

            HargaM3.Text = 200

            BBeban.Text = 15000

            Tipe.Text = "Swalayan"

        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)

        If x = "MED" Then

            Daerah.Text = "Medan"

        ElseIf x = "BEL" Then

            Daerah.Text = "Belawan"

        End If

    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress

        If Asc(e.KeyChar) = 13 Then

            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)

            Pajak.Text = 0.01 * TTagihan.Text

            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)

        End If

    End Sub

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

        End

    End Sub

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

        KP.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        TTagihan.Text = ""

        HargaM3.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

        Pemakaian.Text = ""

        Daerah.Text = ""

        BBeban.Text = ""

    End Sub

End Class

LISTING PROGRAM

Public Class Form1

    Sub buatTabel()

        LV.Columns.Add("NIK", 150, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA KARYAWAN", 150, HorizontalAlignment.Center)

        LV.Columns.Add("JABATAN", 150, HorizontalAlignment.Center)

        LV.Columns.Add("GAJI POKOK", 150, HorizontalAlignment.Center)

        LV.Columns.Add("STATUS", 150, HorizontalAlignment.Center)

        LV.Columns.Add("TUNJANGAN keluarga", 150, HorizontalAlignment.Center)

        LV.Columns.Add("PAJAK", 150, HorizontalAlignment.Center)

        LV.Columns.Add("TOTAL GAJI", 150, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = NIK.Text

        Lst.SubItems.Add(nama.Text)

        Lst.SubItems.Add(jabatan.Text)

        Lst.SubItems.Add(gaji.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(tunjangankeluarga.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(totalgaji.Text)

        LV.Items.Add(Lst)

    End Sub

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

        buatTabel()

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("GOL A")

        jabatan.Items.Add("GOL B")

        jabatan.Items.Add("GOL C")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "GOL A" : gaji.Text = 2500000

            Case "GOL B" : gaji.Text = 3500000

            Case "GOL C" : gaji.Text = 4500000

        End Select

        pajak.Text = 0.1 * gaji.Text

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "001" : nama.Text = "Vivi"

            Case "002" : nama.Text = "Agus"

            Case "003" : nama.Text = "Nova"

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah" : tunjangankeluarga.Text = 0.5 * gaji.Text

            Case "Tidak Menikah" : tunjangankeluarga.Text = 0

        End Select

    End Sub

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

        totalgaji.Text = Val(gaji.Text) - Val(pajak.Text) + Val(tunjangankeluarga.Text)