LABORATORIUM KOMPUTER – TEKNIK INFORMATIKA STT DHARMA ISWARA MADIUN
PRAKTIKUM PEMROGRAMAN BERORIENTASI OBJEK-1
PROCEDURE DAN FUNCTION
LAPORAN RESMI MODUL KE-
NIM
NAMA MAHASISWA
6 (ENAM)
09211080
FAJAR SUMANTO
TTD DOSEN
PROCEDURE DAN FUCTION Untuk
pemula,sering
sekali
membedakan
perbedaan
antara
keduanya,
perbedaannya adalah sebagai berikut : Procedure adalah suatu subrutin yang tidak memerlukan nilai kembali, dalam penulisan di delphi adalah sebagai berikut : code : text 1.
procedure Namanya;
2.
begin
3.
//isikan kode disini
4.
end;
Function adalah suatu subrutin yang memerlukan nilai kembali, dalam penulisan di delphi adalah sebagai berikut : code : text 1.
function Namanya: integer; //nilai kembali dapat diganti tipe data lainnya
2.
begin
3.
//kodenya
4.
result := 1; //nilai kembali harus sama dengan deklarasinya
5.
end;
procedure dan function dibagi menjadi 2 macam, yaitu in line / wrap dan dalam class, berikut ini adalah unit lengkap untuk membedakannya : code : text 1.
unit Unit1;
2.
interface
1
3.
uses
4.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
5.
type
6.
TForm1 = class(TForm)
7.
private
8.
procedure IniProsedurClass; //pendeklarasian ditulis dalam classnya
9.
{ Private declarations }
10.
public
11.
{ Public declarations }
12.
end;
13. � 14. var 15.
Form1: TForm1;
16. implementation 17. {$R *.dfm} 18. procedure IniProsedurInline; //inline procedure langsung ditulis di bagian implementation 19. begin 20. � 21. end; 22. � 23. { TForm1 } 24. � 25. procedure TForm1.IniProsedurClass; deklarasi dari classnya 26. begin 27. end; 28. end.
2
//forward
Procedure dan Function juga dapat berparameter, sehingga pemrosesan dapat secara dinamis, berikut ini adalah contohnya : code : text 1.
function Tambahkan(Bil1,Bil2: integer): integer;
2.
begin
3.
result := Bil1
4.
end;
5.
//penggunaannya
Bil2;
ShowMessage(IntToStr(Tambahkan(1,2)));
Ketika anda dapat menggunakan procedure dan function secara tepat, hal ini sudah dapat mempercepat waktu coding anda. Demikian tutorial ini, semoga bermanfaat bagi kita semua
3
DESAIN FORM
4
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Button7: TButton; Button8: TButton; Button9: TButton; Button6: TButton; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Button10: TButton; Button11: TButton; Button12: TButton; procedure Button11Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject);
5
procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button10Click(Sender: TObject); private { Private declarations } public procedure bersih(); { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.bersih(); begin edit1.Text:='0'; edit2.Text:='0'; edit3.Text:='0'; edit4.Text:='0'; edit5.Text:='0'; edit6.Text:='0'; edit7.Text:='-'; edit8.Text:='-'; edit9.Text:='-'; edit1.SetFocus; end; function tambah_in(a,b:integer):integer; begin tambah_in:=(a+b); end;
procedure TForm1.Button11Click(Sender: TObject); begin bersih end;
6
procedure TForm1.Button12Click(Sender: TObject); begin close(); end; procedure TForm1.Button1Click(Sender: TObject); var satu, dua : real; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=floattostr(satu / dua);
end; procedure TForm1.Button2Click(Sender: TObject); var satu, dua : integer; hasil:integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); hasil:=tambah_in(satu,dua); edit3.Text:=inttostr(hasil);
end; procedure TForm1.Button3Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu-dua);
end; procedure TForm1.Button4Click(Sender: TObject); var satu, dua : integer; begin
7
satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu*dua);
end; procedure TForm1.Button5Click(Sender: TObject); var satu, dua : integer; begin satu:= strtoint(edit1.Text); dua:=strtoint(edit2.Text); edit3.Text:=inttostr(satu mod dua);
end; procedure TForm1.Button7Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu+dua);
end; procedure TForm1.Button9Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu * dua);
end; procedure TForm1.Button8Click(Sender: TObject); var satu, dua : real; begin
8
satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu - dua);
end; procedure TForm1.Button6Click(Sender: TObject); var satu, dua : real; begin satu:= strtofloat(edit4.Text); dua:=strtofloat(edit5.Text); edit6.Text:=floattostr(satu / dua);
end; procedure TForm1.Button10Click(Sender: TObject); var satu, dua : string; begin satu:= (edit7.Text); dua:= (edit8.Text); edit9.Text:=satu +' '+dua;
end; end.
9
DAFTAR PUSTAKA http://delphi-id.org/dpr/News/2010/8/8/procedure-dan-function-di-delphi/
10
