Delphide 4 İşlem

d4erth · 21.07.2007, 12:20

Ewt Arkadaşlar Şimdi Delphi Kullanarak Toplama,çıkartma... gibi işlemler yapalım lafı uzatmadan Kodları vereyeim:

TOPLAMA

Code:

sayi1,sayi2,sonuc:integer;
begin
label3.Caption := 'Toplam';
sayi1:=strtoint(edit1.Text);
sayi2:=strtoint(edit2.Text);
sonuc:=sayi1+sayi2;
edit3.Text := inttostr(sonuc);
end;

ÇIKARTMA

Code:

sayi1,sayi2,sonuc:integer;
begin
label3.Caption := 'Toplam';
sayi1:=strtoint(edit1.Text);
sayi2:=strtoint(edit2.Text);
sonuc:=sayi1-sayi2;
edit3.Text := inttostr(sonuc);
end;

ÇARPMA

Code:

sayi1,sayi2,sonuc:integer;
begin
label3.Caption := 'Toplam';
sayi1:=strtoint(edit1.Text);
sayi2:=strtoint(edit2.Text);
sonuc:=sayi1*sayi2;
edit3.Text := inttostr(sonuc);
end;

BÖLME

Code:

sayi1,sayi2,sonuc:integer; begin label3.Caption := 'Toplam'; sayi1:=strtoint(edit1.Text); sayi2:=strtoint(edit2.Text); sonuc:=sayi1/sayi2; edit3.Text := inttostr(sonuc); end;

Kolay gelsin bi tşk yeter

yi forumlar.......

D3L1 · 6.08.2007, 08:18

eline sağlık ünv de işime yaricaandan eminim saol bu sene başliom inş. iki yıllıkta olsa

~~Emre_~~ · 2.09.2007, 13:34

olsn işine yaradıysa sewndim

6.08.2007, 08:18	#2
D3L1 Birey Mesajlar: 31 Puan: 10	eline sağlık ünv de işime yaricaandan eminim saol bu sene başliom inş. iki yıllıkta olsa

2.09.2007, 13:34	#3
~~Emre_~~ Cezalı Mesajlar: 222 Puan: 2231	olsn işine yaradıysa sewndim

Konu Seçenekleri
Yazdırılabilir Sayfayı Göster Sayfayı E-Mail'le gönder

Konuyu toplam 0 üye ve 1 ziyaretçi okuyor