taksit işlemi

[zengin]

Merhaba degerli arkadaşlar programımda taksitleme alanı oluşturdum ve aşagıdaki delphiturkiye.com yazılmış
kodlarıda delphiturkiye.com sitesinden aldım ve kendimce toparladım ve güzelde calışıyor
fakat kücük bir sorun var
örnegin Query1tutar kısmına 5000000TL 5 taksit MHAREKET.MHTable1TOPLAM alanına kaydediyor1,000,000TL olarak alıyor ve kaydediyor burda sorun yok
fakat Query1tutar kısmına Display format ,000,TL Olarak Kaydettigim Zaman
Query1tutar 5,000,000TL 5 taksit dedigim zaman hemen hata veriyor
hata ise şu şekilde "5,000,000'is not a valit integer valua process stoppet
hatası alıyorum ve bu konuda yardımlarınızı bekliyorum saygılarımla

Kod: Tümünü seç

procedure TTAKSITT.SpeedButton1Click(Sender: TObject);
var
Tmp : TDateTime;
AL,Taksitmiktar,TaksitTutar:integer;
begin
Tmp := Now;
Taksitmiktar:=StrToInt(Query1ADET.Text);
TaksitTutar:=StrToInt(Query1TUTAR.Text) div Taksitmiktar;
        for AL:=1 to Taksitmiktar do
        begin
        MHAREKET.MHTable1.Edit;
      MHAREKET.MHTable1.Append;
      MHAREKET.MHTable1TOPLAM.asFloat:=TaksitTutar;
                MHAREKET.MHTable1brfiyat.asFloat:=TaksitTutar;
        TMP := TMP+30;
        MHAREKET.MHTable1Tarihx.AsDateTime:= Tmp;
        MHAREKET.MHTable1Aciklama.AsString:=IntToStr(AL)+'.Taksit';
        MHAREKET.MHTable1.Post;
MHAREKET.MHtable1.Next;
end;
end;

*** Düzeltme : Kodlarınızı [ code ] tagı içine alın. mege

[oguzozturk74]

Query1TUTAR.Text
in yerine
Query1.fieldbyname('TUTAR').asinteger veya asfloat
yazmayı denermisin..

[zengin]

hocam denedim fakat program calışmadı ben daha önceden önerdigin
kodlarlada demiştim program yine acmadı

[aslangeri]

S.A.
fieldin editformat ınıada display formatına yazdığının aynısını yazıp deniyebilirmisin.
kolay gelsin.

[zengin]

aslangeri kardeşim merhaba bu taksitle alakalı kodları siteden
aldım ve programıma uyguladım güzelde calışıyor fakat
ben ne yaptımsa editformat ınıada display formatına denemedigim yer kalmadı örnek:###,###,### bu şekildede denedim yine olmadı
ben genelde hep ,000,TL olarak düzenliyorum proplem yoktu

edit1 veya maskedit lede denedim yine hata oluştu

bütün proplem sanırım burada fakat ben cözemedim bana bu konuda
yardımcı olun

TaksitTutar:=StrToInt(Query1TUTAR.Text) div Taksitmiktar;

hayırlı akşamlar

[aslangeri]

S.A.
text yerine direk value sini kullanmayı denedinizmi?

TaksitTutar:=StrToInt(Query1TUTAR.Text) div Taksitmiktar

yerine

Kod: Tümünü seç

//eğer tutar hesaplanmamışsa onuda kontrol ettirmeniz gerekebilir.null için
if Query1TUTAR.value<>null then
TaksitTutar:=Query1TUTAR.ascurrency div Taksitmiktar

yapsanız.
kullanıdığınız alanın tipini bilmediğim için currency dedim. siz

Kod: Tümünü seç

 asinteger 
//veya
asfloat

şeklindede kullanabilirsiniz.
kolay gelsin.

[zengin]

aslangeri kardeşim önermiş oldugun kodlarınla güzel oldu programım proplemsiz calıştı saygılarımı sunar cok teşekkür ederim hoşca kal

[tanerileri]

Anladığım kadarıyla delphide yenisin.

İyi bir delphi programcısı olman için sana önerim , program yazmak değil , kodları adım adım inceleyerrek , ne işe yaradığını anlamak.

program yazmak en son iş , ona zamanla geçersin.

yoksa kendi başına , kimseye ihtiyaç duymadan program yazma zamanın uzar gibi geliyor bana

[zengin]

