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 :
c

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 bermanfaat silahkan share Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data ini dengan teman anda, Terima kasih sebelumnya

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s