Programlama | Programlama Dilleri | C Programlama Dili |C++ - Programlama Dilleri C C++ C++ Builder Java .Net Php Javascript Prolog Haskell Visual Basic Delphi Pc Programlama ,C++ Builder,c programlama dili,çeşitli programlama dilleri ve java programlama dili alanında birçok program ve döküman içerir. http://www.pcprogramlama.com/programlama/55.html Tue, 23 May 2017 09:00:33 +0300 Celal Atalar tr-tr Barkodlu Satış Otomasyonu http://www.pcprogramlama.com/programlama/55-delphi/624-barkodlu-satis.html Delphi Fri, 15 Mar 2013 17:32:55 +0200 Delphi İle Mysql Bağlantısı ( İş Takibi Otomasyonu) http://www.pcprogramlama.com/programlama/55-delphi/586-delphi-ile-mysql-baglantisi-is-takibi-otomasyonu.html  

İş Takibi Otomasyonu

 

Giriş

 

Programın temel amacı; bir ürünün satış, parça değişim ve teknik servisini yapan firmalarda, para giriş-çıkışlarını ve yapılan işlerin düzeninin kayıt altında tutulmasını sağlamaktır. Program sayesinde kullanıcı, firmanın satın aldığı malları, satışı yapılan, teknik serviste onarılan veya parça değişimi yapılan ürünleri, müşterilerin onarım için getirdikleri ürün veya ürünler üzerinde yapılanlar işlemler gibi takipler yapılabilmektedir. Programın basit ara yüzü kullanıcıya kolaylık sağlamakla birlikte, yapılan işin daha rahat ve düzenli olarak takip edilmesini de sağlar.

Üst düzey bir bilgisayar bilgisi gerektirmemekle birlikte, tahsilli kişilerin de kendilerini yabancı hissetmeyecekleri bir program olarak tasarladığımız bu yazılımla kendimizi geliştirmeyi amaçladık.

 

Kullanılan Araç ve Gereçler

 

Programın yapımı esnasında emeği geçen tüm yazılımcılar, kendi uzmanlıkları doğrultusunda ellerinden gelen tüm çabayı gösterdiler.

Yazılımda programlama dili olarak, Borland şirketinin tasarlayıp kullanıma sunmuş olduğu Delphi 7 isimli program kullanıldı. Diğer programlama dillerine göre dezavantajları da mevcut olan Delphi, görsellikte sunduğu avantajlarla kendisini daha cazip hâle getiriyor. Bu programlama dilinin altında kullanılabilen birçok alternatif veritabanı yazılımı mevcut. Bu alternatifler arasından bizim tercihimiz, daha hızlı ve kullanışlı olması dolayısıyla MySQL’den yana oldu. Yardımcı yönetici programlar sayesinde daha rahat bir kullanım hizmeti sunan EMS MySQL Manager yazılımı ile veritabanlarını ve tablolarını oluşturmak, oldukça basit bir hâl almakta. Devart isimli yazılım şirketinin Delphi vb. programlar için geliştirmiş olduğu MyDac bileşeni (component) sayesinde forma tablo eklemek, kaldırmak, SQL sorguları oluşturmak, yani kısacası veritabanına hükmetmek oldukça kolaylaşıyor.

 

Programın Kullanım Alanları

 

Yazmış olduğumuz program, her gün caddelerde gördüğümüz ve tamirci diye tabir ettiğimiz dükkânların hemen-hemen hepsinde kullanılabilecek potansiyele sahiptir. Gerek bilgisayar teknik servisleri, gerek televizyon tamircileri, gerekse elektrik tesisatçılarında dahi kullanılabilirliği olan bir altyapı, bu programda mevcuttur.

 

Programa Giriş

 

Programın giriş kısmında kullanıcıdan bir kullanıcı adı ve şifre isteniyor. Bu sayede yetkili dışında herhangi biri programa erişim sağlayamıyor. Programa varsayılan olarak girilen kullanıcı adı: “admin”, şifre ise “1” olarak ayarlandı. Bu ayarlar daha sonra kullanıcının isteğine göre değiştirilebilir. Programın genelinde, özellikle de giriş kısmında görselliğe oldukça önem verildi. Bu sayede Delphi’nin marifetleri göz önüne serilerek, düşük seviyeli programlama bilgisine rağmen ne kadar üst düzey programlar yapılabileceği de gösterilmiş oldu.

 

 

 

