DHDYHTDYRD

Welcome To Tugas "JIMMY STEPHANUS CHANDRA SITORUS 99^"
~ INI ADALAH TUGAS INTERNET SAYA ~
NAMA N P M JENIS KELAMINPRIA WANITA JURUSANPILIHPAGISIANG MALAM PILIHS1D3D1	WELCOME TO SITUS UAS	"KATA MUTIARA" * Hidup adalah pilihan * Yang penuh dengan pengorbanan * Jadi apapun yang terjadi * Hadapilah semua dengan senyuman
Situs Ini Didesign oleh: JIMMY STEPHANUS CHANDRA SITORUS/ Npm: 1111973 / Kelas: SI-M1107 / Mata Kuliah: Internet [Blog: JIMMY.STEPHANUS 99.blogspot.com ] / 2012
.:(\\*_GOKIL.COM_*//):.

Bak AIR

air BERIAK TANDA Tak Dalam the meanings otak tts dangkal gak usah melawan ◇♡♧♤ 39 # 27 *^66^* semut =ant

Kamis, 20 Juni 2013

Pengolahan Citra Lanjutan

 Public Class Form1
    Dim GAMBAR As Bitmap

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        OFD.Filter = "BMP|*.BMP|JPG|*.JPG"
        OFD.Showdialog()

        If OFD.FileName = "" Then Exit Sub
        PIC1.IMAGE = Image.FromFile(OFD.FileName)
        GAMBAR = New Bitmap(Pic1.Image)

    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        SFD.Filter = "JPG|*.JPG|BMP|*.BMP"
        SFD.ShowDialog()
        If SFD.FileName = "" Then Exit Sub
        If SFD.FilterIndex = 1 Then
            GAMBAR.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
        If SFD.FilterIndex = 2 Then
            GAMBAR.Save(SFD.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
        End If
    End Sub

    Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click
        Dim Pb, Pc As Integer
        Dim Rt, vM, vH, vB As Double
        With GAMBAR
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    Rt = (vM + vH + vB) / 3
                    .SetPixel(Pc, Pb, Color.FromArgb(Rt, Rt, Rt))
                Next
                Pic2.Image = GAMBAR
                Pic2.Refresh()

            Next
        End With
    End Sub

    Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With GAMBAR
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = 255 - .GetPixel(Pc, Pb).R
                    vH = 255 - .GetPixel(Pc, Pb).G
                    vB = 255 - .GetPixel(Pc, Pb).B
                    If vM <= 0 Then vM = 0
                    If vB <= 0 Then vB = 0
                    If vH <= 0 Then vH = 0
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = GAMBAR
                Pic2.Refresh()

            Next
        End With
    End Sub

    Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        With GAMBAR
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R + 5
                    vH = .GetPixel(Pc, Pb).G + 5
                    vB = .GetPixel(Pc, Pb).B + 5
                    If vM > 0 Then vM = 225
                    If vB > 0 Then vB = 225
                    If vH > 0 Then vH = 225
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = GAMBAR
                Pic2.Refresh()

            Next
        End With
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        GAMBAR = New Bitmap(Pic1.Image)
    End Sub

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

    End Sub

    Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click
        Dim Pb, Pc As Integer
        Dim Rata, vM, vH, vB As Double
        With GAMBAR
            For Pb = 0 To .Height - 1
                For Pc = 0 To .Width - 1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    Rata = (vM + vH + vB) / 3
                    If (Rata < 128) Then
                        vM = 0
                        vH = 0
                        vB = 0
                    Else
                        vM = 255
                        vH = 255
                        vB = 255
                    End If
                    .SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = GAMBAR
                Pic2.Refresh()

            Next
        End With

    End Sub

    Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click
        Dim Pb, Pc As Integer
        Dim vM, vH, vB As Double
        Dim gambar3 As Bitmap = New Bitmap(Pic1.Image)
        With GAMBAR
            For Pb = .Height - 1 To 0 Step -1
                For Pc = .Width - 1 To 0 Step -1
                    vM = .GetPixel(Pc, Pb).R
                    vH = .GetPixel(Pc, Pb).G
                    vB = .GetPixel(Pc, Pb).B
                    gambar3.SetPixel(.Width - 1 - Pc, .Height - 1 - Pb, Color.FromArgb(vM, vH, vB))
                Next
                Pic2.Image = GAMBAR
                Pic2.Refresh()

            Next
        End With
        GAMBAR = gambar3
    End Sub
End Class

BENTUK-BENTUK TAMPILAN :

TAMPILAN GRAYSCALE

TAMPILAN BINER

TAMPILAN BRIGHTNESS

TAMPILAN ROTATE

Kamis, 06 Juni 2013

JAWABAN 2 QUIZ ON_LINE

 JAWABAN 2 :

Public Class Form1

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIKK.Items.Add("K1001")
        NIKK.Items.Add("K2003")
        NIKK.Items.Add("S1001")
        NIKK.Items.Add("S2002")
        NIKK.Items.Add("S3003")
        NIKK.Items.Add("A1001")
        NIKK.Items.Add("A2002")
        NIKK.Items.Add("A3003")

        golongann.Items.Add("III A")
        golongann.Items.Add("III B")
        golongann.Items.Add("III C")

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bagiann.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub NIKK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIKK.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(NIKK.Text, 1)
        Select Case x
            Case "K" : Bagiann.Text = "KEUANGAN"
            Case "A" : Bagiann.Text = "ADMINISTRASI"
            Case "S" : Bagiann.Text = "DIREKTUR"
        End Select
        Select Case NIKK.Text
            Case "K1001" : nm.Text = "JIMMY"
            Case "K2003" : nm.Text = "STEPHANUS"
            Case "S1001" : nm.Text = "CHANDRA"
            Case "S2002" : nm.Text = "SITORUS"
            Case "S3003" : nm.Text = "ZERO"
            Case "A1001" : nm.Text = "FOSTROT"
            Case "A2002" : nm.Text = "BRIAN"
            Case "A3003" : nm.Text = "LEO"
        End Select
    End Sub

    Private Sub golongann_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongann.SelectedIndexChanged
        Select Case golongann.Text
            Case "III A" : gaji.Text = 1500000
            Case "III B" : gaji.Text = 2500000
            Case "III C" : gaji.Text = 3500000
        End Select
        Select Case golongann.Text
            Case "III A" : Pinjaman.Text = 500000
            Case "III B" : Pinjaman.Text = 700000
            Case "III C" : Pinjaman.Text = 900000
        End Select
    End Sub

HASIL OUTPUT

 

·Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress

oDim TOMBOL As Integer = Asc(e.KeyChar)

oIf TOMBOL = 13 Then

§PROSES_Click(sender, e)

oEnd If

·End Sub

·Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged

oDim x As String

oNO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)

ox = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)

