Delphi Tuş Kodları

Delphi Tuş Kodları Sabit sembolik isim Heksadesimal Karşılığı VK_LBUTTON 1 Sol fare tuşu VK_RBUTTON 2 Sağ fare tuşu VK_CANCEL 3 Control-break işlemi VK_MBUTTON 4 Orta fare tuşu (3 tuşlu fareler için) VK_BACK 8 BACKSPACE tuşu VK_TAB 9 TAB tuşu VK_CLEAR 0C CLEAR tuşu VK_RETURN 0D ENTER tuşu VK_SHIFT 10 SHIFT …

Devamını Oku »

Delphi iskonto bulma

Örnek Resimde Olduğu verilen bir tutar üzerinden gerçekleştirilen 4 iskonto oranı girilerek bu ürünün tutarsal olarak değeri ve bu girilen oranların tek bir iskonto oranını bulabiliyoruz. procedure Tfrm_iskontooranibul.btn_bulClick(Sender: TObject); var bir,iki,uc,dort:Double; begin bir:=StrToFloatDef(edt_tutar.Text,0)-StrToFloatDef(edt_tutar.Text,0)*StrToFloatDef(edt_isk1.Text,0)/100; edt_1.Text:=(FloatToStr(bir)); iki:=StrToFloatDef(edt_1.Text,0)-StrToFloatDef(edt_1.Text,0)*StrToFloatDef(edt_isk2.Text,0)/100; edt_2.Text:=(FloatToStr(iki)); uc:=StrToFloatDef(edt_2.Text,0)-StrToFloatDef(edt_2.Text,0)*StrToFloatDef(edt_isk3.Text,0)/100; edt_3.Text:=(FloatToStr(uc)); dort:=StrToFloatdef(edt_3.Text,0)-StrToFloat(edt_3.Text)*StrToFloatDef(edt_isk4.Text,0)/100; edt_4.Text:=(FloatToStr(dort)); edt_iskontoorani.Text:=FloatToStr(StrToFloat(edt_tutar.Text)-StrToFloat(edt_4.Text)); end; Kaynak kod ve exe için Tıklayın.

Devamını Oku »

Mavi Bir Ölüm Yine sana sesleneceğim..

Mavi Bir Ölüm.. Yine sana sesleneceğim.. Senin kim olduğunu hiç bilmeden Senin kim olduğunu en çok bilerek İsyankar zambakların çılgın nilüferlerin Dört nala açan kiraz çiçeklerinin Dudak kıvrımlarına yoldaş olacağım Sarı bir hüzün kızıl bir gurur Ve siyah bir öfkeyle konuşacağım sana ……….. Sana oklardan değil yaylardan bahsedeceğim Gülün dikeninden …

Devamını Oku »

Ey Güzide Yar!

Ey Güzide Yar! Bize Senin aşk u rahmetini terennüm edecek o ince,o nezih,sevimli sözleri hatırlat ve öğret ki biz,huzur-u keriminde o sözlerimizle Senin merhametini kazanalım.. “Ey her yeri ağyarı yar eden” Ey ALLAH’ım,Senin vuslatını umarak ölmek hoştur.Fakat,ayrılığının acısı ateşin üstündedir.Kafir bile cehennemde”Bana bir baksaydın,cehennemde olduğuma gam mı çekerdim”deyip durur.Çünkü o …

Devamını Oku »

Yapay Zeka Nedir ?

Yapay Zeka Nedir ? Enformatik literatüründe yapay zekanın kesin bir tanımı yapılamamıştır ancak özetle, insanın düşünme yapısını anlamak ve bunun benzerini ortaya çıkaracak bilgisayar işlemlerini geliştirmeye çalışmak olarak tanımlanabilir. Yani programlanmış bir bilgisayarın düşünme girişimidir. Daha geniş bir tanıma göre ise, yapay zeka, bilgi edinme, algılama, görme, düşünme ve karar …

Devamını Oku »

Aile Terbiyemiz

Yaşlı kadın, usulca odasından çıktı. Salondan torunu ile gelinin sesleri geliyordu: “-Oğlum, sofra hazır, çorbanı koydum; haydi gel de soğutmadan ye!..” Salonun en kuytu yerine geçti, yerde kendine ait köyden getirdiği minderin üzerine oturdu. Çocuk, babaannesini görünce: “-Babaanneciğim, gel beraber yiyelim!..” dedi. Yaşlı kadın mânidâr bir şekilde iç çektikten sonra: …

Devamını Oku »