.Aplikasi boleh sederhana., yang penting tidak eror saat RUN... ;-)
.Ayooo langsung Praktekkk .!
.
.buatlah Form seperti dibawah ini...
.Naaahhh dibawah ini hasil RUNnya Sobat... !!!
.Keterangan.:
1.-Label1.. biarkan namanya seperti itu, jangan dirubah...
.nanti akan berubah dengan sendirinya secara otomatis saat tombol PROSES ditekan...
2.-Label2.. Ubah dengan simbol (=).
3.-Sebelum menekan tombol PROSES., pilihlah terlebih dahulu salah satu RadioButton...
..::selamat mencoba sobat::..
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:Real;
begin
a:= StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
if radiobutton1.checked=true then
begin
c:=a*b;
edit3.Text:=FloatToStr(c);
label1.Caption:='x';
end
else
if radiobutton2.checked=true then
begin
c:=a/b;
edit3.Text:=FloatToStr(c);
label1.Caption:='/';
end
else
if RadioButton3.checked=true then
begin
c:=a+b;
edit3.Text:=FloatToStr(c);
label1.Caption:='+';
end
else
if RadioButton4.checked=true then
begin
c:=a-b;
edit3.Text:=FloatToStr(c);
label1.Caption:='-';
end
end;
end.
Tidak ada komentar:
Posting Komentar
perhatian!
tolong komentarnya berhubungan dengan artikel yang ada.
komentar yang mengarah ke tindakan spam
akan dihapus atau terjaring secara otomatis oleh spam filter