Hesap makinesi programı, tipik programlama görevlerinden biridir. Böyle bir uygulama hemen hemen her programlama dilinde uygulanabilir. En popüler programlama dillerinden biri, basit ve verimli hesap makinesi kodu yazmak için kullanılabilen Delphi'dir.
Gerekli
Delphi programlama ortamı
Talimatlar
Aşama 1
Kullanmakta olduğunuz Delphi programlama ortamını başlatın. Uygulamanız için arayüzü planlayın. Form üzerinde 10'u rakamlardan, geri kalanlar ise fonksiyonlardan sorumlu 26 adet buton olacaktır. Ek olarak, eylemin sonucunun görüntüleneceği bir TPanel bileşeni olacaktır.
Adım 2
Kullanıcı tarafından girilen sayıları saklayacak ve modu belirleyecek koda 4 değişken ekleyin. Örneğin:
var
a, b, c: gerçek; // kullanıcının girdiği sayılar
d: tam sayı; // hesap makinesi eylemi
Aşama 3
Oluşturulan değişkenler hem korumalı hem de özele eklenebilir. Şimdi her sayı düğmesi için OnClick olayını ele alın. Tüm rakamlar için kod aynı olacaktır:
prosedür TForm1. Button1Click (Gönderen: TObject);
başlamak
Panel1. Caption: = Panel1. Caption + 'sayı'
son;
“Sayı”yı düğme adıyla değiştirin (0 numara ise Panel1. Caption + '0').
4. Adım
d değişkeni tamsayı biçimindedir ve herhangi bir eylemin karşılık gelen sayısal değerini içerecektir. Çarpma işlemi yapılacaksa, işlemi 1 değerine, bölme - değer 2 ise, toplama - değer 3 vb. olarak ayarlayabilirsiniz. Çarpma işlemi için kod şöyle görünecektir:
prosedür TForm1. ButtonMultiplyClick (Gönderen: TObject); // çarpma işlemi
başlamak
a: = StrToFloat (Panel1. Caption); // butona bastıktan sonra a değişkeninin değeri kaydedilir
d: = 1; // action değişkeni karşılık gelen değere ayarlandı
Panel1. Caption: = '';
son;
Adım 5
Bölme (ButtonDivClick), toplama (ButtonPlusClick), çıkarma (ButtonMinusClick) ve üs alma (ButtonPowerClick) için benzer işlemleri yapın.
6. Adım
`` = '' değerini işlemek için bir durum koşulu oluşturmanız ve her eylemi sırayla düşünmeniz gerekir:
prosedür TForm1. ButtonClick (Gönderen: TObject);
başlamak
durum d
1: başla // d = 1 ise, yani çarpma düğmesine basılırsa, ilgili eylem gerçekleşir
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
son;
2: başlamak
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
7. Adım
Toplama, çıkarma ve üs alma işlemlerini aynı şekilde yapın. Hesap makinesi hazır.
