Benim de heyecanla beklediğim Microsoft'un antivirüs yazılımı sonunda geldi. Şimdiden de bütün testlerden başarıyla geçti. İşletim sistemlerini en iyi tanıyan firma tartışmasız Microsoft. Bunun için de bu testlerden başarıyla geçmesi de bilişim dünyasını çok şaşırtmadı. Bu arada yazılımın adı Microsoft Security Essentials. Bu yazılım tamamen ücretsiz dağıtılıyor.

Ayrıntılı bilgi İçin http://www.microsoft.com/security/products/mse.aspx adresini incelemenizi tavsiye ederim.

Uzun süredir merakla beklediğim Visual Studio 2010 çıktı. Fakat daha kullanmak nasip olmadı. Daron Yöndem'in bir seminerinde söylediğine göre tamamı WPF ile yazıldı. Heyecanlanmamak elde değil. Kim bilir ne componentler vardır :) Tabi unutmamak lazım .NET Framework 4.0 beta da bu ürünle beraber duyuruldu. Geçenlerde dreamspark'ı ziyaret edeyim dedim. Oraya da eklemişler beta sürümünü. İndirmek isteyen arkadaşlara duyurulur. Hepinizin bildiği gibi Eskişehir Osmangazi Üniversitesi Dreamspark üyesi. Yani isteyen öğrenci nosu ve şifresiyle dreamspark a girip ürünü download edebilir.

Buradan,

http://dreamspark.ogu.edu.tr

veya;

http://www.microsoft.com/visualstudio/en-us/try/default.mspx

buradan download edebilirsiniz. Önemli projeler geliştirmeniz dileğiyle...

  Alıntıdır : AKINSOFT olarak, başta KOBİ'lerimiz olmak üzere, ticarette bilgi teknolojilerinin kullanımının yaygınlaşmasına katkıda bulunmak amacıyla, 2008 ve 2009 Yıllarında yeni işletme açarak vergi mükellefi olan firmalara WOLVOX Kobilere Destek Kampanyası dahilinde WOLVOX ERP E-Business Programına %30 indirim uygulanacaktır...

Kampanya Detayları İçin Tıklayın!

Aslında çok şeydir, Türk olmak.

Türk olmak, Osmanlı'nın borcunu ödemektir. Hovarda babanın borçla yaşayan evladı gibi.

Kosova'da ve Bosna'da, Batı Trakya'da ve Makedonya'da bilmem kaç asır geçmişte kalan meselelerin hesabını vermektir.

Türk olmak Kıbrıs'ta, Hocalı'da, Anadolu'da ve Balkanlar'da soykırıma uğrayıp karşılığında yapmadığın soykırımla suçlanmaktır.

Türk olmak faşist olmaktır, vatanına, milletine, tarihine sahip çıktığında…

Türk olmak demokrat ve çağdaş olmaktır, vatanına, milletine, tarihine sövdüğünde…

Türk olmak lisanının Avrupa'da yasaklanmasıdır ve yine Türk olmak kendini ve derdini anlatamamaktır.

Avrupa'da hor görülmek Türk olmaktır, ataların bir çok asır önce Viyana'yı kuşattığı için ve hoş görülmemektir tabii ki sadece kuşatıp; Napolyon gibi bütün Viyana'yı yakmadığın için.

Türk olmak Selanik'te Pontus Anıtı'nın, Viyana'da çiğnenen yeniçeri minberinin ve Malta'da papazın üzerine bastığı Türk bayrağı heykelinin önünden geçmektir.

Türk olmak zordur, çetindir ve eziyetlidir. Üç kıtadan dönüp, bir küçük yarımadada misafir muamelesi görmektir. Sayısız imparatorluk kurmak Türk olmaktır, aynı zamanda sayısız imparatorluk yıkmak da Türk olmaktır.

Arabaya koşulan ilk atın vatanında, ilk yazılı antlaşmanın imzalandığı yurtta, yazının bulunduğu, paranın icat edildiği her metrekaresinden bereket fışkıran bu yurtta, kalkınmak için yabancı sermaye beklemektir.

