top of page
Search

Percabangan IF,Switch Case, & Nested IF Pada Visual Studio!

Pencabangan

Pencabangan adalah merupakan perintah yang dapat memberikan pilihan suatu kondisi, program akan menjalankan perintah apabila suatu kondisi memenuhi syarat tertentu. Pencabangan dapat dibedakan menjadi :


  1. IF … THEN If … then merupakan pencabangan yang mempunyai satu pencabangan atau satu blok perintah. Format penulisannya :

If kondisi then
  [perintah]
End if

  1. 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

BISA JUGA!

If (kondisi2) then
  [perintah]
ELSEIF (kondisi2) Then 
  [perintah]
…
ELSE
  [perintah]
End If

  1. 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


Pratikum!!!

Pencabangan IF.. , IF.. ELSE, CASE..

1. Buat form baru.

2. Desain Tampilan form seperti gambar berikut ini :


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


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

PrPrivate 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


Pencabangan Bersarang (NESTED IF)


1. Buat project baru, dengan nama Prak4.

2. Desain Tampilan form seperti gambar berikut ini :


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


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

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

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

Private Sub BtnCancel_Click(sender As Object, e As EventArgs) Handles BtnCancel.Click
        End
End Sub

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


7. Simpan aplikasi Anda


Latihan Praktikum!!!


1. Masih dalam aplikasi visual studio 2019, tambahkan form baru dengan cara klik kanan project lalu pilih Add setelah itu pilih windows Form kemudian klik ok


2. Setelah tampilan awal muncul design form seperti gambar dibawah ini



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




4. Klik kanan pada ComboBox1, kemudian klik edit item setelah itu isi item nya seperti ini:




5. Klik kanan pada ComboBox2, kemudian klik edit item setelah itu isi item nya seperti ini:




6. Klik kanan pada ComboBox3 dan ComboBox4, kemudian klik edit item setelah itu isi item nya seperti ini:




7. Pertama – tama deklarasikan terlebih dahulu variable sebagai variable global dengan cara klik ganda pada form1 dan masukan kodingan seperti berikut:

Public Class Form1
    Dim hrg_baju, hrg_celana, pesan_baju, pesan_celana, total, bayar As Integer
    Dim diskon As Integer

8. Selanjutnya klik ganda pada CombBox3 dan masukan kodingan berikut:

Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "Dior"
                Select Case ComboBox3.Text
                    Case "S"
                        Label1.Text = "Rp. 45000"
                        hrg_baju = 45000
                    Case "M"
                        Label1.Text = "Rp. 46000"
                        hrg_baju = 46000
                    Case "L"
                        Label1.Text = "Rp. 47000"
                        hrg_baju = 47000
                    Case "XL"
                        Label1.Text = "Rp. 47500"
                        hrg_baju = 47500
                End Select
            Case "Celine"
                Select Case ComboBox3.Text
                    Case "S"
                        Label1.Text = "Rp. 55000"
                        hrg_baju = 55000
                    Case "M"
                        Label1.Text = "Rp. 56000"
                        hrg_baju = 56000
                    Case "L"
                        Label1.Text = "Rp. 57000"
                        hrg_baju = 57000
                    Case "XL"
                        Label1.Text = "Rp. 57500"
                        hrg_baju = 57500
                End Select
            Case "YSL"
                Select Case ComboBox3.Text
                    Case "S"
                        Label1.Text = "Rp. 65000"
                        hrg_baju = 65000
                    Case "M"
                        Label1.Text = "Rp. 66000"
                        hrg_baju = 66000
                    Case "L"
                        Label1.Text = "Rp. 67000"
                        hrg_baju = 67000
                    Case "XL"
                        Label1.Text = "Rp. 67500"
                        hrg_baju = 67500
                End Select
        End Select

        TextBox1.Focus()
    End Sub

