4.1 Percabangan
Pencabangan
adalah merupakan perintah yang dapat memberikan pilihan suatu kondisi, program
akan menjalankan perintah apabila suatu kondisi memenuhi syarat tertentu.
Pencabangan dapat dibedakan menjadi : a. IF … THEN If … then merupakan
pencabangan yang mempunyai satu pencabangan atau satu blok perintah. Format
penulisannya :
|
If
kondisi then [perintah]
End
if |
IF
… THEN … ELSE
Suatu
perintah pencabangan bersarang (Nested If) yang merupakan perkembangan dari
perintah pencabangan IF.. THEN, yang dapat menjalankan satu blok perintah, yang
memiliki dua nilai atau syarat bahkan lebih yang akan diuji untuk menjalankan
sautu kondisi tertentu. Bila kondisi pertama benar maka jalankan perintah blok
pertama, jika kondisi pertama salah maka jalankan perintah blok kedua dan
selanjutnya. Format Penulisannya :
|
IF
(kondisi) then [perintah]
ELSE
[perintah]
End
if |
Dan
|
If
(kondisi2) then [perintah]
ELSEIF
(kondisi2) Then [perintah]
… ELSE [perintah]
End
If |
Select
… Case …
Select
Case adalah control pencabangan yang mempunyai fungsi hampir sama dengan
pencabangan if … then… else. Select mempunyai penulisan dan pembacaan yang
lebih mudah, efektif dan efesien. Namun mempunyai kelemahan yaitu tida dapat
menguji lebih dari satu ekspresi atau unkapan. Format penulisannya adalah
sebagai berikut :
Select Case
kondisi
Case | Case is =
ekspresi1
[perintah1]
Case | Case is =
ekspresi2
[perintah2]
Case | Case is =
ekspresi3
[perintah3]
…
Case Else
[perintah]
End Select
PROGRAM APLIKASI
4.2.1
IF, IF Else dan Case
a. Design :
|
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 |
b, Code
Program
|
Public Class Form6 Private Sub Btn_if_Click(sender As Object, e As 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
Private Sub Btn_if_else_Click(sender As Object, e As 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
Private Sub Btn_case_Click(sender As Object, e As 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 End Class |
c. Hasil Running :
4.2.1
Nested IF
a. Design :
|
Object |
Properties |
Nilai |
|
Form1 |
Name Text |
Form1 Pencabangan IF |
|
Label1 |
Text |
User Name |
|
Label2 |
Text |
Password |
|
TextBox1 |
Name |
TxtUserName |
|
TextBox2 |
Name PasswordChar |
TxtPassword * |
|
Button1 |
Name Text |
BtnLogin Login |
|
Button2 |
Name Text |
BtnCancel Cancel |
b. Code
Program
|
Public Class Form1
Private Sub
BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
If TxtPassword.Text = "" And TxtUserName.Text = "" Then MessageBox.Show("User name dan Password harus
diisi", "Konfirmasi", MessageBoxButtons.OK,
MessageBoxIcon.Question) TxtUserName.Focus()
ElseIf TxtPassword.Text = "" Then MessageBox.Show("Password harus diisi", "Konfirmasi",
MessageBoxButtons.OK, MessageBoxIcon.Question) TxtPassword.Focus()
ElseIf TxtUserName.Text = "" Then MessageBox.Show("User name harus diisi", "Konfirmasi",
MessageBoxButtons.OK, MessageBoxIcon.Question) TxtUserName.Focus()
ElseIf TxtUserName.Text = "STIKOM" And
TxtPassword.Text = "1234" Then MessageBox.Show("Password dan User Name
Benar", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)
Else MessageBox.Show("Password dan User Name Anda
Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question) TxtUserName.Text = "" TxtUserName.Text = ""
TxtUserName.Focus()
End If
End Sub
Private Sub
BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
End
End Sub End Class |
Komentar
Posting Komentar