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.

Cuma disini gue bisa melampiaskan curahan hati gue, cuma disni pula lah gue bisa teriak se kenceng2 nya,

Disini gue mau menceritakan apa yg gue udah alami selama iniii

You know, kehidupan itu ibarat sebuah ukiran kayu yg bisa di buat corak yg indaaaah yg punya nilai lebih untuk di jual,,

Di kehidupan gue selama ini kehidupan gue udah diukir dan diberikan aksen2 indah,.. Selepas itu gue yakin aksen buruk yg ada dikehidupan gue mungkin hanyalah sebuah ketidaksengajaan, yg gak harus gue mau,

Berawal dari SMA mungkin romansa cinta monyet itu baru berasaa dan terasa indah, ntah kenapa semua itu berjalan menyenangkan,
Didukung jg dari keadaan di rumah gue yg masih dibilang harmonis, yg masih lengkap anggota keluarga gue, gue msh bisa menemukan sosok ayah di papa gue,

Tp 3 tahun belakangan ini semua nya berubah totall gada lg keharmonisan di rumah gue dan keluarga, semua berawal dari pergi nya papa gue dari rumah, dia memilih hidup sama istri baru nya, itu semua buat pupus harapan gue, harapan memiliki papah yg gue banggakan,
Dimulai saat itulah kehidupan gue berasa flat gada hal hal indah lg :)
Suraaaam, kata itu yg bisa gue gambarkan mengenai smua nya, gue dsini sbg anak pertama dari 5 bersaudara adek2 gue msh pd kecil2, yg paling kecil itu kelas 3 sd skrrg,
Otomatis gue jd lah tulang punggung keluarga gue, yaaaa walaupun gue jg blm bs ngasih apa yg seharusnya dipenuhii, tp senggaknya gue dh ngelakukan itu :) dan gue ikhlas,,
Gue cuma mau membanggakan mamah gue, biar dia tau dia punya anak kayak gue yg bisa memberikan g terbaik buat keluarga nya

Dimulai dari gue lulus sekolah, behhhh its a greatest moment, I had \(´▽`)/
Seneng bangeeet, gue sudah lulus, dilain itu gue memikirkan jalan untuk kehidupan gue dan keluarga gue (adik2 dan mamah, )
Gue lulus lgsg kerja man!!! Yaa walaupun kerja sama tante gue di perusahaan nya, lumayan laaah gaji pertama buat jajan2 aja, hehehe
Mulai dari situ gue berfikir gue harus bisa ada peningkatan, awal langkah yg harus gue tempuh adalah kuliaaaaah \(´▽`)/ hemmm gue kuliah deh tuhhhh hohhoho yaa wlau cuma jadi mahasiswa males yg kerjaan nya cuma chat aja

Dimulai dari chat lah gue nemuin sesosok perempuan yg menurut gue behhhhh perfect bangeet, jutek, tp care, smart cakep pulaaa
Gue mulai jatuh hati sama dia, she's wht I want it,
Hemmm gue jalanin deh tuh awalnya sih coba2 gue dulu kan gituuu hahaa gak suka yg ribet2 dikit2 putussss !!!
Tp gue udah tobat menn skrg, yaa walaupun kadang nyerong dikit sih xixixixi
Tp gue sayang men akhirnyaa ama dia, nah smenjak itulah gue ajakin ketemuan, gue makin sayaaang care dan gue mau kasih yg terbaik buat dia!!!
Beriringan dgn wktu smua berjalan pd semesti nya, dengan segala masalah2 yg gue hadapin sama dia, mungkin krn gue gak banyak kegiatan kali ya gue bisa sampe ketegantungan sama dia seolah2 gue adalah pesakitan yg gak kena obat, kalo lagi dia rada menjauh, gue pas itu cuti kuliah men, hidup gue datar dan suram, cuma dia doang yg buat gue berasa hidup di ukiran pelangi di angkasa

Sampe saat nya hubungan gue berumur kurang lebih 18 bulan semua itu hancur sehancur2 nyaa mungkin dgn sgala kejenuhann kedua nya yaa, jujur gue memang blm dewasa seutuhnya emosi msh menjiwa di otak gue, mungkin dia mua dgn smua itu yaa
Saat itulah gue mencoba membangun lg semua nya, yg nyata2 dia punya cowo mennn :D hahaha yaa gue tau sihh pasti hanya sementara, cowo begituuu wkwkwkwk