Edit nesnelerinin BevelKind özellikleri üzerinde birtakım düzenlemeler yapılarak daha hoş bir görünüm almaları sağlandı. Bağlan ve İptal butonlarının üzerine isimleri yazılmadı. Bunun yerine kullanıcı tarafından anlaşılması zor olmayan, yeşil ve kırmızı renkli Image nesneleri kullanıldı. Hint özelliklerine gerekli açıklamalar yazılarak, kullanıcılın anlamada zorluk yaşamaması sağlanmaya çalışıldı. Forma transparan özelliği verilerek arka plânda bulunan simge, pencere vb. şeylerin görünmesi sağlandı. Böylece program daha estetik bir görünüme kavuşmuş oldu. İptal butonuna basıldığında; “programdan çıkmak istediğinize emin misiniz?” şeklinde bir uyarıyla karşılaşılıyor. Böylece yanlışlıkla butona basıp programdan çıkmanız engellenmiş oluyor. Bağlan butonuna bastığınızda ise kullanıcı adı ve şifrenizin doğruluğu test edilerek, doğrulandığı takdirde programın ana menüsüne ulaşılmış oluyor.

 

Programdan mal girişi, mal silme veya satış işlemleri yapılabilmesi için “Stok İşlemleri” menüsünü tasarladık. Bu menü altında bulunan kodlar sayesinde programa kolaylıkla mal ekleyip silebiliyor, rahatça satış işlemlerinizi gerçekleştirebiliyorsunuz. Sol üst köşede bulunan yazarkasa simgesi, firmanın kasasının o anki durumunu, kâr-zarar durumuna göre renkli olarak çıktı almanızı sağlıyor. Hangi tarihte, ne kadar paranın, nereden geldiğini veya nereye gittiğini bu simge sayesinde öğrenebiliyorsunuz. Ana pencerede bulunan tüm menülerin alt dizinleri, 264 piksel aşağıya kayarak, alt butonların görüntülenmesi ve tekrar tıklandığında yaptığı işlemin geri alınması özelliğine sahip. Alt menülerin açılış hızları, sabit 2 milisaniye olarak ayarlanmış olsa da, bilgisayarın hızına veya kullanım koşullarına göre değişken olabiliyor.

Girişten ana pencereye geçerken sizi özgün tasarımımız olan şık bir video karşılıyor. Yaklaşık on iki saniye görüntülenen bu video, yine şık bir patlama efektiyle sona eriyor ve ana pencere bu patlamanın etkisiyle oluşmuş gibi bir görüntü ortaya çıkıyor.

 Programın çalışabilmesi için veritabanı klasörünü bilgisayarınızdaki kurulu Mysql altındaki data klasörü içine koymalı ve mysql'i yeniden başlatmalısınız.  Yeniden başlatma komutları;

cmd-> net stop mysql

cmd->net start mysql

 

Kullanılan Veritabanını Aşağıdaki Linkten İndirebilirsiniz.

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

 
]]>
Delphi Fri, 17 Aug 2012 19:58:42 +0300
MD5 Şifreleme http://www.pcprogramlama.com/programlama/55-delphi/404-md5-sifreleme.html AÇIKLAMA 

Delphi ile yazılmış basit bir MD5 şifreleme örneği teşkil eden program.

Program Kodu: 

{HazirProgramKod dil="ccp" satirlar=var} 

unit MD5;

 

interface

 

type

Dizi= Array of integer;

 

function MD_5(str: string): string;

 

implementation

 

function rhex(num: integer): string;

var

str,hex_chr: string;

j: integer;

begin

hex_chr:='0123456789abcdef';

str:='';

for j:=0 to 0 do

str:=str+hex_chr[((num shr (j*8+4)) and $F)+1]+hex_chr[((num shr (j*8)) and $F)+1];

Result:=str;

end;

 

function str2blks_MD5(str: string): Dizi;

var

nblk: integer;

blks: Dizi;

i: integer;

begin

