Penggunaan ListBox untuk Solusi-Penyelesaian Soal di Delphi

Sebelumnya, saya sudah posting terkait Cara Membuat Aplikasi Persegi Menggunakan Delphi (mohon dibaca dulu). Sehingga dari desain awal itu, saya rubah sedikit sehingga menjadi.

Pada tombol “Hitung” tuliskan scribs berikut.

procedure TForm1.BitBtn1Click(Sender: TObject);

//Definisikan Variabel

Var s,K,L:real;

begin

//Inputan

s:=strtofloat(e1.Text);

//Rumus

L:=s*s;

K:=4*s;

//Output

L1.Items.Add('Dketahui: ');

L1.Items.Add('Sisi = '+floattostr(s));

L1.Items.Add('Ditanya: Luas dan Keliling ...? ');

L1.Items.Add('===============================');

L1.Items.Add('=== Luas === ');

L1.Items.Add('Luas = s x s ');

L1.Items.Add('Luas = '+floattostr(s)+' x '+floattostr(s));

L1.Items.Add('Luas = '+floattostr(L));

L1.Items.Add('');

L1.Items.Add('=== Keliling === ');

L1.Items.Add('Keliling = 4 x s ');

L1.Items.Add('Keliling = 4 x '+floattostr(s));

L1.Items.Add('Keliling = '+floattostr(K));

end;

Pada tombol “Hapus” tuliskan scribs berikut.

e1.Clear;

L1.Clear;

e1.SetFocus;

Lakukan simulasi.

 Semoga Bermanfaat.