Membuat Hujan menggunakan Delphi

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

Screenshoot Hujan

Caranya cukup mudah anda tinggal mencopy dan mempastekan pada delphi :

program Hujan;

{$APPTYPE CONSOLE}

uses
  Crt32;

type
  TAirHujan = record
    x, y: Integer;
    Kecepatan: 1..2;
  end;

const
  JumlahAir = 240;

var
  Air: array[1..JumlahAir] of TAirHujan;
  i: Integer;

begin
  Randomize;
  TextColor(LightGray);
  TextBackground(DarkGray);
  ClrScr;

  for i := 1 to JumlahAir do with Air[i] do begin
    x := Random(110) + 1;
    y := Random(41) - 40;
    Kecepatan := Random(2) + 1;
  end;

  repeat
    for i := 1 to JumlahAir do with Air[i] do begin
      if (y > 0) and (x <= 80) then begin
        GotoXY(x, y); Write('/');
      end;
    end;

    Delay(50);

    for i := 1 to JumlahAir do with Air[i] do begin
      if (y > 0) and (x <= 80) then begin
        GotoXY(x, y); Write(' ');
      end;

      x := x - Kecepatan;
      y := y + Kecepatan;

      if (x < 1) or (y > 24) then begin
        x := Random(110) + 1;
        y := Random(41) - 40;
        Kecepatan := 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 Hujan dalam Delphi yang bisa saya sajikan, apabila ada yang belum jelas bisa ditanyakan melalui kotak komentar. Semoga postingan ini bisa bermanfaat bagi anda.