nblk:=((length(str)+8) shr 6)+1;

SetLength(blks,nblk*16);

for i:=0 to nblk*16-1 do blks[i]:=0;

for i:=0 to length(str)-1 do

blks[i shr 2]:=blks[i shr 2] or ((ord(str[i+1]) shl ((i mod 4)*8)));

blks[i shr 2]:=blks[i shr 2] or ($80 shl ((i mod 4)*8));

blks[nblk*16-2]:=length(str)*8;

Result:=blks;

end;

 

function add(x,y: integer): integer;

var

lsw,msw: integer;

begin

lsw:=(x and $FFFF)+(y and $FFFF);

msw:=(x shr 16)+(y shr 16)+(lsw shr 16);

Result:=(msw shl 16) or (lsw and $FFFF);

end;

 

function rol(num,cnt: integer): integer;

begin

Result:=(num shl cnt) or (num shr (32 - cnt));

end;

 

function cmn(q, a, b, x, s, t: integer): integer;

begin

Result:= add(rol(add(add(a, q), add(x, t)), s), b);

end;

 

function ff(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn((b and c) or ((not b) and d), a, b, x, s, t);

end;

 

function gg(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn((b and d) or (c and (not d)), a, b, x, s, t);

end;

 

function hh(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn(b xor c xor d, a, b, x, s, t);

end;

 

function ii(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn(c xor (b or (not d)), a, b, x, s, t);

end;

 

function MD_5(str: string): string;

var

x: dizi;

a,b,c,d,olda,oldb,oldc,oldd: integer;

i: integer;

begin

x:= str2blks_MD5(str);

a:= 1732584193;

b:= -271733879;

c:= -1732584194;

d:= 271733878;

 

i:=0;

while i<length(x) do

 

begin

olda := a;

oldb := b;

oldc := c;

oldd := d;

 

a := ff(a, b, c, d, x[i+ 0], 7 , -680876936);

d := ff(d, a, b, c, x[i+ 1], 12, -389564586);

c := ff(c, d, a, b, x[i+ 2], 17, 606105819);

b := ff(b, c, d, a, x[i+ 3], 22, -1044525330);

a := ff(a, b, c, d, x[i+ 4], 7 , -176418897);

d := ff(d, a, b, c, x[i+ 5], 12, 1200080426);

c := ff(c, d, a, b, x[i+ 6], 17, -1473231341);

b := ff(b, c, d, a, x[i+ 7], 22, -45705983);

a := ff(a, b, c, d, x[i+ 8], 7 , 1770035416);

d := ff(d, a, b, c, x[i+ 9], 12, -1958414417);

c := ff(c, d, a, b, x[i+10], 17, -42063);

b := ff(b, c, d, a, x[i+11], 22, -1990404162);

a := ff(a, b, c, d, x[i+12], 7 , 1804603682);

d := ff(d, a, b, c, x[i+13], 12, -40341101);

c := ff(c, d, a, b, x[i+14], 17, -1502002290);

b := ff(b, c, d, a, x[i+15], 22, 1236535329);

 

a := gg(a, b, c, d, x[i+ 1], 5 , -165796510);

d := gg(d, a, b, c, x[i+ 6], 9 , -1069501632);

c := gg(c, d, a, b, x[i+11], 14, 643717713);

b := gg(b, c, d, a, x[i+ 0], 20, -373897302);

a := gg(a, b, c, d, x[i+ 5], 5 , -701558691);

d := gg(d, a, b, c, x[i+10], 9 , 38016083);

c := gg(c, d, a, b, x[i+15], 14, -660478335);

b := gg(b, c, d, a, x[i+ 4], 20, -405537848);

a := gg(a, b, c, d, x[i+ 9], 5 , 568446438);

d := gg(d, a, b, c, x[i+14], 9 , -1019803690);

c := gg(c, d, a, b, x[i+ 3], 14, -187363961);

b := gg(b, c, d, a, x[i+ 8], 20, 1163531501);

a := gg(a, b, c, d, x[i+13], 5 , -1444681467);

d := gg(d, a, b, c, x[i+ 2], 9 , -51403784);

c := gg(c, d, a, b, x[i+ 7], 14, 1735328473);

b := gg(b, c, d, a, x[i+12], 20, -1926607734);

 

a := hh(a, b, c, d, x[i+ 5], 4 , -378558);

d := hh(d, a, b, c, x[i+ 8], 11, -2022574463);

c := hh(c, d, a, b, x[i+11], 16, 1839030562);

b := hh(b, c, d, a, x[i+14], 23, -35309556);

a := hh(a, b, c, d, x[i+ 1], 4 , -1530992060);

d := hh(d, a, b, c, x[i+ 4], 11, 1272893353);

c := hh(c, d, a, b, x[i+ 7], 16, -155497632);

b := hh(b, c, d, a, x[i+10], 23, -1094730640);

a := hh(a, b, c, d, x[i+13], 4 , 681279174);

d := hh(d, a, b, c, x[i+ 0], 11, -358537222);

c := hh(c, d, a, b, x[i+ 3], 16, -722521979);

b := hh(b, c, d, a, x[i+ 6], 23, 76029189);

a := hh(a, b, c, d, x[i+ 9], 4 , -640364487);

d := hh(d, a, b, c, x[i+12], 11, -421815835);

c := hh(c, d, a, b, x[i+15], 16, 530742520);

b := hh(b, c, d, a, x[i+ 2], 23, -995338651);

 

a := ii(a, b, c, d, x[i+ 0], 6 , -198630844);

d := ii(d, a, b, c, x[i+ 7], 10, 1126891415);

c := ii(c, d, a, b, x[i+14], 15, -1416354905);

b := ii(b, c, d, a, x[i+ 5], 21, -57434055);

a := ii(a, b, c, d, x[i+12], 6 , 1700485571);

d := ii(d, a, b, c, x[i+ 3], 10, -1894986606);

c := ii(c, d, a, b, x[i+10], 15, -1051523);

b := ii(b, c, d, a, x[i+ 1], 21, -2054922799);

a := ii(a, b, c, d, x[i+ 8], 6 , 1873313359);

d := ii(d, a, b, c, x[i+15], 10, -30611744);

c := ii(c, d, a, b, x[i+ 6], 15, -1560198380);

b := ii(b, c, d, a, x[i+13], 21, 1309151649);

a := ii(a, b, c, d, x[i+ 4], 6 , -145523070);

d := ii(d, a, b, c, x[i+11], 10, -1120210379);

c := ii(c, d, a, b, x[i+ 2], 15, 718787259);

b := ii(b, c, d, a, x[i+ 9], 21, -343485551);

 

a := add(a, olda);

b := add(b, oldb);

c := add(c, oldc);

d := add(d, oldd);

 

inc(i,16);

end;

Result:= rhex(a) + rhex(b) + rhex(c) + rhex(d);

end;

 

end. 

{/HazirProgramKod} 

]]>
Delphi Tue, 07 Feb 2012 12:58:03 +0200
Delphi DBase Veritabanı Uygulaması http://www.pcprogramlama.com/programlama/55-delphi/292-delphi-dbase-veritabani-uygulamasi.html AÇIKLAMA
 
Bu program Delphi ile DBase veritabanı kullanılarak oluşturulmuş bir kütüphane otomasyonu uygulamasıdır.  Kutuphane isimli klasörü C partition'nunun içine direk atın ve programı kutuphane otomasyonu isimli klasör içinden çalıştırın.Veritabanı C partition'nunun direk içinde olmalıdır.
 

Kullanılan Tabloyu Aşağıdaki Linkten İndirebilirsiniz.

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

 
]]>
Delphi Sun, 08 May 2011 13:44:30 +0300
Delphi İle Teknik Servis Kayıt Programı http://www.pcprogramlama.com/programlama/55-delphi/262-delphi-ile-teknik-servis-kayit-programi.html Bilgisayar Teknik Servislerinde kullanılmak üzere; kayıt sorgulama, kaydetme, raporlama gibi işlemleri gerçekleştirmek için proje amacıyla yazılmış programdır.Temel seviye programcılara hitap etmektedir. Proje Delphi Programlama Dili ile yazılmıştır. Proje Hakkında Temel Bilgiler

 