Türk olmak; Truva'dan bu yana, Sümer'den bu yana serpilerek gelse de, tarihten eski bu topraklarda, bütün zamandan damıtılarak gelen yüksek değerlerine rağmen, bir haftalık hafıza ile yaşamaktır.

Doğu Roma'yı da Batı Roma'yı da yıkıp, yeni Roma olan AB'ye girmeye çalışmaktır Türk olmak.

Türk olmak, Mostar'da köprüdür, Kerkük'te kaledir, İstanbul'da Kızkulesi'dir, Anadolu'da buğdaydır, Çukurova'da pamuktur, Güneydoğu'da tütün, Ege'de üzüm, Karadeniz'de fındık, Trakya'da ayçiçeğidir.

Türk olmak Çanakkale'de ölmektir. Çanakkale'de ölmeden önce düşmana su vermektir, onun yaralısını sırtında kendi hastanesine taşımaktır.

Düşmanın ardından rahmet okumak, kanlısından helallik almaktır.

Sabahları odana rahmet dolsun diye, camı açmaktır. Kar yağdığında kayak yapmayı değil, evsizleri düşünmektir. Balkon köşesine kuşlar için, kışın ekmek kırıntısı, yazın su koymaktır. Yağmura rahmet, Kara bereket diye bakmaktır.

Türk olmak, harap bir ülkede, zengin ülkelerin müstemlekesini reddedip, tahtadan kılıç ve ipten üzengi ile, paylaşacak ve sahiplenecek tek varlığı fakirlik olmasına rağmen, yedi düvele meydan okumaktır.

Türk olmak askere davul-zurna ile uğurlanmaktır, belki de dönmeyeceğini bilerek. Türk olmak, annenin şehit oğlunun ardından 'Bir oğlum daha olsun, onu da vatan için göndereceğim.' demesidir. Babanın gözyaşlarını tutarak, tabutuna son kez dokunurken 'Vatan sağ olsun!' demesidir.

Türk olmak 'Türk çayında radyasyon olmaz!' yalanları ile, 'Gusül abdesti alana AIDS bulaşmaz!' dolanları ile yaşamaktır.

Her hükümetin enkaz devraldığı, ama asla ardında enkaz bırakmadığı ülkede olmaktır.

Türk olmak, ecdadın yaşadığı kıtlıktan dolayı, çayın yanında gelen şekerden fazla olanı garsona geri vermektir. Aynı nedenle Türk olmak, yemeği ziyan etmekten korkmaktır. Göz hakkına, diş kirasına saygıdır.

Türk olmak. Evindeki bir kap aşın yarısını tanrı misafirine vermektir. Kendi yerde, misafiri döşekte yatırmaktır Türk olmak.

Türk olmak, milli maçta ağlamaktır. Ayhan Işık'a, Belgin Doruk'a aşık olmaktır. Türk olmak, aşkını ölesiye sevmektir. Aşkı için ölmektir, öldürmektir. Sevdiceğinin elini bir kez tutamadan, toprağa girmektir.

En güzel aşk şiirlerini yüreğinde hissetmektir. Eşkiyaya türkü yakmaktır, Türk olmak.

Milletine sövmektir, ama başkasına sövdürmemektir, Türk olmak.

Türk olmak Yunus'u bilmektir, Aşık Veysel'i sevmektir. Mevlana'yı, Hacı Bektaş-ı Veli'yi ve Hoca Yesevî'yi tek bir satırını okumasa da yüreğinde taşımaktır.

Türk olmak, saz çaldığında, ney üflendiğinde, kös dövül düğünde ve kaval çaldığında, yüreğinin derinlerinde bir sızı sezmektir, bir de Yemen Türküsü'nde...

Hayatın sana verdiklerine 'Nasip', vermediklerine 'Kısmet' demektir. Her işin 'Hayırlısına' inanmaktır ve ağlamamak için çok gülmekten çekinmektir.

Türk olmak, Asya'da batılı, Avrupa'da doğulu diye tepki görmektir.

Irk sözünü bilmeden yaşamak, yaradılanı Yaradandan ötürü sevmektir.

Magazin programları ile dizilerin arasına sıkışsa da, silkinip üzerindeki ölü toprağını atabilmektir.

