slm kardeşim logic ben programlama mezunuyum ama ben donanım işiyle uğraşıyorum ve de stajı bitirmem için bana bi yaklaşık 25 sayfa bi proje lazım biraz çok olduğumun farkındayım ama bu eğer yardım edersen minnettar kalırım ve sıkıntın olduğu yerde yardımcı olmaya çalışırım yardım etsenden etmesende saol kardeşim

bu arada kodlar lazım kardeşim bide programın menuleri

teşekkür ederim ya ben bu siteye üye olduğum için çok şanslıyım herhal normal hayatta olmayan paylaşım burda var ama bana 'pm' eger akşam sa açmana gerek yok ama akşam deilse açarmısın

nice_time arkadaşım sana uygun güzel bir proje buldum. ismi muhtarlık. bir arkadaşın muhtarlık için yapmış olduğu database ağırlıklı güzel bir program. kaynak kodları ile bende mevcut özelinede atıyorum msn adresimle beraber bana ulaş nasıl kuruluacağını vb ayarlarını söyleyim. artık kodlarıylada güzel bir rapor hazırlayıp verirsin. Kolay gelsin

dostum logic paylaşımların çok yararlı insanlara yardım etmen çok güzel, tüm wardom adına teşekkürler ve saygılar.. paylaşımlarının devamını bekliyoruz..

25 sayfa proje lazım diyorsunda kardeş nasıl bir proje? ne üzerine? sadece kod mu program mı nedir neyin nesidir kimin fesidir? açık yazarsan belki yardım edebilirim

senin için araştırma yapacağım en geç yarın bu saatlere bulduğum projeleri pm atarım. saygılar.

eywallah kardiş bölece ögrenme istegimizi kamçılıyosunD)

pm in anlamı yani

Arkadaşlar uzun uzun düşündüm ki nitekim bu karara vardım. buraya attığım komutlar procedure ler çoğu kimse tarafından anlaşılmıyor. bu kimselerde delphi ile birşeyler yapmak istiyor. bende karar verdim en başından başlıycaz. sıfırdan. hatta -1 den sorularınız istediği kadar saçma olsun. istediği kadar basit olsun. istediği kadar amatör olsun hepsini buradan yanıtlayacağım. ve süper amatörler için dökümanlar atacağım. haydi bakalım başlıyoruz..! DEĞİŞKENLER Değişken tanımlama kuralları: 1-) Değişken adları 63 karakter uzunluğunu geçmemelidir. Geçmesi halinde ise 63 karakter sonrasını bilgisayar kabul etmez. 2-) Değişken adları ya bir alfabetik harflerle yada _ karakteriyle başlamalıdır. 3-) Değişken adları semboller içermemelidir. 4-) Delphi komutları değişken adı olarak kullanılmamalıdır. 5-) Bir değiken tanımlama işlemi değişken tanımlama bloğunda yapılmalıdır. Veri Tipleri Tam Sayı Tipleri ShortInt 1 baytlık tamsayı tipidir. -128 ile +127 arasında değer alabilir. SmallInt 2 baytlık işaretli tamsayı veri tipidir. -32768 ile +32767 arasında değer alabilir. LongInt 4 baytlık işaretli tamsayı tipidir. -2147483647 ile +2147483647 arsında değer alabilir. Integer Bu tip de LonhInt gibidir. 4 baytlık işaretli tamsayı tipidr. -2147483647 ile +2147483647 arasında değer alabilir. Byte 1 baytlık işaretsiz tamsayı tipidir. 0 ile 255 arasında değer alabilir. Word 2 baytlık işaretsiz tamsayı tipidir. 0 ile 65535 arasında değer alabilir. Cardinal 4 baytlık işaretsiz tamsayı tipi. 0 ile 2147483647 arasında değer alabilir. Int64 Delphi 4 versiyonundan sonrakilerde geçerli olan bir veri tipidir. -9 1018 ile 9 1018 alabillmektedir. LongWord 0 ile 4294967295 arası değerler alabilmektedir. Variant 16 baytlık bir değişken tipidir. Bu tipteki bir değişkene hem sayısal hem de string ifadeler aktarılabilir. Var X:variant;Begin X:=1233; X:= Delphi6 ;End; Reel Sayı Tipleri Single 4 baytlık ondalık sayı tipdir. 1.5 10-45 ile 3.4 1038 arasında değer alabilir.(7-8 haneli rakamlar yani: y. yyyyyy 10m ) Real48 6 baytlık ondalık sayı tipidir. 2.9 10-39 ile 1.7 1038 arasında değer alabilir. 11-12 haneli rakamlar. Currency 8 baytlık -922337203685477.5808 ile +922337203685477.5807 aralığında işaretli bir sayı tipidir. Bu tip para içeren değişkenler için düşünülmüştür. Boolean Tipi Boolean True ve False değerlerinden birini içerir. Hafıza da 1 Bayt yer kaplar. Karakter Tipleri Char 1 baytlık veri tipidir. Bu tip değişkenler sadece bir karakter barındırabilir. Örneğin 2, A AnsiChar Char tipi ile aynıdır. String Tipleri ShortString 0-255 karaktere kadar değer atanabilir. AnsiString Bu tipe 2GB a kadar string ataması yapılabilir. String AnsiString tipi ile aynıdır. String değişkenlere değer ataması yaparken metin tek tırnak işaretleri arasına yazılmalıdır. Var Ad:string;Begin Ad:= irfan ;End; Sabitler Sabitler değişmeyen değerler içerirler. Sabit tanımlama işlemi Const bloğunda yapılmalıdır. Const Okul= Burdur MYO ; MaxPuan= 100 ; Bölüm= Bilgisayar ; OPERATÖRLER Matematiksel Operatörler Op. Açıklama Örnek + Toplama a:=b+c; - Çıkarma a:=b-c; Çarpma a:=b c; / Bölme a:=b/5; Div Tam Sayı Bölme a:=b div 5 Atama Operatörü := Atama A:=20;b:=30; Karşılaştırma Operatörleri = Eşittir If (a=99) then showmessage( a eşit 99 ) <> Eşit değilse If (a<>99) then showmessage( a farklı 99 ) < Küçüktür If (a=99) then showmessage( a küçük 99 ) > Büyüktür If (a=99) then showmessage( a büyük 99 ) >= Büyük eşittir If (a=99) then showmessage( a büyükeşit 99 ) <= Küçük eşittir If (a=99) then showmessage( a küçükeşit 99 ) Mantıksal Operatörler And Mantıksal AND If (a>=5) and (a<10) then ShowMessage ; Or Mantıksal OR If (a>=5) OR (a<10) then ShowMessage ; Not Mantıksal Not If not(a>5) then ShowMessage( a 25 den büyük değil ); Diğer Operatörler ^ Pointer operatörü a=b c^; @ Pointer adresi a:=@b; $ Heksadecimal op. a:=$FF; Dizi operatörü a:Array of string;a := irfan ; . Nokta op. Personel. ADI:= Mehmet ; KARAR VE DÖNGÜ DEYİMLERİ Karar Yapıları If Yapısı Kullanım Şekli If şart Then Komutlar;Else Komutlar; Bazı şartların gerçekleşmesi veya gerçekleşmemesi durumunda ayrı-ayrı kodların çalışmasına imkan verir. Şartın gerçekleşmesi durumunda Then deyiminden sonraki satır işletilir. Gerçekleşmemesi durumunda ise Else deyiminden sonraki satırlar işletilebilir. Şartın gerçekleşmemesi durumunda çalışacak Else bloğu istenirse verilmeyebilir. Örnek: Sınav Notunu soracak ve 50 den büyükse geçtiniz, değilse kaldınız yazacak program: Procedure TForm1. FormCreate ;Var n:integer;begin n:=strtoint(Iputbox( Not Girişi, Sınav Notunuz, 50 )); if n>=50 then showmessage Else Showmessage ;End; Case Yapısı Bier değişkeni aldığı bir çok değişkene göre ayrı komutların çalıştırılması gereken durumlar için If yapısını kullanmak yerine Case yapısını kullanmak daha avantajlıdır. Kullanım Şekli: Case Değişken of Durum1:Komutlar; Durum2, Durum3:Komutlar; Durum4.. Durum7:Komutlar; Durum N:Komutlar; Else Komutlar;End; Case yapısında String bir tipte değişken olamaz. Değişken değeri sayı olmak zorundadır. Döngü Deyimleri Belirli bir komut parçasının belli şartlar gerçekleşinceye kadar defalarca çalışması gerekebilir. Çalışma sayısının belli olduğu durumlarda For döngüsü diğer durumlarda yani döngü sayısının değişken olduğu durumlarda ise Repeat-Until, While-Do blokları kullanılır. For Döngüsü For sayaç:=BaşlangıçDeğeri to BitişDeğeri doBegin Komutlar;End; Yukarıda sayaç değişkeni tamsayıya çevrilebilen tipte bir değişken olması gerekir. · For döngüsü Sayaç ın BaşlangıçDeğerin nden başlayarak BitişDeğeri ne kadar sayacı birer artırarak blok içindeki komutları çalıştırır. · BaşlangıçDeğeri, BitişDeğeri nden büyükse döngüye hiç girilmeyecektir. · Döngü içerisinde birden fazla satır işletilecekse begin-end bloğu kullanılmalıdır. · Sayaç ın artarak değil azalarak çalışması için to yerine downto deyimi kullanılır. For sayaç:=BaşlangıçDeğeri downto BitişDeğeri doBegin Komutlar;End; Örnek: 20 kişinin ismini sormamız gerektiğinde Delphi de nasıl işlemler yapabiliriz? Var Ad:array of string; Begin Ad :=inputbox( Ad Girişi, 1. kişinin adı, ); Ad :=inputbox( Ad Girişi, 2. kişinin adı, ); Ad :=inputbox( Ad Girişi, 3. kişinin adı, ); . End; Yukarıda görüldüğü gibi 20 satırlık kod yazmak yerine 1 den 20 e kadar bir döngü kurup aynı işi daha kolay yapılabilir. Var Ad:array of string; i:integer; Begin For i:=1 to 20 do Ad:=inputbox( Ad girişi, InttoStr + . kişinin adı, ); End; For döngüsünün altında birden fazla satır olmuş olsaydı Begin-end bloğu kullanmamız gerekirdi. For Döngüsünde sayaç değişkeni birer artıp /azalarak değişir. Artımın daha büyük aralıklarla yapılması için artırma işlemi blok içerisinde Sayaç değişkeninin değeri artırılarak yapılamaz. Bu gibi durumlarda While-Do döngüsünün kullanılması gerekir. While-Do Döngüsü Bir şart gerçekleştiği sürece çalışması gereken program bloklarında kullanılır. Kullanım Şekli: While Şart DoBegin Komutlar;End; Şart gerçekleştiği sürece döngü çalışmaya devam eder. For döngüsünün getirdiği bazı kısıtlamalar vardır. Sayaç değişkenimiz tamsayı olmak zorunda ve birer artıp/azalmak zorunda idi. Bu sınırlamaları aşmak için While-do döngüsünü For döngüsüne uyarlayabiliriz. Sayaç:=Başlangıç;While sayaç<=BitişDeğeri doBegin Komutlar; Sayaç:=sayaç+1;End; artımı birden fazla yapmak içinde sayaç:=sayaç+1; yerine sayaç:=sayaç+art; kullanılabilir. Repeat-Until Döngüsü Bu döngü yapısı da şart gerçekleşene kadar çalışması gereken program bloklarında kullanılır. Kullanım Şekli: Repeat Komutlar;Until Şart; While-Do döngüsünden farklı olarak döngüye girerken değil çıkarken şart kontrol edilir. Böylece Repeat-Until döngüsü içindeki kodlar en az bir kez çalışır. Örnek: Sınav notunu sorduğumuzu düşünelim. Gireceği not 0-100 aralığı dışında ise; notu bu aralıkta girinceye kadar tekrar-tekrar sorulması gerekir. Bu iş için Repeat-Until yapısı uygundur. Çünkü döngü içerisinde not sorulduktan sonra not 0-100 aralığı dışında ise tekrar sorulması gerekir. Var Nott:integer;//not değil çünkü not delphiye özel bir deyimBeginRepeat Nott:=strtoint(inputbox( Not Girişi, Sınav Notunuz, 50 ));Until (nott>0) and (nott<100);End; -

ewet şanslısın hem bu sitedeki yardımlaşma hem de bilgi açısından çok şanslısın hem logiç ii bi hocadır. ama flood yaparsan 3 gün üzülürsün. Bkz. İmzam

abi farkt etmez dershane takip olur öğrenci takip olur database olsun vede girilen bilgileri tekrar çağırayım bana yeter ilgilendiğin için saol