Programlama yapalım ve Öğrenelim.

Gemi yüzdürme

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

Dosya1: TMenuItem;

A1: TMenuItem;

Sakla1: TMenuItem;

Kapat1: TMenuItem;

Yazdr1: TMenuItem;

Dzen1: TMenuItem;

Kes1: TMenuItem;

Kopyala1: TMenuItem;

Yaptr1: TMenuItem;

k1: TMenuItem;

Programdank1: TMenuItem;

Grnm1: TMenuItem;

amekran1: TMenuItem;

N501: TMenuItem;

PopupMenu1: TPopupMenu;

Gizle1: TMenuItem;

Gster1: TMenuItem;

Button1: TButton;

PopupMenu2: TPopupMenu;

A2: TMenuItem;

Kapat2: TMenuItem;

Edit1: TEdit;

Button2: TButton;

Edit1Gizle1: TMenuItem;

Button2Gizle1: TMenuItem;

Edit1Gster1: TMenuItem;

Button2Gster1: TMenuItem;

ustd: TLabel;

altd: TLabel;

sold: TLabel;

sagd: TLabel;

gemi: TImage;

boom: TImage;

Timer1: TTimer;

procedure A1Click(Sender: TObject);

procedure Programdank1Click(Sender: TObject);

procedure Edit1Gizle1Click(Sender: TObject);

procedure Button2Gizle1Click(Sender: TObject);

procedure Edit1Gster1Click(Sender: TObject);

procedure Button2Gster1Click(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.A1Click(Sender: TObject);

begin

ShowMessage('Dosya açıldı');

end;

procedure TForm1.Programdank1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Edit1Gizle1Click(Sender: TObject);

begin

Edit1.Visible := false; //editi gizler

end;

procedure TForm1.Button2Gizle1Click(Sender: TObject);

begin

Button2.Visible := false;

end;

procedure TForm1.Edit1Gster1Click(Sender: TObject);

begin

Edit1.Visible := true;//edir göster

end;

procedure TForm1.Button2Gster1Click(Sender: TObject);

begin

Button2.Visible := true;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

case Key of

VK_RIGHT:

begin

Gemi.Left := Gemi.Left + 10;

if (Gemi.Left + Gemi.Width) > sagd.Left then

begin

beep;

Gemi.Left := sagd.Left - Gemi.Width;

boom.Left := gemi.Left + gemi.Width;

boom.Top := gemi.Top;

boom.Visible := true;

end;

VK_LEFT:

begin

Gemi.Left := Gemi.Left - 10;

// ---------right--------

if Gemi.Left < (sold.Left + sold.Width )then

begin

beep;

Gemi.Left := sold.Left + sold.Width;

boom.Left := gemi.Left - boom.Width;

boom.Top := gemi.Top;

boom.Visible := true;

end;

VK_UP:

begin

Gemi.Top := Gemi.Top - 10;

if Gemi.Top < (ustd.Top + ustd.Height) then

begin

beep;

Gemi.Top := (ustd.Top + ustd.Height);

boom.Left := gemi.Left;

boom.Top := gemi.Top - boom.Height;

boom.Visible := true;

end;

VK_DOWN:

begin

Gemi.Top := Gemi.Top + 10;

if (Gemi.Top + Gemi.Height) > altd.Top then

begin

beep;

Gemi.Top := altd.Top - Gemi.Height;

boom.Left := gemi.Left;

boom.Top := gemi.Top + gemi.Height;

boom.Visible := true;

end;

VK_ESCAPE: close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

say:integer;

begin

if boom.Visible then // if boom.visible = true then

begin

inc(say);

if say >= 5 then boom.Visible := false;

end

else say := 0;

end;

end.

//image a runtime da resim yükleme :

//gemi.Picture.LoadFromFile('c: reim.bmp');

Delphi - .....................................

Demo programı

unit demo1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:=datetostr(date);

edit2.Text:='24.09.2005';

if strtodate(edit1.Text)>strtodate(edit2.Text)then begin

showmessage('hata');

halt;

end

else if strtodate(edit1.Text)=strtodate(edit2.Text)then begin

showmessage('bugün son gün');

end

else if strtodate(edit1.Text)<strtodate(edit2.Text)then begin

form1.Show;

end;

end.

Delphi - .....................................

Heceleme

Heceleme nin daha gelişmiş hali(cag-das)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ALScrollingText;

type

TForm1 = class(TForm)

Memo1: TMemo;

Memo2: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

function sesli(harf:string):boolean;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function tform1.sesli(harf:string):boolean;

begin

result:=false;

if harf='a'then result:=true;

if harf='e'then result:=true;

if harf='ı'then result:=true;

if harf='i'then result:=true;

if harf='o'then result:=true;

if harf='ö'then result:=true;

if harf='u'then result:=true;

if harf='ü'then result:=true;

if harf='A'then result:=true;

if harf='E'then result:=true;

if harf='I'then result:=true;

if harf='İ'then result:=true;

if harf='O'then result:=true;

if harf='Ö'then result:=true;

if harf='U'then result:=true;

if harf='Ü'then result:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

i:integer;

begin

Memo2.Text := EmptyStr;

for i := 1 to length(Memo1.Text) do

begin

not sesli(copy(Memo1.Text,i,1))

and sesli(copy(Memo1.Text,i+1,1))

and not (copy(Memo1.Text,i,1)=' ')

and not (copy(Memo1.Text,i-1,1)=' ')

and not (copy(Memo1.Text,i+1,1)=' ')

then

begin

Memo2.text := Memo2.text+'-';

end;

if sesli(copy(memo1.Text,i,1))

and sesli(copy(memo1.Text,i-1,1))

then

begin

Memo2.text := Memo2.text+'-';

end;

Memo2.Text := Memo2.Text + copy(Memo1.Text,i,1);

end;

if copy(Memo2.Text,1,1) = '-' then

begin

Memo2.Text := copy(Memo2.Text,2,length(Memo2.text)-1);

end;

end.

Delphi - .....................................

Dosya işlemleri File input

Dosya işlemleriyle ilgili projeler yapanlara pascal tabanından gelme komutlar Append)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

