LINK QUIZ

Sumber Gambar :  https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiaXb9pelOVD9ZzZDkRyXZywXu4qAMM__zzPcK2bTYZvxGcBehH3f5bdi7UfhMtKvIvgGUZrbL_LRnPHG2-WReaKzKZN7ljPZBN6r_lcJGhRGC_2cDI8Rjjct1k-PC3SqiIQZYwMfshULg/s1600/mesran+punya.jpg
Link ke : http://mesran.blogspot.com

Sumber Gambar : https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilLQwzAg5hN4td1GvxLlmQ1TVp5okGTc5ubr-qKS1H0BAeICu4CZ0wX9DNVkKY-LyRDfqg1o5o-Y06pdRFs6UzOOe2Wozkc4cUY7lZ6b-qsSwm3MSxzF6v74g9EXm60TXNA_zDKcz3XGk/s1600/budidarma+punya.jpg
Link ke : http://stmik-budidarma.ac.id

Gambar 3.

Sumber Gambar :  https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWw8zE_iONAbky9FG_4Zi6bQPcA5IzZ13t1mCQE5q_9tWRkyBspPx0v27cmq1ZFd9sziPhO2JAFHAqeJFs7RsucouTIQEOBrLBGjFVkeWR3dMfySzO0MfxQs3kO7FZM_Z_zUosYfLpOmE/s1600/mesrannet.jpg
Link ke : http://mesran.net

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Kasus Pemrograman Pemakaian Listrik

Public Class Form1

   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodepelanggan.Items.Add("TOK-MED-100")
        kodepelanggan.Items.Add("PAB-TEM-100")
        kodepelanggan.Items.Add("RUM-BEL-101")
        kodepelanggan.Items.Add("SWA-PAK-100")
    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
            totaltagihan.Text = (harga.Text * pemakaian.Text) + Val(biaya.Text)
        End If

        If Asc(e.KeyChar) = 13 Then
            pajak.Text = 0.01 * totaltagihan.Text
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biaya.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        If kodepelanggan.Text = "TOK-MED-100" Then
            nama.Text = "kiki lestari"
        ElseIf kodepelanggan.Text = "PAB-TEM-100" Then
            nama.Text = "siska wulandari"
        ElseIf kodepelanggan.Text = "RUM-BEL-101" Then
            nama.Text = "anto"
        ElseIf kodepelanggan.Text = "SWA-PAK-100" Then
            nama.Text = "toni"
        Else
            nama.Text = ""
        End If

        Dim x As String
        x = Mid(kodepelanggan.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "TOKO"
                biaya.Text = 150000
                harga.Text = 500
            Case "RUM"
                tipe.Text = "RUMAH"
                biaya.Text = 50000
                harga.Text = 200
            Case "SWA"
                tipe.Text = "SWALAYAN"
                biaya.Text = 400000
                harga.Text = 1500
            Case "PAB"
                tipe.Text = "PABRIK"
                biaya.Text = 1000000
                harga.Text = 10000
        End Select

        x = Mid(kodepelanggan.Text, 5, 3)
        Select Case x
            Case "MED"
                daerah.Text = "MEDAN"
            Case "BEL"
                daerah.Text = "BELAWAN"
            Case "AKS"
                daerah.Text = "AKSARA"
            Case "MEN"
                daerah.Text = "MARENDAL"
            Case "BIN"
                daerah.Text = "BINJAI"
            Case "LP"
                daerah.Text = "LUBUK PAKAM"

        End Select
    End Sub
End Class

Public Class Form1

   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodepelanggan.Items.Add("TOK-MED-100")
        kodepelanggan.Items.Add("PAB-TEM-100")
        kodepelanggan.Items.Add("RUM-BEL-101")
        kodepelanggan.Items.Add("SWA-PAK-100")
    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
            totaltagihan.Text = (harga.Text * pemakaian.Text) + Val(biaya.Text)
        End If

        If Asc(e.KeyChar) = 13 Then
            pajak.Text = 0.01 * totaltagihan.Text
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biaya.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        totaltagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodepelanggan.SelectedIndexChanged
        If kodepelanggan.Text = "TOK-MED-100" Then
            nama.Text = "kiki lestari"
        ElseIf kodepelanggan.Text = "PAB-TEM-100" Then
            nama.Text = "siska wulandari"
        ElseIf kodepelanggan.Text = "RUM-BEL-101" Then
            nama.Text = "anto"
        ElseIf kodepelanggan.Text = "SWA-PAK-100" Then
            nama.Text = "toni"
        Else
            nama.Text = ""
        End If

        Dim x As String
        x = Mid(kodepelanggan.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "TOKO"
                biaya.Text = 150000
                harga.Text = 500
            Case "RUM"
                tipe.Text = "RUMAH"
                biaya.Text = 50000
                harga.Text = 200
            Case "SWA"
                tipe.Text = "SWALAYAN"
                biaya.Text = 400000
                harga.Text = 1500
            Case "PAB"
                tipe.Text = "PABRIK"
                biaya.Text = 1000000
                harga.Text = 10000
        End Select

        x = Mid(kodepelanggan.Text, 5, 3)
        Select Case x
            Case "MED"
                daerah.Text = "MEDAN"
            Case "BEL"
                daerah.Text = "BELAWAN"
            Case "AKS"
                daerah.Text = "AKSARA"
            Case "MEN"
                daerah.Text = "MARENDAL"
            Case "BIN"
                daerah.Text = "BINJAI"
            Case "LP"
                daerah.Text = "LUBUK PAKAM"

        End Select
    End Sub
End Class