Struktur Kendali Struktur kendali memungkinkan Anda untuk mengatur

  • Slides: 11
Download presentation
Struktur Kendali Ø Struktur kendali memungkinkan Anda untuk mengatur jalannya program. Ø Jika dibiarkan

Struktur Kendali Ø Struktur kendali memungkinkan Anda untuk mengatur jalannya program. Ø Jika dibiarkan tanpa diperiksa oleh statement control-flow, suatu logika program akan berjalan dari kiri ke kanan dari atas ke bawah. Ø Hanya program yang sangat sederhana dapat ditulis tanpa control-flow. Team Pemrograman I AMIK MBP 1

Struktur Keputusan Struktur keputusan digunakan untuk menentukan keputusan dari beberapa kemungkinan yang mungkin timbul.

Struktur Keputusan Struktur keputusan digunakan untuk menentukan keputusan dari beberapa kemungkinan yang mungkin timbul. Dalam Visual Basic 6. 0 struktur keputusan terdiri dari statement If…Then…Else dan statemen Select Case. Team Pemrograman I AMIK MBP 2

Statement If…Then…Else Untuk mendefenisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi

Statement If…Then…Else Untuk mendefenisikan beberapa blok pernyataan yang akan dijalankan salah satu berdasarkan kondisi yang memenuhi syarat. Bentuk Umum: If Kondisi 1 Then [Blok Pernyataan-1] Else. If Kondisi 2 Then [Blok Pernyataan-2] Else [Blok pernyataan-n] End If Team Pemrograman I AMIK MBP 3

Contoh : Private Sub Form_Activate() Dim Umur As Integer Umur = Input. Box("Masukkan Umur

Contoh : Private Sub Form_Activate() Dim Umur As Integer Umur = Input. Box("Masukkan Umur Anda : ") If Umur < 5 Then Msg. Box "Anda masih balita" Else. If Umur < 12 Then Msg. Box "Anda masih Anak-anak" Else. If Umur < 17 Then Msg. Box "Anda sudah remaja" Else Msg. Box "Anda sudah Dewasa" End If End Sub Team Pemrograman I AMIK MBP 4

Nested If disebut juga dengan if bersarang yang merupakan pengembangan dari statemen If…Then…Else. Bentuk

Nested If disebut juga dengan if bersarang yang merupakan pengembangan dari statemen If…Then…Else. Bentuk dasarnya sama, hanya saja dalam If bersarang jumlah If lebih banyak. Team Pemrograman I AMIK MBP 5

Bentuk Umum: If Kondisi 1 Then If Kondisi-a Then [Blok Pernyataan-a] Else. If Kondisi-b

Bentuk Umum: If Kondisi 1 Then If Kondisi-a Then [Blok Pernyataan-a] Else. If Kondisi-b Then [Blok Pernyataan-b] Else [Blok pernyataan-n] End If Else. If Kondisi 2 Then If Kondisi-a Then [Blok Pernyataan-a] Else. If Kondisi-b Then [Blok Pernyataan-b] Else [Blok pernyataan-n] End If Team Pemrograman I AMIK MBP 6

Contoh : Private Sub Command 1_Click() Dim Umur As Integer Dim Jenkel As String

Contoh : Private Sub Command 1_Click() Dim Umur As Integer Dim Jenkel As String Jenkel = Text 2. Text Umur = Val(Text 3. Text) If Jenkel = "W" or Jenkel=“w” Then If Umur < 17 Then Label 4. Caption = "Anda Wanita, jangan sembarangan Keluar Rumah" Else Label 4. Caption = "Anda Wanita, sudah boleh pacaran" End If Else. If Jenkel = "P" or Jenkel=“p” Then If Umur < 17 Then Label 4. Caption = "Anda Pria, minta izin untuk bermain" Else Label 4. Caption = "Anda Pria, boleh cari pasangan" End If End Sub Team Pemrograman I AMIK MBP 7

Team Pemrograman I AMIK MBP 8

Team Pemrograman I AMIK MBP 8

Statemen Select Case Ø Select Case memiliki kemampuan yang sama dengan If…Then. . Else,

Statemen Select Case Ø Select Case memiliki kemampuan yang sama dengan If…Then. . Else, tetapi membuat kode lebih mudah dibaca. Ø Select Case bekerja dengan suatu pekerjaan tunggal yang hanya dievaluasi satu kali pada struktur, jika ada yang sesuai, akan dijalankan blok statement yang sesuai. Bentuk Umum: Select Case <Kondisi> Case <Ekspresi-1> Pernyataan-1 Case <Ekspresi-2> Pernyataan-2 Case Else Pernyataan-n End Select Team Pemrograman I AMIK MBP 9

Contoh : Private Sub Form_Activate() Dim Angka As Integer Angka = Input. Box("Masukkan Angka

Contoh : Private Sub Form_Activate() Dim Angka As Integer Angka = Input. Box("Masukkan Angka [1 -7] : ") Select Case Angka Case 1: Msg. Box "Ini hari Minggu" Case 2: Msg. Box "Ini hari Senin" Case 3: Msg. Box "Ini hari Selasa" Case 4: Msg. Box "Ini hari Rabu" Case 5: Msg. Box "Ini hari Kamis" Case 6: Msg. Box "Ini hari Jumat" Case 7: Msg. Box "Ini hari Sabtu" End Select End Sub Team Pemrograman I AMIK MBP 10

Contoh : • COBA Latihan-5, 6, 7 (Modul Praktek) Team Pemrograman I AMIK MBP

Contoh : • COBA Latihan-5, 6, 7 (Modul Praktek) Team Pemrograman I AMIK MBP 11