Türk olmak, mahalle maçı için aynı saatte, on kişi buluşamazken, milyon kişinin bir araya gelmesidir.

Tavla oynarken bile kavga ederken, milyon kişinin kavga etmeden gösteri yapabilmesidir.

Türk olmak, buhran zamanında Arjantin'de de mağazalar yağmalanırken, daha ağır buhranda sıraya girerek, sorumlusuna en ağır cezayı tek bir cam kırmadan sandıkta kesmektir.

Türk olmak en zayıf gününde bile dünyaya meydan okumak, en dertli gününde bile her ufunetin bir şafakta biteceğini bilerek tevekkül göstermektir.

Zor iştir Türk olmak. Türk olmak Anadolu'da her düşen yağmur damlasına hamdetmek, her çıkan başak için şükretmektir.

Türk olmak, medeniyetler mezarlığı Anadolu'da dik durabilmektir ve büyük önder Atatürk'ün kurduğu Cumhuriyeti ilelebet payidâr kılıp

"Ne Mutlu ki Türküm" diyebilmektir...

Haziran ayı ile beraber yaz dönemi geldi. Tatile gidemeyenler olarak :) gelin bu dönemi yenilenme/gelişme dönemi olarak değerlendirelim :) Bu ayı "Silverlight Öğrenme Ayı" ilan ediyorum ;) ve 12 Seminerden oluşan Silverlight WebCast serimi duyuruyorum!

Microsoft İstanbul Ofisi'nde yapılan basın toplantısında, dünyayla aynı anda Türkiye'de de sunulan Microsoft'un yeni web tarayıcısı Microsoft Internet Explorer 8'in özellikleri anlatıldı.

İNDİRMEK İÇİN TIKLAYIN...

Microsoft Orta Doğu ve Afrika Yazılım Geliştirme ve Platformlardan Sorumlu Bölge Direktörü Naseem Tuffaha, yeni tarayıcının, internet kullanıcısının güvenlik ihtiyaçlarına, kullanımın daha hızlı ve kolay olmasına odaklandığını belirterek, ''Internet Explorer 8, Internet Explorer 7.0'den 10 kat, Firefox'dan 2 kat daha güvenli. 7.0 versiyonu da kötü bir ürün değildi, Internet Explorer 8'i, onun altyapısı üzerinden oluşturduk'' diye konuştu.

Tuffaha, günümüzde Internet Explorer'ı kullanan 800 milyondan fazla kişi olduğunu hatırlatarak, kullanıcıların genelde aynı web sitelerini ziyaret ettiklerini ya da özel ihtiyaçları için arama yaptıklarını ve Microsoft olarak bu amaca uygun bir ürün geliştirdiklerini ifade etti.

Türkiye pazarına çok önem verdiklerini vurgulayan Tuffaha, bu doğrultuda ürünün Türkçe versiyonunu da dünyayla aynı zamanda kullanıcılara sunduklarını bildirdi.

Tuffaha, bu uygulamaya çok büyük yatırımlar yaptıklarını belirterek, şöyle devam etti:

''Düşük pazar payına sahip şirketler yapılmış uygulamalara benzer ürünler üretiyorlar. Fakat büyük pazar payına sahip şirketler özel tasarımlar yaratıyorlar. Bizde ürettiğimiz bu özel tasarımın Türkiye pazarı için ne iyi ürün olduğunu düşünüyoruz. Endüstri için en iyi olanakları sunduğumuzu görüyoruz. HTML5 standardını da destekleyen Internet Explorer 8, kullanıcılarımıza özellikle hız, kolaylık ve güvenilirlik alanlarında diğer web tarayıcılarının sunamayacağı avantajlar getirecek.''

Tuffaha, yeni tarayıcının, hızlandırıcılar (Accelerators), web dilimleri (Web Slices) ve görsel arama önerileri (Visual Search Suggestions) gibi özelliklerinin olduğunu dile getirerek, bunlar sayesinde kullanıcıların zamandan kazanarak bilgiye daha organize bir şekilde ulaşabilmelerini sağladığını sözlerine ekledi.

