Aplikasi menggunakan Kondisi CASE pada Delphi

 Pembuatan aplikasi menggunakan Kondisi pada DELPHI.

            Di sini saya akan membuat suatu aplikasi menggunakan fungsi IF THEN ELSE. Logika nya ketika kita masukin umur akan keluar output nya berupa : Anak – anak, remaja ataupun dewasa tergantung dari kondisi nya.

1.                  Membuat User Interface.

Disini kita menggunakan Label, Edit, dan juga Button. Dan juga bahwa di bawah Button tersebut ada label 3 yaitu untuk Outputnya. Jadi Label 1 dan 2 untuk tulisan nama dan umur, dan label 3 sebagai output nya

1.                  Membuat Perintah Atau Meng-Koding.

Disini ada 3 Button. Button “CEK” untuk menjalankan perintah dan Button “RESET” untuk menghapus data input. Button “Keluar” untuk keluar aplikasi.

·         Kita membuat variabel umur dengan deklarasi integer ( karena umur nanti data masukan yang bersifat angka / numeric / yang akan dihitung.

·         Umur diambil dari input Edit, karena umur berdeklarasi integer, jadi kita harus ubah deklarasi edit yaitu string menjadi integer, yaitu dengan strtoint (yang artinya string ke integer)

·         Kita ketikan Kondisi kita, jika kita menggunakan If Then Else kita hanya memberikan titik koma pada akhir statement. Kecuali jika kita tidak memakai else, kita harus memberikan titik koma di setiap statement kondisi.

·         Jika kita mempunyai 2 statement pada 1 kondisi dan kita mau memasukan fungsi (And/Or/Xor) kita menggunakan dalam kurung.

·         Jika kita menuliskan kata yang bertipe string kita menggunakan tanda petik satu (‘)

·         Pada Button untuk reset kita tinggal membersihkan input dan outputnya.

·         Pada object edit kita ketik properties nya dengan clear dan pada object label caption nya (nama) kita kosongin.

·         Pada Button untuk keluar, application.terminated/ memberhentikan aplikasi.