130 likes | 480 Views
STRUKTUR KENDALI PERCABANGAN. Pertemuan 2. Struktur kendali percabangan digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi . Ada dua bentuk struktur kendali keputusan, yaitu : Struktur IF…THEN ... Struktur SELECT…CASE.
E N D
STRUKTUR KENDALI PERCABANGAN Pertemuan 2
Struktur kendali percabangan digunakanuntukmemutuskankode program mana yang akandikerjakanberdasarkansuatukondisi. • Ada dua bentuk struktur kendali keputusan, yaitu : • StrukturIF…THEN ... • StrukturSELECT…CASE ...
1. STRUKTUR IF ... THEN ... • Pernyataan IF…Then digunakanuntukmengeksekusisatu/ lebihkondisi.Bentukpenulisan (syntax) strukturIF…THEN : IF <kondisi> THEN <kode program> Bila <kondisi> bernilai True maka <kode program> akan dikerjakan
Pernyataan If…Then…Else untukmenyeleksisuatukondisi, bilakondisibenarmaka statement yang diprosessetelah then danbilakondisisalahmaka statement yang diprosessetelah else. IF <kondisi> THEN <blok kode program 1> ELSE <blok kode program 2> END IF
Bila <kondisi> bernilai True maka <blokkode program 1> akandikerjakan, tetapibila <kondisi> bernilai False maka <blokkode program 2> yang akandikerjakan.
2. STRUKTUR SELECT ... CASE ... • Bilapenyeleksiantergantungpadanilaidarivariabeltertentu.Gunakanpernyataan select…case. Penggunaan select…case lebihbaikdari if…then…else untukmengulang test suatuvariabel.Bentukpenulisan (syntax) struktur SELECT…CASE :
Contoh : SELECT CASE <pilihan> CASE <pilihan 1> <blokkode program 1> CASE <pilihan 2> <blokkode program 2> CASE <pilihan n> <blokkode program n> [CASE ELSE <blok kode program x>] END SELECT
Bila <pilihan> sesuai dengan <pilihan 1> maka <blok kode program 1> akan dikerjakan, dan seterusnya. Tetapi bila<pilihan> tidak ada yang sesuai dengan <pilihan 1> sampai dengan<pilihan n> maka <blok kode program x> yangakandikerjakan.
Contoh Kasus Merancang User Interface
Coding Program Private Sub Command1_Click() If UCase$(Text1.Text) = "ADMIN" Then MsgBox "Password benar", vbInformation, "Password" End Else MsgBox "Password salah!!! Silahkanulangilagi.", vbInformation, "Password" Text1.Text = "" Text1.SetFocus End If End Sub