Zıplanacak içerik
  • Üye Ol

DELPHİ


baharrr

Önerilen İletiler

ARKADASLAR BİLG.PROĞ.OKUYORUM DELPHİ7 İLE İLGİLİ YAPILMIŞ ÖRNEKLERE İHTİYACIM VAR BANA YARDIMCI OLUR MUSUNUZ ACELE KONU İLE İLGİLENEN ARKADASLARA DUYURULUR;

merhaba

burayı tıklayarak delphi ile ilgili pek çok örneğe ulaşabilirsin.

Eğer mutlaka özgün uygulama gerekiyorsa

kendi yaptığım onlarca uygulama var

ama genelde delphi5 ile yapmıştım.

Ayrıca, Delphi uzmanı sayılmam ama herşeyi bana sorabilirsin.

Bildiğim kadarıyla yardımcı olabilirsem sevinirim.

Yoruma sekme
Diğer sitelerde paylaş

bu siteyı acamıyorum.delphi7 ile yapılmış projelere ihtiyacım var dizi kullanarak yapılanlar varsa daha iyi olur.sizde mi bilgisayar okuyorsunuz?delphi ile ilginiz nerden?

sanırım verdiğim adreslerin bazılarının server'larında problem var

ben de bu akşam giremedim.

google'da aratınca delphi ile ilgili -neredeyse- sınırsız kaynak bulabilirsiniz

ingilizceniz yetersizse, ilgi duyduğunuz konuyu belirtiniz, yardımcı olabilirim.

Ben 6-7 yıl önce delphi dünyasına girdim

öncelikle, kullandığımız pek çok programı delphi ile kendimizin de oluşturabileceğini farkedince

inanılmaz bir tutku ile delphiyi keşfetmeye başladım

ve 2 yıl öncesine kadar ciddi şekilde delphiye kendimi verdim

çünkü bir uygulamayı bizzat geliştirmek kadar mutluluk veren bir şey yaşamadım. (hâla)

ciddi client-server uygulamalardan basit oyunlara kadar pekçok uygulama geliştirdim

bazılarından para da kazandım (hepsi hepsi toplam 5000 $ kadar)

Ama zamanla bir amatör olarak yapabileceğim herşeyi yaptığımı düşünerek delphiden uzaklaştım

web server uygulamaları dışında çoğu uygulamayı geliştirmeyi az çok biliyorum

(aslında delphinin yalnızca %10unu)

dezavantajım şuydu :

çevremde yazılımdan azıcık da olsa anlayan kimse olmadı

herşeyi sıfırdan, kitaplardan ve delphinin helpinden öğrendim.

3 yıl önce ÖSS ye girdim, yalnızca programcılık yüksek okulu için,

mühendisliğe girecek puan almama karşın prog.yük.ok.na giremedim, kontenjan meslek liseliler tarafından doldurulduğu için.

ondan sonra da soğudum yazılımcılıktan ve ara verdim

ama hâla bir yazılımcılık eğitimi fırsatı bulur muyum diye araştırıyorum.

yıllardır bi işe yaramayan tecrübemin size yararı olursa sevinirim.

Yoruma sekme
Diğer sitelerde paylaş

cok teşekkürler ben bilgisayar proğramlama bölümünde okumaktayım kısa bir süre sonra finallerim var sade proğram kodlarına ihtiyacım var delphi dizi biliyor musun bilmiyorum dizi agırlıklı cıkacak bana proğram kodları göndermen mümkün mü?

dizi (array) çok sayıda değişkeni bir defada tanımlamaya yarar

karmaşık bir şey değil

gerçi notları sende vardır ama ben bir alıntıyla hatırlatayım:

içinde iki örnek kod da var

zaten basit olduğu için sen de kolayca array kodu yazabilirsin.

 

Bir Fizik öğretmenin değişik sayıda öğrencinin bulunduğu birden

fazla sınıfın dersine girdiğini düşünelim. Bu öğretmen çğrencinlerin Fizik dersinden al-

dıkları notları bilgisayarda değerlendirmek (ortalamasını almak ) üzere Delphi ile basit

bir program yazmak istesin. Girilen bu notların klavyeden girildikden sonra değerlen-

dirme yapılana değin bellekte saklanması gerekir. Başka bir değişle öğretmen her öğren-

cinin notunu değerlendirme yapana değin bellekte saklamak zorunda. Bunun için de de-

ğişken tanımlama işlemi yapacak.

 

Söz konusu öğretmen dizi değişkenler konusunda tecrübeli değilse

, önce en fazla mevcuda sahip sınıfın öğrenci sayısı kadar değiişken tanımlar. Ardından

her öğrencinin notunu o öğrenci için tanımlanan değişkene aktarılır. Burada öğrenciler

için tanımlanan bütün değişkenler aynı özelliğe sahiptir.

procedure TForm1.FormClick(Sender:TObject);

ögrenci1: Integer;

ögrenci2: Integer;

ögrenci3: Integer;

ögrenci4: Integer;

ögrenci5: Integer;

ögrenci6: Integer;

 

Aynı özellik ve işleve sahip değişkenleri ayrı ayrı tanımlamak pra-

tik değildir. Bu ve benzeri durumlarda aynı tipdeki değişkenleri ayrı ayrı tanımlamak

yerine dizi değişkenlerden yararlanılır . Yukarıda ekran görüntüsü verilen değişken ta-

nımlama örneğinde Integer deyimi ile her seferinde 1 adet değişken tanımlanıyor. Ancak

istenirse bir seferde aynı özelliğe sahip birden fazla değişken tanımlanabilir.Aynı özelli-

ğe sahip birden fazla değişkeni bir seferde tanımlamak için Array deyiminden yararla-

