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! »

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 01:04

Hayırlı olsun Fatih! hocam

Mesaj gönderen sevturk »

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! »

Ö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 01:04

Mesaj gönderen sevturk »

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: 06 Eki 2007 12:34

Mesaj gönderen lejyoholy »

forumda cok yeni sayılırım. hayırlı olsun efendim
khanco
Üye
Mesajlar: 226
Kayıt: 01 Eki 2007 04:39
Konum: İzmir
İletişim:

Mesaj gönderen khanco »

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! »

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 »

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! »

Teşekkür ederim. Kargo bedelinİ ödeyeceksen isim, adres ve telefonunu özelime atablirsin
cloudhun
Üye
Mesajlar: 2
Kayıt: 20 Eyl 2011 02:16
İletişim:

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen cloudhun »

Bende düşünüyorum böyle bir kitap almayı incelyeceğim biraz teşekkürler.
wortexz
Üye
Mesajlar: 2
Kayıt: 02 Nis 2014 12:43

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen wortexz »

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: 239
Kayıt: 04 Oca 2008 01:53
Konum: Karşıyaka/İzmir

Re: Delphi İle ASP.NET Kitabım

Mesaj gönderen PROGRAMADOR »

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