Ayam

asdasdasd

Pengolahan Citra

" Assalammu'alaikum warahmatullahi wabarakatuh "

Ya elah jumpa lagi padahal dah gk post lagi hehehe,langsung saja kita ke TKP nya

Public Class Form1
    Dim gambar2 As Bitmap
    Private Sub grayscale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grayscale.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                rt = (vm + vh + vb) / 3
                gambar2.SetPixel(pc, pb, Color.FromArgb(rt, rt, rt))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox2.Image = PictureBox1.Image
    End Sub

    Private Sub hijaukurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hijaukurang.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G - 10
                vb = gambar2.GetPixel(pc, pb).B
                If vh <= 0 Then vh = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub hijautambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hijautambah.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G + 10
                vb = gambar2.GetPixel(pc, pb).B
                If vh >= 255 Then vh = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub merahkurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merahkurang.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R - 10
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                If vm <= 0 Then vm = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub merahtambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles merahtambah.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R + 1000
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                If vm >= 255 Then vm = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub birutambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B + 10
                If vb >= 255 Then vb = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub brignestambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brignestambah.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R + 5
                vh = gambar2.GetPixel(pc, pb).G + 5
                vb = gambar2.GetPixel(pc, pb).B + 5
                If vm >= 255 Then vm = 255
                If vh >= 255 Then vh = 255
                If vb >= 255 Then vb = 255
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub kurangbrignes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kurangbrignes.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = gambar2.GetPixel(pc, pb).R - 5
                vh = gambar2.GetPixel(pc, pb).G - 5
                vb = gambar2.GetPixel(pc, pb).B - 5
                If vm <= 0 Then vm = 0
                If vh <= 0 Then vh = 0
                If vb <= 0 Then vb = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub rotate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rotate.Click
        Dim pb, pc As Integer
        Dim rt, vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox1.Image)
        Dim gambar3 As Bitmap = New Bitmap(PictureBox1.Image)
        For pb = gambar2.Height - 1 To 0 Step -1
            For pc = gambar2.Width - 1 To 0 Step -1
                vm = gambar2.GetPixel(pc, pb).R
                vh = gambar2.GetPixel(pc, pb).G
                vb = gambar2.GetPixel(pc, pb).B
                gambar3.SetPixel(gambar2.Width - 1 - pc, gambar2.Height - 1 - pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar3
            'PictureBox2.Refresh()
        Next
    End Sub

    Private Sub negative_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles negative.Click
        Dim pb, pc As Integer
        Dim vm, vh, vb As Double
        gambar2 = New Bitmap(PictureBox2.Image)
        For pb = 0 To gambar2.Height - 1
            For pc = 0 To gambar2.Width - 1
                vm = 255 - gambar2.GetPixel(pc, pb).R
                vh = 255 - gambar2.GetPixel(pc, pb).G
                vb = 255 - gambar2.GetPixel(pc, pb).B
                If vm <= 0 Then vm = 0
                If vh <= 0 Then vh = 0
                If vb <= 0 Then vb = 0
                gambar2.SetPixel(pc, pb, Color.FromArgb(vm, vh, vb))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

End Class

Quis Online Soal No 1

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-BEL-101")
        Kodepelanggan.Items.Add("SWA-BEL-102")
        Kodepelanggan.Items.Add("PAB-MED-103")
        Kodepelanggan.Items.Add("RUM-MED-104")
        rancangtable()

    End Sub
    Sub rancangtable()
        With Lv
            .Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
            .Columns.Add("Nama", 100, HorizontalAlignment.Center)
            .Columns.Add("Tipe", 80, HorizontalAlignment.Center)
            .Columns.Add("Daerah", 100, HorizontalAlignment.Center)
            .Columns.Add("Harga M3", 100, HorizontalAlignment.Center)
            .Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
            .Columns.Add("Pemakaian Air", 100, HorizontalAlignment.Center)
            .Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
            .Columns.Add("pajak", 100, HorizontalAlignment.Center)
            .Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details
        End With
    End Sub
    Sub isitable()
        Dim i As New ListViewItem
        With i
            .Text = Kodepelanggan.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(tipe.Text)
            .SubItems.Add(daerah.Text)
            .SubItems.Add(harga_m3.Text)
            .SubItems.Add(biaya_beban.Text)
            .SubItems.Add(pemakaian_air.Text)
            .SubItems.Add(total_tagihan.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(pembayaran.Text)
            Lv.Items.Add(i)
        End With
    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodepelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(Kodepelanggan.Text, 3)



        If x = "100" Then
            nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(Kodepelanggan.Text, 3)

        If x = "PAB" Then
            harga_m3.Text = 500
            biaya_beban.Text = 250000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            harga_m3.Text = 500
            biaya_beban.Text = 25000
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            harga_m3.Text = 500
            biaya_beban.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            harga_m3.Text = 200
            biaya_beban.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(Kodepelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub pemakaian_air_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian_air.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = harga_m3.Text * pemakaian_air.Text + Val(biaya_beban.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub
    Sub bersih()
        Kodepelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga_m3.Text = ""
        biaya_beban.Text = ""
        pemakaian_air.Text = ""
        total_tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
        bersih()
    End Sub

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

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitable()
        bersih()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_satu.Click
        If Lv.SelectedItems.Count <> 0 Then
            Lv.Items.Remove(Lv.SelectedItems(0))
        Else
            MsgBox("Maaf Anda Belum" & vbCr & "Memilih Yang Ingin Anda Hapus")
        End If
    End Sub

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

    Private Sub pemakaian_air_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian_air.TextChanged

    End Sub
End Class

Aplikasi Nilai Mahasiswa Menggunakan Visual Basic 2008

" Assalammu'alaikum warahmatullahi wabarakatuh "

Ya elah jumpa lagi kita (hahaha) ,saat ini saya/aku/eke capcus deh bok,ya Ampyuun !!! akan membahas tentang "Aplikasi Nilai Mahasiswa" tanpa bacot lagi langsung aja ke TKP nya gan :

Public Class Form1

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

        npm.Items.Add("121108")

        npm.Items.Add("1111111")

        Kodedosen.Items.Add("SAO1")

        Kodedosen.Items.Add("SAO2")

        kodematakuliah.Items.Add("SAO4")

        kodematakuliah.Items.Add("SAO5")

        Keterangan.Enabled = False

        status.Enabled = False

        akhir.Enabled = False

        ayam()

        hitung()

        iyaiya()

        zxcmz()

    End Sub

    Sub ayam()

        Dim a As Integer

        a = 100

        While a >= 1

            tugas.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case ("121108")

                Nama.Text = "Sulian"

                Jenjang.Text = "S1"

                Jurusan.Text = "TI"

            Case ("1111111")

                Nama.Text = "Arief"

                Jenjang.Text = "D3"

                Jurusan.Text = "MI"

        End Select

    End Sub

    Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged

        Select Case Kodedosen.Text

            Case ("SAO1")

                dosen.Text = "Sulian"

            Case ("SAO2")

                dosen.Text = "Arief"

        End Select

    End Sub

    Private Sub kodematakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        Select Case kodematakuliah.Text

            Case ("SAO4")

                matakuliah.Text = "Kalkulus"

            Case ("SAO5")

                matakuliah.Text = "Agama"

        End Select

    End Sub

    Sub hitung()

        Dim a As Integer

        a = 100

        While a >= 1

            kehadiran.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Sub iyaiya()

        Dim a As Integer

        a = 100

        While a >= 1

            uas.Items.Add(a)

            a = a - 1

        End While

    End Sub

    Sub zxcmz()

        Dim a As Integer

        a = 100

        While a >= 1

            uts.Items.Add(a)

            a = a - 1

        End While

            End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        akhir.Text = Val(0.1 * kehadiran.Text) + Val(0.15 * tugas.Text) + Val(0.3 * uts.Text) + Val(0.45 * uas.Text)

        stat()

    End Sub

    Sub stat()

        Dim a As String

        a = "GAGAL"

        If akhir.Text >= 50 Then a = "LULUS"

        Keterangan.Text = a

        If akhir.Text >= 80 Then

            status.Text = "A"

        ElseIf akhir.Text >= 70 Then

            status.Text = "B"

        ElseIf akhir.Text >= 60 Then

            status.Text = "c"

        ElseIf akhir.Text >= 50 Then

            status.Text = "D"

        Else

            akhir.Text = "E"

        End If

        

    End Sub

End Class

Yah hanya ini saja yang bisa di sampaikan apa bila ada kekurangan ataukesalahan mohon maaf yeee karena aku manusia biasa (hahahahaha).Terima kasih atas kunjungannya ke blog ini,maka langsung saja kita akhiri dengan mengucapkan 

" Walaikumsalamwarah matulahi wabarakatuh "

Aplikasi Looping Piramida Menggunakan Visual Basic 2008

" Assalammu'alaikum warahmatullahi wabarakatuh "

hey Yooo jumpa lagi padahal baru aja nge bahas Aplikasi Penggajian sekarang aku mau bahas tentang  " Kuping Piramida " ehh salah ( hehehe ) maksudnya " Looping Piramida "  tanpa be " KOAR-KOAR " langsung aja kita bacok Applikasi " Looping Piramida " :

Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        Dim x, y, z As Integer

        x = 1 : y = NumericUpDown1.Value

        TextBox1.Clear()

        Do While x <= y

            z = 1

            TextBox1.Text = _

            TextBox1.Text & Space(y - x)

            Do While z <= x

                TextBox1.Text = _

                TextBox1.Text & " " & z

                z += 1

            Loop

            TextBox1.Text = _

            TextBox1.Text & vbCrLf

            x += 1

        Loop

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

End Class

Naah gimana tidak rumit juga kan 

Terima kasih Yooo sudah mau berkunjung ke Blog yang sederhana ini

" Walaikumsalamwarah matulahi wabarakatuh "

Aplikasi Penggajian Menggunakan Visual Basic 2008

" Assalammu'alaikum warahmatullahi wabarakatuh "

Ya bisa kita saksikan sendiri Aplikasi Penggajian nya yang sederhana ini tapi bermanfaat yang sedang mengunjunginya ( hehehe ).Sekarang langsung saja kita bacok Aplikasi Penggajiannya :

Public Class Form1

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

        NIK.Items.Add("PM010")
        NIK.Items.Add("PS111")
        NIK.Items.Add("KU101")
        NIK.Items.Add("GD100")
        NIK.Items.Add("PM011")

        jabattan()
        stattus()
        perula()
    End Sub

    Sub jabattan()
        Jabatan.Items.Add("Kepala Dinas")
        Jabatan.Items.Add("Staf")
        Jabatan.Items.Add("Wakil Kepala")
    End Sub

    Sub stattus()
        Status.Items.Add("Menikah")
        Status.Items.Add("Beum Menikah")
    End Sub

    Sub perula()
        Dim a As Integer
        For a = 100 To 0 Step -1
            Anak.Items.Add(a)
        Next
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case ("PM010")
                Nama.Text = "Aokiji"
            Case ("PS111")
                Nama.Text = "Shank"
            Case ("KU101")
                Nama.Text = "Mihawk"
            Case ("GD100")
                Nama.Text = "Akainu"
            Case ("PM011")
                Nama.Text = "Kizaru"
        End Select
        ayam()
    End Sub

    Sub ayam()
        Dim i As String
        i = Microsoft.VisualBasic.Left(NIK.Text, 2)
        If i = "PM" Then
            Bagian.Text = "Pemesanan"
        ElseIf i = "PS" Then
            Bagian.Text = "Personalia"
        ElseIf i = "KU" Then
            Bagian.Text = "Keuangan"
        ElseIf i = "GD" Then
            Bagian.Text = "Gudang"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        If NIK.Text = "" And Nama.Text = "" And Bagian.Text = "" Then
            MsgBox("Maaf, Harap Di Isi NIK Anda")
            Jabatan.Items.Clear() : jabattan()
        Else
            Select Case Jabatan.Text
                Case ("Kepala Dinas")
                    Gaji_Pokok.Text = 5000000
                Case ("Staf")
                    Gaji_Pokok.Text = 2000000
                Case ("Wakil Kepala")
                    Gaji_Pokok.Text = 3500000
            End Select
            Pajak.Text = 0.1 * Gaji_Pokok.Text
        End If

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Jabatan.Text = "" And Gaji_Pokok.Text = "" And Pajak.Text = "" Then
            MsgBox("Maaf, Harap Di Isi Jabatan Anda")
            Status.Items.Clear() : stattus()
        Else
            goreng()
        End If
    End Sub

    Sub goreng()
        If Status.Text = "Menikah" Then
            Anak.Enabled = True
            Tunjangan_Anak.Enabled = True
            tunjangan_Keluarga.Enabled = True
            tunjangan_Keluarga.Text = 0.05 * Gaji_Pokok.Text
            Tunjangan_Anak.Text = ""
            Anak.Text = ""
            Tunjangan_Anak.Text = ""
        Else
            tunjangan_Keluarga.Text = "0"
            Tunjangan_Anak.Text = "0"
            tunjangan_Keluarga.Enabled = False
            Tunjangan_Anak.Enabled = False
            Anak.Enabled = False
            Total_Gaji.Enabled = True
            Anak.Text = "0"
            Total_Gaji.Text = Val(Gaji_Pokok.Text) + Val(tunjangan_Keluarga.Text) + Val(Tunjangan_Anak.Text) - Pajak.Text
        End If
    End Sub

    Private Sub Jumnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anak.SelectedIndexChanged

        If Status.Text = "" Then
            MsgBox("Maaf, Harap Di Isi Status Anda")
            Anak.Items.Clear() : perula()
        Else
            If Anak.Text = 1 Then
                Tunjangan_Anak.Text = 0.05 * Gaji_Pokok.Text
            ElseIf Anak.Text >= 2 Then
                Tunjangan_Anak.Text = 0.1 * Gaji_Pokok.Text
            Else
                Tunjangan_Anak.Text = 0
                Tunjangan_Anak.Enabled = False
            End If
            total()
        End If
    End Sub

    Sub total()
        Total_Gaji.Text = Val(Gaji_Pokok.Text) + Val(tunjangan_Keluarga.Text) + Val(Tunjangan_Anak.Text) - Pajak.Text
    End Sub

    Sub batal()
        NIK.Text = ""
        Nama.Text = ""
        Bagian.Text = ""
        Jabatan.Text = ""
        Gaji_Pokok.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        Anak.Text = ""
        tunjangan_Keluarga.Text = ""
        Tunjangan_Anak.Text = ""
        Total_Gaji.Text = ""
    End Sub

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

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



Gimana gk rumitkan hanya meng " CoPas" saja,ya kan dari bloog ini ( hehehe )
Mohon maaf apa bila ada kesalahan dari Program ku yang ala kadarnya ( hehehe )
Sekian dan Terimakasih !!!

" Walaikumsalamwarah matulahi wabarakatuh "