1. si program yazmayı videola falan ğrenemezsiniz.2. eğer çok video istiyorum diyorsanız ben yapabilirim. ne tür bir program istiyorsunuz. onu belirtin. fakat unutmayın ki program yazmak emek ve sabır ister. ben 4-5 senede orta düzey ğrendim delphi yi ki delphi en kolayıdır. eğer bu işi ğrenmek istiyorsanız bi kitapcıdan delphiyle ilgili kitap alın. sonra yavaş yavaş kitaptakileri uygulayın. enginkirmaci.com | Kişisel web sitesi, uyetakip.com | Ücretsiz Üye Takip Programı

delphikursu.com u vediğin için saol

bak ben hazır kodları not defterine yapıştırıp. pas uzantı şeklinde yaptım delphi de açıyo ama nasıl tasarlıcaz

bu bir yılan oyununun kodları bunu nasıl delphi ile yapacaz?not defterinden. pas uzantısı şeklinde yaptım sonra ne yapacam?unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;type TForm1 = class Image1: TImage; Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; Timer4: TTimer; Timer5: TTimer; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Edit4: TEdit; procedure FormCreate ; procedure Timer1Timer ; procedure Timer2Timer ; procedure Timer3Timer ; procedure Timer4Timer ; procedure FormKeyDown ; procedure Timer5Timer ; procedure FormClose ; procedure Button1Click ; private public end;var Form1: TForm1;implementation procedure TForm1. FormCreate ;begincanvas. MoveTo(250,250);canvas. Pen. Width:=canvas. Pen. Width+5;button1. Click;timer1. Enabled:=true;end;procedure TForm1. Timer1Timer ;varx, y :integeR;beginx:=canvas. PenPos. X;y:=canvas. PenPos. Y;form1. Refresh;canvas. LineTo(x+StrToInt(edit1. Text), y);end;procedure TForm1. Timer2Timer ;varx, y :integeR;beginx:=canvas. PenPos. X;y:=canvas. PenPos. Y;form1. Refresh;canvas. LineTo(x-StrToInt(edit1. Text), y);end;procedure TForm1. Timer3Timer ;varx, y :integeR;beginx:=canvas. PenPos. X;y:=canvas. PenPos. Y;form1. Refresh;canvas. LineTo(x, y-StrToInt(edit1. Text));end;procedure TForm1. Timer4Timer ;varx, y :integeR;beginx:=canvas. PenPos. X;y:=canvas. PenPos. Y;form1. Refresh;canvas. LineTo(x, y+StrToInt(edit1. Text));end;procedure TForm1. FormKeyDown ;beginif key= vk_left thenbeginif not (timer1. Enabled = true) thenbegintimer1. Enabled:=false;timer2. Enabled:=true;timer3. Enabled:=false;timer4. Enabled:=false;end;end;if key= vk_right thenbeginif not (timer2. Enabled = true) thenbegintimer1. Enabled:=true;timer2. Enabled:=false;timer3. Enabled:=false;timer4. Enabled:=false;end;end;if key= vk_up thenbeginif not (timer4. Enabled = true) thenbegintimer1. Enabled:=false;timer2. Enabled:=false;timer3. Enabled:=true;timer4. Enabled:=false;end;end;if key= vk_down thenbeginif not (timer3. Enabled = true) thenbegintimer1. Enabled:=false;timer2. Enabled:=false;timer3. Enabled:=false;timer4. Enabled:=true;end;end;if and (key = vk_f5) thenbegincanvas. MoveTo(image1. Left+10, image1. Top+50);timer1. Enabled:=false;timer2. Enabled:=false;timer3. Enabled:=true;timer4. Enabled:=false;end;if and (key = vk_f3) thenbeginbutton1. Click;end;end;procedure TForm1. Timer5Timer ;varx, y:integer;beginx:=canvas. PenPos. X;y:=canvas. PenPos. Y;if x<0 thencanvas. MoveTo(form1. Width, y);if y<0 thencanvas. MoveTo(x, form1. Height);if x>form1. Width thencanvas. MoveTo(0, y);if y>form1. Height thencanvas. MoveTo(x,0);if (X>image1. Left) and (ximage1. Top) and (ybeginbutton1. Click;edit4. Text:=Inttostr(StrToInt(edit4. Text)+1)end;end;procedure TForm1. FormClose ;beginshowmessage(edit4. Text+' Yem yediniz');end;procedure TForm1. Button1Click ;beginimage1. Left:=random(form1. Width);image1. Top:=random(form1. Height);edit1. Text:=Inttostr(StrToInt(edit1. Text)+2);timer1. Interval:=timer1. Interval+1;timer2. Interval:=timer2. Interval+1;timer3. Interval:=timer3. Interval+1;timer4. Interval:=timer4. Interval+1;end;end.

ğüzel bir konu hakkaten bir video ile anlatırmısnız aşama aşama ğrenmek istiyom nasıl yapcamı bilmiyom cnc prog. ugs nx solid autocad http://img66.imageshack. us/img66/3489/adslnahalirsin5ry6in5ci4md. gif

hazır kodlar elimde mevcut. pas uzantısı şeklinde delphi ile de açtım ondan sonra ne yapacam eskiden ne güzel pascal dan açıp yapıyodum delphi ile yapamıyom bide pascalda ctrl+f9 yapıyoduk programı çalıştırıyoduk delphi de nasıl yapacaz? sorular bunlar...

ya video lu anlatım olsa güzel olacak ble anlatınca bi bok yapamıyoz Allah rızası için biri çıksında yapsın şu video yu

ewet haklısın zumsuk ama exploit bir video çekip Allah razı olsun ondan az da olsa birşeyler ğrendim. Ben nceden pascal kullanıyordum delphi yoktu kodları pascal a yapıştırınca ctrl+f9 yapınca hemen oluyordu bende delphi yle zannettim. napayım insanlık hali işte. Bunu ben yaptım exploit in video sunu izleyerekhttp://rapidshare.de/files/14997463/ilk_pro. rar.html

direk kodlar nasıl alınır bilmiyorum. fakat yeni bir form oluştur. sonra yazdığın kodlarda hangi nesneler kullanılıyo onları koy formuna. sonra events kısmından gerekli yerlere yukarıdaki gibi olacak şekilde kodlarını yerleştir. enginkirmaci.com | Kişisel web sitesi, uyetakip.com | Ücretsiz Üye Takip Programı

kodlarda zaten yazar ya hangi butonların kullanıldığı onları koyacaksınız vede kodlara bakarak butonlara kodları ekliyeceksiz bi tane buton yap butona çift tıkla karşına kod yazılacak yer geliroraya halt; yaz playa bas bakalım çalışacakmı ;) Delphi güzeldir Ne zaman kendini yenilmiş hissedersen hatırla; kazanan sperm sensin, doğuştan savaşcısın!!

