Hallo , kali ini saya ingin posting tentang membuat program sederhana perulangan Delphi. Disini kita membuat perulangan For To Do , For DownTo Do , Repeat Until , While Do. Seperti ini Tampilannya :
Pada Form1 diatas kita membutuhkan beberapa komponen , berikut komponen nya :
1. 2 Label dengan Caption :
- PERULANGAN DELPHI
- Masukkan Angka
2. 2 Edit Box dengan Text dikosongkan.
3. 5 Button dengan Caption:
- For To Do
- For DownTo Do
- Repeat Until
- While Do
- Exit
Berikut Sintaks pada Form1 / Unit1 :
procedure TForm1.Button1Click(Sender: TObject);
var
a,i: Integer;
bintang : String;
begin
ListBox1.Clear;
a := StrToInt(Edit1.Text);
bintang := '*';
for i := 1 to a Do
begin
ListBox1.Items.Add(bintang);
bintang := bintang +'*';
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i : Real;
begin
ListBox1.Clear;
i := 0;
repeat
i := i+0.5;
ListBox1.Items.Add(FloatToStr(i));
until i = StrToInt (Edit1.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
a,b : Integer;
c : String;
begin
ListBox1.Clear;
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;
procedure TForm1.Button2Click(Sender: TObject);
var i,j,a : Integer;
bintang : String;
begin
ListBox1.Clear;
a := StrToInt(Edit1.Text);
For i := a DownTo 1 Do
begin
bintang := '';
For j := 1 To i Do
begin
bintang := bintang + '*';
end;
ListBox1.Items.Add(bintang);
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
If application.MessageBox('Apakah Anda Yakin Ingin Keluar','Warning',MB_YesNo)=ID_Yes Then
begin
application.MessageBox('Terima Kasih :)','Selamat Tinggal');
application.Terminate;
end;
end;
procedure TForm1.editnumber(Sender: TObject; var Key: Char);
begin
If Not (Key In['0'..'9',#8,#13]) Then
Key := #0;
end;
end.
Berikut pembahasan logika ada Program Perulangan tersebut :
- Pembahasan logika program pada Button For To Do.
1. procedure TForm1.Button1Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button1 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var
a,i: Integer;
bintang : String;
Sintaks diatas berguna untuk mendeklarasikan variable a dan I bertipe data Integer dan untuk variable bintang bertipe data String.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. a := StrToInt(Edit1.Text);
Sintaks diatas menjelaskan bahwa variable a adalah Edit1 dan dikonfrensikan dari type data String ke Integer.
6. bintang := '*';
Sintaks diatas menjelaskan bahwa variable bintang berisi nilai “*”.
7. For i := 1 to a Do
begin
ListBox1.Items.Add(bintang);
bintang := bintang +'*';
end;
Sintaks diatas menjelaskan perulangan untuk variable i sama dengan 1 sampai variable a dan akan menampilkan perulangan variable bintang pada ListBox1, lalu variable bintang ditambah “*” setiap perulangan.
8. end.
Sintaks diatas berguna untuk menutup keseluruhan sintaks pada button For To Do
1. procedure TForm1.Button1Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button1 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var
a,i: Integer;
bintang : String;
Sintaks diatas berguna untuk mendeklarasikan variable a dan I bertipe data Integer dan untuk variable bintang bertipe data String.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. a := StrToInt(Edit1.Text);
Sintaks diatas menjelaskan bahwa variable a adalah Edit1 dan dikonfrensikan dari type data String ke Integer.
6. bintang := '*';
Sintaks diatas menjelaskan bahwa variable bintang berisi nilai “*”.
7. For i := 1 to a Do
begin
ListBox1.Items.Add(bintang);
bintang := bintang +'*';
end;
Sintaks diatas menjelaskan perulangan untuk variable i sama dengan 1 sampai variable a dan akan menampilkan perulangan variable bintang pada ListBox1, lalu variable bintang ditambah “*” setiap perulangan.
8. end.
Sintaks diatas berguna untuk menutup keseluruhan sintaks pada button For To Do
- Pembahasan program pada tombol For Down To .
1. procedure TForm1.Button2Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button2 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var i,j,a : Integer;
bintang : String;
Sintaks diatas berguna untuk mendeklarasikan variable i,j dan a bertipe data Integer dan variabel bintang bertipe data String.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. a := StrToInt(Edit1.Text);
Sintaks diatas berguna untuk mengkonfrensikan tipe data variabel a dari String ke Integer.
6. For i := a DownTo 1 Do
begin
bintang := '';
Sintaks diatas menjelaskan untuk variabel I sama dengan variabel a turun ke bawah sampai 1 lalu merubah variabel bintang menjadi ‘’ (kosong).
7. For j := 1 To i Do
begin
bintang := bintang + '*';
end;
Sintaks diatas menjeaskan untuk variabel j sama dengan 1 sampai variabel I lalu merubah isi variabel bintang dengan variabel bintang ditambah “*”.
8. ListBox1.Items.Add(bintang);
end;
Sintaks diatas berfungsi untuk menampilkan variabel bintang pada ListBox1.
9. end;
Sintaks diatas berguna untuk menutup keseluruhan sintaks pada button For Down To
- Pembahasan program pada tombol While Do.
1. procedure TForm1.Button4Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button4 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var a,b : Integer;
c : String;
Sintaks diatas berguna untuk mendeklarasikan variabel a dan b bertipe data Integer dan variabel c bertipe data String.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. a := StrToInt (Edit1.Text);
Sintaks diatas menjelaskan bahwa variabel a sama dengan Edit1 dan mengkonfrensikan dari tipe data String ke Integer.
6. b := 1;
c := '';
SIntaks diatas menjelaskan bahwa isi dari variabel b sama dengan 1 dan isi dari variabel c sama dengan ‘’(kosong).
7. while a>=b do
begin
c := c +IntToStr(a)+ ' ';
a:= a-1
end;
Sintaks diatas menjelaskan jika variabel a lebih besar sama dengan b lalu mengubah isi dari variabel c menjadi variabel c tambah variabel a tambah ‘’ (kosong) dan untuk variabel a sama dengan a dikurang 1 tia perulangannya.
8. ListBox1.Items.Add(c);
Sintaks diatas berfungsi untuk menamilkan variabel c pada ListBox1.
9. End.
Sintaks diatas berfungsi untuk menutup keseluruhan sintaks pada button While Do.
1. procedure TForm1.Button4Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button4 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var a,b : Integer;
c : String;
Sintaks diatas berguna untuk mendeklarasikan variabel a dan b bertipe data Integer dan variabel c bertipe data String.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. a := StrToInt (Edit1.Text);
Sintaks diatas menjelaskan bahwa variabel a sama dengan Edit1 dan mengkonfrensikan dari tipe data String ke Integer.
6. b := 1;
c := '';
SIntaks diatas menjelaskan bahwa isi dari variabel b sama dengan 1 dan isi dari variabel c sama dengan ‘’(kosong).
7. while a>=b do
begin
c := c +IntToStr(a)+ ' ';
a:= a-1
end;
Sintaks diatas menjelaskan jika variabel a lebih besar sama dengan b lalu mengubah isi dari variabel c menjadi variabel c tambah variabel a tambah ‘’ (kosong) dan untuk variabel a sama dengan a dikurang 1 tia perulangannya.
8. ListBox1.Items.Add(c);
Sintaks diatas berfungsi untuk menamilkan variabel c pada ListBox1.
9. End.
Sintaks diatas berfungsi untuk menutup keseluruhan sintaks pada button While Do.
- Pembahasan program pada tombol Repeat Until
1. procedure TForm1.Button3Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button3 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var i : Real;
Sintaks diatas berfungsi untuk mendeklarasikan variabel i bertipe data Integer.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. i := 0;
Sintaks diatas berguna untuk mendeklarasikan isi dari variabel i sama dengan 0;
6. repeat
i := i+0.5;
ListBox1.Items.Add(FloatToStr(i));
until i = StrToInt (Edit1.Text);
Sintaks diatas menjelaskan repeat atau mengulang variabel i sama dengan variabel i dijumlah dengan 0.5 dan menampilkan variabel i pada ListBox1 dan mengkonfrensikan tipe data dari Float ke String sampai variabel i sama dengan Edit1 lalu berhenti.
7. end;
Sintaks diatas berguna untuk menutup keseluruhan sintaks pada button Repeat until.
1. procedure TForm1.Button3Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button3 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. var i : Real;
Sintaks diatas berfungsi untuk mendeklarasikan variabel i bertipe data Integer.
3. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
4. ListBox1.Clear;
Sintaks diatas berfungsi untuk menghapus data yang berada pada ListBox1.
5. i := 0;
Sintaks diatas berguna untuk mendeklarasikan isi dari variabel i sama dengan 0;
6. repeat
i := i+0.5;
ListBox1.Items.Add(FloatToStr(i));
until i = StrToInt (Edit1.Text);
Sintaks diatas menjelaskan repeat atau mengulang variabel i sama dengan variabel i dijumlah dengan 0.5 dan menampilkan variabel i pada ListBox1 dan mengkonfrensikan tipe data dari Float ke String sampai variabel i sama dengan Edit1 lalu berhenti.
7. end;
Sintaks diatas berguna untuk menutup keseluruhan sintaks pada button Repeat until.
- Pembahasan program pada tombol Exit.
1. procedure TForm1.Button5Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button5 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
3. If application.MessageBox('Apakah Anda Yakin Ingin Keluar','Warning',MB_YesNo)=ID_Yes Then
begin
application.MessageBox('Terima Kasih :)','Selamat Tinggal');
application.Terminate;
end;
Sintaks diatas berfungsi untuk pertanyaan ‘Apakah Anda Yakin Ingin Keluar ?’ , penjelasan nya adalah jika Yakin ingin keluar dan di klik YES maka akan menampilkan MessageBox ‘Terima Kasih :)’ dan akan langsung keluar dari program.
4. End.
Sintaks diatas berguna untuk menutu keseluruhan sintaks pada button Exit.
1. procedure TForm1.Button5Click(Sender: TObject);
Sintaks diatas menjelaskan bahwa Button5 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya.
2. Begin
Sintaks diatas adalah penulisan awal ketika ingin menuliskan sintaks.
3. If application.MessageBox('Apakah Anda Yakin Ingin Keluar','Warning',MB_YesNo)=ID_Yes Then
begin
application.MessageBox('Terima Kasih :)','Selamat Tinggal');
application.Terminate;
end;
Sintaks diatas berfungsi untuk pertanyaan ‘Apakah Anda Yakin Ingin Keluar ?’ , penjelasan nya adalah jika Yakin ingin keluar dan di klik YES maka akan menampilkan MessageBox ‘Terima Kasih :)’ dan akan langsung keluar dari program.
4. End.
Sintaks diatas berguna untuk menutu keseluruhan sintaks pada button Exit.
- Pembahasan program EditBox1 pada Form1.
1. procedure TForm1.editnumberKeyPress(Sender: TObject; var Key: Char);
Sintaks diatas menjelaskan bahwa EditBox1 yang berada pada Form1 jika diklik maka akan menjalankan sintaks selanjutnya..
2. begin
If Not (Key in['0'..'9',#8,#13]) Then
Key := #0;
end;
Sintaks diatas berfungsi untuk mengharuskan EditBox1 hanya bisa di isi oleh numeric.
Dan kurang lebih akan seperti ini outputnya :
(Tamilan Ketika Tombol For To Do diklik)
(Tampilan ketika tombol For Downto Do diklik)
(Tampilan ketika tombol Repeat Until diklik)
(Tampilan ketika tombol While Do diklik)
Sekian cara membuat program sederhana Perulangan pada Delphi , kalo ada yang kurang mohon maaf Terima kasih :) , Semoga bermafaat yaaa :).
Tidak ada komentar:
Posting Komentar