myfile:Textfile;

begin

Assignfile(myfile,'myout.txt');

Append(myfile);

Writeln(myfile,'test');

Writeln(myfile,'End');

CloseFile(myFile);

end;

Delphi - .....................................

Dosya işlemleri File Output

Dosya işlemlerinde output rset ve assign işlemleri

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

myfile:Textfile;

strInput:String;

begin

AssignFile(myfile,'myout.txt');

Reset(myfile);

Readln(myfile,strInput);

Closefile(myfile);

Label1.Caption:=strInput;

end;

end.

Delphi - .....................................

Örnek listbox programı

Girilen personel bilgilerini listbox'lara atayan ve gerektiginde Silme, yer degişimi,

arama ve kayıt degişikligi gibi uygulamaları olan ve girilen bilgileri form

kapatıldıgında kaydedip bir sonraki çalıştıgında kayıtları gösteren bir program. İşe

yarayacagına eminim.

Özellikle Ögrenci arkadaşlarımızın işine yarayacaktır.yeni başlayanlar içinde faydalı.

Örnegimiz için 3 edit, 8 label, 6 button, 3 listbox ekleyin.

Label'ların 4'ünün cation özelligine sırası ile "Personelin,ADI SOYADI,MESLEGİ,ÇALIŞTIGI BİRİM" degerlerini verelim.büyük yazmış oldugum label 2,3ve4 'ün karşısına edit 1,2 ve 3'ü getirelim. Label 5'in caption özelligine 'Personel sayısı' degerini girelim. Karşısına label6'yı getirelim burada kayıt sayısı görülecek.label7 nin caption özelligine "sıra no" degerini verelim ve karşısına label8'i getirelim.burada ise seçili kaydın sıra numarası görülecek.buttonları ekleyip sırasıyla caption özelligine şu degerleri verelim: 1.ye "ekle", 2.ye "sil", 3.ye "bul", 4.ye "degiştir", 5.ye "taşı", 6.ya ise "araya ekle" degerlerini verelim.

Diger elemanlarıda ekledikten sonra aşagıdaki kodları yazınız. Umarım kolay anlatmışımdır zorlanmazsınız inşallah.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

ListBox1: TListBox;

ListBox2: TListBox;

ListBox3: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin {bilgilerin listelere eklenmesi}

if Listbox1.Items.IndexOf (edit1.Text)>-1 then

showMessage(edit1.Text+' adlı personel zaten var')

else

begin

listbox1.Items.Add(edit1.Text);

listbox2.Items.Add(edit2.Text);

listbox3.Items.Add(edit3.Text);

label6.Caption:=InTtoStr(Listbox1.Items.Count);

Listbox1.ItemIndex:=listbox1.Items.Count-1;

end;

procedure TForm1.Button2Click(Sender: TObject);

var {seçili elemanın silinmesi}

c,Ind:integer;

begin

Ind:=listbox1.ItemIndex;

if Ind<0 then

showMessage('silinecek personeli listeden seçin')