bak orda ne diyor timer dio ordan timer nesnesi koy sonra buton click var buton koycaksın ama herşeyi koyup direk yapıştırma hata verir her nesnenin kodunu yapıştır çalışacak ;) Bak Orda Ben 1200 sayfalık delphi kitabı verdim pdf de gitsen alsan dünyanın parası orda bol bol resimle rnek var :) Ama hiç bakan olmadı galiba daha birileri video dio :) bi bakın bakalım hiç değilse veri tabanına kayıt vb. türleri kavrarsın ;)ama ilk nce nesnelerin ne işe yaradıklarını ğren direk kodlarla olursa yapamazsın sonrada zor dersin ;) Ne zaman kendini yenilmiş hissedersen hatırla; kazanan sperm sensin, doğuştan savaşcısın!!

zumsuk sen en iyisi bir tane daha video yap normal bir pro nasıl yapılıyo =))

aha buda dkümanın kralı delphi 7 kitabı http://rapidshare.de/files/4381546/delphi. zip.html Ne zaman kendini yenilmiş hissedersen hatırla; kazanan sperm sensin, doğuştan savaşcısın!!

onu geç ben hazır kodları bile çalıştıramıyom neden acaba biriniz yardım etsin bu kodları copy/paste yapıyom sonra play tusu gibi bişiy var ona basıyom şle bişiy çıkıyorERROR İN MODULE UNİT:1DECLARATİON OF CLASS TFORM İS MİSSİNG OR İNCORECT bu çıkıyor bu nedemek ben nerde hata yappıyom acaba biri beni uyarsın :d