oIf x = "MED" Then

§DAERAH.Text = "MEDAN"

§PAJAK.Text = 0.015

oElseIf x = "BEL" Then

§DAERAH.Text = "BELAWAN"

§PAJAK.Text = 0.015

oElseIf x = "TEM" Then

§DAERAH.Text = "AKSARA"

§PAJAK.Text = 0.015

oElseIf x = "MAR" Then

§DAERAH.Text = "MARENDAL"

§PAJAK.Text = 0.015

oElseIf x = "BIN" Then

§DAERAH.Text = "BINJAI"

§PAJAK.Text = 0.015

oElseIf x = "PAK" Then

§DAERAH.Text = "LUBUK PAKAM"

§PAJAK.Text = 0.015

oEnd If

ox = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)

oIf x = "TOK" Then

§TIPE.Text = "TOKO"

§HARGA.Text = "500"

§BEBAN.Text = "150000"

oElseIf x = "RUM" Then

§TIPE.Text = "RUMAH"

§HARGA.Text = "200"

§BEBAN.Text = "50000"

oElseIf x = "SWA" Then

§TIPE.Text = "SWALAYAN"

§HARGA.Text = "1500"

§BEBAN.Text = "400000"

oElseIf x = "PAB" Then

§TIPE.Text = "PABRIK"

§BEBAN.Text = "1000000"

§HARGA.Text = "10000"

oEnd If

·End Sub

·Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

·BESAR.Text = SEKARANG.Text - LALU.Text

·TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)

·TOTAL.Text = TAGIHAN.Text * 0.015

·End Sub

·Sub buattabel()

·LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

·LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

·LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

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

·LV.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

·LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

·LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

·LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

·LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

·LV.View = View.Details

·LV.GridLines = True

·LV.FullRowSelect = True

·End Sub

·Sub isitabel()

·Dim lst As New ListViewItem

·lst.Text = TGL.Text

·lst.SubItems.Add(NO.Text)

·lst.SubItems.Add(KODE.Text)

·lst.SubItems.Add(DAERAH.Text)

·lst.SubItems.Add(TIPE.Text)

·lst.SubItems.Add(BEBAN.Text)

·lst.SubItems.Add(LALU.Text)

·lst.SubItems.Add(SEKARANG.Text)

·lst.SubItems.Add(HARGA.Text)

·lst.SubItems.Add(BESAR.Text)

·lst.SubItems.Add(PAJAK.Text)

·lst.SubItems.Add(TAGIHAN.Text)

