Membuat Segitiga Angka dengan Delphi 7
Kalau biasanya membuat segitiga dengan C++ kali ini kita coba menggunakan Borland Delphi 7, dengan menggunakan For to Do. Silahkan dicoba trik berikut ini.
berikut triks Membuat Segitiga Angka dengan Delphi 7
1. Buatlah design form mirip-mirip seperti ini.
2. Kemudian tulis script dibawah ini
procedure TForm1.Button1Click(Sender: TObject);3. Setelah dicompile hasilnya seperti dibawah ini.
var
x,y : integer;
deretangka:string;
begin
listbox1.Items .Clear ;
for y:=1 to 4 do begin
deretangka:='';
for x:=1 to y do begin
deretangka := deretangka + inttostr(x);
//deretangka := deretangka + inttostr(y);
end;
listbox1.Items .add (deretangka);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate ;
end;
Mau download contoh Membuat Segitiga Angka dengan Delphi 7..??
klik disini
Terimakasih atas komentar Anda.
Budayakan Bertanya dan Berkomentar dengan Sopan.
Tolong tinggalkan komentar jika Anda menemukan Link yang Broken.
EmoticonEmoticon