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

Desainlah Form Berikut ini :

Ketiklah Koding Dibawan ini :

Public Class online_quis

    Private Sub online_quis_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Pegawai", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Golongan", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Pokok", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Bersih", 150, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        cmbNIK.Items.Add("1")
        cmbNIK.Items.Add("2")
        cmbNIK.Items.Add("3")

        cmbGolongan.Items.Add("1")
        cmbGolongan.Items.Add("2")
        cmbGolongan.Items.Add("3")
    End Sub

    Private Sub cmbNIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbNIK.SelectedIndexChanged
        If cmbNIK.Text = "1" Then
            txtnama.Text = "Hendro"
        ElseIf cmbNIK.Text = "2" Then
            txtnama.Text = "Dian"
        ElseIf cmbNIK.Text = "3" Then
            txtnama.Text = "Jhoni"
        End If
    End Sub

    Private Sub cmbJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbGolongan.SelectedIndexChanged
        If cmbGolongan.Text = "1" Then
            txtGajiPokok.Text = 1500000
        ElseIf cmbGolongan.Text = "2" Then
            txtGajiPokok.Text = 2500000
        ElseIf cmbGolongan.Text = "3" Then
            txtGajiPokok.Text = 3500000
        End If
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        txtPajak.Text = 0.05 * Val(txtGajiPokok.Text)
        txtGajiBersih.Text = Val(txtGajiPokok.Text) - Val(txtPajak.Text)
    End Sub

    Private Sub btnisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnisi.Click
        Dim lst As New ListViewItem
        lst.Text = cmbNIK.Text
        lst.SubItems.Add(txtnama.Text)
        lst.SubItems.Add(cmbGolongan.Text)
        lst.SubItems.Add(txtGajiPokok.Text)
        lst.SubItems.Add(txtPajak.Text)
        lst.SubItems.Add(txtGajiBersih.Text)
        lv.Items.Add(lst)

        Call btnBatal_Click(sender, e)
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        cmbNIK.Text = ""
        txtnama.Text = ""
        cmbGolongan.Text = ""
        txtGajiPokok.Text = ""
        txtPajak.Text = ""
        txtGajiBersih.Text = ""
    End Sub
    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        End
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        lv.Items.Clear()
    End Sub
End Class

Hasil Setelah di proses

 

Hasil setelah di isi ke Listview

Demikianlah postingan saya ini semoga bermanfaat...  

Selamat belajar ea????

mesran.net

Nama     : Edisokhi Waruwu

NPM     : 14110114

Kelas    : TI-M1409

Read More

Belajar Pemogram Mesran.net

Sedikit saya share informasi bagi kita semua bagi yang suka belajar program. Nah jika ada niat teman-tema untuk belajar program kunjungi aja website mesran.net atau http://mesran.blogspot.com
 karena disitu anda dapat mengerti apa itu progran dan sepertia apa program...

http://mesran.blogspot.com merupakan Website yang paling penting dan sangat berguna bagi kita yang suka atau yang berkeinginan membuat program. yang dibuat oleh salah satu Dosen STMIK BUDIDARMA MEDAN yaitu Bapak Mesran, S.Kom, M.Kom.

karena di website http://mesran.blogspot.com disana terdapat tips atau cara belajar program yang mudah kita mengerti, salah satu contonya Program Visual Basic Net Untuk Penjualan Penjualan Menggunakan DataGridView, Program VB Net Untuk Menampilkan Gambar Dari Database MySQL, Program Form Login Ke Aplikasi Menggunakan Username dan Password Di Database Menggunakan VB Net, Program C Sharp Edit Data Pada Database SQL Server, Penerapan Array Dimensi 1 Menggunakan Program C, Menampilkan Record File Bertipe di Pemrograman Pascal, dan masih banyak yang lain.

setelah saya mengunjungi website http://mesran.blogspot.comt saya semakin berkeingin lebih lagi mempelajari tentang pemograman, karena mempelajari program itu bagi saya sangat bagus.

mungkin cuman ini saja yang bisa saya share bagi teman-teman semua....

Read More

Program Pembayaran Pemakian Air pada VB 2008

* Desainlah terlebih dahulu form dibawah ini!!!

* Setelh anda mendesain formnya
* Ketiklah Koding dibawah ini

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("TOK-MED-100")
        kp.Items.Add("PAB-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("PAB-MED-103")
        kp.Items.Add("RUM-MED-104")
    End Sub

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

        If x = "100" Then
            nama.Text = "Edisokhi Waruwu"
        ElseIf x = "101" Then
            nama.Text = "Aperius Giawa"
        ElseIf x = "102" Then
            nama.Text = "Marlina Ndruru"
        ElseIf x = "103" Then
            nama.Text = "Dian Ayu"
        End If

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

        If x = "PAB" Then
            harga.Text = 500
            biaya.Text = 125000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            harga.Text = 500
            biaya.Text = 12500
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            harga.Text = 500
            biaya.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            harga.Text = 200
            biaya.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)

        If x = "MED" Then
            daerah.Text = ("Medan")
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If

    End Sub

    Private Sub pemakian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakian.KeyPress

        If Asc(e.KeyChar) = 13 Then
            total.Text = harga.Text * pemakian.Text + Val(biaya.Text)
            pajak.Text = 0.01 * total.Text
            pembayaran.Text = Val(total.Text) + Val(pajak.Text)
        End If

    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        total.Text = ""
        harga.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakian.Text = "'"
        daerah.Text = ""
        biaya.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

* Inilah tampilan Hasilnya................

Semoga bermanfaat bagi kita semua... syallom

Read More