Struktur Case di VB.NET
Buat Project baru dengan cara pilih New Project->Windows Form Application->beri nama Hari to Day->Click OK
Saya jelaskan terlebih dahulu program Hari to Day,saat kita memasukan
input(nama hari dalam Bahasa Indonesia) di Textbox kemudian tekan Button
maka outputnya adalah nama hari dalam Bahasa Inggris,dengan menggunakan
select case
Tambahakan 1 label,1 textbox,1 button di bagian Toolbox
Di bagian Properties ubah :
Form
Text : Hari to Day
label1
Text : Masukan nama hari
button1
Text : ok
Silakan jika anda mau kreasi sendiri,memberi background,dan lain sebagainya
untuk codingnya sebagai berikut :
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim hari As String
hari = TextBox1.Text
Select Case hari
Case "senin"
MessageBox.Show("Monday")
Case "selasa"
MessageBox.Show("Tuesday")
Case "rabu"
MessageBox.Show("Wednesday")
Case "kamis"
MessageBox.Show("Thursday")
Case "jumat"
MessageBox.Show("Friday")
Case "sabtu"
MessageBox.Show("Saturday")
Case "minggu"
MessageBox.Show("Monday")
Case ""
MessageBox.Show("Kosong")
End Select
End Sub
End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim hari As String
hari = TextBox1.Text
Select Case hari
Case "senin"
MessageBox.Show("Monday")
Case "selasa"
MessageBox.Show("Tuesday")
Case "rabu"
MessageBox.Show("Wednesday")
Case "kamis"
MessageBox.Show("Thursday")
Case "jumat"
MessageBox.Show("Friday")
Case "sabtu"
MessageBox.Show("Saturday")
Case "minggu"
MessageBox.Show("Monday")
Case ""
MessageBox.Show("Kosong")
End Select
End Sub
End Class
TEKAN F5
Terimakasih Atas Komentar Anda....!!! :) EmoticonEmoticon