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

SOAL 1 :  Buatlah program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Listing Program

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("TERITORI PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA /KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN INI", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JUMLAH PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL PEMBAYARAN", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Area.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(PBL.Text)

        lst.SubItems.Add(PBI.Text)

        lst.SubItems.Add(JP.Text)

        lst.SubItems.Add(TT.Text)

        lst.SubItems.Add(PT.Text)

        lst.SubItems.Add(TP.Text)

        Lv.Items.Add(lst)

    End Sub

    Sub Kosongkan()

        Kode.Text = ""

        Area.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        PBL.Clear()

        PBI.Clear()

        JP.Clear()

        TT.Clear()

        PT.Clear()

        TP.Clear()

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Area.Focus()

        End If

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Tipe.Focus()

        End If

    End Sub

    Private Sub Area_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area.SelectedIndexChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Biaya.Focus()

        End If

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        If Tipe.Text = "TOK" Then

            Biaya.Text = "150000"

            Harga.Text = "500"

        ElseIf Tipe.Text = "RUM" Then

            Biaya.Text = "50000"

            Harga.Text = "200"

        ElseIf Tipe.Text = "SWA" Then

            Biaya.Text = "400000"

            Harga.Text = "1500"

        ElseIf Tipe.Text = "PAB" Then

            Biaya.Text = "1000000"

            Harga.Text = "10000"

        End If

    End Sub

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

        Area.Items.Add("MED")

        Area.Items.Add("BEL")

        Area.Items.Add("TEM")

        Area.Items.Add("MAR")

        Area.Items.Add("BIN")

        Area.Items.Add("PAK")

       

        Tipe.Items.Add("TOK")

        Tipe.Items.Add("RUM")

        Tipe.Items.Add("SWA")

        Tipe.Items.Add("PAB")

        Biaya.Items.Add("150000")

        Biaya.Items.Add("50000")

        Biaya.Items.Add("400000")

        Biaya.Items.Add("1000000")

        Harga.Items.Add("500")

        Harga.Items.Add("200")

        Harga.Items.Add("1500")

        Harga.Items.Add("10000")

        Dim ID_1 As String

        Dim ID_2 As Integer

        ID_1 = ("PAB-PAK-")

        For ID_2 = 1 To 100

            Kode.Items.Add(item:=ID_1 & (ID_2))

        Next

        BuatTabel()

    End Sub

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

        If e.KeyChar = Chr(13) Then

            PBI.Focus()

        End If

    End Sub

    Private Sub PBL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PBL.TextChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            JP.Focus()

            JP.Text = PBI.Text - PBL.Text

        End If

    End Sub

    Private Sub PBI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PBI.TextChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            TT.Focus()

            TT.Text = Biaya.Text + Harga.Text * JP.Text

        End If

    End Sub

    Private Sub JP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JP.TextChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            PT.Focus()

            PT.Text = 0.015 * TT.Text

        End If

    End Sub

    Private Sub TT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TT.TextChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            PT.Focus()

            TP.Text = Val(TT.Text) + Val(PT.Text)

        End If

    End Sub

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

        Isitabel()

        Kosongkan()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call Kosongkan()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Kosongkan()

    End Sub

End Class

 

 

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai       :   ?
Gol        :   ?
Gaji        :  
Pajak        :
Pinjaman    :   ?
Gaji Bersih    :
--------------------------------------------

Proses
    Gol=IIIA maka Gaji = 1500000
    Gol=IIIB maka Gaji = 2500000
    Gol=IIIC maka Gaji = 3500000
   
    Pajak = 15% dari Gaji
    Gaji Bersih  = Gaji  - Pinjaman  - Gaji Bersih

Listing Program

 Public Class Form1

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

        Golongan.Items.Add("IIIA")

        Golongan.Items.Add("IIIB")

        Golongan.Items.Add("IIIC")

        Gaji.Items.Add("1500000")

        Gaji.Items.Add("2500000")

        Gaji.Items.Add("3500000")

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Golongan.Focus()

        End If

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Pinjaman.Focus()

            Pajak.Text = 0.15 * Gaji.Text

        End If

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged

        Select Case Golongan.Text

            Case "IIIA" : Gaji.Text = "1500000"

            Case "IIIB" : Gaji.Text = "2500000"

            Case "IIIC" : Gaji.Text = "3500000"

        End Select

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Gajibersih.Text = Gaji.Text - Pinjaman.Text - Pajak.Text

        End If

    End Sub

    Private Sub Gaji_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gaji.SelectedIndexChanged

        Pajak.Text = 0.015 * Gaji.Text

    End Sub

End Class

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("TERITORI PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA /KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN INI", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JUMLAH PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL PEMBAYARAN", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Area.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(PBL.Text)

        lst.SubItems.Add(PBI.Text)

        lst.SubItems.Add(JP.Text)

        lst.SubItems.Add(TT.Text)

        lst.SubItems.Add(PT.Text)

        lst.SubItems.Add(TP.Text)

        Lv.Items.Add(lst)

    End Sub

    Sub Kosongkan()

        Kode.Text = ""

        Area.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        PBL.Clear()

        PBI.Clear()

        JP.Clear()

        TT.Clear()

        PT.Clear()

        TP.Clear()

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Area.Focus()

        End If

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Tipe.Focus()

        End If

    End Sub

    Private Sub Area_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area.SelectedIndexChanged

    End Sub

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

        If e.KeyChar = Chr(13) Then

            Biaya.Focus()

        End If

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        If Tipe.Text = "TOK" Then

            Biaya.Text = "150000"

            Harga.Text = "500"

        ElseIf Tipe.Text = "RUM" Then

            Biaya.Text = "50000"

            Harga.Text = "200"

        ElseIf Tipe.Text = "SWA" Then

            Biaya.Text = "400000"

            Harga.Text = "1500"

        ElseIf Tipe.Text = "PAB" Then

            Biaya.Text = "1000000"

            Harga.Text = "10000"

        End If

    End Sub

 

 

Demikilahlah postingan saya  Nama : (EVA ROSDIANA MARPAUNG)  NPM : (1111404)
Selamat Pemrograman VB NET