9. Selanjutnya klik ganda pada CombBox4 dan masukan kodingan berikut:

Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case "Eiger"
                Select Case ComboBox4.Text
                    Case "S"
                        Label2.Text = "Rp. 45000"
                        hrg_celana = 45000
                    Case "M"
                        Label2.Text = "Rp. 46000"
                        hrg_celana = 46000
                    Case "L"
                        Label2.Text = "Rp. 47000"
                        hrg_celana = 47000
                    Case "XL"
                        Label2.Text = "Rp. 47500"
                        hrg_celana = 47500
                End Select
            Case "Arei"
                Select Case ComboBox4.Text
                    Case "S"
                        Label2.Text = "Rp. 55000"
                        hrg_celana = 55000
                    Case "M"
                        Label2.Text = "Rp. 56000"
                        hrg_celana = 56000
                    Case "L"
                        Label2.Text = "Rp. 57000"
                        hrg_celana = 57000
                    Case "XL"
                        Label2.Text = "Rp. 57500"
                        hrg_celana = 57500
                End Select
            Case "TNF"
                Select Case ComboBox4.Text
                    Case "S"
                        Label2.Text = "Rp. 65000"
                        hrg_celana = 65000
                    Case "M"
                        Label2.Text = "Rp. 66000"
                        hrg_celana = 66000
                    Case "L"
                        Label2.Text = "Rp. 67000"
                        hrg_celana = 67000
                    Case "XL"
                        Label2.Text = "Rp. 67500"
                        hrg_celana = 67500
                End Select
        End Select
    End Sub

10. Selanjutnya klik ganda pada CheckBox1 dan masukan kodingan berikut:

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            ComboBox2.Visible = False
            ComboBox4.Visible = False
            Label2.Visible = False
            Label4.Visible = False
            Label13.Visible = False
            Label12.Visible = False
            TextBox2.Visible = False

        ElseIf CheckBox1.Checked = True Then
            ComboBox2.Visible = True
            ComboBox4.Visible = True
            Label2.Visible = True
            Label4.Visible = True
            Label13.Visible = True
            Label12.Visible = True
            TextBox2.Visible = True
        End If
        TextBox2.Focus()
    End Sub

11. Selanjutnya klik ganda pada Button1 atau Button Hitung dan masukan kodingan berikut:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label5.Visible = True
        GroupBox2.Visible = True

        pesan_baju = hrg_baju * Val(TextBox1.Text)
        pesan_celana = hrg_celana * Val(TextBox2.Text)
        total = pesan_baju + pesan_celana
        If total >= 100000 And total <= 199000 Then
            Label9.Visible = True
            Label9.Text = "Diskon 10%"
            diskon = total - (total * 0.1)
            Label5.Text = "Rp. " & total.ToString
            TextBox4.Text = "Rp. " & diskon.ToString
        ElseIf total >= 200000 Then
            Label9.Visible = True
            Label9.Text = "Diskon 20%"
            diskon = total - (total * 0.2)
            Label5.Text = "Rp. " & total.ToString
            TextBox4.Text = "Rp. " & diskon.ToString
        ElseIf total <= 99900 Then
            Label9.Visible = True
            Label9.Text = "Diskon 0%"
            Label5.Text = "Rp. " & total.ToString
            TextBox4.Text = "Rp. " & total.ToString
        End If

        TextBox4.Focus()
    End Sub

12. Selanjutnya klik ganda pada Button2 atau Button Bayar dan masukan kodingan berikut:

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If total >= 100000 Then
            bayar = Val(TextBox3.Text) - diskon
        ElseIf total <= 99900 Then
            bayar = Val(TextBox3.Text) - total
        End If

        If bayar <= Val(TextBox4.Text) Then
            MsgBox("Uang Anda Kurang!! Silahkan Inputkan Jumlah Uang Sesuai / lebih Dengan Jumlah Harga Yang Telah Dipesan", MsgBoxStyle.Information, "info")

            TextBox3.Text = ""

            Label7.Visible = False
            TextBox5.Visible = False
            Button3.Visible = False

        Else
            TextBox5.Text = "Rp. " & bayar.ToString

            Label7.Visible = True
            TextBox5.Visible = True
            Button3.Visible = True
        End If

    End Sub

13. Selanjutnya klik ganda pada Button3 atau Button Clear dan masukan kodingan berikut:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Controls.Clear()
        Me.InitializeComponent()
End Sub

Jalankan program dengan cara menekan tombol f5 atau klik start pada aplikasi dan hasilnya seperti ini, dan Simpan.

コメント

bottom of page