Delphi Programlama Dili: Mayıs 2012

25 Mayıs 2012 Cuma

DELPHİ'DE YAPILAN ÖRNEK UYGULAMALAR

DELPHİ'DE YAPILAN ÖRNEK UYGULAMALAR

Örnek 1) Formun başlığını değiştirmek ve forma tıklandığında mesaj veren program

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure Mesaj(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Mesaj(Sender: TObject);
begin
showmessage('aaaaaa');
Form1.Caption:=('borland Delphi 7')
end;

end.

Örnek 2) Boolean değişkenini kullanarak ögrencinin inputbox fonksiyonu ile girilen notunun 50'den büyükse geçerli not 50 den küçükse geçerli not değil oldğunu gösteren,ögrencinin aldığı notun 0-100 arası olması gerektiğini gösteren programı yazınız.

procedure TForm1.FormClick(Sender: TObject);
var
sonuc:Boolean;
sinav_sonucu:integer;

begin
sinav_sonucu:=strtoint(inputbox('sınav sonucunu ','lütfen 0-100 arası değer giriniz..',''));
sonuc:=sinav_sonucu>50;
sonuc:=sinav_sonucu<100;
if sonuc=true then
showmessage('alınan sonuç geçerli');
if sonuc=false then
showmessage('alınan sonuç geçerli değil');

if sinav_sonucu>100 then
showmessage('girdiğiniz değer sınav aralığından büyük olduğundan dolayı geçerli değildir..lütfen 0-100 arası değer giriniz..');

end;
end.

Örnek 3)Herhangi bir değişkene 2 farklı değer atadığımızda en son girdiğimiz değeri kaideye alan program.
procedure TForm1.FormClick(Sender: TObject);
var
degisken1:variant;
tip:variant;
begin
degisken1:='dddd';
degisken1:=121;
tip:= vartype(degisken1);
showmessage(tip);
end;
end.
Örnek 4) Tarih ve zaman atamalarını yapan program.

procedure TForm1.FormClick(Sender: TObject);
var
tarih:tdatetime;
zaman:tdatetime;
begin
tarih:=strtodate('25.05.2012');
zaman:=strtodate('22:30');

end;
end.

Örnek 5) ilk 4 karekterden sonrasını silen program.

procedure TForm1.Button1Click(Sender: TObject);
var
sehir:String;
sonuc:String;

begin
sehir:='erzincan';
sonuc:=leftstr(sehir,4);
showmessage(sonuc);

end;

end.

10 Mayıs 2012 Perşembe

Anolog Saat Uygulaması

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Min_Check:=min;
Hour_Check:=hour;
tid:=timetostr(time);
ss:= tid[7] +tid[8];
sek:=strtoint(ss);
m:= tid[4] +tid[5];
min:=strtoint(m);
h:= tid[1] +tid[2];
hour:=strtoint(h);
 
if (min_check <> min) then
Min_Update:=true;
 
if (Hour_Check <> Hour) then
Hour_Update:=true;
form1.Canvas.Pen.Width :=1;
form1.Canvas.pen.Color:=clwhite;
form1.Canvas.LineTo(strtoint(floattostr(oldx)),str toint(floattostr(oldy))) ;
form1.Canvas.LineTo(strtoint(floattostr(midx)),str toint(floattostr(midy))) ;
 
HourX1 := s * Cos((Pi / 180) * (30 * hour - 90)) + MidX;
HourY1 := s * Sin((Pi / 180) * (30 * hour - 90)) + MidY;
 
MinX1 := s * Cos((Pi / 180) * (6 * Min - 90)) + MidX;
MinY1 := s * Sin((Pi / 180) * (6 * Min - 90)) + MidY;
 
X1 := s * Cos((Pi / 180) * (6 * sek - 90)) + MidX;
Y1 := s * Sin((Pi / 180) * (6 * sek - 90)) + MidY ;
x:=int(x1);
y:=int(y1);
OldXMin := XMin ;
OldYMin := YMin ;
XMin:=int(MinX1);
YMin:=int(MinY1);
OldXHour:=XHour;
OldYHour:=YHour;
XHour:=int(HourX1);
YHour:=int(HourY1);
 
form1.Canvas.pen.Color:=clred;
form1.Canvas.Pen.Width :=1;
form1.Canvas.LineTo(strtoint(floattostr(x)),strtoi nt(floattostr(y))) ;
form1.Canvas.LineTo(strtoint(floattostr(midx)),str toint(floattostr(midy))) ;
OldX := X ;
OldY := Y ;
if (Min_Update=true) then
begin
 
form1.Canvas.pen.Color:=clwhite;
form1.Canvas.LineTo(strtoint(floattostr(OldXMin)), strtoint(floattostr(OldYMin))) ;
form1.Canvas.LineTo(strtoint(floattostr(MidX)),str toint(floattostr(MidY))) ;
Min_Update:=false;
end;
 
form1.Canvas.pen.Color:=clblack;
form1.Canvas.LineTo(strtoint(floattostr(XMin)),str toint(floattostr(YMin))) ;
form1.Canvas.LineTo(strtoint(floattostr(MidX)),str toint(floattostr(MidY))) ;
 