·lst.SubItems.Add(TOTAL.Text)

·LV.Items.Add(lst)

·End Sub

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

obuattabel()

·Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

oisitabel()

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub

·Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

oLV.Items.Remove(LV.SelectedItems(0))

·End Sub

·Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub

JAWABAN 1 QUIZ ON_LINE

 JAWABAN 1 :

Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress  
        Dim TOMBOL As Integer = Asc(e.KeyChar)  
        If TOMBOL = 13 Then  
            PROSES_Click(sender, e)  
        End If  
    End Sub  

Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged  
        Dim x As String  
        NO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)  
        x = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)  
        If x = "MED" Then  
            DAERAH.Text = "MEDAN"  
            PAJAK.Text = 0.015  
        ElseIf x = "BEL" Then  
            DAERAH.Text = "BELAWAN"  
            PAJAK.Text = 0.015  
        ElseIf x = "TEM" Then  
            DAERAH.Text = "AKSARA"  
            PAJAK.Text = 0.015  
        ElseIf x = "MAR" Then  
            DAERAH.Text = "MARENDAL"  
            PAJAK.Text = 0.015  
        ElseIf x = "BIN" Then  
            DAERAH.Text = "BINJAI"  
            PAJAK.Text = 0.015  
        ElseIf x = "PAK" Then  
            DAERAH.Text = "LUBUK PAKAM"  
            PAJAK.Text = 0.015  
        End If  
        x = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)  
        If x = "TOK" Then  
            TIPE.Text = "TOKO"  
            HARGA.Text = "500"  
            BEBAN.Text = "150000"  
        ElseIf x = "RUM" Then  
            TIPE.Text = "RUMAH"  
            HARGA.Text = "200"  
            BEBAN.Text = "50000"  
        ElseIf x = "SWA" Then  
            TIPE.Text = "SWALAYAN"  
            HARGA.Text = "1500"  
            BEBAN.Text = "400000"  
        ElseIf x = "PAB" Then  
            TIPE.Text = "PABRIK"  
            BEBAN.Text = "1000000"  
            HARGA.Text = "10000"  
        End If  
    End Sub  

Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click  
BESAR.Text = SEKARANG.Text - LALU.Text  
TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)  
TOTAL.Text = TAGIHAN.Text * 0.015  
End Sub  

Sub buattabel()  
LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)  
LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)  
LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)  
LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)  
LV.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)  
LV.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)  
LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)  
LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)  
LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)  
LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)  
LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)  
LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)  
LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)  
LV.View = View.Details  
LV.GridLines = True  
LV.FullRowSelect = True  
End Sub  
Sub isitabel()  
Dim lst As New ListViewItem  
lst.Text = TGL.Text  
lst.SubItems.Add(NO.Text)  
lst.SubItems.Add(KODE.Text)  
lst.SubItems.Add(DAERAH.Text)  
lst.SubItems.Add(TIPE.Text)  
lst.SubItems.Add(BEBAN.Text)  
lst.SubItems.Add(LALU.Text)  
lst.SubItems.Add(SEKARANG.Text)  
lst.SubItems.Add(HARGA.Text)  
lst.SubItems.Add(BESAR.Text)  
lst.SubItems.Add(PAJAK.Text)  
lst.SubItems.Add(TAGIHAN.Text)  
lst.SubItems.Add(TOTAL.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()  
  
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click  
        isitabel()  
        KODE.Text = ""  
        DAERAH.Text = ""  
        BEBAN.Text = ""  
        TIPE.Text = ""  
        LALU.Text = ""  
        HARGA.Text = ""  
        TOTAL.Text = ""  
        SEKARANG.Text = ""  
        NO.Text = ""  
        TAGIHAN.Text = ""  
        BESAR.Text = ""  
        PAJAK.Text = ""  
    End Sub  

Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click  
        LV.Items.Remove(LV.SelectedItems(0))  
    End Sub  

Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click  
        KODE.Text = ""  
        DAERAH.Text = ""  
        BEBAN.Text = ""  
        TIPE.Text = ""  
        LALU.Text = ""  
        HARGA.Text = ""  
        TOTAL.Text = ""  
        SEKARANG.Text = ""  
        NO.Text = ""  
        TAGIHAN.Text = ""  
        BESAR.Text = ""  
        PAJAK.Text = ""  
    End Sub  

  

·Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles KODE.KeyPress

oDim TOMBOL As Integer = Asc(e.KeyChar)

oIf TOMBOL = 13 Then

§PROSES_Click(sender, e)

oEnd If

·End Sub

·Private Sub ID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE.TextChanged

oDim x As String

oNO.Text = "1" & Microsoft.VisualBasic.Right(KODE.Text, 2)

ox = Microsoft.VisualBasic.Mid(KODE.Text, 4, 3)

oIf x = "MED" Then

§DAERAH.Text = "MEDAN"

§PAJAK.Text = 0.015

oElseIf x = "BEL" Then

§DAERAH.Text = "BELAWAN"

§PAJAK.Text = 0.015

oElseIf x = "TEM" Then

§DAERAH.Text = "AKSARA"

§PAJAK.Text = 0.015

oElseIf x = "MAR" Then

§DAERAH.Text = "MARENDAL"

§PAJAK.Text = 0.015

oElseIf x = "BIN" Then

§DAERAH.Text = "BINJAI"

§PAJAK.Text = 0.015

oElseIf x = "PAK" Then

§DAERAH.Text = "LUBUK PAKAM"

§PAJAK.Text = 0.015

oEnd If

ox = Microsoft.VisualBasic.Mid(KODE.Text, 1, 3)

oIf x = "TOK" Then

§TIPE.Text = "TOKO"

§HARGA.Text = "500"

§BEBAN.Text = "150000"

oElseIf x = "RUM" Then

§TIPE.Text = "RUMAH"

§HARGA.Text = "200"

§BEBAN.Text = "50000"

oElseIf x = "SWA" Then

§TIPE.Text = "SWALAYAN"

§HARGA.Text = "1500"

§BEBAN.Text = "400000"

oElseIf x = "PAB" Then

§TIPE.Text = "PABRIK"

§BEBAN.Text = "1000000"

§HARGA.Text = "10000"

oEnd If

·End Sub

·Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

·BESAR.Text = SEKARANG.Text - LALU.Text

·TAGIHAN.Text = BEBAN.Text + (HARGA.Text * BESAR.Text)

·TOTAL.Text = TAGIHAN.Text * 0.015

·End Sub

·Sub buattabel()

·LV.Columns.Add("TANGGAL BAYAR", 80, HorizontalAlignment.Left)

·LV.Columns.Add("NO. URUT", 80, HorizontalAlignment.Center)

·LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)

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

