procedure TForm1.Button1Click(Sender: TObject);
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;
semoga bermanfaat
var angka1,angka2,hasil:single;
begin
angka1 := strtofloat(edit1.Text);
angka2 := strtofloat(edit2.Text);
hasil := angka1+angka2;
label3.caption := floattostr(hasil);
end;
semoga bermanfaat
0 comments :
Post a Comment
Bagi anda yang ingin meninggalkan komentar dan tidak memiliki Akun, silahkan gunakankan Anonymous.
Anda boleh mengcopy sebagian atau seluruh isi blog ini dengan tetap mencantumkan alamat blog.
Terima kasih telah berkunjung
salam Hangat dari Admin Aneka Raga