Geçtiğimiz sene Delphi’de kendimizi geliştirmeye çalışmıştık. Bu sene de Görsel Programlama dersinde ileri seviye Delphi görüyoruz ve bunun akabinde de çeşitli programlar yazıyoruz. Bu sene ise ilk işimiz, sadece 1 tane Edit ile bir hesap makinesi yapmak oldu. Resimde de gördüğünüz gibi sadece 4 temel işlemi kapsayan bir program çıktı ortaya. “C” butonu ne işe yarıyor diye sorarsanız; bu butonla Edit1 nesnemizin içini temizliyoruz.
Bu programı nasıl yaptığımıza gelirsek; ilk önce Edit1 nesnemiz ile diğer butonlarımızı oluşturuyoruz. 1 tane Edit ve 16 tane de buton kullanacağız bu programda. Daha sonra bu butonların değerlerini caption bölümlerinden tek tek değiştiriyoruz ve nasıl arzu edersek o şekilde bir sıraya koyuyoruz, burada iş size kalmış. İlk 10 butonumuzu, yani sayı butonlarımızı oluşturduk. Ardından var bölümünde sayi1, sayi2, secim ve sonuc adında float olarak 4 değişken tanımlıyoruz. Yazının devamında programın içindeki kodları görebileceksiniz.
Herhangi bir butonun üzerine çift tıkladığımızda o butonun click özelliğine gelmiş oluyoruz. Her butonun click özelliğine girip;Edit1.Text:=Edit1.Text + ’1′; yazıyoruz. Bunun anlamı; Edit1 nesnesinin içeriğine belirtilen sayıyı ekle. Tabi buradaki 1 rakamını butonun üzerindeki değere göre değiştiriyoruz. Sıfır butonunda ise ayrı bir komutumuzun daha olması lazım. Eğer Edit1 nesnesinin içi boş ise, butona bastığımızda sıfır rakamını Edit1′e yazmayacak. Ancak Edit1 dolu ise bu sefer yine var olan değere sıfır değerini de ekleyecek. Komutumuz şu;
if (edit1.Text=”) then
edit1.text:=”
else
Edit1.Text:=Edit1.Text + ’0′;
Bu şekilde ilk 10 butonumuzun işlemini hallettik. Geldi şimdi işlem butonlarının kodlarına. + butonunun içine şu kodu yazıyoruz;
sayi1:=Strtofloat(Edit1.Text);
secim:=1;
Edit1.Text:=”;
Eksi butonumuzun kodu;
sayi1:=Strtofloat(Edit1.Text);
secim:=2;
Edit1.Text:=”;
Çarpma butonumuzun kodu;
sayi1:=Strtofloat(Edit1.Text);
secim:=3;
Edit1.Text:=”;
Bölme butonumuzun kodu;
sayi1:=Strtofloat(Edit1.Text);
secim:=4;
Edit1.Text:=”;
Dikkat ettiyseniz 4 işlemi belirttiğimiz her butonda secim değişkenine farklı bir değer atadık, çünkü eşittir butonuna basıldığında buna göre bir karşılaştırma yapıp, işlemin ne olacağını belirteceğiz. Strtofloat komutunu kullanmamızın sebebi de şu; değişkenleri float olarak tanımladık ve bu değeri string bir nesneye giriyoruz. Buraya girilen değerin float’a dönüştürülmesi gerekir.
Şimdi de eşittir butonumuzun kodunu yazıyoruz.
sayi2:=StrToFloat(Edit1.Text);
if secim = 1 Then sonuc:= sayi1+sayi2;
if secim = 2 Then sonuc:= sayi1-sayi2;
if secim = 3 Then sonuc:= sayi1*sayi2;
if secim = 4 Then sonuc:= sayi1/sayi2;
Edit1.Text:=FloatToStr(sonuc);
Son olarak da C butonumuzda yapacağımız temizlik işini gerçekleştiriyoruz;
Edit1.Text:=’ ‘; veya Edit1.Clear;
Eğer bir hata yapmadıysak programımız gayet güzel bir şekilde çalışacaktır. İlerleyen günlerde Java Script, C++ gibi program uygulamalarıyla burada olmaya çalışacağım. Umarım faydalı olmuştur.
Bu yazı toplamda 238 kez okundu.
Comments