else

begin

c:=ApplicaTion.MessageBox('seçili personel silinsin mi?','Personel Silme',Mb_YesNo+ Mb_IconQuesTion);

if c=IDYes then

begin

listbox1.Items.Delete(Ind);

listbox2.Items.Delete(Ind);

listbox3.Items.Delete(Ind);

label6.Caption:=IntTostr(listbox1.Items.Count);

end;

procedure TForm1.Button3Click(Sender: TObject);

var {listedeki bir elemanı bulunması}

Ind:integer;

begin

Ind:=listbox1.Items.IndexOf(edit1.Text);

if Ind<0 then

showMessage(edit1.Text+ ' isimli personel bulunamadı')

else

ListBox1.ItemIndex:=Ind;

end;

procedure TForm1.Button4Click(Sender: TObject);

var {seçili elemanın silinmesi}

Ind:integer;

begin

Ind:=Listbox1.ItemIndex;

if Ind<0 then

showMessage ('degiştirilecel elemanı listeden seçiniz')

else

begin

listbox1.Items[Ind]:=Edit1.Text;

listbox2.Items[Ind]:=Edit2.Text;

listbox3.Items[Ind]:=Edit3.Text;

end;

procedure TForm1.Button5Click(Sender: TObject);

var {elemanın taşınması}

ind,yeniInd:integer;

begin

ind:=listbox1.ItemIndex;

if ind<0 then

showMessage('önce taşınacak personeli listeden seçiniz')

else

begin

yeniInd:= StrToInt(Inputbox('Yer değişme','seçili personel listede kaçıncı sıraya gelsin','1'));

YeniInd:=yeniInd-1;

if (YeniInd<0) or (yeniInd>listbox1.Items.Count) then

showmessage('Geçersizbi sıra numarası girdinz')

else

listbox1.Items.Move(ind,YeniInd);

end;

procedure TForm1.Button6Click(Sender: TObject);

var {araya eleman ekleme}

Ind:integer;

begin

Ind:=listbox1.ItemIndex;

if Ind<0 then

showmessage('Önce nerye ekleyeceginizi listeden seçiniz')

else

if listbox1.Items.IndexOf(Edit1.Text)>1 then

showMessage(edit1.Text+' adlı personel zaten var')

Else

begin

listbox1.Items.Insert(Ind,Edit1.Text);

listbox2.Items.Insert(Ind,Edit2.Text);

listbox3.Items.Insert(Ind,Edit3.Text);

listbox1.ItemIndex:=listbox1.Items.Count-1;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin {form yüklendigindedosya içeriklerinin listelere yüklenmesi }

if FileExists('PerAd.dat') then

begin

listbox1.Items.LoadFromFile('PerAd.dat');

listbox2.Items.LoadFromFile('PerMes.dat');

listbox3.Items.LoadFromFile('PerBirim.dat');

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var {listelerden birinde bir eleman seçildiginde digerlerininde seçilmesini saylar}

Ind,Tind:integer;

begin

Ind:=TListbox(sender).ItemIndex;

Tind:=Tlistbox(sender).TopIndex;

listbox1.ItemIndex:=Ind;

listbox2.ItemIndex:=Ind;

listbox3.ItemIndex:=Ind;

listbox1.TopIndex:=Tind;

listbox2.TopIndex:=Tind;

listbox3.TopIndex:=Tind;

label8.Caption:=IntTostr(Ind+1);

edit1.Text:=Listbox1.Items[Ind];

Edit2.Text:=Listbox1.Items[Ind];

Edit3.Text:=Listbox1.Items[Ind];

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin {form kapatıldıgında bilgileri kayıt eder}

listbox1.Items.SaveToFile('PerAd.Dat');

listbox2.Items.SaveToFile('PerMes.Dat');

listbox3.Items.SaveToFile('PerBirim.Dat');

end;

end.

Delphi - .....................................

DOSYA UZANTISI HANGI PROGRAMLA BAGLANTILI?

Bir dosyanin uzantisina bakarak, hangi program tarafindan çalistirilacaginin

bulunmasi için asagidaki kod örnegi kullanilabilir

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

const

BufferSize = {$IFDEF Win32} 540 {$ELSE} 80 {$ENDIF};

var

Buffer : PChar;

StringPosition : PChar;

ReturnedData: Longint;

begin

Buffer := StrAlloc(BufferSize);

try

