Pada pertemuan ini, saya membahas Cara Membuat Program Sederhana Diamond Pada Delphi. Delphi adalah tools dalam pengembangan aplikasi visual yang yang berbasis objek. Pada kesempatan saat ini saya membuat aplikasi dari Delphi yaitu Contoh Program Sederhana Membuat Diamond Pada Delphi. Berikut adalah Contoh Program Sederhana Membuat Diamond Pada Delphi.
List Program Sederhana Membuat Diamond Pada Delphi
Logika Program Sederhana Membuat Diamond 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 saya menggunakan Form yang terdapat pada Delphi. Di sini saya akan membuat program Perulangan Dengan Output Diamond Pada Delphi.
- Pertama membuat judul pada aplikasi yang ingin kita buat menggunakan label dengan caption “Mencetak Diamond 1/2”
- Tahap selanjutnya membuat nama input beserta keterangan menggunakan edit dan label dengan caption “Masukkan angka
- Selanjutnya membuat listbox untuk berfungsi menampilkan hasil inputan
- Terakhir adalah membuat 3 button yang mana dengan nama caption “Check”,”Clear”,”Exit”.
Berikut adalah sintaks dari 3 button Program Sederhana Membuat Diamond Pada Delphi tersebut:
Button Check
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;
Button Clear
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
end;
Button Exit
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Output Program Sederhana Membuat Diamond Pada Delphi
 |
| Hasil Program Sederhana Membuat Diamond Pada Delphi |