Microsoft Türkiye Windows Tüketici İş Grubu Yöneticisi Alper Mestçi de, bugüne kadar internette asılsız çıkan ''Kontör dağıtma'' haberlerini, Microsoft Internet Explorer 8 ile gerçekleştirdiklerinin altını çizerek, 23 Mart'tan itibaren başlatacakları ''Hediye Avı'' kampanyası ile Turkcell kontör dağıtacaklarını duyurdu.

Mestçi, kullanıcıların, web dilimlerine yazılan kodları ''www.internetexplorer8kazandiriyor.com'' internet sitesindeki ilgili logonun karşısına yazarak kampanyaya katılabileceklerini belirtti.

-RUTİN İŞLEMLER ATLANIYOR- 

Microsoft Türkiye Windows Kurumsal İş Grubu Yöneticisi Nuri Çankaya ise yeni tarayıcının özellikleri hakkında bilgi vererek, Internet Explorer 8'in hızlandırıcılar uygulamasının rutin işlemleri atlamayı sağladığını ve bireylerin gezdikleri herhangi bir web sayfası üzerinden bir sözcüğe veya resme yaptıkları sağ tıklama hareketiyle istedikleri haritaya, e-posta adresine veya paylaşım bağlantısına anında ulaşabildiklerini belirtti.

Çankaya, tarayıcının diğer özelliklerini şöyle anlattı:

''Internet Explorer 8, web dilimleri ile kullanıcıların favori web sitelerinde düzenli olarak kullandıkları bilgileri, kullanıcıların hizmetine sunuyor. Aynı zamanda, görsel malzemeler dahil her türlü formatta bilgi araştırmanızı sağlarken oluşturulan 'sık kullanılanlar' ve 'göz atma geçmişi' üzerinden de hızlı bir bilgi taraması gerçekleştirebiliyor. Internet Explorer 8, ziyaret edilen web siteleri kayıtlarına, ön bellek alanına hiçbir kayıt düşmeden ve geride hiçbir iz kalmadan internet deneyimini sağlıyor.

İnternetteki teknoloji ve endüstri standartlarına uyumlu geliştirilen Microsoft Internet Explorer 8, internet sayfalarındaki görünümleri belirleyen stilleri otomatikleştiren CSS'i (Cascade Style Sheets), yeni sürümü CSS 2'yi, aynı zamanda Dünya Web Konsorsiyumu'nun (W3C) geliştirdiği HTML5 standardını da destekleyen ilk web tarayıcısı olma özelliğini taşıyor.''

Türkçe dahil 25 ayrı dilde aynı anda kullanıma sunulan Internet Explorer 8'in, ''www.microsoft.com/ie8'' adresinden indirilebildiği de verilen bilgiler arasında yer aldı.

 AA

Geçen hafta duyurmuş olduğum INETA Eskişehir HIT dün itibariyle tamamlandı. Gerçekten çok güzel bir seminer oldu. Daron Yöndem'in katılımcıları sıkmayan o neşeli anlatışı takdire şayandı. Silverlight 2.0, WPF, Ajax, XNA ile Oyun Programlama, LINQ gibi teknolojiler hakkında güncel uygulamalar yapıldı, bilgiler verildi.

Değerli ağabeyim Selim ÖZENÇ' e de bu seminer ile ilgili yardımlarını benden esirgemediği için  ve beni bu konuda bilgilendirdiği için teşekkür ediyorum.

INETA'nın Eskişehir etkinliği bu hafta sonu (7-8 Mart) Eskişehir Osmangazi Üniveristesi'nde. Sevgili ağabeyim Selim ÖZENÇ'in iki hafta önce bana bildirdiği bu etkinliği bugün kesinlik kazanmasıyla sizlere duyurmak istedim.

Seminerde Kimler Var?

Tabiki bu etkinliklerin vazgeçilmez isimleri;

• Daron Yöndem
• Uğur Umutoğlu
• Gürcan Serbest

Seminer iki bölümden oluşuyor.

1. Gün

• 10.00 - 12.00 Silverlight 2.0
• 13.00 - 15.00 XNA İle Oyun Programlama
• 15.30 - 17.30 Ajax 4.0

 2. Gün

