Pada program dengan bahasa pemrograman Delphi, kali ini akan membahas tentang penggunaan percabangan dan pengulangan. Dengan menggunakan percabangan dan pengulangan dapat digunakan untuk menerapkan sebuah tanggal dan waktu dengan memasukan listing program masing-masing, sehingga setelah listing program tersebut diterapkan maka akan memunculkan waktu dan tanggal yang sekarang terjadi atau sesuai dengan waktu dan tanggal yang ada di laptop atau pun komputer yang telah diatur sebelumnya. Pada percabangan ini digunakan For To Do dan Fo Down To Do dan untuk pengulangan ini digunakan pengulangan IF. untuk lebih jelasnya lihat dibawah ini.
LISTING PROGRAM
==============================================================
unit Perulangan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button4: TButton;
ColorDialog1: TColorDialog;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer ;
begin
memo1.Clear;
i := Strtoint (edit1.Text);
for j := 1 to strtoint (edit2.Text) do
begin
memo1.Lines.add (' ulang ke : '+ inttostr (j) + ' = '+ inttostr (i));
i := i + 1;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
memo1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i, j, k : integer ;
begin
memo1.Clear;
k := Strtoint (edit1.Text);
j := 1;
for i := Strtoint (edit2.text) downto (j) do
begin
memo1.Lines.add (' ulang ke : '+ inttostr (j) + ' = '+ inttostr (k));
k := k - 1;
j := j + 1;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Animatewindow ( form1.Handle, 10000, Aw_blend);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if colorDialog1.Execute then
form1.Color :=colordialog1.Color;
end;
end.
==============================================================
LOGIKA PROGRAM
Pada program ini akan membahas tentang Perulangan dan percabangan pada bahasa pemrograman Delphi.
Ø Dibawah ini adalah nama sebuah program yang telah dibuat dalam bahasa pemrograman ini. Sebagai contoh nama program ini adalah Perulangan. Ingat…!!! Pada penamaan program pada bahasa pemrograman ini kita yang menentukannya sesuka hati.
unit Perulangan;
Ø Dibawah ini adalah komponen-komponen palette di form design yang berfungsi untuk membangun sebuah program dalam bahasa pemrograman Delphi. Komponen-komponen ini sangat penting, karena tanpa komponen-komponen ini maka program yang kita buat tidak bisa kita run atau dengan menekan tombol F9.
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button4: TButton;
ColorDialog1: TColorDialog;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
Ø Listing program dibawah ini yaitu untuk menampilkan For To Do pada memo1. Dengan memasukaan nilai atau angka awal, kemudian memasukan nilai atau angka banyaknya perulangan maka hasilnya bisa dilihat di layar memo1. Contoh program ini yaitu sebagai berikut:
Angka awal = 4
Banyaknya pengulangan = 4
Kemudian klik button For Down To Do, maka hasilnya akan ditampilkan di memo1.
Dan hasilnya = ulang ke : 1 = 4
ulang ke : 2 = 5
ulang ke : 3 = 6
ulang ke : 4 = 7
begin
memo1.Clear;
i := Strtoint (edit1.Text);
for j := 1 to strtoint (edit2.Text) do
begin
memo1.Lines.add (' ulang ke : '+ inttostr (j) + ' = '+ inttostr (i));
i := i + 1;
end;
end;
Ø Listing program dibawah ini yaitu untuk menampilkan For Down To Do. Dengan memasukaan nilai awal kemudian banyaknya perulangan maka hasilnya bisa dilihat di layar memo1 yaitu:
Dibawah ini adalah sebagai contoh dalam memasukkan sebuah nilai awal maupun nilai banyak pengulangan.
Angka awal = 4
Banyaknya pengulangan = 4
Kemudian klik button For Down To Do
Maka hasilnya = ulang ke : 1 = 4
ulang ke : 2 = 3
ulang ke : 3 = 2
ulang ke : 4 = 1
Nb: cara ini sama seperti cara memasukkan nilai awal dan nilai banyaknya pengulangan. Namun setelah diklik button For To Do maka hasilnya aka beda sekali dengan For Down To Do
procedure TForm1.Button2Click(Sender: TObject);
var i, j, k : integer ;
begin
memo1.Clear;
k := Strtoint (edit1.Text);
j := 1;
for i := Strtoint (edit2.text) downto (j) do
begin
memo1.Lines.add (' ulang ke : '+ inttostr (j) + ' = '+ inttostr (k));
k := k - 1;
j := j + 1;
end;
end;
Ø Listing program dibawah ini merupakan listing program yang berfungsi sebagai pembersih angka maupun huruf dari hasi For To Do maupun For Down To Do, sehingga tidak usah menghapus angka maupun huruf satu persatu. Dan listing program ini sangat praktis digunakan.
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
memo1.Clear;
end;
Dibawah ini adalah listing program untuk menutup sebuah aplikasi yang dibuat dengan bahasa pemrograman Delphi. Sehingga tanpa menekan control tombol close lagi yang terletak disudut kanan atas.
procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;
Ø Listing program dibawah ini berfungsi untuk memberi warna pada background secara otomatis tanpa merubah listing program satu persatu diantara listing program-listing program warna. Sebagai contoh Listing program untuk merubah warna background:
- merah yaitu Form1.color:=Clred;
- hijau Form1.color:=Clgreen;
- biru Form1.color:=Clblue;
- kuning Form1.color:=Clyellow ,dll
procedure TForm1.Button4Click(Sender: TObject);
begin
if colorDialog1.Execute then
form1.Color :=colordialog1.Color;
end;
end.
OUTPUT PROGRAM
Ø Pada gambar dibawah ini adalah tampilan komponen-komponen pallet pada from design seperti button, edit, label, dan memo.
Ø Gambar dibawah ini saat kita klik tombol For To Do saat nilai awal dan banyaknya perulangan diberi nilai.
Ø Gambar dibawah ini saat kita klik tombol For Down To Do.
Terimakasih Telah Membaca Artikel Ini
Semoga Bermanfaat
Terimah Kasih telah membaca artikel 
0 Comments
