Pada paktikum pertemuan ketujuh ini, saya mendapat kesempatan untuk menggunakan program Delphi. Delphi adalah tools dalam pengembangan aplikasi visual yang yang berbasis objek. Pada praktikum kali ini saya membuat aplikasi program dari Delphi yaitu perulangan dan segitiga. Berikut adalah contoh sederhana program segitiga menggunakan Delphi.
1. Logika Program
Analisa Program
Pada kesempatan kali ini saya membuat program ini 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 perulangan setengah diamond.
Penjelasan Program
Saya ingin membuat program dengan menggunakan 3 CommandButton yang kita buat untuk check, clear , dan exit, 1 TextBox untuk mengisi angka, 1 ListBox untuk tempat outputnya dan membuat 2 label untuk masukkan angka, dan Judulnya.
2. procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
bintang : string;
Perintah syntax diatas adalah perintah ini digunakan untuk mendeklarasikan a, b, c sebagai integer dan bintang sebagai string.
3. begin
bintang := '*';
b := StrToInt (Edit1.Text);
Perintah syntax diatas adalah berarti bahwa akan memulai bintang berisi varibael “*” dan b dikonversi dari string menjadi integer yang diinputkan pada textbox 1.
4. for a:= 0 to b do
begin
ListBox1.Items.Add (bintang);
bintang := bintang + '*';
end;
Perintah syntax diatas adalah berguna untuk variable a sama dengan 0 sampai b kemudian melakukannya, outputnya berbentuk vertical dan memanggil variabel bintang diatas, kemudian menambahkan outputnya di listbox 1, dan tutup program dengan end.
5. for a:= b downto 0 do
begin
bintang := '';
for c:= 0 to a do
begin
bintang := bintang + '*';
end;
Perintah syntax diatas adalah bergunauntuk a sama dengan b kemudian turun sampai 0 kemudian, bintang berisi spasi kosong untuk menghapus dulu dari program for pertama diatas.Kemudian untuk c sama dengan 0 sampai a kemudian memulai bintang sama dengan memanggil bintang dan outputnya berbentuk vertical, dan tutup program dengan end.
6. ListBox1.Clear;
Edit1.Clear;
Edit1.SetFocus;
end;
Perintah syntax diatas adalah bergunaini untuk menghapus output yang berada pada textbox 1 dan listbox 1.
7. begin
Application.Terminate;
end;
end.
Perintah syntax diatas adalah bergunauntuk menghentikan aplikasi yang sedang berjalan.
Berikut ini adalah seluruh sintaks dari Program 2 :
8. procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
bintang : string;
begin
bintang := '*';
b := StrToInt (Edit1.Text);
for a:= 0 to b do
begin
ListBox1.Items.Add (bintang);
bintang := bintang + '*';
end;
for a:= b downto 0 do
begin
bintang := '';
for c:= 0 to a do
begin
bintang := bintang + '*';
end;
ListBox1.Items.Add (bintang);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
No comments:
Post a Comment