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

Salam sobat blogger........
Sebagai bahan ujian di semester III saya akan memposting tentang VB NET pada blog saya 
Postingan kali ini tentang PROGRAM PEMBAYARAN REKENING LISTRIK.
Langsung saja buat form design seperti di bawah ini:

Selanjutnya isi codding di bawah ini:
Public Class Pembayaran_Listrik


    Private Sub Pembayaran_Listrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("Kode", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Center)
        lv.Columns.Add("Harga KWH", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Beban", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Pemakaian", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        jpelanggan.Enabled = False
        hargakwh.Enabled = False
        beban.Enabled = False
        pembayaran.Enabled = False
    End Sub
    Private Sub kpelanggan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged
        If kode.Text = "001" Then
            jpelanggan.Text = "Rumah"
            beban.Text = "25000"
            hargakwh.Text = "3000"
        ElseIf kode.Text = "002" Then
            jpelanggan.Text = "Toko"
            beban.Text = "50000"
            hargakwh.Text = "5000"
        ElseIf kode.Text = "003" Then
            jpelanggan.Text = "Pabrik"
            beban.Text = "100000"
            hargakwh.Text = "10000"
        Else
            jpelanggan.Text = ""
            beban.Text = ""
            hargakwh.Text = ""
        End If
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
        pembayaran.Text = Val(beban.Text + hargakwh.Text * pemakaian.Text)

        Dim Lst As New ListViewItem
        Lst.Text = kode.Text
        Lst.SubItems.Add(jpelanggan.Text)
        Lst.SubItems.Add(hargakwh.Text)
        Lst.SubItems.Add(beban.Text)
        Lst.SubItems.Add(pemakaian.Text)
        Lst.SubItems.Add(pembayaran.Text)
        lv.Items.Add(Lst)
    End Sub

    Private Sub btnhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhap.Click
        kode.Text = ""
        jpelanggan.Text = ""
        hargakwh.Text = ""
        beban.Text = ""
        pemakaian.Text = ""
        pembayaran.Text = ""

    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click
        End
    End Sub

    Private Sub btnhappilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhappilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub btnhapsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsemua.Click
        lv.Items.Clear()
    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
            btnpro_Click(sender, e)
        End If
    End Sub
End Class

Jika berhasil maka tampilannya seperti gambar di bawah ini:

Demikilahlah postingan saya
Nama : GALIH ANGGA SWARA
NPM : 14110115 

Selamat Belajar Pemrograman VB NET

Related Posts:

Tweet