Delphi İle ASP.NET Kitabım

Delphi .net ve .net ile ilgili konuları buraya yazabilirsiniz.
Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Mesaj gönderen Fatih! » 10 Tem 2007 07:50

Merhaba,

Kitabın ilk baskısında sponsora verdiğimiz kitapların büyük bir kısmını geri aldık. Yani, satışa yeniden başladım.

Yayınevinin ne zaman çıkaracağı henüz net değil.

sevturk
Üye
Mesajlar: 117
Kayıt: 23 Nis 2006 12:04

Hayırlı olsun Fatih! hocam

Mesaj gönderen sevturk » 29 Eyl 2007 03:35

S.A.
öncelikle merakımı af buyurun size niye hoca diyolar?
ben askerden geleli 1 ay oldu hocam o yüzden çok uzak kaldım şu anki güncel konulara..
kitabınızın namını ve yararlılığını duydum bende hemen kitabın yazarına hem tebrik olsun hemde iki sorum olsun demek istedim..
hocam ben asp'yi daha yeni öğrendim delphi'de liseden beri kullanıyorum yani asp.net konusu yani .net hakkında hiç bir bilgim yok ama yazdığınız kitapla delphiden yaptığım tasarımları ve çalışmaları web ortamına sunabilirmiyim? buna benzer soruların cevaplarını kitapta bulabilirmiyim?
kitaptaki uygulamaları çalıştırıp deneyebilmem için extra kurulum veya benzeri bişeyler yapmam gerekiyormu?
ne olur beni yanlış anlamayın sadece konuya tam hakim olamadığım için bunları sormak istedim, aydınlatırsanız çok sevinirim.. çalışmalarınız devamını diliyorum Allaha emanet olun..

Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Mesaj gönderen Fatih! » 29 Eyl 2007 04:18

Öncelikle dil alışkanlığı değilse, hocam diyenler teveccüh ediyorlar.

Pek nam saldığımı düşünmesem de, varsa böyle bir şey muhtemelen alternatif kaynağın olmamasındandır.

Daha önce yaptığınız Delphi projeleri windows uygulamaları için yapılmışsa, kitabın konuyla herhangi bir ilgisi yoktur. Delphi.net ile yaptığınız internet sayfaları ise, işinize yarayabilir.

kitapta anlatılanları uygulayabilmek için Delphi 2005 ya da sonraki bir sürüme ihtiyacınız var.

sevturk
Üye
Mesajlar: 117
Kayıt: 23 Nis 2006 12:04

Mesaj gönderen sevturk » 29 Eyl 2007 11:23

Fatih! hocam öncelikle cevap verdiğiniz için teşekkür ederim..
dediğiniz doğru projelerimi windows uygulamaları için yapıyordum..
delphi 2005 'im yok ama hemen araştırmaya giriyorum..
bende kitabınızdan almak istiyorum çünkü yazılanlara baktım çok faydalı ve diğerlerine nazaran çevirme değil size yakışanı olduğunu söylüyorlar..
biliyorumki benimde istediklerimi karşılayacak bir kitap..
yardımlarınız ve ilginiz için teşekkür ederim.. çalışmalarınızın devamını diliyorum Allaha emanet olun..

lejyoholy
Üye
Mesajlar: 1
Kayıt: 05 Eki 2007 11:34

Mesaj gönderen lejyoholy » 19 Eki 2007 01:25

forumda cok yeni sayılırım. hayırlı olsun efendim

khanco
Üye
Mesajlar: 226
Kayıt: 01 Eki 2007 03:39
Konum: İzmir
İletişim:

Mesaj gönderen khanco » 19 Eki 2007 05:48

Hayırlı olsun. Başarılarının devamını dilerim.
Daha nice kitaplara.

Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Mesaj gönderen Fatih! » 19 Eki 2007 07:39

teşekkür ederim

sleeptime
Üye
Mesajlar: 2
Kayıt: 08 Mar 2008 11:02

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen sleeptime » 14 Mar 2008 07:04

hayırlı olsun hocam ben yeni delphi öğrenmeye çalışıyorum eğer kitabınızı hediye etmeyi düşünüyorsanız bana gönderebilirsiniz şimdiden tşk ederim...

Kullanıcı avatarı
Fatih!
Kıdemli Üye
Mesajlar: 1172
Kayıt: 26 Kas 2004 10:46
Konum: Malatya
İletişim:

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen Fatih! » 14 Mar 2008 09:49

