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

 

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

 

berikut jawabanya :

 

 listing Programnya : 

Public Class Form1
    Sub buattable()
        LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga per KWH", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Total Tagihan", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Pelanggan", 180, HorizontalAlignment.Center)
        LV.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitable()
        Dim Lst As New ListViewItem
        Lst.Text = Daerah.Text
        Lst.SubItems.Add(Tipe.Text)
        Lst.SubItems.Add(biayabeban.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(Totaltagihan.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(kodepelanggan.Text)
        Lst.SubItems.Add(pembayaran.Text)
        LV.Items.Add(Lst)
    End Sub
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Daerah.Items.Add("MED")
        Daerah.Items.Add("BEL")
        Daerah.Items.Add("TEM")
        Daerah.Items.Add("MAR")
        Daerah.Items.Add("BIN")
        Daerah.Items.Add("PAK")

        Tipe.Items.Add("TOK")
        Tipe.Items.Add("RUM")
        Tipe.Items.Add("SWA")
        Tipe.Items.Add("PAB")

        kodepelanggan.Items.Add("PAB")
        kodepelanggan.Items.Add("PAK")
        kodepelanggan.Items.Add("100")
        Call buattable()

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(Tipe.Text, 3)
        Select Case x
            Case "TOK" : biayabeban.Text = "150000"
            Case "RUM" : biayabeban.Text = "50000"
            Case "SWA" : biayabeban.Text = "400000"
            Case "PAB" : biayabeban.Text = "1000000"
        End Select
        Select Case x
            Case "TOK" : harga.Text = "500"
            Case "RUM" : harga.Text = "200"
            Case "SWA" : harga.Text = "1500"
            Case "PAB" : harga.Text = "10000"
        End Select

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Totaltagihan.Text = Val(biayabeban.Text) + Val(harga.Text)
        End If

    End Sub

    Private Sub Totaltagihan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Totaltagihan.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Pajak.Text = "1,5%"
        End If

    End Sub

    Private Sub kodepelanggan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Pembayaran.Text = Val(Totaltagihan.Text) + Val(Pajak.Text)
    End Sub

   
    Private Sub Btnsimpankelistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpankelistview.Click
        Call isitable()
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        Call berish(Me)
    End Sub
    Sub berish(ByVal F As Form)
        Dim X As Object
        For Each X In F.Controls
            If TypeOf X Is TextBox Then X.Text = ""
            If TypeOf X Is ComboBox Then X.Text = ""
        Next
    End Sub

    Private Sub Btnhapusdatayangdipilih_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Btnhapusdatayangdipilih.KeyPress
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub

    Private Sub Btnhapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemuadata.Click
        Lv.Items.Clear()
    End Sub

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

Berikut Hasilnnya :

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

berikut jawabannya :

Listing Programnya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Namapegawai.Items.Add("UMMI")
        Namapegawai.Items.Add("RIYO")
        Namapegawai.Items.Add("WAHYU")
        Gol.Items.Add("IIIA")
        Gol.Items.Add("IIIB")
        Gol.Items.Add("IIIC")

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
        Dim X As String
        X = Microsoft.VisualBasic.Left(Gol.Text, 4)
        Select X
            Case "IIIA"
                Gaji.Text = "1500000"
                Pinjaman.Text = "300000"

            Case "IIIB"
                Gaji.Text = "2500000"
                Pinjaman.Text = "150000"

            Case "IIIC"
                Gaji.Text = "3500000"
                Pinjaman.Text = "200000"

        End Select
        Pajak.Text = 0.015 * Gaji.Text




    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Gajibersih.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Pajak.Text)

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class

berikut hasilnya :

Demikianlah postingan saya:
Nama  : Rina Miranda
NPM   : 1111032

Selamat belajar Pemograman Visual Basic.net