Program untuk Membuat Bentuk Diamond pada Delphi

Ketentuan program:

Pertama membuat judul program “Mencetak Diamond 1/2”
Tahap selanjutnya yaitu membuat nama input beserta keterangan dengan caption “Masukkan angka”
Lalu, membuat listbox untuk berfungsi menampilkan hasil inputan
Terakhir, membuat 3 button dengan caption “Check”, ”Clear”, ”Exit”.

Tampilan Form:

Listing program berdasarkan obyek:

Button Check

procedure TForm1.Button1Click(Sender: TObject);var a,b,c: integer;bintang : string;beginbintang := ‘*’;b := StrToInt (Edit1.Text);for a:= 0 to b dobeginListBox1.Items.Add (bintang);bintang := bintang + ‘*’;end;for a:= b downto 0 dobeginbintang := ”;for c:= 0 to a dobeginbintang := bintang + ‘*’;end;ListBox1.Items.Add (bintang);end;end;

Button Clear

procedure TForm1.Button2Click(Sender: TObject);beginListBox1.Clear;Edit1.Clear;end;

Button Exit

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

Output programnya nanti akan seperti berikut:

Selanjutnya
Program Transaksi Apotek