Delphi Forum

konuyu hortlatacak belki ama, benzer bir sorun yaşıyordum. meğer telefonun driverinin yüklenmesi gerekiyormuş. normalde aygıt yöneticisinde telefonu görüyordu ve sorunsuzdu. Ancak yinede telefonun pc driverini sitesinden bulup indirdim. driveri yükleyince sorun düzeldi, delphi de target klasörü ...

procedure TForm3.Button1Click(Sender: TObject);
Var
boy,en, dx,dy:real;
Hassasiyet,j,fark,enfark:real; //ulasmak istedigimiz hassasiyet orani
ustisi,altisi,sagisi,solisi, say:integer;
i,k,xx,yy:integer;
Begin
Boy:=strtofloat(edit1.Text); en:=strtofloat(edit2.Text);
dx:=strtofloat(edit3.Text ...

Yarin delphide yazip calisan seklini gondrririm.

Tamamdir. Cepten yazdigim icin yazim hatalari olabilir. Duzeltirsin hatali yer varsa ama mantik bu. Kolay gelsin..

Ayrica eger iterasyon sayisini dusurmek istersen sanirim baslangic degerlerini 0 yapmayabilirsin. Cevresindeki bilinen iki noktanin ortalamasini baslangic degeri olarak kabul edersen ...

:) Senin uzmanlik alaninla ilgili anlayamadigim cok fazla semboller ve terimler olsada ana fikri anladim sanirim. Oncelikle ben tek bir formul bekliyrdum. Ama burada ard arda yapilmasi gereken bir islem sirasi var. Anladigim gibiyse eger cok kolay ittire ittire iterasyon yapicaz :)

iki yolu var ...

Ornek bir soru yaz ve sonra cozumunu goster. Yasadigin skintilari cok guzel anlatmissin ama keske sadece soru ve cozumu yazsaymissin :) bu sekilde koda dokebilirdik. Bolumlendirdigin her noktadaki sicaklik isteniyrmus. Bu sicakligin nasil hesaplandiginin formulunu yazarsan kolayca delphi koduna ...

simdi kontrol ettim. Mssql de limit yok sanırım. onun yerine 2005 ve önceki versiyonlarında top var. MSSQL 2012 kullaniyorsan OFFSET ROWS FETCH kullanman gerekiyor. mssql biraz karışık geldi mysql e göre..
sorgula butonuna
sql:='Select * from stok where kullanici like '020%' order by stokid OFFSET ...

Veri tabaninda mutlaka otomatik artan index id vardir. Sql serverda tam bilmiyrum ama mysl de ornek bir kod yazabilirim.
Sorgula butonuna asagidaki sql yazilacak.
sql:='Select * from stok where kullanici like '020%' limit 25 order by stokid';
Adoquery.sql.add(sql);
Adoquery.open;
Adoquery.last ...

Veri tabaninda mutlaka otomatik artan index id vardir. Sql serverda tam bilmiyrum ama mysl de ornek bir kod yazabilirim.
Sorgula butonuna asagidaki sql yazilacak.

Select * from stok where kullanici like '020%' limit 25 order by stokid

Haklisin. Ben kodu gorup kendine uyarlar diye aceleyle yazmistim :)

Var
i,h:integer;
isim:string;
Temp:string;
Begin
isim:= edit1.text;
i:=pos(isim, ' '); /// boslugun kacinci sirada
Edit2.text := copy(isim, 1, i-1);
temp:=copy(isim, i+1, length(isim)-i);
h:= pos(temp,' ');
If h > 1 then ...

Mysql de tutuyrum. Senaryolari yoneten ayri bir program daha yazdim.

Matlap bana gore olmadigina karar verdim. Genelde sihirbazlar ve hazir kod bloklari ile calisiyrsun. Arabayi uzaktan kumanda ile kullanmaya benzettim. Yazdigim programa tam hakimiyet kuramiyrum. Responsivevoice i denedim. Istedigim sey konusmasi degil aslinda. O kadar da abartmayacagim :) ayrica ...

Ceva için teşekkürler. Matlap hakkında hiçbir bilgim yoktu. araştırdım biraz. etkileyici bişey. hattta yapayzeka ve sinir ağları için özel hazırlanmış olduğunu öğrenince şaşırdım. https://www.youtube.com/watch?v=l6SI5-dHux8&list=PLUD51ympCn_KyaPUDlywh1JrxK5FRiwuO bu linkte matlap ile ilgili bulduğum ...

Var
i:integer;
isim:string;
Begin
isim:= edit1.text;
i:=pos(isim, ' '); /// boslugun kacinci sirada oldugunu donderir
Edit2.text := copy(isim, 1, i-1); // 1. Karakterden i-1inci karaktere kadar kopyala
Edit3.text := copy(isim, i+1, length(isim)-i);
End;

Denemek icin firsatim olmamisti. Belki yazim hatasi yapmisimdir. Yarin delphide deneyip calistigindan emin olurum.