Memahami Penggunaan Fungsi IF Tunggal dan Validasi Data Di Delphi Konsep dan Implementasi

Logika IF adalah kondisi Benar atau Salah dan terdiri dari IF tunggal dan Bertingkat dimana yang membedakannya IF tunggal hanya didefinisikan satu kondisi IF sedangkan IF Bertingkat di definisikan dengan banyak IF (Lebih dari satu) Untuk Memamahi penggunaan kondisi Logika IF di Delphi Pahami konsep teorinya dan Implementasinya langsung membuat aplikasi sederhana.

Konsep

Statement If di dalam delphi ada beberapa syntax atau cara penulisan. Sekarang kita belajar dengan menggunakan satu syntax pernyataan IF.

IF Expresi Then Pernyataan;

Catatan :

·         Expresi harus bernilai logik atau boolean yaitu True atau false

·         Pernyataan setelah Then harus diawali dengan begin dan end jika lebih dari satu baris pernyataan.

·         pernyataan sebelum else tidak diakhiri tanda ;

Implementasi

Buat Aplikasi dan Desain Form  Seperti dibawah ini 

DESAIN FORM

Penjelasan

1.       Atur Masing-masing Komponen dan Propertienya di Menu Objec Inspector

2.       Komponen yang digunakan GroupBox, Label, EditText, Button, dan Panel

3.       Tulis Script Codingnya seperti dibawah ini

Komponen & Event	Script / Coding
Button Proses 1 (On Click)	procedure TForm1.btn_prosesClick(Sender: TObject); Var total, diskon,bayar : real; begin if edtotal.Text = '' then   Begin    ShowMessage('Total Belanja Harus di isi');    edtotal.SetFocus;   end else Begin diskon := 0; total := strtofloat(edtotal.Text); if total > 100000 then   Begin    diskon := total * 0.1;    eddiskon.Text := floattostr(diskon);    edbayar.Text := floattostr(total - diskon);   end else   ShowMessage('Anda Tidak Mendapat Diskon karena total belanja < 100.000' ); end; end;
Button Proses 2 (On Click)	procedure TForm1.Button1Click(Sender: TObject); var   Nilai : integer;   Status : string; begin if EdNilai.Text = '' then   Begin    ShowMessage('Nilai harus diisi');    ednilai.SetFocus;   end    else    Begin     Nilai := strtoint(ednilai.Text);     If Nilai >= 60   then      begin        Status := 'Lulus';        Showmessage('Anda '+ Status)      end      else        begin          status := 'Tidak Lulus';          showmessage('Anda '+status)        end;         end; end;
Tombol Close (On Click)	if MessageDlg('Yakin anda akan keluar dari Aplikasi ini ?',    mtConfirmation,[mbYes,mbNo],0)= mrYes then    close;

Penjelasan Program

1.       Pada tombol Proses 1 program akan menjalankan perintah logika IF Tunggal, dimana jika proses di klik dan Inputan total belanja belum diidi makan akan melakukan validasi data yang menyakan data harus di isi terlebih dahulu, dan jika data sudah di isi proses akan dilakukan dengan menyeleksi jumlah total belanja jika total belanja kurang dari > dari Rp 100.0000 maka mendapat diskon dan jika kurang dari Rp.100.000 maka tidak akan mendapat diskon.

2.       Pada tombol Proses ke 2 program akan menjalankan perintah logika if Tunggal dengan validasi data hampir sama dengan proses 1. Dimana proses logika akan menyeleksi inputan nilai jika nilai >= 60 adalah lulus dan jika lebih kecil 60 tidak lulus

3.       Tombol Close berfungsi untuk tombol keluar menggunakan fungsi Messegagedlg. Fungsi ini digunakan untuk memunculkan kotak pesan dan respon dari pemakai sistem.

Output Aplikasi

SELEKSI LOGIKA IF KONDISI TRUE

 

SELEKSI LOGIKA IF KONDISI FALSE

 Selamat Mencoba

PADEPOKAN IT COURSES

IT Tutorial, Training Center & IT Solution

www.padepokanit.com

Share

Artikel Lainnya :