19 Juli 2013

Perintah Select...Case pada VB.net

Jika statement If melakukan pemilihan berdasarkan kondisi, maka perintah Select melakukan pemilihan berdasarkan nilai ekspresi dengan syntax sebagai berikut :
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select


Contoh :
Option Explicit On
Imports System
Module ModHari
Sub Main()
Dim Hari As Byte
Console.Write("Masukkan No Hari :")
Hari = Console.ReadLine()
Select Case Hari
Case 1
Console.WriteLine("Senin")
Case 2
Console.WriteLine("Selasa")
Case 3
Console.WriteLine("Rabu")
Case 4
Console.WriteLine("Kamis")
Case 5
Console.WriteLine("Jumat")
Case 6
Console.WriteLine("Sabtu")
Case 7
Console.WriteLine("Minggu")
Case Else
Console.WriteLine("No Hari tidak sah")
End Select
End Sub
End Module


Contoh Lain :
Option Explicit On
Imports System
Module ModHari
Sub Main()

Dim Angka As Integer
Console.Write("Masukkan Angka 1 s/d 9 :")
Angka = Console.ReadLine()
Select Case Angka
Case Is < 1
Console.WriteLine("Terlalu kecil")
Case 1 To 5
Console.WriteLine("Berada antara 1 dan 5")
Case 6,7,8,9
Console.WriteLine("Berada antara 6 dan 9")
Case Else
Console.WriteLine("Terlalu besar")
End Select
End Sub
End Module

0 komentar:

Poskan Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking