Logika Percabangan pada Delphi

LOGIKA PERCABANGAN IF PADA DELPHIDownload : CD Interactive Tutorial DELPHI 7. Read more ... »

Perintah percabangan IF adalah suatu perintah yang berfungsi untuk mengambil keputusan dari beberapa kondisi.

Bentuk percabangan ini biasanya digunakan untuk kondisi yang jumlahnya tidak terlalu banyak.

Bentuk umum penulisan logika IF adalah:

if {ekspresi} then
	begin
		{statmen 1}
		{statmen 2}
	end
else
	begin
		{statmen 1}
		{statmen 2}
	end;

Mari kembali ke design Delphi-nya.

Pertama buatlah FormMembuat Form Tanggal-Bulan-Tahun Secara Dinamis. Read more ... » seperti ini:

Lalu ubah menjadi seperti ini:

Dobel klik pada tombol “New“, lalu ketikkan kodeMembuat Kode Acak dengan PHP. Read more ... »:

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit1.SetFocus;

Keterangan Kode:

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';

Gunanya untuk mengosongkan ketiga textfield pada form.

  Edit1.SetFocus;

Gunanya untuk menempatkan kursor pada textfield “Nama“.

Klik ganda pada tombol “Proses“, lalu ketikkan kode:

  nilai := StrToInt(Edit2.Text);

  if nilai > 85 then
    begin
      keterangan := 'Lulus';
    end
  else
    begin
      keterangan := 'Tidak Lulus';
    end;

  Edit3.Text := keterangan;

Keterangan Kode:

nilai := StrToInt(Edit2.Text);

Ini untuk memberi nilai pada variabel nilai yang terdapat pada textfield Edit2.

  if nilai > 85 then
    begin
      keterangan := 'Lulus';
    end
  else
    begin
      keterangan := 'Tidak Lulus';
    end;

Artinya apabila nilai yang diinput tidak lebih besar dari 85, maka dinyatakan “Tidak Lulus”.
Apabila sebaliknya, maka dinyatakan “Lulus”.

Edit3.Text := keterangan;

Memberi output berupa tulisan “Lulus” atau “Tidak Lulus” pada textfield Edit3.

Masih dalam proses penulisan kode pada tombol “Proses“, tambahkan kode ini diatas barisMembuat Baris Baru pada Label di Delphi. Read more ... »begin“:

var
  nilai : integer;
  keterangan : string;

Keterangan Kode:
Gunanya adalah pembentukan variabel berdasarkan jenisnya masing-masing.
variabel “nilai” jenisnya angka.
variabel “keterangan” jenisnya kalimat.

Terakhir, dobel klik pada tombol “Exit”, lalu ketikkan kode berikut:

  application.Terminate;

Keterangan Kode:
Untuk menghentikan program secara keseluruhan

Lalu, cek dulu kode-kode kamu dengan menekan “CTRL + F9″.
Kalau tidak ada yang error, tekan tombol “F9″.

Hasilnya:

Tantangannya..gimana kode kamu agar tampil seperti ini:

Sekian tentang logika percabangan IF pada Delphi.
See you next time.

Source CodeLangkah Awal Belajar Java dengan NetBeans. Read more ... » : LogikaIF – AaEzha.com – Indowebster.com
DateTips Penanggalan dalam Bahasa Indonesia dengan PHP. Read more ... » upload: 20-Aug-2013
Size: 165.69 KB

Popular Keywords

Aa

Masih seorang pelajar yang belum bosan menuntut ilmu. Ilmu tentang pemrograman, networking, website, anime dan lain sebagainya. Yuk kenalan.

You may also like...

Silahkan tinggalkan pesan agar saya bisa membantu Anda

Baca juga artikel iniclose

Switch to our mobile site

%d bloggers like this: