iyinet webmaster forumu 2008 seo yarışması

Balık Tutmayı Öğreniyorum - Pascal Arama Prosedürü

Merhabalar, bugün 17 Mayıs 2008 cumartesi. Bugün o kadar sevinçliyim ki bundan biraz sizlere bahsetmek istiyorum. Daha önceden dediğim gibi proje ödevi verilmiş ve pascalda yazmaya başladığım ödevin %90ınını bitirdim ve sorunsuz çalışıyor. Bu benim yazdığım ilk büyük program. Gerçi daha başlangıç için gözümde büyük ama bugün balık tutma konusunda attığım ilk büyük adım. Yaşasın balık tutmayı öğreniyorum.

Bir önceki yazımda veri girişini yaptığım prosedürü paylaşmıştım. Bugün ise arama prosedürümü paylaşacağım :

Bu prosedürün yaptığını adım adım açıklayayım. Öncelikle veritabanını açıyoruz, sonra içerisinde kayıtlı bir bilgi olup olmadığına bakıyor ve eğer yoksa ekrana "Kayıtlı Bilgi Yok" yazıyor. Kayıtlı bir bilgi varsa ekrana "Aradığınız Ürün İsmi :" yazısı çıkıyor ve bir ürün ismi giriyorsunuz. Girilen bilgiyi ara değişkenine alıyor ve veritabanımızı bu bilgi doğrultusunda isim alanında araştırıyor. Sonra bulursa ekrana ürün ve kodunu gösteriyor ve "Aradığınız Ürün Bu Mu? [E/H]" sorusunu soruyor. E'ye basarsanız ana menüye dönüyor, H'ye basarsanız aynı ürün adına sahip farklı kodu olan bir sonraki ürün bilgilerini gösterip soruyu tekrar soruyor. Eğer ürün yoksa ekrana "Aradığınız Ürüne Ait Bir Kayıt Bulunamadı!' yazısını ekranda gösteriyor.

Mantıkta basit ama yeniler için yazması biraz zor :) Bilen kişiler bu yazıyı okuyup gülümsüyorsa ne mutlu :) (Tabii iyi anlamda gülümsüyorlarsa :d ) Bugün ilk ufak balığımı tuttum.

Bir diğer sevinçli haberi ise okulda almıştım. Matematik2 vizesinden 50 bekliyordum 70 almışım :) Derken tüm vizelerimiz açıklandı. Ben görmemişlik yapıp notlarımı sizlerle de paylaşmak istiyorum. Ne de olsa yabancı yok aramızda :

İngilizce : 87, Matematik : 70, Veri Tabanı Yönetim Sistemleri : 70, Pascal Programlama : 100 (Okulda sadece 2 kişi 100 aldı :) ), Grafik Ve Animasyon : 71, İnkilap Tarihi : 65, Türk Dili : 79 (Sanırım ek puanla 84 veya 89 olacak), Donanım : 76.

Okul genelinde aslında notlarım düşük değil ama daha iyi notlar alabilirdim. Neyse artık önümüzdeki maçlara bakacağız. Bu arada bugün iyinet webmaster forumu 2008 seo yarışması sıralamasında 4üncü sırada yer almaktayım. Keşke dün 4üncü olsaydım da, puanlama yapılırken 4üncülük puanını alabilseydim. Kısmet değilmiş der bugünün yazısını da burada noktalarım. Cümleten hayırlı gün dileklerimle...

08 Ekim 2008 Çarşamba 8:42 AM

Sayfa 0.001 saniye oluşturuldu.