Teknik Bilgiler

* QReport nesnesi Kullanımına

* Ado nesnesi Kullanımına

* Ado nesnesi üzerinde işlemler

* Table nesnesi aktif kullanımına

* Db Grid Kullanımına (Db Grid üzerinde işlemler)

      - Db Grid ile İlişkilendirme işlemleri

      - Db Grid İle Veritabanından kayıt silme işlemleri

* Db Edit kullanımına

* Tool Button Kullanımına örnek teşkil eder

Veri Tabanı Bilgileri

* Kullanılan veritabanı Access tir.

* Veritabanı üzerinde ilişkilendirme işlemleri

         Program 12 Formdan oluşmaktadır. Formlardan ilki giriş formu olarak kullanılır. Sonrasında gelen 2. form projenin ana formudur. Personel kaydı ekleme, silme, düzenleme, Arıza kaydı ekleme, silme, düzenleme, Seçilen ya da tüm kayıtlar hakkında yazıcıdan çıktı alma / raporlama işlemlerini diğer formlar üstlenmektedir.

Proje Tasarım: Önder KARAGÖZ

Proje Kodlama: Önder KARAGÖZ & Burhan ŞENYUVA

Projeden Görüntü: 



Programın Kurulumunu Aşağıdaki Linkten İndirebilirsiniz

 

