Belajar membuat Program Menghitung Luas Segitiga
Langka-langka untuk membuat programnya adalah sebagai berikut :
1. Buatlah sebuah Form seperti yang terlihat pada gambar 1 dibawa ini.
2. Kemudian Doble Click pada tombol Proses dan ketikan Code dibawah ini pada bidang Code editor seperti yang terlihat pada gambar 2 .
procedure TForm1.Button1Click(Sender: TObject);
var A,T,L:real;
begin
A:=STRTOFLOAT(EDIT1.TEXT);
T:=STRTOFLOAT(EDIT2.TEXT);
L:=0.5*A*T;
EDIT3.Text:=FLOATTOSTR(L);
end;
3. Setelah selesai memasuakan code tersebut pada bidang code editor, kemudia anda jalankan program tersebut dengan cara clik tombol Run yang terdapat pada panel bagian kiri atas yang berwana hijau. Atau dengan menekan f9 pada keyboard.
0 komentar:
Posting Komentar