tanerileri kardeşim düşüncene saygı duyarım fakat siz kendinizce ne kadar
mükemmelsiniz ?
not:
1 bakınız her insan sizin gibi mükemmel kod yazmayı bilse bu siteden
hic kimse yardım beklemezdi
2 bu siteyi bizlere sunan bu sitenin ne kadar bu Delphi kodlarını bilen veya bilmeyen üyelerine allah razı olsun gün geliyor bir bilemediginiz
bir nokta hatanız sizlere veya bana aylara yıllara mal oluyor bu sitenin
binlerce üyesi var bir düşünün onlarda hem yardım alıyor hemde insanlara
azda olsa faydalı oluyorlar
3 eger ben delphiturkiye.com siteye veya delphiturkiye.com sitedeki üyelere bilmeden hata yapmış isem özür dilerim
hoşca kalın

[mege]

Anladığım kadarıyla delphide yenisin.

İyi bir delphi programcısı olman için sana önerim , program yazmak değil , kodları adım adım inceleyerrek , ne işe yaradığını anlamak.

program yazmak en son iş , ona zamanla geçersin.

yoksa kendi başına , kimseye ihtiyaç duymadan program yazma zamanın uzar gibi geliyor bana

sanırım @zengin arkadaşımız bu yazıdan biraz alınmış,

başta bir eğitimci olduğumu belirterek söyleyebilirimki herşeyi teorikte denemek yerine (satmasa yada satamasa dahi) deneyim olması için komple bir projeye başlamak, ondaki problemleri görmek, öğrenmek adına (orta-alt seviye ve üstü için) tek çözümdür.

bu yüzden (öğrencilerde, yeni öğretmenlerde sallamasada) dönem ödevi, bitirme ödevi gibi öğrencilere büyük sorumluluklar verilir.

@tanerileri arkadaşın haklı olduğu nokta ise (@zengin ile alakalı değil genel söylüyorum, sana söylüyorum kızım sen anla gelinim babında (: ) herhangibir algoritma mantığı geliştirmeden, daha programal ile tanışalı birkaç saat sonra, (hatta daha toplama çıkarma türev integral prorgamı yapmadan(: ) bu tarz bi olaya başlamak, compilerin her hata verdiği satırı F1 e basıp hatayı anlama zahmeti bile göstermeden sağda solda koşturarak çözüm aramak olmamalı.. biraz sürünmeli mantığı geliştirmek için algoritma kitapları almalı, belki visual olmayan bir compiler ile çalımalı (pascal, c, hatta hatta -ben lisede öyle başlamıştım - gwbasic (: ) hıı şöyle şöyle yapınca böyle olur diyebilinceye kadar burnu sürtmeli insanın.

[rsimsek]

Arkadaşlar lütfen birbirini incitecek cevaplardan kaçınalım Burada bilgisi ve tecrübesi olanlar olduğu gibi bu işe yeni başlayanlar da vardır. Bilgili olanlara basit gelen sorular olabilir. Tecrübelerine dayanarak verdikleri yöntemler size basit gelebilir. Esas olan kırıcı olmadan ve de alınganlık yapmadan birşeyler öğretebilmek ve de öğrenebilmektir.

Burada bazı arkadaşlar heyecenla direk kod istemekteler. Kodu her yerde bulmak mümkündür. Önemli olan; bulduğunu nerede nasıl kullanacağını, programlamanın ve program yazmanın mantık ve tekniğini yakalamaktır. Bu da bir süreç ve deneyim meselesidir.

Bu duygu ve düşüncelerle herkese başarılar dilerim.

[mepc]

Özür dilerim arkadaşlar Bu mesaj yanlış atıldığı için düzelttim. Orjinali aşağıda.

[mepc]

Recep Bey demiş ki:

Arkadaşlar lütfen birbirini incitecek cevaplardan kaçınalım Burada bilgisi ve tecrübesi olanlar olduğu gibi bu işe yeni başlayanlar da vardır. Bilgili olanlara basit gelen sorular olabilir. Tecrübelerine dayanarak verdikleri yöntemler size basit gelebilir. Esas olan kırıcı olmadan ve de alınganlık yapmadan birşeyler öğretebilmek ve de öğrenebilmektir.

[zengin]

degerli hocalarım hepinize ayrı ayrı teşkkür ederim gercekten büyük insanlarsınız faydalı olmak kadar güzel bir şey yok saygılarımla