{ get the first entry, don't bother about the version !}

ReturnedData := BufferSize;

StrPCopy(Buffer, '.pas');

RegQueryValue(hKey_Classes_Root, Buffer, Buffer,

ReturnedData);

if StrLen(Buffer) > 0 then

begin

showmessage(strpas(buffer));

end;

except

showmessage('bulunamadi');

end;

Delphi - .....................................

Kağıt oyunu

Kağıt oyunu

Basit bi kağıt oyunu ama sınav sorusu olunca ter döktürüyor

oyunun amacı üstteki desteden çıkan kağıtlardan aşağıya istediğinizi seçip

sürkleyerek bırakıyorsunuz daha sonra tekrar yukarıdaki desteden seçtiğiniz

kağıdı bulana kadar tıklayıp bulduğunuz kağıtları aşağıya sürükleyerek 10

tane aynı kağıttan biriktirmiş oluyorsunuz. 2 dakika içinde aynı kağıttan

10 tane biriktirirseniz oyunu kazanmış oluyorsunuz

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons;

const

DosyaSay = 10;

type

Atype = array[1..13] of integer;

TForm1 = class(TForm)

gelen: TImage;

cikan: TImage;

r1: TImage;

r2: TImage;

r3: TImage;

r4: TImage;

r5: TImage;

Timer1: TTimer;

Timer2: TTimer;

Mesaj: TLabel;

Zaman: TLabel;

Label1: TLabel;

Basla: TSpeedButton;

Cik: TSpeedButton;

Timer3: TTimer;

Label2: TLabel;

r6: TImage;

r7: TImage;

r8: TImage;

r9: TImage;

r10: TImage;

Timer4: TTimer;

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure gelenMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure r1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

procedure r1DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r2DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r3DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r4DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r5DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure Timer1Timer(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure BaslaClick(Sender: TObject);

procedure Timer3Timer(Sender: TObject);

procedure CikClick(Sender: TObject);

procedure r6DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r7DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r8DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r9DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure r10DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure Timer4Timer(Sender: TObject);

private

{ Private declarations }

A,C : AType;

DosyaAdi : array[1..DosyaSay] of String;

Dosya : String;

ikili : integer;

sn, dk, sa : integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

const

r = 'red';

b = 'black';

u = '.bmp';

procedure TForm1.FormCreate(Sender: TObject);

var

i:integeR;

begin

Color := clGreen;

Randomize;

for i := 1 to DosyaSay do

DosyaAdi[i]:= IntToStr(Random(100)+1);

end;

procedure TForm1.FormShow(Sender: TObject);

var

i,j, s : integer;

devam : boolean;

label git1,git2,git3;

begin

for i :=1 to 13 do

A[i] := 0;

// ilk dizi elemanları

for i:=1 to 13 do

begin

git1:

s := Random(13) + 1;

for j:=1 to 13 do

if A[j]= s then goto git1;

A[i]:=s;

end;

procedure TForm1.gelenMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

tiklama : integer = 0;

var

i,j :integeR;

begin

inc(tiklama);

if Tiklama = 0 then

begin

Gelen.Picture.LoadFromFile('Dagit.bmp');

Cikan.Picture.LoadFromFile('Zemin.bmp');

for j := 1 to 13 do

c[j]:=0;

exit;

end;

if tiklama > 13 then

begin

tiklama := -1;

Gelen.Picture.LoadFromFile('Zemin.bmp');

exit;

end;

i := Random(13)+1;

j := Random(2)+1;

Dosya := r+IntToStr(A[i])+u;

case j of

1:Dosya := r+IntToStr(A[i])+u;

2:Dosya := b+IntToStr(A[i])+u;

end;

cikan.Picture.LoadFromFile(Dosya);

C[tiklama] := i;

end;

procedure TForm1.r1DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

if Source = Cikan then Accept := true;

end;

procedure TForm1.r1DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[1] := dosya;

r1.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r2DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[2] := dosya;

r2.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r3DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[3] := dosya;

r3.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r4DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[4] := dosya;

r4.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r5DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[5] := dosya;

r5.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

i,say:integeR;

begin

say := 0;

for i := 2 to DosyaSay do

if (DosyaAdi[1]=DosyaAdi[i]) then inc(say);

if Say >=9 then

begin

Mesaj.Caption := 'Bravo ! Kazandınız !';

Mesaj.Visible := true;

Timer1.Enabled := false;

timer2.Enabled:= false;

gelen.Enabled := false;

Cikan.Enabled := false;

Timer3.Enabled := true;

Basla.Enabled := true;

Timer4.Enabled := True;

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

inc(sn);

if sn > 59 then

begin

sn := 0;

inc(dk);

if dk > 59 then

begin

dk := 0;

inc(sa);

if sa > 23 then sa := 0;

end;

Zaman.Caption := IntToStr(Sa)+':'+

IntToStr(Dk)+':'+

IntToStr(Sn);

if (sa=0) and (Dk = 2) and (sn = 0) then

begin

Mesaj.Caption := 'Üzgünüm. Kaybettiniz !';

Mesaj.Visible := true;

Timer1.Enabled := false;

timer2.Enabled:= false;

gelen.Enabled := false;

Cikan.Enabled := false;

Basla.Enabled := true;

Gelen.Visible := False;

Cikan.Visible := False;

Timer4.Enabled := true;

end;

procedure TForm1.BaslaClick(Sender: TObject);

begin

Basla.Enabled := false;

timer1.Enabled := true;

Timer2.Enabled := true;

gelen.Enabled := true;

Cikan.Enabled := true;

Timer3.Enabled := false;

Timer4.Enabled := false;

Sa := 0;Dk := 0;Sn := 0;

r1.Picture.LoadFromFile('Zemin.bmp');

r2.Picture := r1.Picture;

r3.Picture := r1.Picture;

r4.Picture := r1.Picture;

r5.Picture := r1.Picture;

r6.Picture := r1.Picture;

r7.Picture := r1.Picture;

r8.Picture := r1.Picture;

r9.Picture := r1.Picture;

r10.Picture := r1.Picture;

Gelen.Picture.LoadFromFile('Dagit.bmp');

Cikan.Picture.LoadFromFile('Zemin.bmp');

Zaman.Caption := '0:0:0';

Mesaj.Caption := 'Bravo ! Kazandınız !';

Gelen.Visible := true;

Cikan.Visible := true;

Mesaj.Visible := False;

FormCreate(Self);

end;

procedure TForm1.Timer3Timer(Sender: TObject);

const

a1 : integer = 0;

var

s,s1: integeR;

begin

s := Random(DosyaSay)+1;

s1 := Random(2)+1;

inc(a1);

if a1 > 13 then a1:=1;

if a1 = trunc(a1/2)*2 then

begin

case s of

1:begin

Gelen.Picture.LoadFromFile(r+IntTostr(Random(13)+1)+u);

Cikan.Picture.LoadFromFile(r+IntTostr(Random(13)+1)+u);

end;

2:begin

Gelen.Picture.LoadFromFile(b+IntTostr(Random(13)+1)+u);

Cikan.Picture.LoadFromFile(b+IntTostr(Random(13)+1)+u);

end;

if s1 = 1 then

case s of

1:r1.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

2:r2.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

3:r3.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

4:r4.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

5:r5.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

6:r6.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

7:r7.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

8:r8.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

9:r9.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

10:r10.Picture.LoadFromFile(r+IntToStr(Random(13)+1)+u);

end;

if s1 = 2 then

case s of

1:r1.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

2:r2.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

3:r3.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

4:r4.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

5:r5.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

6:r6.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

7:r7.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

8:r8.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

9:r9.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

10:r10.Picture.LoadFromFile(b+IntToStr(Random(13)+1)+u);

end;

procedure TForm1.CikClick(Sender: TObject);

begin

Close;

end;

procedure TForm1.r6DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[6] := dosya;

r6.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r7DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[7] := dosya;

r7.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r8DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[8] := dosya;

r8.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r9DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[9] := dosya;

r9.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.r10DragDrop(Sender, Source: TObject; X, Y: Integer);

begin

if Source = Cikan then

begin

DosyaAdi[10] := dosya;

r10.Picture := Cikan.Picture;

Cikan.Picture.LoadFromFile('Zemin.bmp');

end;

procedure TForm1.Timer4Timer(Sender: TObject);

begin

{if Mesaj.Visible = true then Mesaj.Visible := false

else Mesaj.Visible := true;}

Mesaj.Visible := not Mesaj.Visible;

end;

end.

Delphi - .....................................

Flash Button

unit flash;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB, ExtCtrls;

type

TForm1 = class(TForm)

Flash1: TShockwaveFlash;

Button1: TButton;

TrackBar1: TTrackBar;

Open1: TOpenDialog;

Button2: TButton;

Button3: TButton;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

if open1.Execute then begin

flash1.Movie:=open1.FileName;

trackbar1.Max:=flash1.TotalFrames;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

flash1.Play;

end;

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

if Flash1.IsPlaying=true then Flash1.Stop;

flash1.GotoFrame(trackbar1.position);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

flash1.Stop;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

trackbar1.Position:=flash1.CurrentFrame;

end;

end.

Delphi - .....................................