Mengenal Struktur IF THEN | Contoh Program C++

Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang
digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan
dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini.
2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan
dibahas pada bab selanjutnya.

Ada dua bentuk struktur kontrol keputusan, yaitu :

1. Struktur IF…THEN. Akan dibahas pada bab ini.
2. Struktur SELECT…CASE. Akan dibahas pada bab selanjutnya.
Bentuk penulisan (syntax) struktur IF…THEN :
1. IF THEN
Bila bernilai True maka akan       dikerjakan.
2. IF THEN  ELSE  END IF 

    Bila bernilai True maka akan dikerjakan, tetapi bila bernilai False maka yang akan dikerjakan.

Contoh Program : Struktur IF…THEN

Aktifkan VB 6 melalui tombol Start.

Buka kembali project Latihan.vbp.

Tambahkan Form baru ke dalam Project.

Pada Jendela Form buatlah UI seperti ini :

(Gunakan komponen Image, Label, TextBox dan CommandButton)

Pengaturan property setiap object-nya adalah sebagai berikut :

Object	Properties	Value
From 5	Caption StartUpPosition	Struktur IF…THEN 2 – CenterScreen
Image1	Stretch Picture Visible	True Komputer.wmf False
Label1	Caption	Password:
Text1	PasswordChar Text	* <kosong>
Command1	Caption Default	Ok True

Buka Jendela Code dan pada bagian Code Editor ketikkan kode programnya sebagai berikut :

Private Sub Command1_Click()

  If Text1.Text = "nusantara" Then Image1.Visible = True

End Sub

Simpan Form5 (nama file : Lat5.frm).

Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi

Form5.

Coba jalankan Project1 :

•  Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 tidak terjadi apaapa.
•  Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 gambar komputer akan muncul.

Penjelasan kode program :

If Text1.Text = "nusantara" =>kondisi

Then Image1.Visible = True  =>kode program yang dikerjakan bila kondisi TRUE

Modifikasi kode programnya menjadi sebagai berikut :

Private Sub Command1_Click()

    If Text1.Text = "nusantara" Then

     Image1.Visible = True

      Text1.Enabled = False

      Command1.Enabled = False

Else

     MsgBox "Passwordnya Salah !"

    Text1.Text = ""

    Text1.SetFocus

     End If

End Sub

Coba jalankan Project1 :

• Ketikkan sembarang teks pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 muncul kotak pesan “Passwordnya Salah !”. Klik tombol OK pada kotak pesan tersebut.
• Ketikkan “nusantara” pada TextBox lalu klik tombol OK atau tekan Enter 􀃆 gambar komputer akan muncul. TextBox dan tombol OK menjadi disable (tidak bisan digunakan).

Penjelasan kode program :

            Kondisi

                 "

If Text1.Text = "nusantara" Then =

   Image1.Visible = True                === =>blok kode program yang dikerjakan

   Text1.Enabled = False                 ====>bila kondisi TRUE

   Command1.Enabled = False      =  

Else

   MsgBox "Passwordnya Salah !" =

   Text1.Text = ""                           == ==>blok kode program yang dikerjakan

   Text1.SetFocus                            ====>bila kondisi FALSE

End If                                              ==

Catatan tambahan :

•  Teks “nusantara” harus diketik huruf kecil semua. Ingat : data string bersifat case sensitive !
• Agar password-nya tidak bersifat case sensitive, modifikasi pernyataan kondisinya menjadi : If LCase(Text1.Text) = "nusantara" Then Fungsi LCase adalah untuk mengkonversi semua string yang diinput ke Text1.Text menjadi huruf kecil, walaupun user menginputnya dengan huruf kapital.

Share this post