CONTOH PENCABANGAN IF, IF ELSE , CASE PADA VB.NET 2008

1. Buat Project baru
2. Desain form seperti pada gambar di bawah ini :

3.   Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Pencabangan IF
Button1	Name Text	Btn_if IF.. ENDIF
Button2	Name Text	Btn_if_else IF.. ELSE.. ENDIF
Button3	Name Text	Btn_case CASE.. ENDCASE

4.  Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini :

Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click         Dim usia As String, nilai As Single, thn As Integer         usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)         nilai = Val(usia)         If nilai >= 55 Then             thn = nilai - 55             MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)         End If     End Sub

5.   Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini :

Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click         Dim usia As String, nilai As Single, thn As Integer         usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)         nilai = Val(usia)         If nilai >= 55 Then             thn = nilai - 55             MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)         Else             thn = 55 - nilai             MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             MessageBox.Show("Keterangan : Pegawai akan pensiun " & thn & " lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)         End If     End Sub

6.   Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini :

Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click         Dim isian As String, usia As Integer         isian = InputBox("Usia anda saat ini?", "Status Anda")         usia = Val(isian)         MessageBox.Show("Usia Anda saat ini : " & usia & " tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)         Select Case usia             Case 1 To 4                 MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             Case 5 To 16                 MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             Case 17 To 24                 MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             Case 25 To 55                 MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             Case Is >= 56                 MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)             Case Else                 MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)         End Select     End Sub

7.   Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
     toolbar, atau melalui menu Debug > Start Debuging.
8. Simpan aplikasi anda.

hasilnya dapat dilihat pada gambar di bawah ini :

untuk mendownload projectnya klik disini