taksit işlemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

taksit işlemi

Mesaj gönderen 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
Zengin
oguzozturk74
Kıdemli Üye
Mesajlar: 574
Kayıt: 01 Şub 2004 12:29
Konum: Erdemli - MERSİN

Mesaj gönderen oguzozturk74 »

Query1TUTAR.Text
in yerine
Query1.fieldbyname('TUTAR').asinteger veya asfloat
yazmayı denermisin..
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Mesaj gönderen zengin »

hocam denedim fakat program calışmadı ben daha önceden önerdigin
kodlarlada demiştim program yine acmadı
Zengin
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

S.A.
fieldin editformat ınıada display formatına yazdığının aynısını yazıp deniyebilirmisin.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Mesaj gönderen 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
Zengin
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen 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.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Mesaj gönderen 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
Zengin
tanerileri

Öneri

Mesaj gönderen 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
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Mesaj gönderen 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
Zengin
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Re: Öneri

Mesaj gönderen mege »

tanerileri yazdı: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 :P 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.
.-.-.-.-.-.-.-. ^_^
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen 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.
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Kullanıcı avatarı
mepc
Üye
Mesajlar: 191
Kayıt: 26 Eyl 2003 11:39
Konum: Ankara

Mesaj gönderen mepc »

Özür dilerim arkadaşlar Bu mesaj yanlış atıldığı için düzelttim. Orjinali aşağıda.
En son mepc tarafından 03 Eyl 2004 10:31 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Bilgi paylaşıldıkça güzeldir.
Kullanıcı avatarı
mepc
Üye
Mesajlar: 191
Kayıt: 26 Eyl 2003 11:39
Konum: Ankara

Mesaj gönderen 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.
:bravo: :bravo: :bravo: :bravo: :bravo: :bravo:
Bilgi paylaşıldıkça güzeldir.
zengin
Üye
Mesajlar: 233
Kayıt: 06 Ağu 2003 10:13

Mesaj gönderen 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
Zengin
Cevapla