Programın Tamamını (Kaynak Kodu) Aşağıdaki Linkten İndirebilirsiniz

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

]]>
Delphi Sun, 06 Jun 2010 17:09:51 +0300
Delphi ile Paint Programı http://www.pcprogramlama.com/programlama/55-delphi/242-delphi-ile-paint-programi.html AÇIKLAMA

Microsoft işletim sistemleri ile beraber gelen Paint programı örnek alınarak hazırlanmış bir programdır. Halen tasarım aşamasındadır. Program gelişmeye açık durumdadır. Başlangıç ve orta seviye Delphi programcılarına hitap etmektedir. Çizgi, kare , yuvarlak vs çizimleri , yazı ekleme, tersleme , resim üzerinde oynama işlemlerine örnek teşkil eder. Programla beraber;

 

  •    Timer nesnesi kullanımı
  •    Picture nesnesi kullanımı ( Tersleme , pixel işleme , çizim )
  •    Panel kullanımı
  •    OpenPictureDialog / SavePictureDialog nesnelerinin aktif kullanımı
  •    Form ve Picture Çizim işlemleri

 

       gibi çeşitli konularda da aynı zamanda bilgi sahibi olabilirsiniz. Program içerisinde programcıya hitap eden bir çok yerde hatırlatma notları da bulunmaktadır. 

 

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

 

 {HazirProgramKod dil="ccp" satirlar=var}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

Form1.Panel1.Top:=0;
Form1.Panel1.Left:=0;
Form1.Panel3.Left:=0;
Form1.Panel4.Top:=Form1.Height -(Form1.Panel3.Height+16);
Form1.Panel4.Width:=Form1.Width-8;
Form1.Panel4.Left:=0;
Form1.Panel3.Top:=Form1.Height -(Form1.Panel3.Height+Form1.Panel4.Height+54);
Form1.Panel3.Width:=Form1.Width-8;
Form1.Panel1.Height:=Form1.Panel3.Top;
Form1.ScrollBox1.Height:=Form1.Panel3.Top;
Form1.ScrollBox1.Width:=Form1.Width-90;
Form1.ScrollBox1.HorzScrollBar.Range:=Form1.Image1.Width+16;
Form1.ScrollBox1.VertScrollBar.Range:=Form1.Image1.Height+16;

end;

procedure TForm1.RenkleriTersevir1Click(Sender: TObject);
begin
Image1.Canvas.CopyMode:=cmDstInvert;
Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),Image1.Canvas,Rect(0,0,Image1.Width,Image1.Height));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Openpicturedialog1.DefaultExt:='bmp';
Savepicturedialog1.DefaultExt:='bmp';
resimkont:=0;
yazikont:=0;
cizim:=false;
bank:=100;
anakont:=0;
yenikont:=0;
//ResmiTemizle1.Click;
RenkleriTersevir1.Click;
RenkleriTersevir1.Click;
Form1.ScrollBox1.HorzScrollBar.Range:=Form1.ScrollBox1.HorzScrollBar.Range+15;
Form1.ScrollBox1.VertScrollBar.Range:=Form1.ScrollBox1.VertScrollBar.Range+15;
// Form2 nin çizgilerinin oluşması için
Image2.Canvas.CopyMode:=cmDstInvert;
Image2.Canvas.CopyRect(Rect(0,0,Image2.Width,Image2.Height),Image2.Canvas,Rect(0,0,Image2.Width,Image2.Height));

