PRAKTIKUM BORLAND DELPHI 2010 GAMES (BY BSI)
//*Coding Games By Lhourens.R.L*// //*BSI *// //*Target Shape,Timer,ProgressBar*// ------------------------------------------------------------------------------------------------ unit Tugas_13090318; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Timer1: TTimer; Panel2: TPanel; Shape2: TShape; Timer2: TTimer; ProgressBar2: TProgressBar; Panel1: TPanel; Shape1: TShape; ProgressBar1: TProgressBar; Timer3: TTimer; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Timer3Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Kanan,kiri,atas,bawah,Knn,kr,ats,bwh : Boo