Pemograman Font Property VB.2008

Design Form Pemograman Font Property

Listing Program

Public Class Form1

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

        Label2.Text = TextBox1.Text

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        Label2.ForeColor = Color.Red

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        Label2.ForeColor = Color.Green

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

        Label2.ForeColor = Color.Blue

    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

        Label2.ForeColor = Color.Yellow

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked Then

            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Italic)

        Else

            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Italic)

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked Then

            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Bold)

        Else

            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Bold)

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked Then

            Label2.Font = New Font(Label2.Font, Label2.Font.Style Or FontStyle.Underline)

        Else

            Label2.Font = New Font(Label2.Font, Label2.Font.Style And Not FontStyle.Underline)

        End If

    End Sub

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

        End

    End Sub

End Class

Hasil Pemograman Font Property

Pemograman kalkulator sederhana VB.2008

Design Fomr Pemograman kalkulator sederhana

listing program

Public Class Form1

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

        Dim inch As Double = input.Text

        output.Text = inch * 39.370079

        Label4.Text = "Inci"

    End Sub

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

        Dim kaki As Double = input.Text

        output.Text = kaki * 3.28084

        Label4.Text = "kaki"

    End Sub

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

        Dim yard As Double = input.Text

        output.Text = yard * 1.093613

        Label4.Text = "Yard"

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim mil As Double = input.Text

        output.Text = mil * 0.000621

        Label4.Text = "mil Intr"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim mil As Double = input.Text

        output.Text = mil * 0.00054

        Label4.Text = "Mil Laut"

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        input.Text = ""

        output.Text = ""

    End Sub

End Class

Hasil Pemograman Kalkulator Sederhana

Pemograman Citra VB.Net 2008

Design Form Pemograman Citra

Hasil Pemograman Citra

Pemrograman Citra

Listing Program

Public Class Form1
    Dim gambar2 As Bitmap

    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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 >= 255 Then vM = 225
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.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 vB >= 255 Then vB = 255
                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 Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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 vB <= 0 Then vB = 0
                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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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 = 225 - gambar2.GetPixel(Pc, Pb).R
                vH = 225 - gambar2.GetPixel(Pc, Pb).G
                vB = 225 - gambar2.GetPixel(Pc, Pb).B
                If vM <= 0 Then vM = 0
                If vB <= 0 Then vB = 0
                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 Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.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 >= 225 Then vH = 225
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim Pb, Pc As Integer
        Dim 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 = gambar2
            PictureBox2.Refresh()
        Next
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.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 vB >= 255 Then vB = 255
                If vH >= 255 Then vH = 255
                gambar2.SetPixel(Pc, Pb, Color.FromArgb(vM, vH, vB))
            Next
            PictureBox2.Image = gambar2
            PictureBox2.Refresh()
        Next
    End Sub
End Class

Program Nilai Mahasiswa VB.net 2008

Program Nilai Mahasiswa VB.net 2008 

Public Class Form1

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

        Npm.Items.Add("12110155")

        Npm.Items.Add("12110156")

        Npm.Items.Add("12110157")

        KodeDosen.Items.Add("AA")

        KodeDosen.Items.Add("AB")

        KodeDosen.Items.Add("AC")

        KodeMatakuliah.Items.Add("SO")

        KodeMatakuliah.Items.Add("VB")

        KodeMatakuliah.Items.Add("SBD")

        Dim s As Integer

        For s = 100 To 1 Step -3

            NilaiUAS.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            NilaiUTS.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            NilaiTugas.Items.Add(s)

        Next

        For s = 100 To 1 Step -3

            Nilaikehadiran.Items.Add(s)

        Next

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        NilaiAkhir.Text = 0.3 * NilaiUTS.Text + 0.45 * NilaiUAS.Text + 0.1 * NilaiTugas.Text + 0.15 * Nilaikehadiran.Text

        If NilaiAkhir.Text >= 100 Then

            NIlaiHuruf.Text = "A"

            Keterangan.Text = "Tingkat kan Prestasimu"

        ElseIf NilaiAkhir.Text >= 70 Then

            NIlaiHuruf.Text = "B"

            Keterangan.Text = "Anda Hampir Memenuhi Target"

        ElseIf NilaiAkhir.Text >= 50 Then

            NIlaiHuruf.Text = "C"

            Keterangan.Text = "Jangan Malas Belajar DirumaH"

        ElseIf NilaiAkhir.Text >= 30 Then

            NIlaiHuruf.Text = "D"

            Keterangan.Text = "Tingkat Cara Belajar Anda"

        Else

            NIlaiHuruf.Text = "E"

            Keterangan.Text = "Anda gagal, Coba lagi"

        End If

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "12110155"

                Nama.Text = "Mukti Pradana"

                Jenjang.Text = "strata 1"

                Jurusan.Text = "teknik infomatika"

            Case "12110156"

                Nama.Text = "Riki sudirman"

                Jenjang.Text = "Diploma 3"

                Jurusan.Text = "Manajemen informatika"

            Case "12110157"

                Nama.Text = "fahrijal"

                Jenjang.Text = "Diploma 1"

                Jurusan.Text = "akutansi"

            Case Else

                Nama.Text = "_"

        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 "AA"

                Namadosen.Text = "Abdul sani sembiring"

            Case "AB"

                Namadosen.Text = "Mesran"

            Case "Ac"

                Namadosen.Text = "pandi simangunsong"

            Case Else

                Namadosen.Text = "_"

        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 "SO"

                NamaMatakuliah.Text = "Sistem Operasi"

            Case "VB"

                NamaMatakuliah.Text = "Visual Basic"

            Case "SBD"

                NamaMatakuliah.Text = "sitem basis data"

            Case Else

                NamaMatakuliah.Text = "_"

        End Select

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NamaMatakuliah.Text = ""

        KodeMatakuliah.Text = ""

        Namadosen.Text = ""

        KodeDosen.Text = ""

        NIlaiHuruf.Text = ""

        NilaiTugas.Text = ""

        NilaiUTS.Text = ""

        Nilaikehadiran.Text = ""

        NilaiAkhir.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

