Membuat Bola Pantul menggunakan Delphi

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

 Sample Bola Pantul

Caranya cukup mudah anda tinggal mencopy dan mempastekan pada delphi :

program Bolapantul;

{$APPTYPE CONSOLE}

uses
  Crt32;

type
  TBolaPantul = record
    x, y: Integer;
    Warna: Byte;
    dx, dy: Integer;
  end;

const
  JumlahBola = 20;

var
  Bola: array[1..JumlahBola] of TBolaPantul;
  i: Integer;

begin
  Randomize;
  TextBackground(green);
  ClrScr;

  for i := 1 to JumlahBola do with Bola[i] do begin
    x := Random(78) + 2;
    y := Random(25) + 1;
    Warna := Random(9) + 8;
    if (Odd(Random(2))) then dx := -1 else dx := 1;
    if (Odd(Random(2))) then dy := -1 else dy := 1;
  end;

  repeat
    for i := 1 to JumlahBola do with Bola[i] do begin
      TextColor(Warna);
      GotoXY(x, y); Write('O');
    end;

    Delay(100);

    for i := 1 to JumlahBola do with Bola[i] do begin
      GotoXY(x, y); Write(' ');

      if x = 2 then dx := 1 else if x = 79 then dx := -1;
      if y = 1 then dy := 1 else if y = 25 then dy := -1;

      x := x + dx;
      y := y + dy;
    end;
  until Keypressed;
end.

Keterangan:
- Untuk penyimpanan, disimpan dalam satu folder dengan Crt32. Bagi yang belum punya Crt32 silahkan download disini.
- Pada TextBackground, yang berwarna merah bisa anda ganti dengan warna yang anda sukai
- Pada Delay, yang berwarna merah bisa anda ganti sesuai kecepatan laju bola yang anda sukai.
Delay berfungsi untuk mengatur kecepatan, semakin kecil nilainya semakin cepat laju bola tersebut.

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