Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Kamis, 14 Februari 2013 | 09:41 WIB | Dibaca : 7988 kali | Kategori : Prog VB.NET
Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Bila sebelumnya pembahasan kasus nilai menggunakan IF jamak, maka pada pembahasan ini digunakan Case Select untuk memilih Nama Pegawai dan Gaji Pegawai.

Bila di ketahui terdapat 4 Pegawai dengan NIP yang berbeda dan Golongan juga terdapat 4 jenis. Untuk Nama pegawai dan Gaji nilai data boleh nilai berapa saja.

Berikut akan di bahas dalam Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Design lah Form berikut ini :


Berikut listing Programnya

Public Class Form1

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        'Untuk Keluar dari program
        End
    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
        'Membersihkan isian NIP, Nama, Golongan dan Gaji
        NIP.Text = ""
        Nama.Text = ""
        Golongan.Text = ""
        Gaji.Text = ""
        'Untuk memfocuskan NIP
        NIP.Focus()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Mengisikan data ke Combo NIP
        NIP.Items.Add("4021001")
        NIP.Items.Add("4021002")
        NIP.Items.Add("4021003")
        NIP.Items.Add("4021004")

        'Mengisikan data ke Combo Golongan
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
        Golongan.Items.Add("IVA")
    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        'Untuk menseleksi hasil pemilihan NIP
        Select Case NIP.Text
            Case "4021001" : Nama.Text = "Aldyan"
            Case "4021002" : Nama.Text = "Mesran"
            Case "4021003" : Nama.Text = "Surya Darma Nasution"
            Case "4021004" : Nama.Text = "Azanuddin"
            Case Else
                Nama.Text = ""  'Apabila tidak ada yang sama
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        'Untuk menseleksi hasil pemilihan Golongan
        Select Case Golongan.Text
            Case "IIIA" : Gaji.Text = 1500000
            Case "IIIB" : Gaji.Text = 1750000
            Case "IIIC" : Gaji.Text = 1900000
            Case "IVA" : Gaji.Text = 2500000
            Case Else
                Gaji.Text = 0  'Apabila tidak ada yang sama
        End Select
    End Sub
End Class



Demikianla artikel Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data semoga artikel ini dapat membantu anda dan mari semangat belajar bahasa pemrograman.

Tag : Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data, Select Case, program vb.net, vb net, bahasa pemrograman, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic net, tempat download program


Bila berita ini bermanfaat silahkan share Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Anda berada di halaman Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data, dan telah membaca artikel Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data. Artikel Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data bisa anda peroleh pada halaman http://www.mesran.web.id/berita-549-penggunaan-perintah-select-case-pada-visual-basicnet-dalam-pemilihan-data.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id