Membuat Teks Ular menggunakan Delphi

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

 Sreenshotnya Teks Ular

Caranya cukup mudah anda tinggal mencopy dan mempastekan pada delphi :

program TeksUlar;

{$APPTYPE CONSOLE}

uses
  Math, Crt32;

const
  Pesan = 'cara membuat teks seperti ular';
  Panjang = Length(Pesan);

var
  Sudut: Real;
  x, y, i: Integer;

begin
  Randomize;
  Sudut := Random(90);
  x := -Panjang;
  repeat
    for i := 0 to Length(Pesan) - 1 do begin
      y := Round(12.5 - 8*Sin(DegToRad(10*(Sudut + i))));
      if (x + i) > 0 then begin
        if (x + i) > 80 then
          GotoXY(x + i - 80, y)
        else GotoXY(x + i, y);
        Write(Pesan[i + 1]);
      end;
    end;
    Delay(100);
    if x > 0 then begin
      y := Round(12.5 - 8*Sin(DegToRad(10*Sudut)));
      GotoXY(x, y); Write(' ');
    end;
    Sudut := Sudut + 1;
    if Sudut = 360 then Sudut := 0;
    x := x + 1;
    if x > 80 then x := 1;
  until Keypressed;
end.

Keterangan:
- Untuk penyimpanan, disimpan dalam satu folder dengan Crt32. Bagi yang belum punya Crt32 silahkan download disini.

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