• 10.00 - 12.00 WPF
• 13.00 - 14.30 LINQ
• 15.00 - 17.00 ASP.NET 3.5 Yenilikleri

 Gerçekten geleceğinizdeki planlarınıza yön verecek ve sizlere büyük faydası olacak bi seminer.

Çok güzel olacak çok :):)

Ve İnsan Programının 'O' An bölümünde yayınlanan birkaç beğendiğim fotograf karesini sizlerle paylaşmak istedim. Gerçekten vaktiniz oldukça izlemenizi tavsiye ettiğim bir program. Umarım beğenirsiniz...

Bugün etrafı toplarken kitaplarım gözüme çarptı. Kitap almak isteyen fakat kararsız kalan arkadaşlarıma da bir tavsiyede bulunayım dedim ve sizlerle paylaşmak istedim.

Gerçekten bu kaynakların çok faydasını gördüm. Kitap almak isteyen arkadaşlara tavsiye ederim. Kitap reklamı yapar gibi oldu ama idare edin işte :):)

Geçtiğimiz günlerde çıkışına az bir zaman kaldığı duyurulan Internet Explorer 8'in birinci sürüm adayı indirmeye sunuldu. Internet Explorer'ın resmi sitesinden de edinebileceğiniz IE RC1 sürümünü aşağıdaki linkleri kullanarak indirebilirsiniz.

:: Windows XP için Internet Explorer 8 RC1'i indirin

:: Windows Vista için Internet Explorer 8 RC1'i indirin.

:: Windows Vista 64 bit için Internet Explorer 8 RC1'i indirin (ingilizce).

:: Windows XP 64 bit için Internet Explorer 8 RC1'i indirin (ingilizce).

Gençsen Geleceksin 2.0 26 Aralık 2008 Cuma Günü ESOGÜ'de!!!

Peki Nedir Bu Gençsen Geleceksin 2.0??

Geçtiğimiz akademik yıl ilkini gerçekleştirdiğimiz ve yoğun ilgi gören Gençsen Geleceksin bu yıl hedefini daha da büyüterek "Gençsen Geleceksin 2.0" adıyla yeniden başlıyor. Gençler ve teknoloji severlerin geleceğin teknolojilerine vizyonel bir bakış açısı ile bakmalarını sağlamayı amaçlayan yarım gün sürecek etkinlikler içerisinde mobil teknolojilerden, internetin geleceğine kadar geniş bir yelpazedeki içerik, konusunda uzman konuşmacılar tarafından gerçekleştirilecek. 50 farklı etkinlik siz teknolojistleri bekliyor...

“Neden Gelmeliyim?” diyorsan…

Gelecek fırsatlarla dolu ve bu fırsatlar için fikirler etkinliklerde seni bekliyor olacak. “Web 2.0 konusunda Türkiye’de ne gibi projeler yapılabilir? Web 3.0 neler getirecek? Mobil teknolojilerin geleceğindeki değişim seni ve çevreni nasıl etkileyecek? Bilgisayar Oyunları hayatımızın ve iş dünyasının bir parçası oluyor? Peki bilgisayar oyunları senin geleceğini nasıl değiştirebilir? IPTV ne gibi fırsatlar yaratacak? Facebook’un hayatımızı sarmaya başladığı günümüzde gelecek iletişim ve sosyal ağ fırsatları neler olacak?  Surface teknolojiyle neler yapılabilir ve Surface uygulamaları senin hayatını nasıl değiştirir? Tasarım dünyasındaki değişim hangi yeni araçları beraberinde getiriyor?” gibi soruların hepsinin yanıtı bu etkinlikte, bu etkinlik GELECEK nedir sorunuza cevaplar veriyor…

Unutmadan, her etkinlikte değerlendirme formunu dolduran katılımcılardan birisi “Turkcell PDA” kazanıyor. Neden şanslı kişi teknolojist sen olmayasın?

Etkinlik İçeriği nedir?

1. Bölüm: Yakın Geleceğin Yazılım Teknolojilerine Bakış

·         Yazılım + Servisler Vizyonu

·         Geleceğin Internet Yaklaşımları

·         Online Medya, IPTV ve Gelecek

·         İnsan-Bilgisayar Etkileşimi

·         Oyun Geliştirme ve Fırsatlar

·         Açık Kaynak Yazılım Geliştirme

