Pertama Buat tampilan seperti dibawah ini :
Baca juga Procedure Non Parameter Link
Buat Variabel global :
var
Form1: TForm1;
A,B,C:INTEGER;
implementation
Bila sudah, buat procedure , lalu tekan ctrl + shift + c
Isikan seperti dibawah ini :
procedure TForm1.TAMBAH(X, Y: INTEGER);
begin
C:=X+Y;
END;
KLik 2x pada Button
Semoga bermanfaat :)
Baca juga Procedure Non Parameter Link
Buat Variabel global :
var
Form1: TForm1;
A,B,C:INTEGER;
implementation
Bila sudah, buat procedure , lalu tekan ctrl + shift + c
Isikan seperti dibawah ini :
procedure TForm1.TAMBAH(X, Y: INTEGER);
begin
C:=X+Y;
END;
KLik 2x pada Button
procedure TForm1.Button1Click(Sender: TObject); begin C:= StrToInt(Edit1.Text); B:= StrToInt(Edit2.Text); // memanggil procedure Tambah dengan nilai parameter A dan B Tambah(A,B); // tuliskan nilai C pada edit3 Edit3.Text:=IntToStr(C); end; end. |
Semoga bermanfaat :)
Komentar
Posting Komentar