Membuat Kembang Api menggunakan Delphi

hai gan, pada kesempatan kali ini saya akan memberikan sedikit tentang membuat kembang Api pada Delphi yang menggunakan Item Console Applikasi. Oke langsung saja.

Untuk Sreenshotnya Seperti ini :

Caranya cukup mudah anda tinggal mencopy dan mempastekan pada delphi :

program KembangApi;

{$APPTYPE CONSOLE}

uses
  Crt32;

const
  Warna: array[0..8] of Byte = (White, Yellow, LightRed,
    Red, White, LightGray, DarkGray, Black, Black);

var
  x, y: Integer;
  i, j: Integer;

procedure WriteXY(const x, y: Integer; Teks: string);
begin
  if Teks <> '' then begin
    if (x in [1..80]) and (y in [1..24]) then begin
      GotoXY(x, y); Write(Teks[1]);
    end;

    WriteXY(x + 1, y, Copy(Teks, 2, Length(Teks) - 1));
  end;
end;

begin
  Randomize;
  TextBackground(Black);
  ClrScr;

  repeat
    x := Random(74) + 4;
    y := Random(19) + 4;

    for i := 0 to 8 do begin
      TextColor(Warna[i]);

      WriteXY(x - 2*i, y - i, '*');
      WriteXY(x - 2*i, y    , '*');
      WriteXY(x - 2*i, y + i, '*');

      WriteXY(x, y - i, '*');
      WriteXY(x, y + i, '*');

      WriteXY(x + 2*i, y - i, '*');
      WriteXY(x + 2*i, y    , '*');
      WriteXY(x + 2*i, y + i, '*');

      Delay(100);

      if i > 1 then begin
        j := i - 2;

        WriteXY(x - 2*j, y - j, ' ');
        WriteXY(x - 2*j, y    , ' ');
        WriteXY(x - 2*j, y + j, ' ');

        WriteXY(x, y - j, ' ');
        WriteXY(x, y + j, ' ');

        WriteXY(x + 2*j, y - j, ' ');
        WriteXY(x + 2*j, y    , ' ');
        WriteXY(x + 2*j, y + j, ' ');
      end;
    end;
  until Keypressed;
end.

Keterangan:
- Untuk penyimpanan, disimpan dalam satu folder dengan Crt32. Bagi yang belum punya Crt32 silahkan download disini.
- Anda bisa mengganti bacground yang anda sukai, pada warna merah diatas.

Demikian Kembang Api dalam Delphi yang bisa saya sajikan, apabila ada yang belum jelas bisa ditanyakan melalui kotak komentar. Semoga postingan ini bisa bermanfaat bagi anda.