Pages

Penghitung Angka dengan delphi7

Rabu, 02 April 2014
.Aplikasi boleh sederhana., yang penting dapat menambah ilmu...
.Aplikasi boleh sederhana., yang penting tidak eror saat RUN... ;-)
.Ayooo langsung Praktekkk .!
.bisa teori belum tentu bisa praktek... agkgkgkgkkkk :-D
.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::..

.ini kodingnya.!

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