Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Delphi 7 hesap makinesi ödevi
Bu konudaki kullanıcılar: 1 misafir
4
Cevap 7848
Tıklama 0
Öne Çıkarma
Cevap 7848
Tıklama 0
Öne Çıkarma
1. sayfa
-
Delphi 7 hesap makinesi ödevi
Teşekkürler. Fakat daha delphide yeniyim. Hoca 1 ders işledi yarım bir hesap makinesi yaptı devamını da siz araştırın yapın dedi. Kodları yukardaki gibi ona benzer nasıl yapabilirim? Bunlardan pek bişey anlamadım da  |
Bu mesaja 1 cevap geldi.
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
Çarpma butonu için girdiğim kodlar:
islem:=3;
Sonuc := Sonuc * StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
toplama için girdiğim kodlar:
islem:=1;
Sonuc := Sonuc + StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Sonuc);
If SayiGirildi=1 Then
Begin
Edit1.Text:= '0' ; SayiGirildi:=0;
End;
eşittir için girdiğim kodlar:
If islem = 1 Then Sonuc := Sonuc + StrToInt(Edit1.Text);
If islem = 2 Then Sonuc := Sonuc - StrToInt(Edit1.Text);
If islem = 3 Then Sonuc := Sonuc * StrToInt(Edit1.Text);
Edit1.Text := IntToStr(Sonuc);
SayiGirildi := 1 ; Sonuc := 0 ;
Nerde yanlışım var? Çalışması için ne yapmam lazım? Ayrıca trigonometrik hesaplar ve integral, türev hesaplarını nasıl eklerim? teşekkürler...
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.