Programlama Rehberi


Arama

murat_80 sordu
- - - Hesap Makinesi  programı - - - -

Slm cümleten herkesin bayramı kutlu olsun.

Şimdi benim delphide  bir hesap makinesi programı projem varBu projede 10 tane buton var bu butonlara  sırasıyla 0,1,2,3,4,5, vs.... yazdım. Ve bu butonların dışında + - * / yani topla çıkar çarp  vs... butonları var   birde bunların görüntülendiği  edit 1 var. Şimdi bana öyle bir kod lazım ki  Kullanıcıbunlardan mesale   5+5 yazdığı zaman ve eşittir  butonuna bastığı zaman  bunlardın edit 1 de görüntüleyecek kod laızm yani topla çıkar çarp ve eşittir butonlarının yazdığı  kod lazım.
Yazılan cevap: 3
Eklenme tarihi: 2008-12-10
Okunma sayısı: 2335
Kategori: Pascal / Delphi

Cevaplar(3)

Merhabalar,

Kod yazamayı istemiyorum, fakat nasıl yapılabileceğini basit biçimde anlatayım.

Ön ayarlamalar
  • Kullanıcının bastığı butonun ekranda görünmesini sağlayacak bir TextEdit kullanabilirsin. Farzedelim adı ekran olsun bu TextEdit'in.
  • +, -, *, /  butonlarına basılıp basılmadığını anlamak için bir değişken tutarsın adı islemNo olsun. Bu değişkene başlangıçta 0 değerini verirsin. Toplama için 1, çıkarma için 2, bölme için 3 ve çarpma için 4 değerini atarsın bu değişkene.
  • Elimizdeki veriyi saklamak için de bir değişken tutarsın. Bu değişkenin adı araDeger olsun. Bunu da başlangıçta 0 yap.
İşlemler
  • 0-9 arası butonların click eventi ekrandaki metine basılan tuşun değerini eklemeli. Yani 8 numaralı butona basılıyorsa metin.text=metin.text+"8" şeklinde ekranı güncellemelisin.
  • +, -, *, / tuşlarına basılırsa önce ekrandaki mevcut texti alıp tamsayıya çevirir aradeger değişkeninde tutarsın.
  • Basılan işlem tuşunun hangisi olduğunu hatırlamak için seçilen işlemi islemNo değişkenine atama yaparsın.
  • Ekrandaki metini boşa eşitlersin(metin.text="")
  • Kullanıcı tekrar sayı girer bu sefer girilen sayıyla araDeger değişkeninde tutulan sayıya, islemNo değişkeninde tutulan işlemi yaptırırsın. Ve sonucu ekrana basarsın.
Bu akış yalnızca kullanıcının bir sayı girip işlem butonlarına basıp ikinci sayıyı girmesi gerektiği farzedilerek tasarlanmıştır. Kendi problemine uyarlayabilirsin. Umarım anlaşılır olmuştur.
Yazan: Hamdi / Ort. puan: 0 /
Cevabı değerlendir:

bundan bişey anlaşılmıyo


Yazan: hsyn_70 / Ort. puan: 0 /
Cevabı değerlendir:
SORUNUN CEVABI ...  UMARIM DOĞRU ANLAMIŞIMDIR SORUYU


  public
  topla,cikar,carp : integer ;
  bol : real;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button_ToplaClick(Sender: TObject);



begin
topla :=  StrToInt(Edit_Sayi1.Text)+StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(topla));
end;

procedure TForm2.Button_CikarClick(Sender: TObject);
begin
cikar :=  StrToInt(Edit_Sayi1.Text)-StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(cikar));
end;

procedure TForm2.Button_CarpClick(Sender: TObject);
begin
carp :=  StrToInt(Edit_Sayi1.Text)*StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ IntToStr(carp));
end;

procedure TForm2.Button_BolClick(Sender: TObject);
begin
bol :=  StrToInt(Edit_Sayi1.Text)/StrToInt(Edit_Sayi2.Text);
ShowMessage ('Sonuc : '+ FloatToStr(bol));
end;

end.


NOT :  HER İŞLEM İÇİN AYRI BİR BUTON KOYDUM.DEĞİŞKENLERİ DE PUBLİC İÇİNE TANIMLADIM TÜM BUTTON CLİCK LERDE DEĞİŞKENLERİ TANISIN DİYE..
Yazan: cnshn / Ort. puan: 0 /
Cevabı değerlendir:


ÖSS Puan Hesaplama | Bize Ulaşın | Tavsiye Edin | Sitenin Teknik Bilgileri | Kullanıcı Sözleşmesi | Bizi Destekleyin
2004-2009 © Programlama Rehberi, tüm hakları saklıdır.