Delphi 7 - Kondisi Perulangan (For To Do, For Down To, dan Repeat Until)

-
Oke kali ini saya akan menjelaskan contoh program dengan kondisi perulangan pada delphi. Delphi adalah bahasa pemrograman yang menggunakan visualisasi seperti bahasa pemrograman Visual Basic (VB), namun Delphi menggunakan bahasa yang hampir sama dengan Pascal (Object Pascal). Pada program ini saya menggunakan Delphi 7.
Berikut adalah desain tampilan programnya :

Pada desain form1 diatas terdapat 2 buah label yaitu Perulangan Delphi dan Masukkan Tinggi. Selanjutnya, terdapat sebuah Edit yang berfungsi sebagai tempat inputan user untuk mengetikan batas dari perulangan yang akan dijalankan, kemudian terdapat ListBox yang berfungsi sebagai tempat tampilnya output perulangan, lalu yang terakhir ada 3 buah Button yang masing-masing memiliki kondisi perulangan yang berbeda dan sebuah button Clear serta Exit.

Berikut adalah kode program / sintaks yang terdapat pada program tersebut :



procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
b:= StrToInt (Edit1.Text);
for a := 1 to b do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b:integer;
begin
b:= StrToInt (Edit1.Text);
for a := b downto 1 do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var a,b:integer;
begin
a:=0;
b:= StrToInt (Edit1.Text);
repeat
a:=a+1;
  begin
    ListBox1.Items.Add(IntToStr(a));
  end;
until b<=a;
end;

procedure TForm1.Button4Click(Sender: TObject);
Begin
ListBox1.Clear;
Edit1.Clear;
Edit1.SetFocus;
End;

