Code HaTi

Membuat Segitiga Pada Delphi

Woooowwww........
Sudah sangat lama saya tidak update lagi di blog ini, sekarang ketika kangen ngeblog baru deh di buka blog nya,...

Sekarang kita mau apa ya ??
Ahaaaaa.... !!!??

Sekarang Saya akan memberikan tutorial atau cara Membuat Segitiga Pada Delphi ..
Whaaattt ?? Segitiga Pada Delphi ?? Gillleee lu Ndrooo ....!!

eit's para visitor jangan prasangka buruk dulu, Pada delphi kita juga bisa kok membuat segitiga layaknya pada C++, kagak percaya ya ??

Langsung Ke TKP aja....

Membuat Segitiga Pada Delphi

Kepada para visitor yang ingin mencoba harap sesuaikan aje ye...

1. Jalankan Program Delphi (Dalam Hal ini saya menggunakan Delphi 2010).

• Tedit, 
• Tbutton,   
• TstringGrid

3. Atur design nya sesuai selera masing-masing. Lihat Design ane dibawah ini .. 4. Double Clik Pada Button, atau bisa juga menggunakan Event Onclick, kemudian masukan Scriptnya atau coding nya seperti dibawah ini ..

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:integer;
begin
  a:=strtoint(edit1.Text);

   for b := a-1 downto 0 do
    begin
      stringgrid1.ColWidths[b]:=20;
      for c := 0 to  b do
        begin
          stringgrid1.Cells[c,b]:='*';
        end;
    end;
end;

Jika anda mengetikan script nya benar, maka program anda Akan berjalan lancar,..

5. Jalankan program anda atau bisa menggunakan tombol/ Shortcut F9 pada Tedit isikan tinggi segitiga nya . dan Taraaaaa beginilah hasilnya ...


Bagaimana sangat gampang dan menyenangkan bukan....
asalkan ada kemauan pasti apa yang kita inginkan bisa kita wujudkan...
Sekian tutorial dari saya saat ini, tunggu tutorial-tutorial aneh selanjutnya ...

See you Next Time and Bye.. bye... ^_^