STRUKTUR KONTROL KONTROL PROGRAM VISUAL BASIC Kuliah Minggu
STRUKTUR KONTROL / KONTROL PROGRAM VISUAL BASIC Kuliah Minggu ke 4
Kontrol Program • Dengan kontrol program dapat mengendalikan alur eksekusi program dan menentukan keputusan apa yang harus dikerjakan oleh program pada kondisi tertentu. • Pada VB terdiri dari – Kontrol pertimbangan kondisi dan keputusan – Kontrol perulangan – Kontrol penyaluran alternatif
Kontrol Program • • If……Then If……. Then……Else Select……. Case Do……… Loop For…. . next Go. To Exit
If……Then • Dapat menguji suatu kondisi tertentu dan kemudian menentukan suatu tindakan jika kondisi tersebut terpenuhi. • Bentuk umumnya IF <syarat kondisi> Then <pernyataan>
If…. . Then • Bisa juga, jika menggunakan multiple-line: If <syarat kondisi> Then <Pernyataan pertama> <Pernyataan Kedua>. . . <Pernyataan Ke-n> End If
Contoh IF…. . Then If angka = 0 Then Label 1. Caption = "ini adalah angka 0" Label 2. Caption = "ini adalah angka 1" End If
IF…Then Else • Perbedaannya terletak pada jika suatu kondisi tidak dipenuhi, maka alur program akan mengeksekusi pernyataan yang lain. If <syarat kondisi 1> Then <blok pernyataan pertama> Else. IF < syarat kondisi 2> Then <blok pernyataan kedua>. . . Else. If <syarat kondisi ke-n> Then <blok pernyataan ke-n> Else <blok Pernyataan> End If
Contoh IF…. Then…. Else If Angka = 0 Then Label 1. Caption = " Ini adalah angka 0" Else. If Angka = 1 Then Label 1. Caption = "ini adalah angka 1" Else Label 1. Caption = "ini bukan angka 0 maupun angka 1" End If
Select. . . . Case • Perintah yang mirip dengan IF…. . Then…Else, yaitu akan mengeksekusi satu blok pernyataan dari beberapa pilihan blok pernyataan. Hanya saja penulisannya lebih ringkas dan lebih mudah dimengerti. Select Case <Kondisi yang di uji> Case <Syarat Kondisi 1> <blok pernyataan Pertama> Case <syarat kondisi 2> <Blok Pernyataan Kedua>. . Case Else <Blok pernyataan ke-n> End Select
Contoh Select…. Case Select Case Angka Case 0 Label 1. Caption = "ini adalah angka 0" Case 1 Label 1. Caption = "ini adalah angka 1" Case Else Label 1. Caption = "ini bukan angka 0 maupun angka 1" End Select
Do …. . Loop • Digunakan untuk perulangan suatu blok pernyataan sampai dipenuhinya syarat kondisis yang ditetapkan. Do While <syarat kondisi> <blok pernyataan> loop
Contoh Do…. . Loop Private Sub Form_Activate() Angka % = 0 Do While Angka% <= 10 Print "Do. . . Loop " & Angka% = Angka% + 1 Loop End Sub
Do…. . Loop • Bisa Juga menggunakan until Do <blok pernyataan> Loop Until<syarat kondisi>
Contoh Do…. . Loop (until) Private Sub Form_Activate() Angka % = 0 Do Print "Do. . . Loop " & Angka% = Angka% + 1 Loop Until Angka% > 10 End Sub
For…Next • Perintah sama dengan Do…Loop, tetapi For…Next bisa ditentukan nilai awal dan nilai akhir perulangan serta nilai kenaikannya. For <nama_variabel> = <nilai_awal> To <nilai_akhir> [Step <nilai_kenaikan>] <blok_pernyataan> Next [<nama_variabel>]
Contoh For…Next Private Sub Form_Activate() Print "For_next dengan Step 1" For Angka% = 0 To 5 Print "For. . Next " & Angka% Next Angka% Print "" Print "For_next dengan Step -2" For Angka% = 10 To 0 Step -2 Print "For. . Next " & Angka% Next Angka% End Sub
Go…. To • Digunakan untuk melakukan pencabangan ke suatu baris label tertentu. Dengan perintah Go. To, program dapat langsung melompat ke baris tertentu sehingga kode-kode program yang dilewatinya tidak akan dieksekusi. Go. To <nama_label> <blok pernyataan> <nama_label>
Go…to (On Error) • Biasanya perintah Go. To digunakan bersama dengan perintah On Error untuk menangani error, yaitu untuk memerintahkan program melompat ke baris tertentu jika ditemui error. • Error dapat terjadi karena kesalahan logika program kita, kesalahan perhitungan, kesalahan yang disebabkan oleh hardware, maupun kesalahan lainnya. • Penanganan error dalam pemrograman sangat penting karena error dapat menyebabkan program berhenti dan dapat menyebabkan komputer menjadi hang. On Error Go. To <nama_label> <blok pernyataan> <nama_label>
Contoh Go…to (On Error) • Program Pembagian angka Private Sub form_load() On Error Go. To Error_handle input_angka% = Input. Box("Masukkan angka yang akan dibagi", "Masukkan angka yang akan dibagi") input_pembagi% = Input. Box("Masukkan angka pembagi", "Masukkan angka pembagi") hasil% = input_angka% / input_pembagi% Msg. Box hasil%, vb. OKOnly, "Hasil Pembagian" Go. To sukses Error_hendle: Msg. Box "telah terjadi kesalahan", vb. OKOnly, "error" sukses: End Sub
Exit • Digunakan untuk keluar secara langsung dari blok program For…Next, Do…. Loop, Sub Procedure atau Function Procedure. • • Exit Do, digunakan untuk keluar dari blok program Do. . Loop Exit For, digunakan untuk keluar dari blok program For. . Next Exit sub, digunakan untuk keluar dari sub procedure Exit Function, digunakan untuk keluar dari Function Procedure
Contoh Exit Private Sub Form_Activate() Angka % = 0 Print "Do. . . Loop " & Angka% = Angka% + 1 If Angka% > 10 Then Exit Do Loop End Sub
- Slides: 21