Visual Basic 6.0 For Beginners Febryan Hari Purwanto
[email protected]
Chapter 6 Alur Program ‐ Kondisi Percabangan Sebuah aplikasi harus memiliki alur program yang baik sehingga tidak akan terjadi kesalahan dan hasil yang dikeluarkan oleh program tidak menyimpang dari yang diinginkan ketika program berjalan. Untuk itu perlu dibuat sebuah kondisi percabangan dalam program. Dalam Visual Basic ada beberapa kondisi percabangan yang dapat digunakan seperti IF… THEN atau SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti operator sama dengan (=), tidak sama dengan (<>) atau operator‐operator perbadingan lainnya ( >, >=, <, <=). 1. If … Then Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True ) maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan. Bentuk kondisi percabangan If … Then pada Visual Basic adalah : If Kondisi1 Then Pernyataan1 ………… ElseIf Kondisi2 Then Pernyataan2 …........ Else Pernyataan3 ………… End if
Kondisi percabangan If …Then biasanya digunakan untuk menentukan kondisi perhitungan matematika, membatasi tndakan pengguna program , mengatur tampilan atau mencegah error ketika program di jalankan. 2. Select Case Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan. Bentuk umum percabangan Select Case dalam Visual Basic adalah sebagai berikut : Select Case Pilihan Case 1 Pernyataan1 ….. Case 2 Pernyataan2 ….. Case 3 Pernyataan3 …… End Select Pada struktur percabangan Select Case di atas jika Pilihan yang dimasukkan oleh pengguna bernilai 1 maka Pernyataan 1 di eksekusi, jika bernilai 2 maka Pernyataan 2 yang dieksekusi, jika bernnilai 3 maka Pernyataan 3 yang di eksekusi. Untuk lebih memahami materi tentang kondisi percabangan, buatlah project baru pada Visual Basic 6.0 kemudian pilih Standard.EXE dan buatlah tampilan Form sebagai berikut :
Kemudian atur property masing‐masing object sebagai berikut : Object Property Value Form1 Name FormPercabangan Caption Test Percabangan Frame1 Caption Test If … Then Frame2 Caption Test Select Case Label1 Caption Masukkan sembarang angka : Label2 Caption Pilih salah satu : Command1 Name cmdCekBilangan Caption Cek Bilangan Command2 Name cmdCekPilihan Caption Cek Pilihan Text1 Name txtBilangan List1 Name LstPilihan Kemudian copy paste source code berikut ini : Kode Program : Private Sub cmdCekBilangan_Click() Dim a As Integer a = CInt(txtBilangan.Text) If a Mod 2 = 0 Then MsgBox "Bilangan yang anda masukkan adalah bilangan genap" ElseIf a Mod 2 <> 0 Then MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil" End If End Sub
Private Sub cmdCekPilihan_Click() Select Case LstPilihan.Text Case "Pilihan1" MsgBox "Anda memilih pilihan 1" Case "Pilihan2" MsgBox "Anda memilih pilihan 2" Case "Pilihan3" MsgBox "Anda memilih pilihan 3" End Select End Sub Private Sub Form_Load() LstPilihan.AddItem "Pilihan1" LstPilihan.AddItem "Pilihan2" LstPilihan.AddItem "Pilihan3" End Sub Penjelasan Kode Program : Private Sub Form_Load() LstPilihan.AddItem "Pilihan1" LstPilihan.AddItem "Pilihan2" LstPilihan.AddItem "Pilihan3" End Sub Menambahkan item baru pada listBox LstPilihan ketika program pertama kali di load Dim a As Integer a = CInt(txtBilangan.Text) deklarasi variable a bertipe integer dan inisialisasi variable a dari inputan txtBilangan.Text
If a Mod 2 = 0 Then MsgBox "Bilangan yang anda masukkan adalah bilangan genap" ElseIf a Mod 2 <> 0 Then MsgBox "Bilangan yang anda masukkan adalah bilangan ganjil" End If If…Then yang melakukan pengecekan apakah angka atau bilangan yang dimasukkan adalah bilangan ganjil atau genap Select Case LstPilihan.Text Case "Pilihan1" MsgBox "Anda memilih pilihan 1" Case "Pilihan2" MsgBox "Anda memilih pilihan 2" Case "Pilihan3" MsgBox "Anda memilih pilihan 3" End Select Select case yang digunakan untuk pengecekan pilihan yang dipilih pemakai Jika sudah selesai maka jalankan program tersebut, kemudian test kondisi percabangan If .. Then dengan cara masukkan sembarang angka pada textbox kemudian klik tombol Cek Bilangan, jika anda memasukkan angka ganjil maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan ganjil" , sebaliknya jika angka yang anda masukkan genap maka akan muncul pesan "Bilangan yang anda masukkan adalah bilangan genap". Contoh : masukkan angka 11 kemudian klik tombol Cek Bilangan
Maka akan muncul pesan sebagai berikut :
Untuk melakukan test terhadap kondisi percabangan Select Case caranya pilihsalah satu pilihan pada listBox kemudian klik tombol Cek Pilihan, maka akan mncul pesan yang menyatakan anda memilih pilihan tertentu sesuai pilihan yang anda pilih. Contoh : Pilih pilihan2 kemudian klik tombol Cek Pilihan
Maka akan muncul pesan sebagai berikut :