Pada pertemuan ini, saya membahas Delphi. Delphi adalah tools dalam pengembangan aplikasi visual yang yang berbasis objek. Pada kesempatan saat ini saya membuat aplikasi dari Delphi yaitu Contoh Program For to do, For downto do, Repeat until, While do Pada Delphi. Berikut adalah Contoh Program Sederhana For to do, For downto do, Repeat until, While do menggunakan Delphi.
List Program For to do, For downto do, Repeat until, While do Pada Delphi
Logika Program For to do, For downto do, Repeat until, While do Pada Delphi
Program ini di buat untuk latihan membuat program menggunakan Delphi. Versi yang di gunakan pada program ini adalah Delphi 7. Pada program ini kita menggunakan Form yang terdapat pada Delphi. Di sini kita akan membuat program untuk For to do, For downto do, Repeat until, While do Pada Delphi.
- Pertama membuat judul pada aplikasi yang ingin kita buat menggunakan label dengan caption “Perulangan Delphi”
- Tahap selanjutnya membuat nama input beserta keterangan menggunakan edit dan label dengan caption “Masukkan angka”
- Selanjutnya membuat listbox untuk berfungsi menampilkan hasil inputan
- Terakhir membuat 6 buat button masing-masing dengan caption “For to do”,”For downto do”,”Repeat until”,”While do”,”Clear”,”Exit”
Berikut dibawah ini adalah sintaks dari 6 button pada Contoh Program For to do, For downto do, Repeat until, While do Pada Delphi :
Button For to do
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
c:= '';
b:= strtoint(Edit1.Text);
For a:=1 to b do
begin
c:= c+inttostr(a)+ ' ';
end;
ListBox1.Items.Add(c);
end;
Button For downto do
procedure TForm1.Button2Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
c:= '';
b:= 1;
For a:= strtoint(Edit1.Text) downto b do
begin
c:= c+inttostr(a)+' ';
end;
ListBox1.Items.Add(c);
end;
Button Repeat until
procedure TForm1.Button3Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
a:=1;
c:='';
b:= strtoint(Edit1.Text);
repeat
c:= c+inttostr(a)+' ';
a:=a+1
until a>b;
ListBox1.Items.Add(c);
end;
Button While until
procedure TForm1.Button4Click(Sender: TObject);
var
a,b:integer;
c:string;
begin
a:= strtoint(Edit1.Text);
b:= 1;
c:= '';
while a >= b do
begin
c:= c+inttostr(a)+' ';
a:=a-1
end;
ListBox1.Items.Add(c);
end;
Button Clear
procedure TForm1.Button5Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
end;
Button Exit
procedure TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Output Program For to do, For downto do, Repeat until, While do Pada Delphi
 |
| Hasil For to do dan Repeat until |
 |
| Hasil For downto do dan While do |