PERCABANGAN VISUAL BASIC Julia Fajaryanti PERCABANGAN DENGAN IFTHENELSE

PERCABANGAN VISUAL BASIC Julia Fajaryanti

PERCABANGAN DENGAN IF…THEN…ELSE… • Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah: If <kondisi> Then < Keputusan kondisi benar > Else < Keputusan kondisi salah > End If “Jika memenuhi kondisi maka lakukan proses keputusan untuk kondisi benar, jika tidak lakukan proses keputusan untuk kondisi salah”

CONTOH “Jika peminjaman lebih dari 7 hari maka dikenakan denda sebesar 2000” If peminjaman>7 Then Denda = 2000 Else Denda = 0 End if

FORMAT PENULISAN PERCABANGAN (1) Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah If kondisi Then <Proses Kondisi Benar> (2) Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah If kondisi Then <Proses Kondisi Benar> End If

(3) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah If kondisi Then <Proses A> Else <Proses B> (4) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah If kondisi Then <Proses A> Else <Proses B> End If

CONTOH “Jika nilai<60 maka tidak LULUS, jika tidak maka LULUS” If Nilai<60 Then Ket="Lulus" Else Ket="Tidak Lulus"

PERCABANGAN BERANTAI • Percabangan tidak harus hanya memiliki satu kondisi, bisa juga percabangan memiliki banyak kondisi dengan banyak proses keputusan, hal ini sering dinamakan dengan percabangan berantai.

PERCABANGAN BERANTAI • Jenis percabangan berantai dengan hanya satu kondisi yang bisa terpenuhi If <kondisi 1> Then <Keputusan dalam kondisi 1> else if <Kondisi 2> Then <Keputusan dalam kondisi 2> else if <Kondisi 3> Then <Keputusan dalam kondisi 3> else If <Kondisi 4> Then <Keputusan dalam kondisi 4> else --- Keputusan yang lain --end if

• Jenis percabangan berantai dengan banyak kondisi yang harus dipenuhi. If <kondisi 1> Then <Keputusan dalam kondisi 1> if <Kondisi 2> Then <Keputusan dalam kondisi 2> if <Kondisi 3> Then <Keputusan dalam kondisi 1, kondisi 2 dan kondisi 3> Else <Keputusan dalam kondisi 1 dan kondisi 2 tetapi tidak dalam kondisi 3> End If

CONTOH MENU PREMIUM EKONOMIS PAKET HARGA 1 50. 000 2 60. 000 1 30. 000 2 20. 000 Sebuah restoran terbagi 2 menu utama PREMIUM dan EKONOMIS. Masing-masing menu memiliki 2 paket. Setiap paketnya memiliki harga yang berbeda.

If (cmbkode = “PREMIUM") Then If (cmbpaket = “ 1”) Then txthm = 50000 Else. If (cmbpaket = ” 2”) Then txthm = 60000 Else Txthm = 0 End If

Else. If (cmbkode = “EKONOMIS") Then If (cmbpaket = “ 1”) Then txthm = 30000 Else. If (cmbpaket = ” 2”) Then txthm = 20000 Else Txthm = 0 End If Else txthm = 0 End If

SELECT…CASE • Pada dasarnya penggunaan Select Case sama dengan IF hanya saja terdapat sedikit perbedaan pada struktur penulisannya. • Select case bekerja dengan percobaan tunggal dan dalam pernyataan casenya membandingkan nilai yang berbeda dari pernyataan sebelumnya.

Select Case ekspresi yang dicoba Case (ekspresi 1) Pernyataan Case (ekspresi 2) Pernyataan Case Else Pernyataan End Select

Select Case (cmbkode) Case (“PREMIUM”) txthm = 50000 Case (“EKONOMIS") txthm = 30000 Case Else txthm = 0 End Select

PENGGABUNGAN IF…SELECT…CASE If (cmbkode = “PREMIUM") Then Select Case (“cmbpaket”) Else. If (cmbkode = “EKONOMIS") Then Select Case (“cmbpaket”) Case (“ 1”) txthm = 50000 txthm = 30000 Case (” 2”) txthm = 60000 txthm = 20000 Case Else Txthm = 0 End Select Else txthm = 0 End If

Private Sub Command 1_Click() Dim nilai As Integer nilai = Text 1. Text If (nilai < 60) Then Text 2. Text = "Grade nilai anda = E" End If If (nilai >= 60) And (nilai < 70) Then Text 2. Text = "Grade nilai anda = D" End If If (nilai >= 70) And (nilai < 80) Then Text 2. Text = "Grade nilai anda = C" End If If (nilai >= 80) And (nilai < 90) Then Text 2. Text = "Grade nilai anda = B" End If End Sub If (nilai >= 90) And (nilai <= 100) Then Text 2. Text = "Grade nilai anda = A" End If

Private Sub Command 1_Click() Dim a, b As Integer Dim hasil As String a = Text 1. Textb = Text 2. Text If a > b Then hasil = "nilai A lebih besar dari nilai B" Else hasil = "nilai B lebih besar dari nilai A" End If Text 3. Text = hasil End Sub

Private Sub Command 1_Click() Dim no_planet As Integer Dim nama_planet As String no_planet = Text 1. Text Select Case no_planet Case 1 nama_planet = "Merkurius" Case 2 nama_planet = "Venus" Case 3 nama_planet = "Bumi" Case 4 nama_planet = "Mars" Case 5 nama_planet = "Jupiter" Case 6 nama_planet = "Saturnus" Case 7 nama_planet = "Neptunus" Case 8 nama_planet = "Uranus" Case Else Msg. Box " saat ini jumlah Planet yang di ketahui ada 8", vb. OKOnly, "Nama Planet“ End Select Text 2. Text = nama_planet

THANK YOU