Program berikut ini mempergunakan rumus matematika untuk menghitung luas sebuah segitiga ( 0.5 X alas X tinggi ). Dari rumus tersebut kita bisa membuat sebuah program sederhana.
Langka-langka untuk membuat programnya adalah sebagai berikut :
Langka-langka untuk membuat programnya adalah sebagai berikut :
Gambar 1. Form Tampilan
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;
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;
Gambar 2. Bidang Code Editor
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.
3 komentar
bagaimana cara membuat form nya??? maaf sy blm sampai materi delphi karna baru semester 1,,,tp sy ingin belajar,,,trims
Assalamualaikum..
referensi project2 delphi silahkan kunjungi blog saya :
http://energi08pnup.blogspot.com/
mungkin saya bisa membantu..
smoga bermanfaat
Kalau buat form setau ane gak ada bedanya sama bikin di visual basic, yang berbeda hanya nama"nya saja
Seperti "command button" menjadi "button"
Terima Kasih Sobat Sudah:
1. Berkomentar Dengan Sopan
2. Tidak Memasukkan Link Aktif Dalam Form Komentar
3. Berkomentar Sesuai Artikel/Postingan
4. Berilah Informasi Kepada Admin Jika ada script yang Sudah tidak berfungsi
5. komentar Jorok/kasar /berbau Sara/Porno /saya anggap sebagai SPAM
Jika Sudah Mematuhi Peraturan diatas Anda Sudah dianggap SOPAN.
Thanks
EmoticonEmoticon