end;

procedure TForm1.Timer2Timer(Sender: TObject);
var tampon:integer; tampon1:integer;
begin
Image2.Refresh();
Image2.Height:=Image1.Height+15;
Image2.Width:=Image1.Width+15;
Image2.Picture:=nil;
Image2.Canvas.Brush.Color:=Form1.Color;
Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height);
Image2.Canvas.Pen.Color:=clBlue;
Image2.Canvas.Rectangle(Image1.Left-3,Image1.Top-3,Image1.Left+Image1.Width-1,Image1.Top+Image1.Height-1);
Image2.Canvas.Brush.Color:=clRed;
Image2.Canvas.Rectangle(Image1.Left-6,Image1.Top-6,Image1.Left-2,Image1.Top-2);
Image2.Canvas.Rectangle(Image1.Left+Image1.Width-2,Image1.Top-2,Image1.Left+Image1.Width+2,Image1.Top-6);
Image2.Canvas.Rectangle(Image1.Left+Image1.Width-2,Image1.Top+Image1.Height-2,Image1.Left+Image1.Width+2,Image1.Top+Image1.Height+2);
Image2.Canvas.Rectangle(Image1.Left-2,Image1.Top+Image1.Height-2,Image1.Left-6,Image1.Top+Image1.Height+2);
 tampon:=Image1.Left+Trunc(Image1.Width/2);
 tampon1:=Image1.Left+Trunc(Image1.Width/2)-4;
Image2.Canvas.Rectangle(tampon,Image1.Top-2,tampon1,Image1.Top-6);
  tampon:=Image1.Left+Trunc(Image1.Width/2)-2;
  tampon1:=Image1.Left+Trunc(Image1.Width/2)+2;
Image2.Canvas.Rectangle(tampon,Image1.Top+Image1.Height-2,tampon1,Form1.Image1.Top+Image1.Height+2);
Image2.Canvas.Brush.Color:=clWhite;
Timer2.Enabled:=false;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if cursor=2 then
begin
cursor:=1;
xz:=X;
yz:=Y;
end
end;

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if(((Y=Image1.Top+Image1.Height+1)and(X=Image1.Left+Image1.Width+1))or((Y=Image1.Top+Image1.Height+1)and(X=Image1.Left+Image1.Width+1))) then
begin
Image2.Cursor:=crSizeNWSE;
cursor:=2;
end
else
Image2.Cursor:=crDefault;
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if cursor=1 then
begin
Image2.Cursor:=crDefault;
Image1.Height:=Image1.Height+(Y-yz);
Image1.Width:=Image1.Width+(X-xz);
cursor:=0;
Timer2.Enabled:=true;
end
end;

{/HazirProgramKod}

]]>
Delphi Wed, 29 Jul 2009 07:57:44 +0300
Bilimsel Hesap Makinesi http://www.pcprogramlama.com/programlama/55-delphi/232-bilimsel-hesap-makinesi.html Bu Program Delphi 7.0 projesidir.

AÇIKLAMA

Program bilimsel hesap makinesidir. Bunun haricinde programda delphi ile birlikte nasıl flash kullanılacağ (.swf dosyanın delphi içinde kullanılması) ve aynı zamanda system tray (sistem saati yanında ikonlu çalışma) da delphi ile birlikte nasıl proje geliştirebileceği konusunda örnekler teşkil etmektedir.

  

Programın Kurulumunu Aşağıdaki Linkten İndirebilirsiniz.

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

 

 Programın Tamamını(Kaynak Kodu) Aşağıdaki Linkten İndirebilirsiniz.

{pub}Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

{/pub}

{reg}

{/reg}

]]>
Delphi Mon, 29 Jun 2009 14:54:29 +0300