Tutorial IF Borlan Delphi 7

Pada postingan kali ini , kami akan memberika beberapa contoh penggunaan IF untuk melakukan pengecekan terhadap suatu kondisi yang dimana akan menampilkan nilai tertentu . Berikut contohnya :

1. Buka Brolan Delphi 7 dan Design seperti pada gambar di bawah ini

2. Berikut script codenya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lblMenu: TLabel;
    grpBox1: TGroupBox;
    rbMerah: TRadioButton;
    rbHijau: TRadioButton;
    rbKuning: TRadioButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    cb1: TCheckBox;
    cb2: TCheckBox;
    cb3: TCheckBox;
    cb4: TCheckBox;
    cb5: TCheckBox;
    Label3: TLabel;
    lblnilai: TLabel; // label untuk menampilkan hasil tambah dari event clik CheckBox

    procedure PilihClick(Sender: TObject); //Membuat prosedur secara manual untuk event radio button
    procedure ComboBox1Change(Sender: TObject);
    procedure cb1Click(Sender: TObject);
    procedure cb2Click(Sender: TObject);
    procedure cb3Click(Sender: TObject);
    procedure cb4Click(Sender: TObject);
    procedure cb5Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nilai : integer; // membuat sebuah variabel nilai sebagai type integer
 
implementation

{$R *.dfm}
procedure TForm1.PilihClick(Sender:TObject);
{ Note : ganti event di 3 Radio Button dengan prosedur PilihClick }
begin
if rbHijau.Checked=true  then
    Label1.Caption:='Jalan'
else if rbMerah.Checked=true then
    Label1.Caption:='Berhenti'
else if rbKuning.Checked =true then
    Label1.Caption:='Bersiap';

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text = 'Merah' then
Label2.Color:= clRed
else if ComboBox1.Text = 'Hijau' then
Label2.Color:= clGreen
else if ComboBox1.Text = 'Kuning' then
Label2.Color:= clYellow;
end;

procedure TForm1.cb1Click(Sender: TObject);
begin
if cb1.Checked = true then
begin
nilai := nilai + 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end
else
begin
nilai := nilai - 10000 ;
lblnilai.Caption := inttostr(nilai) ;
end;
end;

procedure TForm1.cb2Click(Sender: TObject);
begin
if cb2.Checked = true then
begin
nilai := nilai + 30000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 30000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb3Click(Sender: TObject);
begin
if cb3.Checked = true then
begin
nilai := nilai + 40000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 40000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb4Click(Sender: TObject);
begin
if cb4.Checked = true then
begin
nilai := nilai + 60000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 60000;
lblnilai.Caption := inttostr(nilai);
end
end;

procedure TForm1.cb5Click(Sender: TObject);
begin
if cb5.Checked = true then
begin
nilai := nilai + 100000;
lblnilai.Caption := inttostr(nilai);
end
else
begin
nilai := nilai - 100000;
lblnilai.Caption := inttostr(nilai);
end
end;

end.

4. Uji program yang pembaca buat jika benar maka akan sama seperti ini dan tanpa adanya error.

Pembaca juga dapat mendowload contoh dari program yang di buat . Untuk mendowloadnya silakan klik link di bawah ini


 - Drop Box -

https://www.dropbox.com/s/2086nv8p3ufd8qf/Latihan%20IF.rar

THE SUN IN SOERYATAMA GROUP