·         Mobil Uygulama Geliştirmek

2. Bölüm: Yakın Geleceğin Mobil Teknolojilerine Bakış

·         İletişim Pazarı ve Gelecek

·         Mobil Gelecek ve Yaklaşımlar

·         Mobil İmza ve Mobil TV

·         Wimax ve Gelecek

·         3G ve Türkiye’de Yaratacağı Fırsatlar

·         Mobil Cihazların Geleceği

·         Mobil Uygulama Pazarı

Delphi Programlama I dersinde haftalık proje olarak verilen küçük bir uygulama. Diğer arkadaşlarımın da projeyi yaparken yararlanmasını istediğimden burada paylaşmak istedim. Umarım faydalı olur. :) Uygulamaya Geçelim...

İlk olarak aşağıda görünen nesneleri forma ekleyelim...

Kısaca nesneleri sayacak olursak bir adet Timer, bir adet Kronometre için Label, iki adet Radiobutton, bir adet edit, bir adet Checkbox, iki adet Listbox, bir adet Trackbar ve iki adet Buton ekliyoruz. Groupbox ve diğer Label nesneleri görsellik açısından ekledim. bunları isterseniz ekleyebilirsiniz..

unit Unit1;

interface

{Kullandığımız kütüphaneleri "uses" başlığı altına ekliyoruz. Bunlar standart delphi kütüphaneleri ayrıca bi eklenti yok. }

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

{Form üzerinde bulunan nesnelerimiz aşağıda "type" başlığı altında tanımlanmıştır.} 

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Button2: TButton;
    ListBox1: TListBox;
    TrackBar1: TTrackBar;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ListBox2: TListBox;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure GroupBox1Click(Sender: TObject);
   // procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{Değiken tanımlamaları. "sayi" ve "durdur" değişkenlerini tanımlayalım. "durdur" değişkeni boolean tipte olması gerekir. Çünkü iki farklı durum için kullanacağız.}

var
  Form1: TForm1;
  sayi: longint;
  durdur : boolean = false;

implementation

{$R *.dfm}

// Geri dönüş değeri olduğu için basit bir fonksiyon tanımlayalım.

Function sayac(x : String) : String;

var

a:Integer;

begin

result := x;

{for a := 1 downto Length(x) Do

Result :='0'+Result;   }

end;

// İlk butonumuz duruma göre değişecek. "Başla" "Durdur" ve "Devam Et" gibi..
procedure TForm1.Button1Click(Sender: TObject);
begin

 if durdur = false then

begin

Button1.Caption := 'Durdur' ;

timer1.Enabled := true ;

durdur := true ;

end else

begin

Button1.Caption := 'Devam et' ;

timer1.Enabled := true ;

durdur := false ;

// Her durdurduğumuzda sayı çift veya tekse ayrı listelere atacak..

if strtoint(label1.Caption) mod 2=0 then begin

listbox1.Items.Add(label1.Caption);

end else
begin
listbox2.Items.Add(label1.Caption);
end;

end ;

end;

