ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Hesap Makinası

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Hesap Makinası

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Hesap Makinası Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Hesap Makinası Hesap Makinası Kod: procedure TForm1.Rakamlar(Sender: TObject); begin if sonuclandi then edit1.Text:=(sender as TButton).Caption else edit1.Text:=edit1.Text + (sender as ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 11 Mart 2015, 18:35   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Hesap Makinası

Hesap Makinası

Hesap Makinası


Kod:
        procedure TForm1.Rakamlar(Sender: TObject);
begin
if sonuclandi then
edit1.Text:=(sender as TButton).Caption
else
edit1.Text:=edit1.Text + (sender as TButton).Caption;
sonuclandi:=False;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
if Length(Edit1.Text) > 0 Then
if Copy(Edit1.Text,1,1)='-' Then
Edit1.Text:=Copy(Edit1.Text,2,1000)
else
Edit1.Text:='-'+ Copy(Edit1.Text,1,1000);
 
end;
 
procedure TForm1.Button13Click(Sender: TObject);
begin
if Pos(',',Edit1.Text)=0 Then
 if Length(Edit1.Text)=0 Then
 Edit1.Text:= '0,'
 else
 Edit1.Text:=Edit1.Text + ',';
end;
 
procedure TForm1.Button26Click(Sender: TObject);
begin
Edit1.Text:='';
end;
 
procedure TForm1.Button25Click(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
Edit1.Text:=Copy(Edit1.Text,1,Length(Edit1.Text)-1);
end;
 
procedure TForm1.Hafiza_Islemleri(Sender: TObject);
begin
if Length (Edit1.Text) > 0 Then
Edit1.Text:='0';
If(sender as TButton).Caption='MC' Then
hafiza:=0;
If(sender as TButton).Caption='M+' Then
hafiza:=hafiza+StrToFloat(Edit1.Text);
If(sender as TButton).Caption='M-' Then
hafiza:=hafiza-StrToFloat(Edit1.Text);
If(sender as TButton).Caption='MR' Then
sonuclandi:=True;
end;
 
procedure TForm1.Dort_Islem(Sender: TObject);
begin
islem:=(sender as TButton).Caption;
if Length(Edit1.Text) = 0 Then
Edit1.Text:='0';
sayi1:=StrToFloat(Edit1.Text);sonuclandi:=true;
end;
 
procedure TForm1.Button21Click(Sender: TObject);
var
sonuc:double;
begin
sayi2:=StrToFloat(Edit1.Text);
case islem[1] of
 '+':
 sonuc := sayi1 + sayi2;
 '-':
 sonuc := sayi1 - sayi2;
 '*':
 sonuc := sayi1 * sayi2;
 '/':
 Begin
 if sayi2 = 0 Then
 exit;
 sonuc := sayi1 / sayi2;
 End;
 end;
 sonuclandi:=true;
 Edit1.Text:=FloatToStr(sonuc);
 sayi1:=sayi2;
end;
 
procedure TForm1.Islem_Yap_2(Sender: TObject);
var
sayi:double;
begin
if Length(Edit1.Text) = 0 Then
Edit1.Text:='0';
sayi:=StrToFloat(Edit1.Text);
if (sender as TButton).Caption='Kök' Then
 if (sayi >= 0) Then
   Edit1.Text:=FloatToStr(sqrt(sayi));
if (sender as TButton).Caption='Kare' Then
  Edit1.Text:=FloatToStr(sayi*sayi);
if (sender as TButton).Caption='1/X' Then
  if (sayi <>  0)Then
   Edit1.Text:=FloatTostr(1/sayi);
   sonuclandi:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.Caption:='Bizim Hesap Makinesi';
Edit1.Text:='';
islem:='';
end;
 
end.

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
hesap, hesap makinası, makinasi

Seçenekler
Stil


Saat: 16:35

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,