Kalah Bersaing, HTC, BlackBerry dan Motorola Dikabarkan Mundur dari Pasar Tablet(0)

Segmen tablet saat ini memang cukup ramai. Dan yang paling mendominasi di pasaran, tentunya adalah tablet Android dan iPad. Sementara itu tablet berbasis Windows masih kalah jauh jika dibandingkan dengan kedua perangkat tersebut.

Dan di segmen ini pula, dua perusahaan besar menjadi penguasa, yakni Apple dan Samsung. Akibatnya, perusahaan lain pun memilih untuk mengundurkan diri dari segmen ini. Sebuah laporan dari Digitimes mengungkapkan bahwa dua produsen tablet Android, yakni HTC dan Motorola memilih untuk mengalah. Selain itu, menurut laporan tersebut, BlackBerry juga mundur dari segmen tablet.

Kemunduran tiga produsen tablet tersebut karena tingginya persaingan, terutama di segmen tablet low end. Perusahaan seperti Samsung, Acer, Asus serta Lenovo membanjiri segmen ini dengan tablet yang berbanderol kurang dari 200 USD. Terlebih Samsung baru saja mengumumkan kalau mereka bakal lebih memfokuskan diri di pasar tablet.

Dilihat dari aktivitasnya di pasar tablet, tiga perusahaan ini memang sudah cukup lama tak mengeluarkan perangkat baru. Jadi tidak mengherankan kalau mereka memilih untuk keluar dari segmen ini. Di sisi lain, HTC dan BlackBerry saat ini tengah melakukan usaha untuk bangkit dari posisi yang terpuruk.

Toshiba Perkenalkan Tablet Dynabook Tab VT484 dengan Layar 8 Inci dan Prosesor Intel Bay Trail

Toshiba memiliki produk ultrabook pada line Dynabook. Dan ternyata, brand Dynabook juga mereka pakai untuk produk tablet Windows miliknya. Dan perusahaan asal Jepang tersebut pun baru saja merilis tablet Dynabook Tab VT484 yang menggunakan sistem operasi Windows 8.1

Dynabook Tab VT484 ini hadir dengan layar berukuran 8 inci 1280 x 800 piksel. Di dalamnya, terdapat prosesor Intel Atom Z3740 1.33GHz Bay Trail yang dipasangkan dengan RAM 2GB. Terdapat opsi memori internal 32GB dan 64GB. Ada pula slot microSD untuk tambahan kapasitas penyimpanan.

Selanjutnya, tablet Windows ini mempunyai dual kamera, 8MP di belakang serta 2MP di bagian depan. Fitur lainnya, terdapat konektivitas WiFi, Bluetooth serta micro HDMI. Mengenai harganya, tablet ini dipatok dengan harga mulai dari 491 USD. Belum ada informasi mengenai kemungkinan Toshiba untuk menyediakan tablet ini di pasar Internasional.

Acer Aspire Z3-600, PC AiO Sekaligus Tablet dengan Layar 21.5 Inci dan Baterai yang Tahan 2.5 Jam

Bagaimana jika Anda mempunyai sebuah PC all-in-one (AiO) yang juga bisa digunakan selayaknya sebuah tablet? Acer Aspier Z3-600 adalah salah satu pilihannya. PC ini hadir dengan layar 21.5 inci serta baterai yang mampu digunakan hingga 2.5 jam.

Dengan desainnya yang demikian, PC AiO ini pun bisa digunakan di dalam ruangan atau juga bisa dibawa secara mobile. Meskipun tentunya cukup repot untuk membaya sebuah tablet dengan ukuran 21.5 inci ke mana-mana.

