Pemrograman Visual Object Pascal : Kondisional, Aliran Program dan Subrutin

1. Pemrograman VisualObject Pascal : Kondisional, Aliran Program dan Subrutin

2. Kondisional • Inti dari sebuah program adalah bagaimana mengambil keputusan berdasarkan masukan yang ada • Pengambilan keputusan dilakukan dengan eksekusi kondisional • Ada dua pernyataan kondisional di dalam object Pascal, yaitu If-Then-Else dan Case-Of

3. If Then Else • Pernyataan If-Then-Else mempunyai kondisi (syarat) • Jika syarat benar, akan dikerjakan pemyataan-pemyataan di bagian Then. Sebaliknya, jika syarat salah, dikerjakan pernyataan-pemyataan di bagian Else

4. Buatlah aplikasi baru, ubahlah caption pada form dengan If Then Else • Tambahkan komponen: 2 Label, 2 Edit dan 1 Button, Ubahlan captionnya sehingga nampak seperti pada gambar Contoh If Then Else Edit1 Label1 Label2 Edit2 Button1

5. - Klik 2x Event OnClick untuk Button1 - Ketikkan kode berikut Kode If Then Else procedure TForm1.Button1Click(Sender: TObject); Var N : Integer; begin N := StrToInt(Edit1.Text); if (N<17) then Edit2.Text:='17 Tahun Kebawah' else Edit2.Text:='17 Tahun Keatas' end;

6. Beberapa hal yang harus diperhatikan • Pernyataan else tidak harus ada, pemberian else tergantung kondisi • Misalkan • If expr • Then pernyataan • Artinya : Artinya bagian pernyataan akan dijalankan jika expr bernilai benar dan jka salah akan dilanjutkan program berikutnya

7. Untuk pernyataan lebih dari satu baris harus diawali dengan kata kunci begin, setiap baris ditutup dengan titik koma (;) dan dibagian akhir ditutup dengan kata kunci end • Contoh: If exprThen • Begin • xxxx; • xxxx; • end; • Jika ada syarat lebih dari 1, maka tiap-tiap syarat harus diapit oleh tanda kurung. • Contoh :  • If (a=x) and (b=y) then Beberapa hal yang harus diperhatikan

8. Case-Of • Digunakan dalam kondisi yang tidak hanya mempunyai 2 kemungkinan saja (benar atau salah). • Pemakaian • Case Variabel of • Nilai1,Nilai2 : …… • Nilai3..Nilai4 : …… • end;

9. Buatlah aplikasi baru, ubahlah caption pada form dengan Case Of • Tambahkan komponen: 2 Label, 2 Edit dan 1 Button, Ubahlan captionnya sehingga nampak seperti pada gambar Contoh Case-Of Edit1 Label1 Label2 Edit2 Button1

10. - Klik 2x Event OnClick untuk Button1 Kode Case Of procedure TForm1.Button1Click(Sender: TObject); Var Nilai : Integer; begin Nilai := StrToInt(Edit1.Text); Case Nilai Of 0 : Edit2.Text:='Angka 0'; 1..10 : Edit2.Text:='diantara 1 samapi 10'; 11..20 : Edit2.Text:='diantara 11 samapi 20'; 21..30 : Edit2.Text:='diantara 21 samapi 30'; 31..100 : Edit2.Text:='diantara 31 samapi 100'; end; end;

11. Yang harus diperhatikan • Jika Anda memakai beberapa konstanta dalam sebuah perbandingan, Anda harus menggunakan koma dan memakai dua buah titik untuk subrange • Contoh: • Case Nilai of • ‘10’,’20’ : …… • ‘50’..’100’ : …… • end;

12. Yang harus diperhatikan • - Konstanta yang dipakai tidak boleh tumpang tindih (dipakai dua kali). • Contoh yang salah : • Case Nilai of • ‘10’,’50’ : …… • ‘50’..’100’ : …… • end;