Perbedaan Mod Dan Div pada Delphi

         Perbedaan Mod dan Div

Mod atau Modulus adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika menentukan sisa hasil bagi.

Div adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika yaitu operasi pembagian pada bilangan bulat. Sedangkan pada bilangan pecahan menggunakan operator ( / ).

Berikut contoh program operasi mod dan div. :

Buat desain form seperti di bawah ini.

Component aktif :

Edit = Edit1, Edit2

Label = lhasil

Button = Button1, Button2, Button3, Button 4

Klik 2x tombol Mod. Masukkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:integer;

begin

a:= strtoint(Edit1.Text);

b:= strtoint(Edit2.Text);

if a >= b Then

begin

c:= a mod b;

lhasil.Caption := inttostr(c);

end

else

begin

showmessage('Angka pertama harus sama atau lebih besar');

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

end;

Klik 2x tombol Div. Masukkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

a,b,c:integer;

begin

a:= strtoint(Edit1.Text);

b:= strtoint(Edit2.Text);

if a >= b Then

begin

c:= a div b;

lhasil.Caption := inttostr(c);

end

else

begin

showmessage('Angka pertama harus sama atau lebih besar');

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

end;

Klik 2x tombol Baru. Masukkan script di bawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Text:= '';

Edit2.Text := '';

Edit1.SetFocus;

end;

Klik 2x tombol Keluar. Masukkan script di bawah ini :

procedure TForm1.Button4Click(Sender: TObject);

begin

Halt;

end;

Nah…. Selesai. Silahkan Running dengan menekan F9. Ini dia hasilnya jika di Running :

Jika di klik Mod

Jika di klik Div

Sekian Share dari saya. Semoga bermanfaat...........................

Function Dan Procedure Pada Delphi

                        Function dan Procedure

Function adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi dan mempunyai satu feedback atau nilai balik, feedback bisa ber tipe data apa saja sesuai deklarasi.

Procedure adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi.

Jadi perbedaan diantara keduanya adalah ada pada data feedback atau nilai baliknya. Function memiliki nilai balik dan procedure tidak memiliki nilai balik.

            Berikut penjelasan cara penulisan nya :

Deklarasi :

procedure NamaProcedure(Parameter : TipeData);

function NamaFunction(Parameter : TipeData) : TipeDataFeedback;

deklarasi procedure dan function ditulis pada block public declaration, private, dan protected.

type
TForm1 = class(TForm)
private
procedure NamaProcedure(Parameter : TipeData);
public
function NamaFunction(Parameter : TipeData) : TipeDataFeedback;
protected
{ Protected declarations }
end;

Implementasi :

Cara menulis implementasi  adalah dengan menekan Ctrl + Shift + C

procedure TForm1.NamaProcedure(Parameter : TipeData);
begin

end;

procedure TForm1.NamaFunction(Parameter : TipeData): TipeDataFeedback;
begin

end;

Pemanggilan atau eksekusi :

Misalnya dipanggil ketika tombol di klik : 

seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
NamaProcedure(NamaParameter);
end;

Untuk lebih jelasnya lihat contoh program dibawah  ini :

Buka Borland Delphi 7. Klik File – New Application.

Buat Desain form seperti dibawah ini :

Component Aktif :

Edit  = tpanjang, tlebar

Label : lblluas

Button : btnfunction, btnprocedure, btnbaru, btnkeluar

Kemudian deklarasikan function dan procedurenya (yang bercetak tebal). :

  private

    { Private declarations }

  public

}

           { Public declarations }
     function lpp(p,l:string):string;

    procedure lpp1(p,l:string);

  end;

var

  Form1: TForm1;

luas:integer;  -> Variabel public

implementation

{$R *.dfm}

Masukkan perintah pada function dan  procedurenya. Ketikkan sript dibawah ini  :

function TForm1.lpp(p,l:string):string;

var

a,b:integer;

begin

a:= strtoint(p);

b:= strtoint(l);

luas:= a*b;

lblluas.Caption := inttostr(luas);

end;

procedure TForm1.lpp1(p,l:string);

var

