delphide 4 ıslem !!

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Delphide 4 İslem !!

Arkadaslar Delphide Sırasıyla :
1 - Toplama
2 - Cıkarma
3 - Carpma
4 - Bolme
İşlermleri yapalım...

Toplama İslemi :

oncelıkle formumuza 3 tane Label, 3 tane Edit ve 1 tane Button ekleyelım..
Programın çalısma mantıgı butona basılınca Edit1 - Edit2 deki degerleri toplayıp Edit3 e yazacak.. Baslayalım :

Kod Alanı:

Procedure TForm1.Button1Click(Sender: TObject);
Var
a,b:integer;
Begin
a:=strtointdef(edit1.Text,0);
b:=strtointdef(edit2.Text,0);
edit3.text:=inttostr(a+b);
End;
End.

Cıkarma İslemi :

Kod Alanı:

Procedure TForm1.Button1Click(Sender: TObject);
Var
a,b:integer;
Begin
a:=strtointdef(edit1.Text,0);
b:=strtointdef(edit2.Text,0);
edit3.text:=inttostr(a-b);
End;
End.

Carpma İşlemi :

Kod Alanı:

Procedure TForm1.Button1Click(Sender: TObject);
Var
a,b:integer;
Begin
a:=strtointdef(edit1.Text,0);
b:=strtointdef(edit2.Text,0);
edit3.text:=inttostr(a*b);
End;
End.

Bolme İşlemi :

Bu işlemde deişken tanımlamamızı Float olarak yapacagız.. Cunku ondalıklı deger cıkma olasılıgı yuksektir..

Kod Alanı:

Procedure TForm1.Button1Click(Sender: TObject);
Var
a,b:float;
Begin
a:=strtointdef(edit1.Text,0);
b:=strtointdef(edit2.Text,0);
edit3.text:=floattostr(a+b);
End;
End.

işte 4 işlem bu kadar ... :? lol

Hadi kolay gele ...

Hosting Sponsorumuz - Noktahost internet hizmetleri