nılmaktadır. Array deyimi ile değişken tanımlanırken , köşeli parantezlerin içine önce

dizi değişkeninin ilk elemanın , ardından son elamanın sıra numarası belirtilir. Ardından

dizi değişkenin tipi belirtilir.

 

Var

Ogrenci : Array[1..20] Of Integer;

 

Bu değişken tanımlama satırı ile aynı anda 20 adet değişken ta-

nımlandı. Parantez içine yazılan sayısal bilgi ile kaç adet değişkenin tanımlanacağı be-

lirlenir. Bu şekilde tanımlanan değişkenlere dizi deşinken adı verilmektedir.

 

Değişken tanımlama işleminin sonunda bellekte yan yana duran

ve aynı özelliğe sahip değişkenlere bilgi aktarmak için , bu 20 değişkenden hangisi kul-

lanılmak isteniyorsa o değişkenin dizi içindeki sıra numarasını değişken adına köşeli

parantezler içinde eklenmelidir. Örnek olarak tanımlanan bu 20 değişkenden ilkine dışa-

rıdan bilgi aktarmak için aşağıdaki gibi bir parogram satırı yazılabilir.

 

Ogrenci[1] = StrToInt(InputBox('İlk Öğrencinin Notunu Girin ','Not Girişi ',' ')

 

Eğer dizi içinde 2.sırada yer alan değişkene bilgi aktarılmak isteni-

yorsa , bu kez program içindeki sırasını gösteren sayısal değer değişken adının bir kısmı

olarak kullanılıyor. Bundan çıkarılması gereken sonuç şudur : Verilen örnekte olduğu

gibi benzer işlevleri olan ve aynı tipdeki birden fazla değişkeni ayrı ayrı tanımlamak

yerine bir seferde dizi değişken olarak tanımlamak gerekir.

 

procedure TForm1.FormClick(Sender:Tobject);

var

Ögrenci:Array [1..20] of İnteger;

Tur:İnteger;

Toplam:İnteger;

Ortalama:Strıng[10];

begin

toplam:=0;

For Tur:= 1 to 20 do

Begin

ögrenci[tur]:=StrToInt(InputBox(IntToStr(tur)+

'.Öğrencinin Notu:','',''));

Toplam:=Toplam+Ogrencı[tur];

end;

ortalama:=FloatToStr(Toplam/4);

show;

Canvas.Font.Size:=14;

Canvas.Textout(20,20,'Ortalama Not:'+Ortalama);

end;

 

 

Bu örnek proje çalıştırılıp FormClick yordamı işletilirse , For-Do

döngü oluşturma deyimi ile öğrenci sayısı (burada 20) kadar tekrarlamak üzere her

öğrencinin aldığı not InputBox() fonksiyonu ile Ogrenci adını verdiğimiz dizi değişke-

nin ilgili elemanına aktarılır.

Bitti.......... anlayamadığın olursa sor lütfen :clover:

Yoruma sekme
Diğer sitelerde paylaş

senin için gereken yalnız dizi yani array kodları anladığım kadarıyla

ama bu kadar basit bir konuda bu kadar kodu ne yapacaksın anlamadım

farklı bir konudan mı söz ediyorsun, delphi çok geniş çünkü.

bir de benim kullanmamın hiç gerekmediği şöyle bir dizi var:

type genisdizi = array[1..10, 1..100] of integer;

buna çok boyutlu dizi deniyor ve

genisdizi[3][25]=x gibi kullanılıyor

böylece 10*100 = 1000 değişken yaratmış oluyoruz.

 

Bir de dinamik değişkenler var, büyüklüğü sonradan tanımlanıyor

önce var dizi: array of integer; diye tanımlanıyor,

sonra program içinde

setlenght(dizi,5) diye büyüklüğünü belirliyoruz

dizi[2] diye kullanılıyor.

 

bir de set ler var:

type birset = set of 1..512;

var set1, set2: birset;

set1 := [1, 3, 5, 7, 9];

set2 := [2, 4, 6, 8, 10] ;

şöyle kullanılabiliyor:

if x in set1 then .....

 

benim bildiğim diziler bunlar, aradığın başka birşeyse sor, araştırayım.

Yalnız bu konuları işleyen pek fazla kod bulacağını sanmam

dün verdiğim site hala bozuk galiba

delphitürkiye

veya

delphi kursu

sitelerine de bakabilirsin

Yoruma sekme
Diğer sitelerde paylaş

  • 4 ay sonra...

Sevgili Baharrr...

Umarım aşağıdaki şu link işini görür..

Kolaylıklar diliyorum...

 

Bağlantı adresi...

Bence bu adreste birçok soruna çözüm bulabilirsin...

Yoruma sekme
Diğer sitelerde paylaş

  • 8 ay sonra...

Katılın Görüşlerinizi Paylaşın

Şu anda misafir olarak gönderiyorsunuz. Eğer ÜYE iseniz, ileti gönderebilmek için HEMEN GİRİŞ YAPIN.
Eğer üye değilseniz hemen KAYIT OLUN.
Not: İletiniz gönderilmeden önce bir Moderatör kontrolünden geçirilecektir.

Misafir
Maalesef göndermek istediğiniz içerik izin vermediğimiz terimler içeriyor. Aşağıda belirginleştirdiğimiz terimleri lütfen tekrar düzenleyerek gönderiniz.
Bu başlığa cevap yaz

×   Zengin metin olarak yapıştırıldı..   Onun yerine sade metin olarak yapıştır

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri getirildi..   Editörü temizle

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Yeni Oluştur...

Önemli Bilgiler

Bu siteyi kullanmaya başladığınız anda kuralları kabul ediyorsunuz Kullanım Koşulu.