SELAMAT DATANG DI PORTAL SMK KELING KUMANG

Rabu, 23 November 2016

Fungi Perkalian Pada Delphi

var
  Form1: TForm1;

a,b,c:real;

implementation

{$R *.dfm}

procedure TForm1.Edit2Change(Sender: TObject);

begin
a:=StrToIntDef(DBEdit1.Text,0);
b:=StrToIntDef(Edit2.Text,0);
c:=a*b;
Edit3.Text:=FloatToStr(c);
if Edit2.Text='' then
ShowMessage('data harus di isi');
Form1.Refresh;

1 komentar :

  1. Info kuliah Berkualitas. Hanya di :
    www.imandiri.id/pmb
    www.stmik-im.ac.id
    www.stan-im.ac.id

    BalasHapus

Silahkan tinggalkan komentar anda dibawah postingan ini.terima kasih jika anda berkomentar secara positif dan membangun.