Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Bölme İşlemi İçin Hangi Kodu Yazacağım ?
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Amazon.com.tr: Prime Üyelerine Özel: ?500'ye %15 indirim promosyon
https://www.amazon.com.tr/promotion/psp/A24HW9BO9YIYZZ
17 sa. önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
kalanı bulmak istiyorsan mod kullana bilirsin
ama bölümü falanda istiyorsan
bülünenden böleni devamlı çıkartacak bi döngü yapmalısın şart olarakta bölenden küçük olduğunda döngüden çıkabilirsin.bölümü bulmak içinde döngü içine bi sayaç koyabilirisin.
mantık bence bunun üzerine gereken delphi kodlıarını yerleştir -
Aşağıdaki kod Forma konulan Edit1 deki sayıyı Edit2 ile böler ve sonucu Edit3 e yazar
var
bolunen,bolen,sonuc:extended;
begin
bolunen:=strtofloat(edit1.text);
bolen :=strtofloat(edit2.text);
sonuc := bolunen / bolen;
edit3.text:= floattostr(sonuc);
end;
-
Hocam 27 haziran 2006 forumundan faydalanabilirsiniz -
quote:
Orjinalden alıntı: rafet32
Aşağıdaki kod Forma konulan Edit1 deki sayıyı Edit2 ile böler ve sonucu Edit3 e yazar
var
bolunen,bolen,sonuc:extended;
begin
bolunen:=strtofloat(edit1.text);
bolen :=strtofloat(edit2.text);
sonuc := bolunen / bolen;
edit3.text:= floattostr(sonuc);
end;
"var" hatalıymış öyle diyor. -
var
bolunen,bolen,sonuc:real; // olmali
begin
bolunen:=strtofloat(edit1.text);
bolen :=strtofloat(edit2.text);
sonuc := bolunen / bolen;
edit3.text:= floattostr(sonuc);
end; -
quote:
Orjinalden alıntı: kydeke
var
bolunen,bolen,sonuc:real; // olmali
begin
bolunen:=strtofloat(edit1.text);
bolen :=strtofloat(edit2.text);
sonuc := bolunen / bolen;
edit3.text:= floattostr(sonuc);
end;
"var" hatalıymış.Yine aynısını söylüyor. -
güzel -
quote:
Orjinalden alıntı: pclevent
güzel
Konu ile alakasız mesajlar yazmayın.
-
Arkadaşım şoyle bir dene mutlaka çalışmalı
Buton OnClıck olayına
Var
s1, s2 : real;
begin
s1:=strtofloat(edit1.text);
s2:=strtofloat(edit2.text);
edit3.text:=floattostr(s1/s2);
end; -
quote:
Orjinalden alıntı: kydeke
Arkadaşım şoyle bir dene mutlaka çalışmalı
Buton OnClıck olayına
Var
s1, s2 : real;
begin
s1:=strtofloat(edit1.text);
s2:=strtofloat(edit2.text);
edit3.text:=floattostr(s1/s2);
end;
"var" hatalıymış.Yine öyle diyor.
-
Yazdığın programın unit içerindeki kodların tamamını buraya yazarsan hatanın nerde olduğu konusunda yardımcı olabiliriz. -
var
a,b,c:integer;
d:real;
begin
a:=strtoint(edit1.Text) ;
b:=strtoint(edit2.Text);
d:=(a/b);
edit3.Text:=floattostr(d);
end;
kodlar çalışıyor kolay gele... -
3 tane dit yerleştiriyorum.1 tane buton yerleştiriyorum.Ve buton onclik olayına verdiğiniz kodları yazıyorum.(birceninkini denemedim henüz) Fakat olmuyor.var hatalıymış öyle diyor. -
quote:
Orjinalden alıntı: Bindalmg
3 tane dit yerleştiriyorum.1 tane buton yerleştiriyorum.Ve buton onclik olayına verdiğiniz kodları yazıyorum.(birceninkini denemedim henüz) Fakat olmuyor.var hatalıymış öyle diyor.
Yanlış anlamayın ama delphiyi ne kadar biliyorsunuz? Tam olarak nasıl yapıştırıyorsunuz. Olduğu gibimi yoksa begin-end sıralamasını gözeterekmi? Eğer sorunu çözemezseniz mutlaka button onclick teki kodun tamamını bir kopyalar mısınız? Basit bir bölme işlemi için konunun bukadar uzaması biraz garip. -
baştaki begin i sil:) -
buton onclıck olayına
Var
s1, s2 : real;
begin
s1:=strtofloat(edit1.text);
s2:=strtofloat(edit2.text);
edit3.text:=floattostr(s1/s2);
end;
Dostum şöyle bir dene. -
quote:
Orjinalden alıntı: rahjman
quote:
Orjinalden alıntı: Bindalmg
3 tane dit yerleştiriyorum.1 tane buton yerleştiriyorum.Ve buton onclik olayına verdiğiniz kodları yazıyorum.(birceninkini denemedim henüz) Fakat olmuyor.var hatalıymış öyle diyor.
Yanlış anlamayın ama delphiyi ne kadar biliyorsunuz? Tam olarak nasıl yapıştırıyorsunuz. Olduğu gibimi yoksa begin-end sıralamasını gözeterekmi? Eğer sorunu çözemezseniz mutlaka button onclick teki kodun tamamını bir kopyalar mısınız? Basit bir bölme işlemi için konunun bukadar uzaması biraz garip.
Yanlış anlamıyorum.Çünkü doğru olan bu.Delphi'yi bilmediğim için öğreniyorum.Bu soruyu da bilmediğim için soruyorum.Bir sakıncası mı var ?Ayrıca konunun çok uzadığını söylemişsiniz.Demekki yardım etmek isteyen delikanlı çokmuş.Yani böyle insanı çileden çıkartacak cümleler söylemeyiniz.Yardım etmek istiyorsanız ediniz.Etmek istemiyorsanızda lüzumsuz mesaj yazmanıza gerek yok.
NOT:Yanlış anlamayın.
-
dostum istersen bu programin kodunu godereyim mailini verirsen -
Bindalmg...
Öncelikle alıngan olmaya gerek yok,
sana ileti yazanlar sormuş ama onlara
gerekli cevapları vermemişsin; ki ona göre
istediğin kodu yazsınlar..
Neyse şimdi sakin olalım.
Kullandığın formun adı Form1 olsun. ("default property" varsayılanı bu)
edit1, edit2 ve edit3 adlı 3 tane tedit nesnesi ekle,
Formda, bir de speedbuttonun olsun : speedbutton1.
Bu buttonu tasarım aşamasındayken mouse ile çift tıkla,
edit bölümü aktif olacak; delfi sana otomatik olarak
edit sayfasının sonuna şu kodları ekleyecek :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
end;
Arkadaşlar doğru kod yazmış,
şimdi o kodlardan birini kopyala-
bu alanın içine yapıştır : begin-end bloğunun içi olmalı.
Ancak - var ile başlayan (variables) bölümü, begin
sözcüğünden önce olmak zorunda. Şimdi tümünü
biraraya getirirsek :
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
s1, s2 : real;
begin
s1:=strtofloat(edit1.text);
s2:=strtofloat(edit2.text);
edit3.text:=floattostr(s1/s2);
end;
Bunu biraz daha kısaltmak istersen :
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit3.text:=floattostr( strtofloat(edit1.text) / strtofloat(edit2.text));
end;
Delfiye başlamana sevindim. Başarılar dilerim.
Benzer içerikler
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
