folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Delphi De Webrowser Yapmayı Öğrendikte Normal Bir Program Nasıl Yapacaz?



Delphi De Webrowser Yapmayı Öğrendikte Normal Bir Program Nasıl Yapacaz?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    ??????*
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    mit
    mit's avatar
    Kayıt Tarihi: 15/Eylül/2005
    Erkek
    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
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    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
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    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.....
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    zumsuk sen en iyisi bir tane daha video yap normal bir pro nasıl yapılıyo =))
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    uz-i
    uz-i's avatar
    Kayıt Tarihi: 28/Aralık/2005
    Erkek
    ğü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 [IMG]http://img66.imageshack.us/img66/3489/adslnahalirsin5ry6in5ci4md.gif[/IMG]
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    catlax
    catlax's avatar
    Kayıt Tarihi: 10/Eylül/2005
    Erkek
    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

    Ne zaman kendini yenilmiş hissedersen hatırla; kazanan sperm sensin, doğuştan savaşcısın!!
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    catlax
    catlax's avatar
    Kayıt Tarihi: 10/Eylül/2005
    Erkek
    aha buda dökü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!!
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    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
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ntxsoft
    ntxsoft's avatar
    Kayıt Tarihi: 05/Kasım/2005
    Erkek
    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ı
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Encoder
    Encoder's avatar
    Kayıt Tarihi: 19/Kasım/2005
    Erkek
    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 (ximage1.Top) and (ybegin
    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.
Toplam Hit: 2302 Toplam Mesaj: 16