PRAKTIKUM 8 PERCABANGAN DAN PERULANGAN

Percabangan

Percabangan adalah pemilihan statemen pada kondisi dua pilihan atau banyak pilihan, yang akan dieksekusi selanjutnya di mana pemilihan tersebut didasarkan atas kondisi tertentu. Sedangkan Perulangan adalah metode yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu.

Percabangan dapat dibedakan menjadi :

A. IF .... THEN

merupakan pencabangan yang mempunyai satu pencabangan atau satu blok perintah. Perintah If - Then ini digunakan untuk program dengan 1 kondisi.

Bentuk Umum :

If (Kondisi) Then

(perintah)

End If

Contoh :

Private Sub Keluar_Click()

If MsgBox ("Anda Yakin Akan Keluar? ", vbQuestion + vbYesNo, "Konfirmasi") = vbOK ThenUnload Me

End If

End Sub

B. 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 suatu kondisi tertentu. Bila kondisi pertama benar maka jalankan perintah blok pertama, jika kondisi pertama salah maka jalankan perintah blok kedua dan selanjutnya Biasanya perintah ini untuk kondisi ganda.

Bentuk umum :

IF (Kondisi) then

[perintah]

ELSE

[perintah]

End If

Dan

IF (Kondisi2) then

[perintah]

ELSEIF (kondisi2) Then

[perintah]

....

ELSE

[perintah]

Contoh ;

If (cmbkode = "Elit") Then
                  txthm = 50000
ElseIf (cmbkode = "Hemat") Then
            txthm = 30000
Else
            txthm = 0
End If

Contoh 2 :

If (cmbkode = "Elit") Then
            If (cmbpaket = “1”) Then
                              txthm = 50000
                  ElseIf (cmbpaket = ”2”) Then
                              txthm = 60000
                  Else
                              Txthm = 0
                  End If
ElseIf (cmbkode = "Hemat") Then
            If (cmbpaket = “1”) Then
                              txthm = 30000
                  ElseIf (cmbpaket = ”2”) Then
                              txthm = 20000
                  Else
                              Txthm = 0
                  End If
Else
            txthm = 0
      End If

C. SELECT ... CASE ...

Select Case adalah controk percabangan yang mempunyai fungsi hampir sama dengan pencabangan if .... then.... else, Select mempunyai penulisan dan pembacaan yang lebih mudah, efektif dan efisien. Namun mempunyai kelemahan yaitu tidak dapat menguji lebih dari satu ekspresi atau ungkapan.

Bentuk Umum :

Select Case kondisi

Case | Case is = ekspresi1

[perintah1]

Case | Case is = ekspresi2

[perintah2]

Case | Case is = ekspresi3

[perintah3]

Contoh :

Select Case (cmbkode)
            Case (“Elit”)
                              txthm = 50000
Case ("Hemat")
                        txthm = 30000

Case Else
                        txthm = 0
End Select

PRAKTIKUM 1 PENCABANGAN IF.. , IF .. ELSE, CASE..

1. Buat projek baru dengan nama pencabangan nama form baru di visual studio dengan nama pencabangan if

2. Buat button 1 dengan format name (Btn_if) , text ( IF... ENDIF)

3. Buat Button 2 dengan format name (Btn_if_else) , text (IF..ELSE...ENDIF)

4. Buat Button 3 dengan format name (Btn_case) , text (CASE..ENDCASE)

5. Masukkan kode program pada Button 1 (IF..ENDIF)

6. Masukkan kode program pada Button 2 (IF..ELSE..ENDIF)

7. Masukkan kode program pada Button 3 (CASE..ENDCASE)

8. Jalankan program dengan mengklik start

PRAKTIKUM 2 PERCABANGAN BERSARANG (NESTED IF)

1. Buat projek baru dengan nama pencabanganbersarang(nestedif) lalu buat form baru dengan nama pencabangan if

2. Buat label 1 dengan name (User Name)

3. Buat label 2 dengan name (Password)

4. Buat textbox 1 dengan name (TxtUserName)

5. Buat textbox 2 dengan name (TxtPassword)

6. Buat button 1 dengan name (BtnLogin) , text (Login) , button 2 dengan name (BtnCancel)

7. Masukkan kode program pada button 1 (login)

8. Klik start untuk menjalankan program

PRAKTIKUM KUIS PERTEMUAN 8

1. Buat Projek baru dengan nama kuispertemuan8

2. Buat label 1 dan label 2 dengan Merk Baju dan Ukuran

3. Buat combobox 1 dan 3

4. Buat Label dengan nama Harga

5. Buat checkbox dengan name (termasuk dengan celana)

6. Buat label Merk celana dan ukuran

7. Buat combo box sejajar dengan merk celana dan ukuran

8. Buat label dengan name harga

9. Buat groupbox 1 dengan name (menu makanan), buat label (berapa pesan baju, berapa pesan celana, dan jumlah bayar) , buat 2 combo box , Buat button 1 (hitung),

10. Buat Groupbox 2 dengan name (kasir), buat label dengan name (Diskon, total bayar, uang bayar dan uang kembali), buat 2 textbox sejajar dengan total harga dan uang kembali, buat combo box sejajar dengan uang bayar , Buat button bayar dan clear