Cara Mengatur/Mengontrol Nilai/Inputan Negatif di Delphi

Sebelumnya, saya sudah posting terkait Cara MembuatAplikasi Persegi Menggunakan Delphi (mohon dibaca dulu). Dari desain itu, kemudian pada tombol hitung kita rubah sedikit scribs untuk mengontrol atau mengatur nilai negative yang menjadi setiap inputan. Karena secara matematika tidak ada inputan dalam bentuk panjang bernilai negatif. Adapun perubahan scribs pada  tombol “Hitung” sebagai berikut.

procedure TForm1.BitBtn1Click(Sender: TObject);

//Definisikan Variabel

Var s,K,L:real;

begin

//Inputan

s:=strtofloat(e1.Text);

//Kontrol Nilai Negatif

if s<0 then showmessage('Inputan Salah')

else begin

//Rumus

L:=s*s;

K:=4*s;

//Output

e2.Text:=floattostr(L);

e3.Text:=floattostr(K);

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

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

end;

Lakukan simulasi.

Semoga Bermanfaat.