Saat itulah gue ngerasa kecewa sekecewa2 nya gue, tp tetep aja gue msh butuh dia menn dia segala nya buat gue, semua nya itu gue lakukan demi dia gan, (⌣́_⌣̀)

Dan hari iniii dia seolah2 memupuskan harapan gue, dgn bilang nyerah dgn kondisi seperti ini :( sedihhhh rasa nya hancurrrr, gue berasa kehilangan sesuatu yg berharga di hidup gue, :(
Jujurr hidup tanpa dia tuh adalah suram :( gada lg hal yg buat semangat hidup gue menggelora,,

gue harus gimanaaa skrg ini?? Haaaaaaa ƪ("°͡o°)͡ʃ‎​
Gue pergi dgn sgala alasan demi kebaikan dia , dan ngancurin hidup gue sndiri, menyuramkan hidup gue sndiri,? Atau gue harus apaaaa argggggghhhh,,,

Dindaaaa love you, :) I need you

Kebanyakan dari kita salah memahami apa itu cinta bahkan sejak kecil... termasuk TS sendiri, krn kita dapat pemahaman yang salah... Bagaimana dengan agan semua ? coba liat di bawah ini...


Apakah telapak tanganmu berkeringat, jantungmu berdetak cepat, dan
suaramu tercekat saat berada di dekatnya ?

Itu bukan Cinta, itu Suka.


Apakah kamu tak bisa melepaskan pandangan
atau genggaman dari dirinya ?

Itu bukan Cinta, itu Nafsu.


Apakah kamu menginginkan dia saat dia
sedang tidak ada ?

Itu bukan Cinta, itu Kesepian.


Apakah kamu ada di sana karena itulah yang diinginkannya ?

Itu bukan Cinta, itu Kesetiaan.


Apakah kamu menerima pengakuan cintanya
karena kamu tak ingin menyakitinya ?

Itu bukan Cinta, itu Kasihan.


Apakah kamu ada di sana karena dia memelukmu atau menggenggam
tanganmu ?

Itu bukan Cinta, itu Ketergantungan.


Apakah kamu ingin memiliknya karena tatapan matanya membuat hatimu berdegup kencang ?

Itu bukan Cinta, itu Tergila-gila.


Apakah kamu memaafkan kesalahannya karena kamu peduli padanya ?

Itu bukan Cinta, itu Persahabatan.


Apakah kamu mengatakan padanya setiap hari bahwa dialah satu-satunya orang yang kamu pikirkan ?

Itu bukan Cinta, itu Dusta.


Apakah kamu ingin memberikan semua benda kesayanganmu untuknya ?

Itu bukan Cinta,itu Sikap dermawan.


Apa cinta itu sulit ? tidak... hanya perlu bertemu yang tepat...

Sekarang yang seperti apa pertanda cinta sebenarnya ? 


Apakah kamu tertarik pada orang lain tapi tetap setia mendampinginya tanpa pernah menyesal ?

Barulah itu Cinta.


Apakah kamu menerima segala kesalahan dan kekurangannya karena itulah bagian dari dirinya ?

Barulah itu Cinta.


Apakah kamu menangis saat dia sedih meskipun dia kuat ?

Barulah itu Cinta.


Apakah kamu memaafkannya dan
bersedia tetap bersamanya saat dia menyakiti ?

Barulah itu Cinta.


Apakah kamu tetap setia apapun yang terjadi, baik saat gembira maupun sengsara?

Barulah itu Cinta.


Apakah kamu bersedia memberikan hatimu,Episode Kehidupanmu, dan
Suka dan Dukamu untuknya?

Ya, itulah Cinta.


Sekarang,tarik perlahan nafas anda. Dan pejamkan mata anda. Bayangan siapa yg pertama kali muncul?

Kemungkinan besar dialah orang yang anda Cintai 

Delapan macam kado ini adalah hadiah terindah dan tak ternilai bagi
orang-orang yang Anda sayangi.
1.KEHADIRAN
Kehadiran orang yang dikasihi rasanya adalah kado yang tak ternilai
harganya. Memang kita juga bisa hadir di hadapannya lewat surat, telepon,
foto atau faks. Namun dengan berada di sampingnya, anda dan dia dapat
berbagi perasaan, perhatian dan kasih sayang secara lebih utuh dan
intensif. Jadilah kehadiran anda sebagai pembawa kebahagiaan.
2.MENDENGAR
Sedikit orang yang mampu memberikan kado ini. Sebab, kebanyakan orang
lebih suka didengarkan, ketimbang mendengarkan. Dengan mencurahkan
perhatian pada segala ucapannya, secara tak langsung kita juga telah
menumbuhkan kesabaran dan kerendahan hati. Untuk bisa mendengar
dengan baik, pastikan anda dalam keadaan betul-betul rileks dan bisa
menangkap utuh apa yang bisa disampaikan. Tatap wajahnya. Tidak perlu
menyela, mengkritik, apalagi menghakimi. Biarkan ia menuntaskannya, ini
memudahkan anda memberikan tanggapan yang tepat setelah itu. Tidak
harus berupa diskusi atau penilaian. Sekedar ucapan manispun akan
terdengar manis baginya.
3.DIAM
Seperti kata-kata, di dalam diam juga ada keku atan. Diam bisa dipakai
untuk menghukum, mengusir atau membingungkan orang. Tapi lebih dari
segalanya, diam juga bisa menunjukkan kecintaan kita pada seseorang
karena memberinya ”ruang”. Terlebih jika sehari-hari kita sudah terbiasa
gemar menasehati, mengatur, mengkritik bahkan mengomel.
4.KEBEBASAN
Mencintai seseorang bukan berarti memberi kita hak penuh untuk memiliki
atau mengatur kehidupan orang bersangkutan. Bisakah kita mengaku
mencintai seseorang jika kita selalu mengekangnya? Memberi kebebasan
adalah salah satu perwujudan cinta. Makna kebebasan bukanlah ”Kau bebas berbuat semaumu”. Lebih dalam dari itu, memberi kebebasan adalah
memberinya kepercayaan penuh untuk bertangung jawab atas segala hal
yang ia putuskan atau lakukan.
5.KEINDAHAN
Siapa yang tak bahagia, jika orang yang disayangi tiba-tiba tampil lebih
ganteng atau cantik? Tampil indah dan rupawan juga merupakan sebuah
kado yang indah. Selain keindahan penampilan pribadi, andapun bisa
menghadiahkan keindahan suasana di rumah. Vas dan bunga segar cantik di
ruang keluarga atau meja makan yang tertata indah, misalnya.
6.TANGGAPAN POSITIF
Tanpa sadar, sering kita memberikan penilaian negatif terhadap pikiran,
sikap atau tindakan orang yang kita sayangi. Seolah-olah tidak ada yang
benar dari dirinya dan kebenaran mutlak hanya pada kita. Kali ini, coba
hadiahkan tanggapan positif. Nyatakan dengan jelas dan tulus. Cobalah
ingat, berapa kali dalam seminggu terakhir anda mengucapkan terima kasih
atas segala hal yang dilakukannya demi anda. Ingat-ingat pula, pernahkah
anda memujinya. Kedua hal itu, ucapan terima kasih dan pujian (dan juga
permintaan maaf) adalah kado indah yang sering terlupakan.
7.KESEDIAAN MENGALAH
Tidak semua masalah layak menjadi bahan pertengkaran. Apalagi sampai
menjadi pertengkaran yang hebat. Bila anda memikirkan hal ini, berarti
anda siap memberikan kado ”kesediaan mengalah”. Kesediaan untuk
mengalah juga dapat melunturkan sakit hati dan mengajak kita menyadari
bahwa tidak ada manusia yang sempurna di dunia ini.
8.SENYUMAN
Percaya atau tidak, kekuatan senyuman amat luar biasa. Senyuman,
terlebih yang diberikan dengan tulus, bisa menjadi pencair hubungan yang
beku, pemberi semangat dalam keputusasaan, pencerah suasana muram,
bahkan obat penenang jiwa yang resah. Senyuman juga merupakan isyarat
untuk membuka diri dengan dunia sekeliling kita. Kapan terakhir kali anda
menghadiahkan senyuman manis pada orang yang dikasihi?


So guys please, give appreciate to everyone