MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Makaleleri:


Bu Kategorinin En Çok Okunan Makaleleri:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Pascal > Makaleler

Case..Of Yapısı

Case of yapısı kullanım örnek uygulama ve anlatımı...

case of 

Kategori: Pascal
Gönderen: fingof
Tarih: 17 Şubat 2008
Okunma Sayısı: 15645
Puan: 10 / 3 Oy
Puan Ver:
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
Case of yapısı genelde menü veya kullanıcı etkileşimli şeylerde kullanılan şeylerdir böyle değilse bile ben sadece bu amaçlar için kullanıyorum...
 
Öncelikle küçük bir uygulama yapalım...
 
uses crt;
var
a,b,s:integer;
c:real;
begin
clrscr;
write('Birinci sayıyı giriniz...');  Readln(a);  //1. sayıyı istedik ve bunu a değişkenine atadık...
 
clrscr;
write('İkinci sayıyı giriniz...'); Readln(b);//2.sayıyı istedik ve bunu b değişkenine atadık...
 
clrscr;
write('Yapmak istediginiz işlem nedir [1]=toplama [2]=Çıkarma [3]=Çarpma [4]=Bölme '); Readln(s);//Aldıgımız sayıları neyapamacagımızı sorduk ve sonucu s değişkenine atadık...
 
clrscr;
case s of
'1'://s değişkeni 1e eşitse(burda küçük bir hata olabilir hata çıkarsa tırnakları kaldırın)
begin//başla
c:=a+b;//a ve b yi topla ve c değişkenine aktar
end;//bitir
 
'2'://s değişkeni 2ye eşitse(burda küçük bir hata olabilir hata çıkarsa tırnakları kaldırın)
begin//başla
c:=a-b;//a ve b yi çıkartıp ve c değişkenine aktar
end;//bitir
 
'3'://s değişkeni 3e eşitse(burda küçük bir hata olabilir hata çıkarsa tırnakları kaldırın)
begin//başla
c:=a*b;//a ve b yi çarp ve c değişkenine aktar
end;//bitir
 
'4'://s değişkeni 4e eşitse(burda küçük bir hata olabilir hata çıkarsa tırnakları kaldırın)
begin//başla
c:=a/b;//a ve b yi böl ve c değişkenine aklar
end;//bitir
end;//case of u bitir
clrscr;
write('sunuc   : ',c);//sonucumuzu yani c değişkenini ekrana yazdırdık
readln;
end.
 
 
Programı koplaya yapıştır yaptıktan sonra çalışmaz ise arkamdan sövmeyin çünkü deneme fırsatım olmadı ama çalışan ve işe yarayan birşey isterseniz kodlar kısmına case of yapısıyla ilgili bir örnek yazıcam ordan daha rahat bakarsınız çok enlenceli bir yapıdır tavsiye ederim mesela oyun yapabilirsiniz yılan oyunu gibi sola basılınca sola bir yukarı basılınca yukarı git gibi işimizi kolaylaştıran bir yapı kendinizi geliştirdikçe daha güzel şeyler yapacagınıza eminim inşallah işinize yaramıştır...
 
Her türlü soru ve sorunlarınız için mesaj atabilir veya bana e-mail adresimden ulaşabilirsiniz...

Case..Of Yapısı için yazılan yorumlar

ceno  { 09 Ocak 2012 }
sizin bu anlatımınızdan hic bi sey anlamadım :) hihihi:)

ali   { 03 Kasım 2009 }
yunus kardeş zaten delphi delphi 7 ye kadar Object Pascal adı ile tarihe geçti delphinin temeli pascaldır kodlama yapısıda yine aynıdır .. Örnk : Delphi de case of var i : integer; begin i := 1 +1; // i değeri 2 oldu .. case i of 1 : showmessage('i 1 miş'); 2 : showmessage('i 2 miş'); end; gibi ... yani kodlama aynı :) Ufak bir not düşmek istedim ..

yunus   { 22 Ekim 2009 }
Pascal en zevkli programlama dillerinden biridir bana göre sanırım 1960 lı yıllarda Birlermiş Milletler Savunma Bakanlığı desteği ile geliştirilmiş, bana göre programlama mantığının temelinin oluşturur, ama onca kod öğreniyorsun, Binlerce satır yazıyorsun, Sonra pascalı günlük programlama dilinde kullanamadığın için, Sil baştan kod öğreniyorun( C++'taki gibi , en azından Delphi ve Visual Basic, Pascal tabanına benziyor-Delphi neredeyse aynı)

Yorum ekleyin

Bu sayfaya link verin:
Anasayfa > Pascal > Makaleler > Case..Of Yapısı
Kategoriler:


Forum:



Bağlantılar:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 23.22.136.56 | 0,12 Saniye
© Copyright 2004-2017 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.