Form alanınıza işleminizin sonucunu gösterecek bir edit kutusu veişlemi yapacak bir buton yerleştirin. Daha sonra işlem butonunuzun adını yapacağınız işleme göre adlandırabilirsiniz. Ben basit bir toplama işlemi yapacağım fakat, sizinyapacağınız işlemler : Çıkarma,bölme,çarpma v.s olabilir.
Butonunuzu adlandırdıktan sonra edit kutunuzun içersini temizleyin. Daha sonra butonunuza çift tıklayarak programın kod alanına giriş yapın.
NOT : 1-formunuz ile kod alanınız arasındaki geçişlerde F12 tuşunu kullanabilirsiniz.
2-Programı çalıştırmak için F9 tuşunu yada run komutunu kullanabilirsiniz.
Kod kısmında yapacağınız işlem sıralaması şöyle olmalı ;
var
t:integer;
begin
t:=1+2+3..........+9+10;
edit1.text:=inttostr(t);
end;
end.
(Açıklama)
* Toplama işlemi için değişkenimizi (t) olarak atayıp integer türünde tanımlıyoruz.*
*Programı başlat komutunun alt kısmına (değişken:=toplamak istediğimiz rakamlar;)*
*Sonucu göstermesini istediğimiz alanı yazarak integer olan sayımızı string'e çeviren komutu yazıyoruz.*
*Ve programı bitiriyoruz.*
Hiç yorum yok:
Yorum Gönder