if (Hour_Update=true) then
begin
form1.Canvas.Pen.Width :=3;
form1.Canvas.pen.Color:=clwhite;
form1.Canvas.LineTo(strtoint(floattostr(OldXHour)) ,strtoint(floattostr(OldYHour))) ;
form1.Canvas.LineTo(strtoint(floattostr(MidX)),str toint(floattostr(MidY))) ;
Hour_Update:=false;
end;
form1.Canvas.Pen.Width :=3;
form1.Canvas.pen.Color:=clblack;
form1.Canvas.LineTo(strtoint(floattostr(XHour)),st rtoint(floattostr(YHour))) ;
form1.Canvas.LineTo(strtoint(floattostr(MidX)),str toint(floattostr(MidY))) ;
 
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
form1.Width :=200;
form1.Height:=200;
 
 
s := Form1.Width * 0.3;
MidX := 50;
MidY := 50;
form1.Canvas.LineTo(strtoint(floattostr(midx)),str toint(floattostr(midy))) ;
oldx:=midx;
oldy:=midy;
form1.Canvas.Pen.Color :=clblack;
form1.Canvas.Ellipse(0,0,100,100);
form1.Canvas.Pen.Width :=8;
end;
//ekranda sadece akrep yelkoval ve saniye gözükecektir 
//saat ler için ayrı ayrı shape ekleyebilirsiniz
//eğer her saat için bi shape eklemek isterseninz
// formun wiev as tet kısmına bunları yazmanız gerekmektedir
//tabi shapeleri ekledikden sonra
object Shape2: TShape
Left = 48
Top = 0
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape3: TShape
Left = 0
Top = 48
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape4: TShape
Left = 88
Top = 48
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape5: TShape
Left = 25
Top = 4
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape6: TShape
Left = 69
Top = 85
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape7: TShape
Left = 85
Top = 70
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape8: TShape
Left = 48
Top = 88
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape9: TShape
Left = 6
Top = 70
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape10: TShape
Left = 5
Top = 24
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape11: TShape
Left = 69
Top = 4
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape12: TShape
Left = 25
Top = 85
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape13: TShape
Left = 86
Top = 24
Width = 5
Height = 5
Brush.Color = clLime
Shape = stCircle
end
object Shape14: TShape
Left = 48
Top = 48
Width = 5
Height = 5
Brush.Color = clRed
Shape = stCircle
end

3 Boyutlu Küp Örneği

 TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  x,y,x1,y1:integer;
  aci:real;
  p1,p2,p3,p4,p5,p6,p7,p8:tpoint;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
aci:=aci+2*pi/360;
  p1.X:=200;
  p1.Y :=200;
  p2.X :=p1.X +100;
  p2.Y :=p1.Y ;
  p3.X :=p1.X +100;
  p3.Y :=p1.Y +100;
  p4.X :=p1.X ;
  p4.Y :=p1.Y +100;
  p5.X :=p1.X +round(sin(aci)*50);
  p5.Y :=p1.X +round(cos(aci)*50);
  p6.X :=p5.X +100;
  p6.Y :=p5.Y ;
  p7.X :=p5.X +100;
  p7.Y :=p5.Y +100;
  p8.X :=p5.X ;
  p8.Y :=p5.Y+100 ;
  canvas.Pen.Color :=clblack;
  canvas.Pen.Style:=psdot;
  canvas.Pen.Width :=1;
  canvas.MoveTo(p1.X ,p1.y);
  canvas.LineTo(p2.X ,p2.Y);
  canvas.LineTo(p3.X ,p3.Y);
  canvas.LineTo(p4.X ,p4.Y);
  canvas.LineTo(p1.X ,p1.Y);
  canvas.Pen.Style :=pssolid;
  canvas.Pen.Width:=3;
  canvas.LineTo(p5.X ,p5.Y);
  canvas.LineTo(p6.X ,p6.Y);
  canvas.LineTo(p7.X ,p7.Y);
  canvas.LineTo(p8.X ,p8.Y);
  canvas.LineTo(p5.X,p5.Y);
  canvas.MoveTo(p2.X,p2.Y);
  canvas.LineTo(p6.X ,p6.y);
  canvas.MoveTo(p3.X,p3.Y);
  canvas.LineTo(p7.X ,p7.y);
  canvas.MoveTo(p4.X,p4.Y);
  canvas.LineTo(p8.X ,p8.y);
  sleep(1);
  canvas.Pen.Color :=form1.Color;
   canvas.MoveTo(p1.X ,p1.y);
  canvas.LineTo(p2.X ,p2.Y);
  canvas.LineTo(p3.X ,p3.Y);
  canvas.LineTo(p4.X ,p4.Y);
  canvas.LineTo(p1.X ,p1.Y);
  canvas.LineTo(p5.X ,p5.Y);
  canvas.LineTo(p6.X ,p6.Y);
  canvas.LineTo(p7.X ,p7.Y);
  canvas.LineTo(p8.X ,p8.Y);
  canvas.LineTo(p5.X,p5.Y);
  canvas.MoveTo(p2.X,p2.Y);
  canvas.LineTo(p6.X ,p6.y);
  canvas.MoveTo(p3.X,p3.Y);
  canvas.LineTo(p7.X ,p7.y);
  canvas.MoveTo(p4.X,p4.Y);
  canvas.LineTo(p8.X ,p8.y);
end;
end.