langkah- langkahnya sebagai berikut:
1. Buatlah sebuah from dengan ketentuan tata letak seperti di bawah ini...
untuk membuat label tau edit text bisa menggunakan toolbar menu..
untuk meng edit tulisan seperti Angka 1,2 dan hasil anda bisa edit caption
2. Setelah semua from slesai maka selanjutnya kita buat proggramnya..
Yang pertama kita lakukan yaituh klik 2x tombol open button "Tambahkan".
kemudian ketikan scrip dibawah ini:
procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c:real;
begin
a:= strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
c:=a+b;
edit3.Text:=floattoStr(c);
end;
end.
Keterangan:
Var a,b,c:real; (ini merupakan deklarasi variabel dengan tipe dara real/pecahan)
begin (merupakan sintang awal untuk memulai meletakkan proggram awal)
a:= strtofloat(edit1.Text); (Strtofloat karena inputan awal akan di baca sebagai string dan kan di ubah membacanya menjadi float/tipe pecahan)
c:=a+b; (merupakan rumus dari programnya)
edit3.Text:=floattoStr(c); (merupaknan progam untuk mencetak atau meletakan hasil yg telah di hitung dri scrip "c")
end; merupakan sintak untuk menutup scrip begin
3. setelah ituh kemudian kompilasi scrip maka akan menghasilkan
Semoga Artikel ini dapat membantu dan bermanfaat......
0 Response to "Proggram Delphi Penjumlahan Angka | Tips Murah"
Post a Comment