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….

PERCABANGAN PADA DELPHI

            Percabangan

Percabangan di Delphi ada 2  yaitu If dan Case….Of. Keduanya  ini merupakan percabangan. Yang membedakan hanya penulisan syntaxnya.

Percabangan If

Penulisan Syntax If bentuk umum

If (kondisi) then (pernyataan);

Contoh :

If tgol.text = ‘A’ Then tunjang :=’20000’;

Penulisan Syntax If ….. Else

If (kondisi) then (pernyataan) Else (pernyataan);

Contoh :

If nilai >=70 then ket.caption := ‘Lulus’ Else ket.caption := “Tidak Lulus”;

Penulisan syntax If  dengan beberapa pernyataan

If (kondisi) Then

Begin

(pernyataan);

(pernyataan);

(pernyataan);

End

Else

If (kondisi) Then

Begin

(pernyataan);

(pernyataan);

(pernyataan);

End

Contoh :

If tgol.text = ‘A’ then

Begin

tket.text := ‘Kontrak’;

gaji := 1800000;

tunjang := 50000;

tgaji.text := inttostr(gaji);

ttunj.text:=inttostr(tunjang);

End;

Percabangan Case…. Of

Penulisan syntax Case….. Of 

Case (nama variable) Of

(nilai awal..nilai akhir) : (pernyataan);

(nilai awal..nilai akhir) : (pernyataan);

(nilai awal..nilai akhir) : (pernyataan);

Else

(Pernyataan);

Contoh :

Case nilai Of

0..25 : tgrade.text :=’E’;

26..55 : tgrade.text :=’D’;

56..75 : tgrade.text :=’C’;

76..85: tgrade.text :=’B’;

85..100 : tgrade.text :=’A’;

Else

tgrade.text:=’Tidak Ada’;

Nah sekarang mari kita praktekkan :

Pastikan computer agan-agan semua sudah terinstall Borland Delphi 7. Kalau belum ada cari di google aja deh. hehehe.

Buka Borland Delphi 7. Klik File – New - Application

Buat desain form seperti gambar dibawah ini :

Component Penting :
Edit : tnilai
Label : Label1, Label 2
Button : btnproses, btnbaru, btnkeluar

Klik 2x tombol PROSES. masukkan script dibawah ini :

procedure TForm1.btnprosesClick(Sender: TObject);
var
nilai:integer;
begin
nilai := strtoint(tnilai.Text);
If nilai > 85 then
begin
label1.Caption := 'A';
label2.Caption := 'SANGAT MEMUASKAN';
end
else
If nilai > 80 then
begin
label1.Caption := 'AB';
label2.Caption := 'MEMUASKAN';
end
else
If nilai > 75 then
begin
label1.Caption := 'B';
label2.Caption := 'Baik';
end
else
If nilai > 65 then
begin
label1.Caption := 'BC';
label2.Caption := 'Cukup Baik';
end
else
If nilai > 55 then
begin
label1.Caption := 'C';
label2.Caption := 'Cukup';
end
else
If nilai > 25 then
begin
label1.Caption := 'D';
label2.Caption := 'Kurang';
end
else
begin
label1.Caption := 'E';
label2.Caption := 'Gagal';
end;
end;


Klik 2x tombol BARU. masukkan script dibawah ini :

procedure TForm1.btnbaruClick(Sender: TObject);
begin
tnilai.Text := '';
Label1.Caption := '';
Label2.Caption := '';
tnilai.SetFocus;
end;


Klik 2x tombol KELUAR. masukkan script dibawah ini :

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

Selesai deh....  tinggal tekan F9.
Nih tampilannnya jika di running :

Untuk percabangan Case...Of agan coba sendiri deh. Kan udah ada contohnya diatas. 

Semoga bermanfaat. Dan sampai jumpa di postingan ane berikutnya gan..... 

Hehehehe

TUGAS 2 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI MENGGUNAKAN PERCABANGAN CASE__OF)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal dengan compiler Borland Delphi 7.
Berikut Flowchart dari program ini :

Langkah -langkah :
1. Buka software Borland Delphi 7
2. Klik File - New - Other - Console Application
3. Ketikkan Coding dibawah ini tanpa « br »  dan « p »  :
program case_of; <br /> <br /> {$APPTYPE CONSOLE} <br /> <br /> uses <br /> SysUtils; <br /> <br /> var <br /> n:integer; <br /> grade,ket:string; <br /> <br /> begin <br /> write (' * Program Penentu Grade Nilai * '); <br /> writeln; <br /> writeln; <br /> writeln; <br /> writeln; <br /> write (' Masukkan nilai anda = '); readln(n);<br /> case n of <br /> 0..25 : <br /> begin <br /> grade:='E'; ket:='Gagal'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 26..55 : <br /> begin <br /> grade:='D'; ket:='Kurang';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 56..75 : <br /> begin grade:='C'; ket:='Cukup'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> 76..85 : <br /> begin grade:='B'; ket:='Baik'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 86..100 : <br /> begin <br /> grade:='A'; ket:='Istimewa';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> else writeln(' Nilai yang anda masukkan melebihi batas'); <br /> end; <br /> readln; <br /> end. <br />
4. tekan F9 untuk menjalankan program.
Jreng...... Jreng...... ini dia tampilan programnya :

Okey...... Selamat mencoba dan semoga berhasil.
Mohon maaf jika masih terjadi error. hehehehehe 

TUGAS 1 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal.
Dengan compiler Borland Delphi 7.

Cara 1
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>=0 and n<=25 then grade ='E' If n>=26 and n<=55 then grade ='D' If n>=56 and n<=75 then grade ='C' If n>=70 and n<=85 then grade ='B' If n>85 then grade ='A'
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7. :
<br /> program cara1;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>=0) and (n<=25) then grade:='E'; if (n>=26) and (n<=55) then grade:='D'; if (n>=56) and (n<=70) then grade:='C'; if (n>=71) and (n<=85) then grade:='B'; if (n>85) then grade:='A';<br /> writeln(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut tampilan programnya :

Cara 2
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>85 then grade = 'A' Else
If n>70 then grade = 'B' Else
If n>55 then grade = 'C' Else
If n>25 then grade = 'D' Else
grade = 'E';
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7 :
<br /> program cara2;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>85)then grade:='A' Else<br /> if (n>70)then grade:='B' Else<br /> if (n>55)then grade:='C' Else<br /> if (n>25)then grade:='D' Else<br /> grade:='E';<br /> write(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> <br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut Tampilan Programnya :

Okey Gan, Sekian dulu dari ane. Mohon maaf jika ada kekurangan.
Selamat mencoba n semoga berhasil. Hehehehehehe