Contoh Program Menggunakan Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Oke langsung saja, buatlah Form di project kalian masisng-masing seperti gambar di bawah ini:

Dalam Form Di atas terdapat:

4 GroupBox

11 Label

10 EditText

6 Button

3 Memo (kalau yang ini bisa diganti dengan ListBox)

Pada Tombol IF-ELSE, masukkan coding seperti di bawah ini:

procedure TForm1.Button2Click(Sender: TObject);

var

A : Integer;

begin

A := StrToInt (Edit1.Text);

Edit2.Text := ' ';

Edit3.Text := ' ';

if A < 50 then

begin

Edit2.Text := 'Gagal';

Edit3.Text := 'E';

end

else if A < 65 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'D';

end

else if A < 75 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'C';

end

else if A < 85 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'B';

end

else if A <= 100 then

begin

Edit2.Text := 'Lulus';

Edit3.Text := 'A';

end

else

begin

Edit2.Text := 'Salah Input';

Edit3.Text := 'Ulangi Lagi';

end;

end;procedure TForm1.Button2Click(Sender: TObject);

var

B, C : Integer;

begin

B:= StrToInt(Edit4.text);

C:= StrToInt(Edit5.Text);

begin

case B of

1: Edit6.Text := 'Pecel Ayam dan ';

2: Edit6.Text := 'Ayam Bakar dan ';

3: Edit6.Text := 'Ayam Krispy dan ';

end;

case C of

4: Edit6.Text := Edit6.Text + 'Es Teh Manis';

5: Edit6.Text := Edit6.Text + 'Es Jeruk';

6: Edit6.Text := Edit6.Text + 'Es Cappucino';

end;

end;

end;

Pada button While-Do, masukkan coding seperti dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

var

E, F : Integer;

begin

Memo1.clear;

E:= StrToInt (Edit7.Text);

F:=1;

while F <> StrToInt(Edit8.Text) do

begin

Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));

E:= E+1;

F:= F+1;

end;

end;

Pada button Repeat-Until, masukkan coding seperti di bawah ini : 

procedure TForm1.Button4Click(Sender: TObject);

var

E, F : Integer;

begin

Memo1.clear;

E:= StrToInt (Edit7.Text);

F:=1;

repeat

Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));

F:= F+1;

E:= E+1;

until F = StrToInt(Edit8.Text)

end;

Pada bagian button For-Do, masukkan coding seperti di bawah ini :

procedure TForm1.Button5Click(Sender: TObject);

var

E, F : Integer;

begin

Memo1.clear;

E:= StrToInt (Edit7.Text);

for F := 1 to StrToInt(Edit8.Text) do

begin

Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));

E:= E+1;

end;

end;

Pada bagian button Proses Array, masukkan coding seperti dibawah ini : 

procedure TForm1.Button6Click(Sender: TObject);

var

Data : array of array of integer;

Baris, Kolom : Word;

begin

SetLength(Data, StrToInt(Edit9.Text), //Panjang Dimensi 1

StrToInt (Edit10.Text)); //Panjang Dimensi 2

for Baris := 0 to StrToInt (Edit9.Text) - 1 do

  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do

    Data[Baris, Kolom] := Baris + Kolom;

Memo2.Clear;

for Baris := 0 to StrToInt (Edit9.Text) - 1 do

  for Kolom := 0 to StrToInt (Edit10.Text) - 1 do

    Memo2.Lines.Add('['+ IntToStr(Baris) + ','+ IntToStr(Kolom)+'] = '+IntToStr(Data[Baris,Kolom]));

end;

end.

catatan:

Untuk Memo bisa diganti dengan Listbox, dan sesuaikan dengan codingnya..

Coba jalankan, bila masih error, silahkan komentar saja di postingan ini...

Selamat Mencoba dan Semoga Bermanfaat ^^