Everything Could be Happen

berikut Listing nya :

unit tugas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, FileCtrl, ComCtrls, MPlayer;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    paudio: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Timer1: TTimer;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    FilterComboBox1: TFilterComboBox;
    OpenDialog1: TOpenDialog;
    Timer2: TTimer;
    audioplayer1: TMediaPlayer;
    audiobar: TProgressBar;
    Panel2: TPanel;
    Label3: TLabel;
    pvideo: TPanel;
    vaudio: TLabel;
    Label2: TLabel;
    Button1: TButton;
    videoplayer: TMediaPlayer;
    videobar: TProgressBar;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
paudio.Visible:=Speedbutton1.Down;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
pvideo.Visible:=Speedbutton2.Down;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label3.Left<-label3.Width then
label3.Left:=panel2.Width
else
label3.Left:=label3.Left-1;
audiobar.Position:=audioplayer1.Position;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
audioplayer1.FileName:=filelistbox1.FileName;
audioplayer1.Open;
label3.Caption:=filelistbox1.FileName;
audiobar.Max:=audioplayer1.Length;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
videoplayer.FileName:=opendialog1.FileName;
videoplayer.Open;
timer2.Enabled:=true;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
videobar.Max:=videoplayer.Length;
videobar.Position:=videoplayer.Position;
end;



end.


dan ini adalah print screen hasil nya

yapp tugas kuliah lagi nih di borland Delphi 7 buat game sederhana,
btw walaupun gue boleh liat dari referensi suatu situs, tp udah banyak  yg gue ubah nih hoohoho
ini lah game sederhana yang gue sebut game acak angka dan berhitung :p
Buat Bu Dinar skali lagi maaf yaa kalo ada salah2 dalam pembuatan game ini :D mohon bimbingannya :D

inilah video nya

heyyy gue mahasiswa teknik mau nge share listing program game sederhana dengan menggunakan timer nih
sekalian buat tugas juga sih hehehe untuk instruktur lab ibu Dinar, kalo ada salah2 maap yaa :D


berikut listing nya :

unit kelinci;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1Change(Sender: TObject);
    procedure Timer1Timer(sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure tform1.aktif;
begin
image1.Enabled:=true;
image2.Enabled:=true;
image3.Enabled:=true;
image4.Enabled:=true;
image5.Enabled:=true;
timer1.Enabled:=true;
button2.Enabled:=true;
image1.Visible:=true;
image2.Visible:=true;
image3.Visible:=true;
image4.Visible:=true;
image5.Visible:=true;
end;
procedure tform1.nonaktif;
begin
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
edit1.Enabled:=false;
button2.Enabled:=false;
timer1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
nonaktif;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
aktif;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
image3.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
image4.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image5Click(Sender: TObject);
begin
image5.Visible:=false;
edit1.Text:=inttostr(strtoint(edit1.Text)+20);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Left:=random(left);
image1.Top:=random(top);
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image2.Left:=random(left);
image2.Top:=random(top);
end;

procedure TForm1.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image3.Left:=random(left);
image3.Top:=random(left);
end;

procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image4.Left:=random(left);
image4.Top:=random(top);
end;

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image5.Left:=random(left);
image5.Top:=random(top);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text='100' then
begin
nonaktif;
showmessage('congratulation you won');
edit1.Text:='0';
end
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=10000;
showmessage('GAME OVER?');
close;


end.