procedure TForm1.Button5Click(Sender: TObject);
begin
if application.MessageBox
('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes then
Application.Terminate;
end;

procedure TForm1.editNumber(Sender: TObject; var Key: Char);
begin
If Not (Key in['0'..'9',#8,#13]) Then
  Key:= #0;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.MaxLength := 2;
end;

end.

1. Button1 (For Do To)
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
b:= StrToInt (Edit1.Text);
for a := 1 to b do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
end;

Pada bagian diatas adalah sintaks pada Button For To Do, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;
berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin
karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.


b:= StrToInt (Edit1.Text);
merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

for a := 1 to b do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
merupakan sintaks dari bentuk kondisi perulangan for to do, for a := 1 to b do sintaks ini berfungsi sebagai perulangan dengan a dimulai dengan nilai 1 sampai batas variabel b yaitu dari  inputan user.

 begin
    ListBox1.Items.Add (IntToStr(a));
  end;
sintaks diatas merupakan badan program untuk statement hasil dari kondisi perulangan yang diawali dengan begin dan diakhiri dengan end;
berfungsi untuk melakukan statemen hasil dari perulangan a yaitu dengan menampilkan outputnya di dalam ListBox1.

end;
berfungsi untuk menutup badan program dibagian button1.

2. Button2 (For Down To)
var a,b:integer;
begin
b:= StrToInt (Edit1.Text);
for a := b downto 1 do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
end;

Pada bagian diatas adalah sintaks pada Button For Downto Do, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;
berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin
karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

b:= StrToInt (Edit1.Text);
merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

for a := b downto 1 do
  begin
    ListBox1.Items.Add (IntToStr(a));
  end;
merupakan sintaks dari bentuk kondisi perulangan for downto do, for a := b downto 1 do sintaks ini berfungsi sebagai perulangan dengan a dimulai dengan variabel b yaitu dari inputan user sampai dengan batas nilai 1.

begin
    ListBox1.Items.Add (IntToStr(a));
  end;
sintaks diatas merupakan badan program untuk statement hasil dari kondisi perulangan yang diawali dengan begin dan diakhiri dengan end;
berfungsi untuk melakukan statemen hasil dari perulangan a yaitu dengan menampilkan outputnya di dalam ListBox1.

end;
berfungsi untuk menutup badan program dibagian button2.

3. Button3 (Repeat Until)
var a,b:integer;
begin
a:=0;
b:= StrToInt (Edit1.Text);
repeat
a:=a+1;
  begin
    ListBox1.Items.Add(IntToStr(a));
  end;
until b<=a;
end;

Pada bagian diatas adalah sintaks pada Button Repeat Until, berikut merupakan penjelasan sintaks diatas :

var a,b:integer;
berfungsi untuk membentuk variabel serta mendeklarasikan tipe data variabel, pada sintaks diatas dibuat variabel a dan b dengan tipedata integer (bilangan bulat).

begin
karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

a:=0;
berfungsi untuk menjadikan variabel a  bernilai 0.

b:= StrToInt (Edit1.Text);
merupakan sintaks yang berfungsi untuk menjadikan variable b sebagai penampung inputan dari user yang diketikan di Edit1 dengan mengubah nilainya terlebih dahulu dari string menjadi integer.

repeat
a:=a+1;
  begin
    ListBox1.Items.Add(IntToStr(a));
  end;
until b<=a;
sintaks diatas merupakan bentuk dari kondisi perulangan repeat until dengan awalan repeat kemudian diikuti oleh increment a:=a+1; agar nilai awal yang telah dideklarasikan sebelumnya dapat bertambah sesuai penambahan yang ditetapkan.

  begin
    ListBox1.Items.Add(IntToStr(a));
  end;
sintak diatas merupakan bagian perintah atau statement yang akan dijalankan dalam perulangan repeat until yang diawalai dengan begin setelah itu ListBox1.Items.Add(IntToStr(a)); berfungsi agar perulangan dengan variabel a ditampilkan didalam ListBox dengan mengkonversi dari Integer menjadi String.

until b<=a;
berfungsi untuk menentukan kondisi pada perulangan repeat until, pada sintak diatas perulangan akan berhenti jika kondisinya b kurang dari samadengan a.

end;
berfungsi untuk menutup badan program dibagian button3.

4. Button4 (Clear)
Begin
ListBox1.Clear;
Edit1.Clear;
Edit1.SetFocus;
End;

Pada bagian diatas adalah sintaks pada Button Clear, berikut merupakan penjelasan sintaks diatas :

begin
karena delphi menggunakan bahasa yang mirip dengan pascal, maka untuk memulai suatu sintaks atau badan program harus dimulai dengan begin.

ListBox1.Clear;
berfungsi untuk membersihkan layar pada bagian ListBox1.

Edit1.Clear;
berfungsi untuk membersihkan layar pada bagian Edit1.

Edit1.SetFocus;
Berfungsi untuk menempatkan kursor pada Edit1 setelah user mengklik Button4 (Clear).

5. Button5 (EXIT)
begin
if application.MessageBox
('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes then
Application.Terminate;
end;

Pada bagian diatas adalah sintaks pada Button EXIT, berikut merupakan penjelasan sintaks diatas :

Berfungsi untuk menampilkan sebuah MessageBox untuk meyakinkan kembali user apakah ingin benar keluar dari program atau tidak dengan kondisi percabangan if..then dan terdapat pilihan Yes atau No, Jika user mengklik ‘Yes’ maka statement dibawah then akan dijalankan yaitu Application.Terminate; Yang berfungsi untuk keluar dari jendela program. Tak lupa pada awal terdapat begin dan diakhir ditutup dengan end;

end.
Berfungsi untuk menutup akhir dari keseluruhan badan program.

Berikut adalah tampilan Outputnya :





Saya kira sudah cukup jelas penjelasan mengenai program perulangan (For To Do, For Down To, dan Repeat Until)  pada Delphi, semoga postingan ini bermanfaat dan menambah pengetahuan bagi kita dalam memahami bahasa pemrograman Delphi. Untuk postingan selanjutnya saya akan menjelaskan tentang contoh program database bahasa pemrograman Delphi.

Komentar

Posting Komentar

Postingan populer dari blog ini

Dampak E-Commerce terhadap Individu, Masyarakat, dan Negara

-
Gambar
Pada postingan kali ini saya akan menjelaskan dampak E-Commerce terhadap individu, masyarakat, dan negara. Sebelumnya kita pahami dulu apa itu E-Commerce? Berikut adalah definisi singkatnya : E-Commerce adalah dimana dalam satu website menyediakan atau dapatmelakukan Transaksi secara online atau juga bisa merupakan suatu cara berbelanja atau berdagang secara online atau direct selling yang memanfaatkan fasilitas Internet dimana terdapat website yang dapat menyediakan layanan “get and deliver“. Berikut ini adalah dampak yang ditimbulkan dengan adanya E-Commerce : 1. Dampak E-Commerce terhadap Individu Dampak Positif : Konsumen dapat berbelanja atau mengolah bernagai transaksi lain dalam 24 jam sepanjang hari, sepanjang tahun di sebagian besar lokasi. Contohnya memeriksa saldo, membuat pembayaran, dan memperoleh informasi lainnya. Konsumen tidak hanya memiliki sekumpulan produk yang bisa dipilih, namun juga daftar supplier internasional sehingga kons
Baca selengkapnya

Delphi 7 - Database (Microsoft Access)

-
Gambar
Oke kali ini saya akan melanjutkan penjelasan mengenai bahasa pemrograman Delphi. Pada kesempatan kali ini saya akan menjelaskan Database pada Delphi dengan menghubungkan database pada Microsoft Access ke dalam program database VB, pada program ini saya menggunakan Delphi 7. B erikut adalah desain tampilan programnya : ADO Connection Ada Di Pallete ADO ADOTable Ada di Pallete ADO DataSource Ada di Pallete Data Acces DBNavigator Ada di Pallete Data Control DBGrid Ada di Pallete Data Control Pada desain form Latihan Database diatas terdapat 5 buah label yaitu Database 1IA16 2013/2014, NPM, NAMA, KELAS, dan ALAMAT. Selanjutnya, terdapat 4 buah Edit yang berfungsi sebagai tempat inputan user untuk mengetikan data, lalu ada 3 buah Button yang masing-masing memiliki fugsi yang berbeda yaitu button RESET untuk menghapus sisa data inputan yang telah diketikan user, SIMPAN untuk menyimpan data yang telah diketikan user, serta EXIT untuk keluar dari program.
Baca selengkapnya

Delphi 7 - Kondisi Percabangan (If Then Else)

-
Gambar
Pada postingan sebelumnya saya telah menjelaskan bahasa pemrograman Visual Basic (VB) yaitu mengenai kondisi percabangan, perulangan dan database. Sekarang saya akan menjelaskan bahasa pemrogramaan yang mirip dengan Visual Basic yaitu bahasa pemrograman Delphi 7.  Delphi adalah bahasa pemrograman yang menggunakan visualisasi seperti bahasa pemrograman Visual Basic (VB), namun Delphi menggunakan bahasa yang hampir sama dengan Pascal (Object Pascal). Kali ini saya akan membuat aplikasi dari Delphi yaitu program percabangan. Berikut adalah desain tampilan programnya : Pada desain form1 diatas terdapat 3 buah label yaitu Login, Username, dan Password. Selanjutnya, terdapat 2 buah Edit yang berfungsi sebagai tempat inputan user untuk mengetikan username dan password yang sesuai agar dapat login dan masuk ke form2, lalu yang terakhir ada 2 buah Button yaitu Login dan Cancel. Pada desain form2 diatas terdapat 5 buah label yaitu Perhitungan Nilai, Nilai UTS, Nilai UAS, Nila
Baca selengkapnya