{ Kronometremizin saydırma işlemini Timer nesnesi ile yapacağız.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if durdur then

begin

if radiobutton1.Checked=true then begin
 sayi:=sayi+strtoint(edit1.Text); // Fonksiyondan dönen sayıyı edit'in içine girdiğimiz değer kadar artırmak için..
end else
begin
 inc(sayi) ; // Fonkiyondan dönen sayıyı her defasında 1 artırmak için.. bunun yerine "sayi:=sayi+1;" de kullanabiliriz..
end;
Label1.Caption := sayac(inttostr(sayi)) ;

if sayi = 1000000 then //sayımız 1000000 kadar gitsin..
 sayi:=00;
end;
end;

//Bitir butonu.. Burada yapılan işlemler basit. Sadece formu ilk haline getirir..

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
sayi:=00;
label1.Caption:='00';
button1.Caption:='Başla';
durdur:=false;
edit1.Text:='';
radiobutton1.Checked:=false;
listbox1.Items.Clear;
trackbar1.Position:=0;
radiobutton2.Checked:=false;
listbox2.Items.Clear;
end;

{Trackbar nesnesini Kronometremizin hızı için kullanacağız.. trackbarın pozisyonuna göre Timer nesnesinin Interval olayını değiştiriyoruz.}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 if trackbar1.Position=1 then begin
   timer1.Interval:=1000;
   end;
 if trackbar1.Position=2 then begin
   timer1.Interval:=875;
   end;
    if trackbar1.Position=3 then begin
   timer1.Interval:=750;
   end;
    if trackbar1.Position=4 then begin
   timer1.Interval:=625;
   end;
    if trackbar1.Position=5 then begin
   timer1.Interval:=500;
   end;
    if trackbar1.Position=6 then begin
   timer1.Interval:=375;
   end;
    if trackbar1.Position=7 then begin
   timer1.Interval:=250;
   end;
    if trackbar1.Position=8 then begin
   timer1.Interval:=125;
   end;
    if trackbar1.Position=9 then begin
   timer1.Interval:=50;
   end;
    if trackbar1.Position=10 then begin
   timer1.Interval:=20;
   end;
end;

// Buradan sonraki işlemlerin herhangi bir bağlayıcılığı yok. Yapmasanız da çalışacaktır.

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

if checkbox1.Checked=false then
begin
groupbox1.Enabled:=false;
checkbox1.Caption:='Artırma İşlemlerini Başlat';
radiobutton1.Checked:=false;
radiobutton2.Checked:=true;
end else
begin
groupbox1.Enabled:=true;
checkbox1.Caption:='Artırma İşlemlerini Bitir';
if edit1.Text='' then begin
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
end else
begin
radiobutton1.Checked:=true;
radiobutton2.Checked:=false;
end;
end;
end;

procedure TForm1.GroupBox1Click(Sender: TObject);
begin
if checkbox1.Checked=false then
begin
groupbox1.Enabled:=false
end else
begin
groupbox1.Enabled:=true;
end;
end;

end.

// Ve uygulamanın son hali...  

Kolay gelsin....  :)

Kara kıs avulumga kelgende / Kara kış köyüme gelende
Kültüldegen kar yerge tüsgende / Lapa lapa kar yere düşende
Dombıramdı alarman / Dombıramı alırım
Yürek sazım çalarman / Yürek sazımı çalarım
Kaygırgandı eş aytbam / kaygılarımı hiç söylenmem.

Dombıra sazım estgen ataylar / Dombıra sazımı işiten babalar
Manesine es bergen anaylar / Manasına kulak veren analar
Estgenine oy berip / İşittiğini akıl yorarak,
Yüreklerge ses berip / Yürekleri titreyerek
Köz yastı kızganmaslar / Göz yaşlarını esirgemezler.

Nogaydın kaygı sansız kününde / Nogayların derdi sayısız, her gününde
Batirler yuklamagan kününde / Yiğitlerin uyumadığı günlerde
Yüreklerin kötergen / Yüreklerini cesaretlendiren
Sogıslarda küş bergen / Savaşlarda güç veren
Köptü körgen Dombıra… / Görüp geçirmiş dombıra

Dünyanın bir numaralı yazılım şirketi Microsoft, PC'leri virüslerden koruma programını gelecek yıldan itibaren kullanıcılara ücretsiz verecek. 

Güvenlik yazılım firmalarının canını epey sıkacak bu kararla merkezi Washington eyaletinin Redmond kentinde bulunan Microsoft, kod adı Morro olan güvenlik yazılımını gelecek yılın ikinci yarısından itibaren kullanıcıların ücretsiz indirmelerine izin verecek.

Morro adlı güvenlik yazılımı, Microsoft'un 30 Haziranda satışına son vereceği, 49,95 dolara sattığı Windows Live OneCare adlı güvenlik yazılımının yerini alacak.

Microsoft'un ücretsiz güvenlik yazılımı sunmasının Symantec, McAfee gibi bağımsız virüs programı üreticileri açısından önemli bir pazar sorunu yaratması bekleniyor.

İşletim sistemi, ofis yazılımı, konsol oyunu derken ürün çeşitliliği artınca Microsoft da kendi online mağazasını açtı. Peki dükkanda neler yer alıyor?