a,b:integer;

begin

a:= strtoint(p);

b:= strtoint(l);

luas:= a*b;

lblluas.Caption := inttostr(luas);

end;

Panggil Fuction ketika tombol di klik.

Klik 2x tombol Function. Masukkan script di bawah  ini :

procedure TForm1.btnfunctionClick(Sender: TObject);

begin

lpp(tpanjang.Text,tlebar.Text);

end;

Klik 2x tombol Procedure. Masukkan script di bawah  ini :

procedure TForm1.btnprocedureClick(Sender: TObject);

begin

lpp1(tpanjang.Text,tlebar.Text);

end;

Maka Function dan procedure sudah terpanggil.

Kemudian Klik 2x tombol Baru. Masukkan script di bawah  ini :

procedure TForm1.btnbaruClick(Sender: TObject);

begin

tpanjang.Text := '';

tlebar.Text := '';

lblluas.Caption := 'luas';

tpanjang.SetFocus;

end;

Klik 2x tombol Procedure. Masukkan script di bawah  ini :

procedure TForm1.btnkeluarClick(Sender: TObject);

begin

Halt;

end;

Nah…..  selesai. Silahkan di running dengan tekan F9. Ini dia hasinya jika di running :

Ketika di klik Function

Ketika di klik Procedure

Sekian share dari saya. Semoga bermanfaat……..

Sampai jumpa di postingan selanjutnya.

PERULANGAN PADA DELPHI

Perulangan

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :

-          For …To…Do

-          For…DOwnTo…Do

-          Repeat…Until

-          While…Do

Untuk lebih jelasnya mari kita bahas satu per satu. 
For …To…Do 
Bentuk Umum : 

For (counter):= (nilai awal) To (nilai akhir) Do
Begin
Perintah;
Perintah;
End; 

For …DownTo…Do 
Bentuk Umum : 

For (counter):= (nilai awal) DownTo (nilai akhir) Do
Begin
Perintah;
Perintah;
End; 

Catatan : Perbedaan perulangan For…To…Do dan For…Down…To…Do adalah : Jika perulangan For…To…Do bergerak naik dari kecil ke besar. Sedangkan For…DownTo…Do bergerak turun dari besar ke kecil. 

Repeat…Until 
Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau program counternya diakhir di akhir.
Bentuk Umum : 

Repeat
Perintah;
Perintah;
Until (Kondisi); 

While…Do 
While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).
Bentuk Umum : 

While (Kondisi) Do
Begin
Perintah;
Perintah;
End;
  
Praktek : 
Buka Borland Delphi 7. Klik File – New – Application.
Buat desain form seperti dibawah ini :

Component :

Edit     : Edit1 

Memo : Memo1

Button : Button1, Button2, Button3, Button4, Button5, Button6

Klik 2x pada tombol For To Do. Masukkan  script dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= strtoint(Edit1.Text);
For i:=1 to j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;
end;

Klik 2x pada tombol For DownTo Do. Masukkan  script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= 1;
For i:= strtoint(Edit1.Text) downto j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;

end;

Klik 2x pada tombol Repeat Until. Masukkan  script dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
j:= strtoint(Edit1.Text);
repeat
b:= b+inttostr(i)+'     ';
i:=i+1
until i>j;
memo1.Text:= b;
end;

Klik 2x pada tombol While Do. Masukkan  script dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:= strtoint(Edit1.Text);
j:= 1;
b:= '';
while i >= j do
begin
b:= b+inttostr(i)+'     ';
i:=i-1
end;
Memo1.Text := b;
end;

Klik 2x pada tombol Baru. Masukkan  script dibawah ini :

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := '';
Memo1.Text := 'Memo1';
Edit1.SetFocus;
end;

Klik 2x pada tombol Keluar. Masukkan  script dibawah ini :

procedure TForm1.Button6Click(Sender: TObject);
begin
Halt;
end;

Sudah selesai sekarang. Tekan F9 dan inilah hasil runningnya :

Sekian Share saya kali ini. Semoga bermanfaat......
Sampai jumpa dipostingan ane berikutnya ya gan….