PC ini hadir dengan prosesor Intel Pentium J2580 quad core yang ditunjang oleh RAM DDR3 sebesar 4GB. Terdapat pula HDD berkapasitas 750GB serta port USB 3.0 yang mendukung penggunaan sarana penyimpanan eksternal.

Acer juga menyematkan speaker Harman Kardon pada PC ini. Fitur lain yang ada pada perangkat ini adalah webcam dan HDMI yang memungkinkan untuk streaming film berdampingan dengan HDTV. Pihak Acer berencana untuk menjual PC AiO ini mulai bulan ini dengan harga sebesar 779 USD.

program pemakaian listrik

programan pemakaian Listrik

Public Class Form1
    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 = tbyr.Text
        lst.SubItems.Add(nu.Text)
        lst.SubItems.Add(kp.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(tp.Text)
        lst.SubItems.Add(bb.Text)
        lst.SubItems.Add(mbl.Text)
        lst.SubItems.Add(ms.Text)
        lst.SubItems.Add(hpkwh.Text)
        lst.SubItems.Add(bp.Text)
        lst.SubItems.Add(pjk.Text)
        lst.SubItems.Add(tgh.Text)
        lst.SubItems.Add(tbyr.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kp.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 kp.TextChanged
        Dim x As String
        nu.Text = "1" & Microsoft.VisualBasic.Right(kp.Text, 2)
        x = Microsoft.VisualBasic.Mid(kp.Text, 4, 3)
        If x = "MED" Then
            daerah.Text = "medan"
            pjk.Text = 0.015
        ElseIf x = "BEL" Then
            daerah.Text = "BELAWAN"
            pjk.Text = 0.015
        ElseIf x = "TEM" Then
            daerah.Text = "AKSARA"
            pjk.Text = 0.015
        ElseIf x = "MAR" Then
            daerah.Text = "MARENDAL"
            pjk.Text = 0.015
        ElseIf x = "BIN" Then
            daerah.Text = "BINJAI"
            pjk.Text = 0.015
        ElseIf x = "PAK" Then
            daerah.Text = "LUBUK PAKAM"
            pjk.Text = 0.015
        End If
        x = Microsoft.VisualBasic.Mid(kp.Text, 1, 3)
        If x = "TOK" Then
            tp.Text = "TOKO"
            hpkwh.Text = "500"
            bb.Text = "150000"
        ElseIf x = "RUM" Then
            tp.Text = "RUMAH"
            hpkwh.Text = "200"
            bb.Text = "50000"
        ElseIf x = "SWA" Then
            tp.Text = "SWALAYAN"
            hpkwh.Text = "1500"
            bb.Text = "400000"
        ElseIf x = "PAB" Then
            tp.Text = "PABRIK"
            hpkwh.Text = "1000000"
            hpkwh.Text = "10000"
        End If
    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        bp.Text = ms.Text - mbl.Text
        tgh.Text = bb.Text + (hpkwh.Text * bp.Text)
        tb.Text = tgh.Text * 0.015
    End Sub

 
    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        kp.Text = ""
        daerah.Text = ""
        bb.Text = ""
        tp.Text = ""
        mbl.Text = ""
        hpkwh.Text = ""
        tbyr.Text = ""
        ms.Text = ""
        nu.Text = ""
        tgh.Text = ""
        bp.Text = ""
        pjk.Text = ""
    End Sub


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


    Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click
        kp.Text = ""
        daerah.Text = ""
        bb.Text = ""
        tp.Text = ""
        mbl.Text = ""
        hpkwh.Text = ""
        tbyr.Text = ""
        ms.Text = ""
        nu.Text = ""
        tgh.Text = ""
        bp.Text = ""
        pjk.Text = ""
    End Sub

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

        Dim i As Integer
        For i = 1 To 30
            tbyr.Items.Add(i)
        Next i
    End Sub
End Class

Program gaji pegawai PT.Telkom

Pemrograman Gaji Pegawai PT.Telkom

Tampilan program

Public Class Form1

    Private Sub namapegawai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles namapegawai.SelectedIndexChanged
        If namapegawai.Text = "Mukti pradana" Then
            gol.Text = "IIIA"
            GP.Text = 1500000
        ElseIf namapegawai.Text = "John" Then
            gol.Text = "IIIB"
            GP.Text = 2500000
        Else
            gol.Text = "IIIC"
            GP.Text = 3500000
        End If
        pajak.Text = 0.15 * GP.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        namapegawai.Items.Add("Mukti Pradana")
        namapegawai.Items.Add("John")
        namapegawai.Items.Add("Rikky")
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        gajibersih.Text = Val(gajibersih.Text) - Val(pinjaman.Text) - Val(pajak.Text)
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        namapegawai.Text = ""
        gol.Text = ""
        GP.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        gajibersih.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 adalah tampilan listing program gaji pegawai PT.Telkom: