Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

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



Share

Artikel Lainnya :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution