Membuat Banner menggunakan Delphi

hai gan, pada kesempatan kali ini saya akan memberikan sedikit tentang membuat banner 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 Banner;

{$APPTYPE CONSOLE}

uses
  Crt32;

const
  PesanAsli = 'Membuat Banner yang bisa bergerak';
  PanjangPesan = Length(PesanAsli);
  Background = White;

var
  Mulai, x, y: Integer;
  Pesan, Bingkai: string;

begin
  Randomize;
  TextColor(Yellow);
  TextBackground(Background);
  ClrScr;
  x := -PanjangPesan;
  y := Random(22) + 2;
  repeat
    Pesan := ' ' + PesanAsli + ' ';
    Mulai := x;
    if Mulai < 1 then begin
      Mulai := 1;
      Pesan := Copy(Pesan, 2 - x, Length(Pesan) + x - 1);
    end;
    Bingkai := StringOfChar(' ', Length(Pesan));
    TextBackground(LightRed);
    GotoXY(Mulai, y - 1); Write(Bingkai);
    GotoXY(Mulai, y);     Write(Pesan);
    GotoXY(Mulai, y + 1); Write(Bingkai);
    Delay(100);
    TextBackground(Background);
    GotoXY(Mulai, y - 1); Write(' ');
    GotoXY(Mulai, y);     Write(' ');
    GotoXY(Mulai, y + 1); Write(' ');
    x := x + 1;
    if x > 80 then begin
      x := -PanjangPesan;
      y := Random(22) + 2;
    end;
  until Keypressed;
end.

Keterangan:
- Untuk penyimpanan, disimpan dalam satu folder dengan Crt32. Bagi yang belum punya Crt32 silahkan download disini.
- Background , Warna yang saya tandai merah diatas, bisa anda ganti sesuai warna yang anda sukai.

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