Membuat Gelembung menggunakan Delphi

hai gan, pada kesempatan kali ini saya akan memberikan sedikit postingan tentang membuat Gelembung pada Delphi yang menggunakan Item Console Applikasi. Oke langsung saja, simak dibawah ini :

 Sreenshotnya Gelembung

Caranya cukup mudah anda tinggal mencopy dan mempastekan pada delphi :

program Gelembung;

{$APPTYPE CONSOLE}

uses
  Crt32;

type
  TGelembung = record
    x, y: Integer;
    dy: 1..2;
  end;

const
  JumlahGelembung = 80;

var
  Gelembung: array[1..JumlahGelembung] of TGelembung;
  i: Integer;

begin
  Randomize;
  TextColor(White);
  TextBackground(LightBlue);
  ClrScr;

  for i := 1 to JumlahGelembung do with Gelembung[i] do begin
    x := Random(80) + 1;
    y := Random(41) + 26;
    dy := Random(2) + 1;
  end;

  repeat
    for i := 1 to JumlahGelembung do with Gelembung[i] do begin
      if y < 25 then begin
        GotoXY(x, y); Write('o');
      end;
    end;

    Delay(100);

    for i := 1 to JumlahGelembung do with Gelembung[i] do begin
      if y < 25 then begin
        GotoXY(x, y); Write(' ');
      end;

      y := y - dy;

      if y < 1 then begin
        x := Random(80) + 1;
        y := Random(41) + 26;
        dy := Random(2) + 1;
      end;
    end;
  until Keypressed;
 end.

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

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