2008 yılının büyük bölümünü geride bıraktığımız şu günlerde, en önemli teknoloji firmalarından biri nihayet yazılım ürünlerini indirilebilir şekilde sanal ortamda satışa sunmaya başladı. Yeni açılan Microsoft Store, Windows Vista'dan Office 2007'ye ve Xbox 360 oyunlarına kadar birçok Microsoft ürününü hem DVD ambalajında hem de indirilebilir olarak kullanıcılara sunuyor. İlginç olan ise, dijital indirmeler ile DVD ambalajlı gönderimin aynı fiyata sahip olması.  Siteye http://store.microsoft.com/home.aspx linkinden erişebilirsiniz.

//Çok basit bir program. Değişkenlerin uzunluklarını bulmak için sadece "sizeof()" komutunu kullanacağız. 

#include<stdio.h>
#include<conio.h>
main()
{
int a;
float b;
char c;
double d;
longint e;
longdouble f;
shortint g;

printf("int uzunlugu=%d \n", sizeof(a));
printf("float uzunlugu=%d \n", sizeof(b));
printf("char uzunlugu=%d \n", sizeof(c));
printf("double uzunlugu=%d \n", sizeof(d));
printf("longint uzunlugu=%d \n", sizeof(e));
printf("longdouble uzunlugu=%d \n", sizeof(f));
printf("shortint uzunlugu=%d \n", sizeof(g));

getch();

}
/*boylece değişken tiplerinin byte uzunluğunu buluyoruz.
C'de değişkenlerin boyutlarına çok dikkat etmemiz gerekir.
Yaptığımız programları ne kadar en az hafıza ile yaparsak program
o kadar hızlı çalışır. */

SQL 'de verileri sorgularken işimizi çok kolaylaştıracak kullanımı kolay bir kaç komuttan bahsetmek istiyorum. Sorgulama işlemlerini yaparken daha önceki yazımda oluşturduğum tablolar üzerinden işlem yapacağım.

IN. Genellikle koşul belirtirken kullanırız. Örneğin adı "Bahri Yılmaz",
"Şule Soylu" ve "Kürşat Yavuz" olan öğrencileri listeleyelim.

SELECT * FROM ogrenciler
WHERE ad_soyad IN ("Bahri Yılmaz","Şule Soylu","Kürşat Yavuz")

***************************************************************

LIKE. Bu deyim aradığımız kelimede sıkıntı çekiyorsak bize yardımcı olacaktır.
Mesela adının sonu "can" ile biten bütün öğrencileri sorgula.

SELECT * FROM ogrenciler
WHERE ad_soyad LIKE ("%can")

***************************************************************

DISTINCT. Bu deyim ile birbirinin aynı olan isimlerin veya verilerin listelenmemesi
için kullanılır.

SELECT DISTINCT ad_soyad FROM ogrenciler

***************************************************************

BETWEEN. Hepinizinde bildiği gibi arasında anlamı vardır. Örneğin öğrenci numarası
01 ile 36 aarasında olan öğrencileri sorgula.

SELECT * FROM ogrenciler
WHERE ogr_no BETWEEN (221120071001) AND (221120071036)

***************************************************************

ORDER BY ASC. Bu komut küçükten büyüğe doğru sıralamak için kullanılır.

SELECT ogr_no FROM ogrenciler ORDER BY ogr_no ASC

***************************************************************

ORDER BY DESC. Bu komutta ASC nin tam tersi olarak çalışır.Büyükten küçüğe sıralar.

SELECT ogr_no FROM ogrenciler ORDER BY ogr_no DESC

***************************************************************

GROUP BY. Mesela 2005 girişli öğrenciler ile 2007 girişli öğrencileri listeleyelim.

SELECT * FROM ogrenciler 
GROUP BY ogr_no ASC

***************************************************************

ALIAS. Genellikle tablonun veya sütunun adını başka birşeymiş gibi değiştirip
sorgulama yapmak için kullanılır.

SELECT ad_soyad AS isim FROM ogrenciler

2008 - 2009 Güz Dönemi Bilgisayar Bölümü Sınav Programı. Sınavlarda arkadaşlarıma başarılar diliyorum.

Sınav Programını İndirmek İçin Tıklayınız.

Kolay gelsin.