Edit e girilen sayıya en yakın küçük ve büyük değerleri bulmak

[izmirlikemal]

Lord_Ares sizin dediğiniz gibi inc(i,10) yaptığımda olmuyor. Ayrıca kodlarda şunu gördüm inc(i) artışı veritabanındaki kayıt sayısına kadar ulaşıp sonra hata veriyor.

[speed60]

izmirlikemal arkadaş unicorn64 isimli arkadaşın verdiği kodlar senin en başta sorduğun sorunun cevabını veriyor onun kodlarından yola çıkarak query2,query3 ve query1 i IL tablosuna bağladım edit1 e herhangi bil il plakası girdiğimde 1 alt ve 1 üst illeri aldım


procedure TForm2.bulClick(Sender: TObject);
var
k1,k2:String;
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('SELECT MAX(kod) KUCUKLERIN_EN_BUYUGU FROM IL WHERE kod<'''+Edit1.Text+'''');
Query2.Open;
k1:=IntToStr(Query2.FieldByName('KUCUKLERIN_EN_BUYUGU').AsInteger);


Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('SELECT MIN(kod) BUYUKLERIN_EN_KUCUGU FROM IL WHERE kod>'''+Edit1.Text+'''');
Query3.Open;
k2:=IntToStr(Query3.FieldByName('BUYUKLERIN_EN_KUCUGU').AsInteger);

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM IL WHERE kod IN('''+k1+''','''+k2+''')');
Query1.Open;

end;

[izmirlikemal]

Lord_Ares Denedim ama anlamsız yanıt veriyor. örneğin 22 değerini girdiğimde 20 ve 30 vermesi gerekirken 20 ve 0 döndürüyor.

[izmirlikemal]

speed60 olmadı dostum.

[unicorn64]

Sayın unicorn64 öncelikle derdime bir açıklık getireyim:
-------------------------------------------------------------------
Ben iklimlendirme ile ilgili bir çalışmanın içinde uzun süredir bulunuyorum.
ilk mesajımda örnek olarak verdiğim string şeklindeki değerlerin veritabanına kayıtlı olduğunu düşünmeniz için örnekleme yapmıştım.
Şimdi Veritabanı kayıtları ile ilgili daha detaylı bilgi vermek istiyorum.

veritabanı tablosu olarak: "psikrometrikdegerlerVT.db" şeklinde paradox da Table oluşturdum.
bu tablonun içinde yaklaşık 15 adet "alan adı" var.
bu alan adlarından birkaç tanesi : kurutermometre, yastermometre, izafirutubet , ....
Kuru termometre sıcaklıklarına ve izafi nem değerlerine bağlı olarak yaş termometre sıcaklıkları değişmektedir.
Alan adları kurutermometre IzafiNem YasTermometre
10 20 21,4
10 30 22,1
10 40 22,6
20 20 23,2
20 30 24,7
20 40 25,0
vs.

örneğin benim Hazırladığım formdaki Edit1 hücresine gireceğim 14°C Kuru Termometre ve Edit2 hücresine gireceğim 43 izafi nem değeri ni
kullanarak Yaş termometre sıcaklığını hesaplamak istiyorum.

Şimdi sizin yukarda 1. yol olarak vermiş olduğunuz kodları kendime adapte etmeye çalışarak aşağıdaki şekilde düzenledim:

ilk mesajındaki örnekle bu mesajındaki durum farklı, ben ilk mesaja göre direk sonuç alabileceğin sorgular yazmıştım.
Ayrıca benim yazdığım sorgu örneklerini kullanmamışsın... @kirve nin mesajıyla karıştırdın sanırım.

şimdi,

kurutermometre IzafiNem YasTermometre
10 20 21,4
10 30 22,1
10 40 22,6
20 20 23,2
20 30 24,7
20 40 25,0

örneğin benim Hazırladığım formdaki Edit1 hücresine gireceğim 14°C Kuru Termometre ve Edit2 hücresine gireceğim 43 izafi nem değeri ni
kullanarak Yaş termometre sıcaklığını hesaplamak istiyorum.

demişsin ya, hesaplama mantığının nasıl olması gerektiğini bir yaz da bilelim neye ulaşmaya çalışıyorsun...
verdiğin değerlere göre, formdan kuruTermometre için 14 izafiNem değeri için 43 girildiğinde yasTermometre için hangi değeri bulmalı? neden ve bulma yöntemi nedir?

[speed60]

unicorn arkadaş ben şöyle bir fonksiyon buldum ama nasıl kullanılacağını bilmiyorum


yaş termometre sıcaklık hesaplayıcı
***************************************************************************/

function psychro_pv1(db, wb, atm) {
var psychro_pv1;
var hl,ch,wh;
var pvp = psychro_pvs(wb);
var ws = (pvp / (parseFloat(atm) - pvp)) * 0.62198;
if (wb <= 32) {
wh=((1219.98+0.44*db-0.49*wb)*ws-0.24*(db-wb))/
(1219.98+0.44*db-0.49*wb);
psychro_pv1 = parseFloat(atm) * (wh / (0.62198 + wh));
}
else {
wh=((1093-0.556*wb)*ws-0.24*(db-wb))/
(1093+0.444*db-wb);
psychro_pv1 = parseFloat(atm) * (wh / (0.62198 + wh));
}
return psychro_pv1;

}

[izmirlikemal]

Lord_Ares arkadaşım, yanıtımı biraz geç yazdım. Kusura bakmayınız. inc(i,10) şeklinde aratmama rağmen ilgisiz yanıtlarla geri dönüyor.
ancak yukrdaki çalışan Button1 proceure'ünde belirttiğim gibi veritabanında birer birer artışlı verilerde sorun yaşamıyorum. 10 lı artışlı veya ondalıklı artışlı verielri çağırmaya çalıştığımda yanlış veri geri dönüyor. Çare nedir. Tşk.

[izmirlikemal]

Dostum Lord_Ares, birazcık geç yazıyorum, kusura bakmayınız.
inc(i,10) şeklinde yazıp tekrar düzenleme yaptığımda ilgisiz sonuç veya hiç sonuç döndürmüyor. Ayrıca bir şey daha sormak istiyorum: Veritabanındaki
string şeklinde kayıtlı ondalık verileri nasıl sorgulayabilirim(Button1Clic procedure'undaki gibi).