Teşekkür ederim. Kargo bedelinİ ödeyeceksen isim, adres ve telefonunu özelime atablirsin

cloudhun
Üye
Mesajlar: 2
Kayıt: 20 Eyl 2011 01:16
İletişim:

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen cloudhun » 20 Eyl 2011 01:21

Bende düşünüyorum böyle bir kitap almayı incelyeceğim biraz teşekkürler.

wortexz
Üye
Mesajlar: 2
Kayıt: 01 Nis 2014 11:43

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen wortexz » 01 Nis 2014 11:48

arkadaslar altta olan kodlar calısan hesap makinemim kodları ancak ondalıklı hesap yapması icin ne yapmam gerek,nereleri real yapmam nereleri float yapmam gerek ? veya baska bi atamamı gerekiyor acil cevap ?




unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button2: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Edit2: TEdit;
Button22: TButton;
Timer1: TTimer;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
Button23: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button23Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Sonuc,SayiGirildi,islem,Sayi,I:integer;





implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'1';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '1' ; SayiGirildi:=0;
End;



end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'2';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '2' ; SayiGirildi:=0;
End;


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'4';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '4' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'5';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '5' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'6';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '6' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'7';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '7' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'8';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '8' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'9';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '9' ; SayiGirildi:=0;
End;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'0';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
end;



procedure TForm1.Button10Click(Sender: TObject);


begin

Sonuc := Sonuc + StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
islem:=1;
Edit2.Text:='+';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
If islem = 1 Then Sonuc:= Sonuc + StrToInt(Edit1.Text);

If islem = 2 Then Sonuc := Sonuc - StrToInt(Edit1.Text);

If islem = 3 Then Sonuc := Sonuc * StrToInt(Edit1.Text);

If islem = 4 Then Sonuc := Sonuc Div StrToInt(Edit1.Text);

Edit1.Text := IntToStr(Sonuc);
SayiGirildi := 1 ; Sonuc := 0 ;




end;

procedure TForm1.Button13Click(Sender: TObject);
begin
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit1.Text := '0' ;
Sonuc := 0 ;
SayiGirildi := 0 ;
islem := 0 ;
Edit2.Text := '' ;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
Sonuc:=0;
Sonuc := StrToInt(Edit1.Text)-Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=2;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='-';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := Sonuc * StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=3;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='*';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
Sonuc:=1;
Sonuc := StrToInt(Edit1.Text) Div Sonuc ;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:=1;
islem:=4;
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
Edit2.Text:='/';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
Edit1.Visible:=True;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Visible:=False;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
Sonuc:=1;
Sayi :=StrToInt(Edit1.Text);

For I:=1 To Sayi Do Sonuc:=Sonuc*10;
Edit1.Text:=IntToStr(Sonuc);
SayiGirildi:= 1 ; Sonuc:=0;

end;

procedure TForm1.Button21Click(Sender: TObject);
begin

If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'3.1415';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '3.14159265358979323846' ; SayiGirildi:=0;
End;

end;

procedure TForm1.Button22Click(Sender: TObject);

Var
i,sayi,fak:integer; //Değişkenler tanımlanıyor.
begin
fak:=1; //fak değişkeni en küçük pozitif tam sayı olan 1 e eşitleniyor.
sayi:=strtoint(edit1.text); //Faktöriyeli istenilen sayı alınıyor.
For i:=1 to sayi Do
fak:=fak*i; //Faktöriyel hesaplanıyor.
edit1.text:=inttostr(fak); //Bulunan sonuç edit2 ye yazdırılıyor.
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption:=DateToStr(Date);
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
If StrToInt(Edit1.Text) = 0 Then Edit1.Text := '' ;
Edit1.Text:=Edit1.Text+'00';
If SayiGirildi=1 Then
Begin
Edit1.Text:= '00' ; SayiGirildi:=0;
End;

end;

end.

PROGRAMADOR
Üye
Mesajlar: 232
Kayıt: 04 Oca 2008 01:53
Konum: Karşıyaka/İzmir

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen PROGRAMADOR » 03 Mar 2015 11:01

Yanlış yere soru yazmışsınız. Burada yanıt veren çıkmaz.
In dubio pro reo...
Şüpheden sanık/özgürlük yararlanır...

Cevapla