Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Delphi - Pascal 
Delphi De Webrowser Yapmayı Öğrendikte Normal Bir Program Nasıl Yapacaz? Delphi De Webrowser Yapmayı Öğrendikte Normal Bir Program Nasıl Yapacaz?
-
??????*
-
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ıyor
ERROR İ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 -
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
-
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.....
-
zumsuk sen en iyisi bir tane daha video yap normal bir pro nasıl yapılıyo =))
-
ğüzel bir konu hakkaten bir video ile anlatırmısnız aşama aşama öğrenmek istiyom nasıl yapcamı bilmiyom
-
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 gelir
oraya
halt;
yaz playa bas bakalım çalışacakmı ;) Delphi güzeldir -
aha buda dökümanın kralı delphi 7 kitabı
http://rapidshare.de/files/4381546/delphi.zip.html -
ya video lu anlatım olsa güzel olacak böle anlatınca bi bok yapamıyoz Allah rızası için biri çıksında yapsın şu video yu
-
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. -
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;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Timer4: TTimer;
Timer5: TTimer;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Edit4: TEdit;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure Timer4Timer(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer5Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
canvas.MoveTo(250,250);
canvas.Pen.Width:=canvas.Pen.Width+5;
button1.Click;
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
x,y :integeR;
begin
x:=canvas.PenPos.X;
y:=canvas.PenPos.Y;
form1.Refresh;
canvas.LineTo(x+StrToInt(edit1.Text),y);
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
x,y :integeR;
begin
x:=canvas.PenPos.X;
y:=canvas.PenPos.Y;
form1.Refresh;
canvas.LineTo(x-StrToInt(edit1.Text),y);
end;
procedure TForm1.Timer3Timer(Sender: TObject);
var
x,y :integeR;
begin
x:=canvas.PenPos.X;
y:=canvas.PenPos.Y;
form1.Refresh;
canvas.LineTo(x,y-StrToInt(edit1.Text));
end;
procedure TForm1.Timer4Timer(Sender: TObject);
var
x,y :integeR;
begin
x:=canvas.PenPos.X;
y:=canvas.PenPos.Y;
form1.Refresh;
canvas.LineTo(x,y+StrToInt(edit1.Text));
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key= vk_left then
begin
if not (timer1.Enabled = true) then
begin
timer1.Enabled:=false;
timer2.Enabled:=true;
timer3.Enabled:=false;
timer4.Enabled:=false;
end;
end;
if key= vk_right then
begin
if not (timer2.Enabled = true) then
begin
timer1.Enabled:=true;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
end;
end;
if key= vk_up then
begin
if not (timer4.Enabled = true) then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=true;
timer4.Enabled:=false;
end;
end;
if key= vk_down then
begin
if not (timer3.Enabled = true) then
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=true;
end;
end;
if (ssalt in shift) and (key = vk_f5) then
begin
canvas.MoveTo(image1.Left+10,image1.Top+50);
timer1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=true;
timer4.Enabled:=false;
end;
if (ssalt in shift) and (key = vk_f3) then
begin
button1.Click;
end;
end;
procedure TForm1.Timer5Timer(Sender: TObject);
var
x,y:integer;
begin
x:=canvas.PenPos.X;
y:=canvas.PenPos.Y;
if x<0 then
canvas.MoveTo(form1.Width,y);
if y<0 then
canvas.MoveTo(x,form1.Height);
if x>form1.Width then
canvas.MoveTo(0,y);
if y>form1.Height then
canvas.MoveTo(x,0);
if (X>image1.Left) and (x
button1.Click;
edit4.Text:=Inttostr(StrToInt(edit4.Text)+1)
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage(edit4.Text+' Yem yediniz');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.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.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 4149 Toplam Mesaj: 16
Cevapla