·LV.Columns.Add("BEBAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("METERAN BULAN LALU", 80, HorizontalAlignment.Left)

·LV.Columns.Add("METERAN BULAN SEKARANG", 80, HorizontalAlignment.Left)

·LV.Columns.Add("HARGA PER KWH", 80, HorizontalAlignment.Left)

·LV.Columns.Add("BESAR PEMAKAIAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

·LV.Columns.Add("TAGIHAN", 80, HorizontalAlignment.Left)

·LV.Columns.Add("TOTAL BAYAR", 80, HorizontalAlignment.Left)

·LV.View = View.Details

·LV.GridLines = True

·LV.FullRowSelect = True

·End Sub

·Sub isitabel()

·Dim lst As New ListViewItem

·lst.Text = TGL.Text

·lst.SubItems.Add(NO.Text)

·lst.SubItems.Add(KODE.Text)

·lst.SubItems.Add(DAERAH.Text)

·lst.SubItems.Add(TIPE.Text)

·lst.SubItems.Add(BEBAN.Text)

·lst.SubItems.Add(LALU.Text)

·lst.SubItems.Add(SEKARANG.Text)

·lst.SubItems.Add(HARGA.Text)

·lst.SubItems.Add(BESAR.Text)

·lst.SubItems.Add(PAJAK.Text)

·lst.SubItems.Add(TAGIHAN.Text)

·lst.SubItems.Add(TOTAL.Text)

·LV.Items.Add(lst)

·End Sub

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

obuattabel()

·Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

oisitabel()

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub

·Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

oLV.Items.Remove(LV.SelectedItems(0))

·End Sub

·Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click

oKODE.Text = ""

oDAERAH.Text = ""

oBEBAN.Text = ""

oTIPE.Text = ""

oLALU.Text = ""

oHARGA.Text = ""

oTOTAL.Text = ""

oSEKARANG.Text = ""

oNO.Text = ""

oTAGIHAN.Text = ""

oBESAR.Text = ""

oPAJAK.Text = ""

·End Sub

Langganan: Postingan (Atom)

Translate

Arsip Blog

• ▼  2023 (2)
  • ▼  Agustus (2)
    • DHDYHTDYRD
    • Bak AIR

• ►  2013 (9)
  • ►  Juni (7)
  • ►  Mei (2)

• ►  2012 (2)
  • ►  Juli (1)
  • ►  April (1)

^_^ About Me ^_^ Jimmy Lihat profil lengkapku

Tema Sederhana. Gambar tema oleh enot-poloskun. Diberdayakan oleh Blogger.