Picproje Elektronik Sitesi

DİJİTAL & ANALOG ELEKTRONİK => Temel Elektrik/Elektronik => Konuyu başlatan: z - 26 Kasım 2020, 17:13:12

Başlık: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 26 Kasım 2020, 17:13:12
Iki direncin orani belli oldugunda bu iki direncin standart direnclerden nasil secilecegi konusu basli basina bir problemdir. Bu program size direncleri secmenize yardimci olur.

Ornegin R1/R2 orani ile kazanci ayarlanan opampli devremizde kazanc 4 ise R1 ve R2 ne olmalidir?


https://drive.google.com/drive/folders/1szGHw_8hJD_T3UkT--dEecdHY4g62C56?usp=sharing
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: quarko - 26 Kasım 2020, 18:02:15
Hocam dosya boş.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 26 Kasım 2020, 19:17:05
Alıntı yapılan: z - 26 Kasım 2020, 17:13:12Iki direncin orani belli oldugunda bu iki direncin standart direnclerden nasil secilecegi konusu basli basina bir problemdir. Bu program size direncleri secmenize yardimci olur.

Ornegin R1/R2 orani ile kazanci ayarlanan opampli devremizde kazanc 4 ise R1 ve R2 ne olmalidir?


https://drive.google.com/drive/folders/1szGHw_8hJD_T3UkT--dEecdHY4g62C56?usp=sharing
İhtiyarlıyorsun benim gibi Bülent kardeşim  ;)
Aslında Android uygulaması Electrodoc (Eskiadı electrodruid) bu ve bundan çok fazlasını yapıyor.

(https://i.ibb.co/2h4qFNM/Whats-App-Image-2020-11-26-at-16-15-34.jpg) (https://ibb.co/2h4qFNM)
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Erol YILMAZ - 26 Kasım 2020, 19:28:55
bu tarz birşey mi?

http://jansson.us/resistors.html
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 26 Kasım 2020, 19:50:03
Alıntı yapılan: Erol YILMAZ - 26 Kasım 2020, 19:28:55bu tarz birşey mi?

http://jansson.us/resistors.html

Electrodoc onuda yapıyor  :D

(https://i.ibb.co/Wv8grW8/Whats-App-Image-2020-11-26-at-16-48-46.jpg) (https://ibb.co/Wv8grW8)
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Mucit23 - 27 Kasım 2020, 17:09:51
Alıntı yapılan: z - 26 Kasım 2020, 17:13:12Iki direncin orani belli oldugunda bu iki direncin standart direnclerden nasil secilecegi konusu basli basina bir problemdir. Bu program size direncleri secmenize yardimci olur.

Ornegin R1/R2 orani ile kazanci ayarlanan opampli devremizde kazanc 4 ise R1 ve R2 ne olmalidir?


https://drive.google.com/drive/folders/1szGHw_8hJD_T3UkT--dEecdHY4g62C56?usp=sharing

Şöyle bir fikrim var.
R1/R2 oranı sabit olmak şartıyla dirençleri kafamıza göre seçemiyoruz. Kazanç ve bias devresindeki dirençler üzerinden bir miktar akım akar. Devrede kullanılacak olan dirençlerin değeri bu akımları sınırlayacağından dolayı kullanılan opamp'ın türüne göre seçilen dirençler sorun yaratabilir.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 27 Kasım 2020, 17:35:56
Giris empedansinin ne olmasini istiyorsan direncleri 10 ile carpabilir yada  bolebilirsin.

Birde program direnclerin oranini veren tum secenekleri sunuyor.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 27 Kasım 2020, 17:36:45
Alıntı yapılan: Mucit23 - 27 Kasım 2020, 17:09:51Şöyle bir fikrim var.
R1/R2 oranı sabit olmak şartıyla dirençleri kafamıza göre seçemiyoruz. Kazanç ve bias devresindeki dirençler üzerinden bir miktar akım akar. Devrede kullanılacak olan dirençlerin değeri bu akımları sınırlayacağından dolayı kullanılan opamp'ın türüne göre seçilen dirençler sorun yaratabilir.

Aslında oran üzerinden yürümekte tam doğru değil.
Zira E serisi standartlarda oransal yapı değişmez.
Mesela:
E12 için oran 12. dereceden kök 10 dur.
E96 için ise 96. dereceden kök 10 dur.
sadece seri değiştirerek oransal tanımlı yapıya yaklaşılabilir.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 27 Kasım 2020, 17:38:08
Alıntı yapılan: z - 27 Kasım 2020, 17:35:56Giris empedansinin ne olmasini istiyorsan direncleri 10 ile carpabilir yada  bolebilirsin.

Birde program direnclerin oranini veren tum secenekleri sunuyor.
Linkte olmayan program hakkında konuşuyoruz sanırım :)
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Kılıç - 28 Kasım 2020, 00:50:26
Oranı belli olan 2 direnç var.
Bunlardan birini kendimiz seçiyoruz diğerini program buluyor öyle mi?
Bu, bildiğimiz tek bilinmeyenli denklem çözümü değil mi?

R1/R2 orani belli ise R1 ve R2 icin yardimci ?
Fayda olarak en yakın standart direnci buluyor.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Erol YILMAZ - 28 Kasım 2020, 00:55:04
Z telefon üreticisi olsa boş kutuyu satacak,
alanlar da ne güzel olmuş diyecek... sanırım  :D
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 28 Kasım 2020, 06:14:54
Alternatifler var denince linkte hata olsa ne olur olmasa ne olur demistim.

Link ayni link.

https://drive.google.com/drive/folders/1szGHw_8hJD_T3UkT--dEecdHY4g62C56?usp=sharing

Alıntı yapılan: Mehmet Salim GÜLLÜCE - 27 Kasım 2020, 17:36:45Aslında oran üzerinden yürümekte tam doğru değil.
Zira E serisi standartlarda oransal yapı değişmez.
Mesela:
E12 için oran 12. dereceden kök 10 dur.
E96 için ise 96. dereceden kök 10 dur.
sadece seri değiştirerek oransal tanımlı yapıya yaklaşılabilir.

Ne demek istedigini anlamadim.

E24'un ilk bir kac degerine ardindan da oranlarina bir bakalim

1
1.1
1.2
1.3

1/1.1 = 0.9
1.1/1.2=0.916
1.2/1.3=0.923076

Gordugun gibi oranlar degisiyor. Zaten program da verilen oran degerine en yakin orani veren iki direncin degerini tespit ediyor.

Alıntı yapılan: Kılıç - 28 Kasım 2020, 00:50:26Oranı belli olan 2 direnç var.
Bunlardan birini kendimiz seçiyoruz diğerini program buluyor öyle mi?
Bu, bildiğimiz tek bilinmeyenli denklem çözümü değil mi?

R1/R2 orani belli ise R1 ve R2 icin yardimci ?
Fayda olarak en yakın standart direnci buluyor.


Direnclerden her ikisini de kendisi seciyor.

Direnclerden birisini sen secersen istenen orani daha iyi saglacak direncden mahrum kalabilirsin.


Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: BT - 28 Kasım 2020, 14:50:43
Alıntı yapılan: z - 28 Kasım 2020, 06:14:54Alternatifler var denince linkte hata olsa ne olur olmasa ne olur demistim.

Link ayni link.

https://drive.google.com/drive/folders/1szGHw_8hJD_T3UkT--dEecdHY4g62C56?usp=sharing

Hocam alternatif yok. Link boş.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: LukeSkywalker - 28 Kasım 2020, 22:17:11
Programı indiremedik hocam. Program yok verdiğiniz linkte.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Erol YILMAZ - 29 Kasım 2020, 01:18:03
Alıntı yapılan: LukeSkywalker - 28 Kasım 2020, 22:17:11Programı indiremedik hocam. Program yok verdiğiniz linkte.

Programı herkes göremez  :P
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 29 Kasım 2020, 21:03:39
Alıntı yapılan: z - 28 Kasım 2020, 06:14:54Ne demek istedigini anlamadim.

E24'un ilk bir kac degerine ardindan da oranlarina bir bakalim

1
1.1
1.2
1.3

1/1.1 = 0.9
1.1/1.2=0.916
1.2/1.3=0.923076

Gordugun gibi oranlar degisiyor. Zaten program da verilen oran degerine en yakin orani veren iki direncin degerini tespit ediyor.

Direnclerden her ikisini de kendisi seciyor.

Direnclerden birisini sen secersen istenen orani daha iyi saglacak direncden mahrum kalabilirsin.

Şöyleki...
Çarpan aslında aynı. Ancak endüstride çok haneli rakamlara indirgememek için istenen değeri yuvarlatmak zorunda kalıyorlar. Zira ifadeside zor olacaktır.
Kaldıki her seride Tolerans değiştiği gibi değerin küsüratlı rakamlarıda anlamsızlaşmaya başlar.

E12 den örnek vermiştim gene vereyim.
Çarpan (Oran) 1,21152765862859... 12°Kök(10) dur. Seride 12 direnç olur.
1 x oran^1 = 1.211527 >> 1.2 ye yuvarlatılır.
1 x oran^2 = 1.467799 >> 1.5 e yuvarlatılır.
1 x oran^3 = 1.778279 >> 1.8 e yuvarlatılır.
...
1 x oran^12 = 10 olur ve yuvartlatmadan net değer olur.

E24 için çarpan (Oran) ise 1.10069417125221 24°kök(10) dur.
E48 için çarpan (Oran) ise 1.04913972913631 48°kök(10) dur.
E96 için çarpan (Oran) ise 1.02427522138159 96°kök(10) dur. seride 96 direnç değeri vardır.

Her serinin yuvarlatmaları saymazsak aralarındaki oran sabittir.


Şöyleki iki değer arasındaki farkın yarısı kadar tolerans tanımlanabilir.
E12 için %20 tolerans tanıdığınızda alttan ve üstten komşu değerlere eşitlenir ki anlamsız olur.
%10 dan fazla olmamalıdır.
E24 te ise %5 ile sınırlıdır.
E(X) serisi, seride kaç adet direnç olacağını belirlemekle kalmaz tolerans sınırını da belirler.

https://www.vishay.com/docs/28372/e-series.pdf (https://www.vishay.com/docs/28372/e-series.pdf)
http://www.logwell.com/tech/components/resistor_values.html (http://www.logwell.com/tech/components/resistor_values.html)


(https://i.ibb.co/Cb11Lsx/resim.png) (https://ibb.co/x1CCZ8V)
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 29 Kasım 2020, 21:10:44
Alıntı yapılan: LukeSkywalker - 28 Kasım 2020, 22:17:11Programı indiremedik hocam. Program yok verdiğiniz linkte.
Aslında linkteki Program şöyle bişey olarak karşımıza çıkmakta..   :D ;D

(https://i.ibb.co/vYNcSV2/resim.png) (https://ibb.co/vYNcSV2)

Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 29 Kasım 2020, 21:16:34
Sorunun ne oldugunu anlamadim. Dosya orda duruyor, herkesin gorebilmesi icin de yetki verdim.

Silip bir daha deneyeyim.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 29 Kasım 2020, 21:29:17
AlıntıE12 den örnek vermiştim gene vereyim.
Çarpan (Oran) 1,21152765862859... 12°Kök(10) dur. Seride 12 direnç olur.
1 x oran^1 = 1.211527 >> 1.2 ye yuvarlatılır.
1 x oran^2 = 1.467799 >> 1.5 e yuvarlatılır.
1 x oran^3 = 1.778279 >> 1.8 e yuvarlatılır.

Iyi de bu oran direnclerin orani degil ki.

Soru su mesela Oran=1.211527 ise R1 ve R2 ne olmali ki R1/R2=1.211527 degerine en yakin olur.

Senin verdigin direnc deger hesaplamasindan yola cikarsak

R1= K^n
R2= K^m

R1/R2= K^(n-m) Bu durumda R12 serisinde R1/R2=[12°Kök(10)]^(n-m)

Buradaki n ve m araniyor. n ve m degistiginde R1/R2 orani da degismis oluyor. n ve min alabilecegi degerler belli.
R12 icin 12 birim direnc ve bunlarin 10 lu carpanlari var.

Yani yeterince genis bir yelpazeden iki direnc bulman gerekiyor.
Program da tam da burda ise yariyor.

Ya hesap makinesini alacaksin eline tek tek deneme yapacaksin yada ortalikta olmayan o program senin icin olasi tum oranlari hesaplayacak ve hatayi minimum yapan degerleri listeleyecek.

Mesela 5v gerilimden 1.7v referans gerilim elde etmek istiyorsun. Gerilim bolucu direnclerin ne olmali?

Bu soru icin program kullanmak mantikli. Bilgisayar arasin bulsun.

Ama bi de biz bu programi bulaydik.

Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 30 Kasım 2020, 03:11:46
Alıntı yapılan: z - 29 Kasım 2020, 21:29:17Iyi de bu oran direnclerin orani degil ki.

Soru su mesela Oran=1.211527 ise R1 ve R2 ne olmali ki R1/R2=1.211527 degerine en yakin olur.

Senin verdigin direnc deger hesaplamasindan yola cikarsak

R1= K^n
R2= K^m

R1/R2= K^(n-m) Bu durumda R12 serisinde R1/R2=[12°Kök(10)]^(n-m)

Buradaki n ve m araniyor. n ve m degistiginde R1/R2 orani da degismis oluyor. n ve min alabilecegi degerler belli.
R12 icin 12 birim direnc ve bunlarin 10 lu carpanlari var.

Yani yeterince genis bir yelpazeden iki direnc bulman gerekiyor.
Program da tam da burda ise yariyor.

Ya hesap makinesini alacaksin eline tek tek deneme yapacaksin yada ortalikta olmayan o program senin icin olasi tum oranlari hesaplayacak ve hatayi minimum yapan degerleri listeleyecek.

Mesela 5v gerilimden 1.7v referans gerilim elde etmek istiyorsun. Gerilim bolucu direnclerin ne olmali?

Bu soru icin program kullanmak mantikli. Bilgisayar arasin bulsun.

Ama bi de biz bu programi bulaydik.

Benim kastım dirençler arasındaki değerler yukarıya yada aşağıya çekilince değişmediği ile ilgili.
Mesela 1200/1800 oranı ile 1500/2200 arasındaki oran yada 47000/68000 gibi. (E12 serisini örnekledim)
Bunların hangisini seçeceğine nasıl karar vercekki program.
En azından birisini ve istenen kazancı belirlemezsen...

Sınırsız ihtimaller ortaya çıkar.

Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 30 Kasım 2020, 07:12:00
1200/1800=0.6
1500/2200=0.681
47/68=0.69117

Simdi deseler ki R1/R2= 0.68 olsun hangi direnci secerdin. 1500/2200 mantikli degil mi?
Ama ortalikta gorunmeyen programim R1=68K R1=100K yada 6.8 e 10K sec diyor.

Orani vermen yeterli.

Ihtimaller cok da sinirsiz degil. Bazi direnclerin orani istenen orana digerlerinden daha yakin. Haa tabiki ayni orani tipa tip veren farkli direncler olacaktir. Orda keyfi davranabilirsin. Fakat isin icinde sadece DC kazanc yok AC kazanc da varsa o zaman kose frekansi da vardir ve direnc oranlari tek basina belirleyici olmaz.

Bir opampa ofset verecek gerilim bolucu olarak oran 1/100 ise bu orani sagliyor diye 1 Mohm 100 Mohm bolucu kullanmazsin. Program seni dene yanillardan kurtariyor. Senin yerine denemeleri kendisi yapiyor.

Bu arada bu uygulamayi kazanc dan ziyade DC ofset uretmek icin gerekli gerilim bolucu direnclerin degerlerinin arastirilmasi icin yazdim.

Bahsi gecen program siradan bir prograci icin bile 5 dakida yazilabilecek bir program fakat terzi kendi sokugunu dikemezmis.

Ben de dikemem arada bir lazim olunca yazmak zorunda kaliyorum, yazmisken de linkini veriyorum isteyen kullansin diye.

https://drive.google.com/file/d/1OF96szHzpBhNNqI8DTaLuEtpRc3vuyTj/view?usp=sharing

Indirdikten sonra EKZE uzantisini exe yapmaniz gerekiyor.

Bir de virus taramasi yapiniz. Exe olarak yukledigimde goggledrive virus var diyor ama tarattigimda bir sey bulunamiyor.


Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: BT - 30 Kasım 2020, 16:26:47
@z hocam,
Uyarı veriyor.
"Hizmet Şartlarımızı ihlal ettiği için maalesef bu öğeye erişemezsiniz." diyor.
(https://i.ibb.co/Msv9n5X/image.png) (https://ibb.co/Msv9n5X)

jpg html (https://tr.imgbb.com/)
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 30 Kasım 2020, 16:44:07
Ihlal ettigim bir durum ne olabilir? Sadece virus var uyarisindan kaynakli bir ihlal oldugunu iddia edebilir.

Dedigim gibi virus taramasindan geciyor ama goggledrive virus oldugunu iddia ediyor.

Delphi ile daha once yazdigim programlarda da benzer sorun yasamistim.

O yuzden de exe uzantisini EKZe yaparak sorundan kacabilecegimi dusunmustum.

Eger sorun bu degilse ne ihlal ediliyor anlamiyorum.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: Erol YILMAZ - 30 Kasım 2020, 16:51:39
txt yapın derim.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 30 Kasım 2020, 17:28:11
Alıntı yapılan: z - 30 Kasım 2020, 16:44:07Ihlal ettigim bir durum ne olabilir? Sadece virus var uyarisindan kaynakli bir ihlal oldugunu iddia edebilir.

Dedigim gibi virus taramasindan geciyor ama goggledrive virus oldugunu iddia ediyor.

Delphi ile daha once yazdigim programlarda da benzer sorun yasamistim.

O yuzden de exe uzantisini EKZe yaparak sorundan kacabilecegimi dusunmustum.

Eger sorun bu degilse ne ihlal ediliyor anlamiyorum.
Paylaşımı başka türlü yapın bence
Başka bir browser ile Google accountunuzu açmadan indirmeyi deneyin öncelikle.
Sorun yoksa paylaşabilirsiniz.
Mesela "folders" ibaresinden klasörü paylaştığınızı anlıyorum.
Dosyanın bizzat kendisini paylaş seçeneğiyle bağlantı alırsanız problem olmaz sanırım.
Bunun gibi..
https://drive.google.com/file/d/142NfT_Qi2DxvJGGxAdyeAn4p9rV8iFD3/view?usp=sharing

Birde Şifrelenmiş Paket dosyalara birçok site gıcık oluyor.
Şifresiz paketlemek gerek. Yada paket olmadığına ikna etmek gerek.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: BT - 30 Kasım 2020, 18:13:32
Yeni bir depolama sistemine geçmek pek sıcak görünmeyebilir. Ben Mega.nz (https://mega.nz/)'yi kullanıyorum. 50GB depolama alanı veriyor ve sıkıntı yaşamadım bu zamana kadar. Aklınızda bulunsun.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 30 Kasım 2020, 19:12:25
Alıntı yapılan: BT - 30 Kasım 2020, 18:13:32Yeni bir depolama sistemine geçmek pek sıcak görünmeyebilir. Ben Mega.nz (https://mega.nz/)'yi kullanıyorum. 50GB depolama alanı veriyor ve sıkıntı yaşamadım bu zamana kadar. Aklınızda bulunsun.
Bende https://files.fm/ (https://files.fm/) kullanıyorum.
Sadece büyük dosyalara izin vermiyor.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: OG - 01 Aralık 2020, 05:17:39
AlıntıIhlal ettigim bir durum ne olabilir?
Birisi hak iddiasında bulundu ise de ihlal gerekçesi sayıyorlar
mesela gıcıklık yapmak isteyen birisi
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: LukeSkywalker - 01 Aralık 2020, 18:20:59
mediafire da iyidir
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 01 Aralık 2020, 18:36:38
http://www.mediafire.com/file/cogoiyzwet4gwt9/Kazanc.exe/file
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 01 Aralık 2020, 19:03:35
Alıntı yapılan: z - 01 Aralık 2020, 18:36:38http://www.mediafire.com/file/cogoiyzwet4gwt9/Kazanc.exe/file
Nihayet programı gördük :)
Direnç tablosu girmek epey problem olmalı.

Delphide yazmışsın sanırım.
Kaynak kodu verebilirmisin bülent kardeş.
Delphi öğrenmeye çalışıyorum...!!
Bana referans olur.

Haa bide dosya okuyup yazmayla ilgili bir kaynak kodun warsa...
Ben beceremedim kaynak da bulamadım. Rica etsem. :) :-*
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 01 Aralık 2020, 19:11:36
procedure TForm1.Button1Click(SenderTObject);
var
i,n,j,k:integer;

begin
      
try
         
Oran:=StrToFloat(Edit1.text);
      
except
         application
.MessageBox('Incorrect entry','!!!',MB_OK);
         exit;
      
end;


      if 
RadioButton1.Checked then
         begin
            R
[1]:=0.001;
            
R[2]:=0.0012;
            
R[3]:=0.0015;
            
R[4]:=0.0018;
            
R[5]:=0.0022;
            
R[6]:=0.0027;
            
R[7]:=0.0033;
            
R[8]:=0.0039;
            
R[9]:=0.0047;
            
R[10]:=0.0056;
            
R[11]:=0.0068;
            
R[12]:=0.0082;

            
R[13]:=0.01;
            
R[14]:=0.012;
            
R[15]:=0.015;
            
R[16]:=0.018;
            
R[17]:=0.022;
            
R[18]:=0.027;
            
R[19]:=0.033;
            
R[20]:=0.039;
            
R[21]:=0.047;
            
R[22]:=0.056;
            
R[23]:=0.068;
            
R[24]:=0.082;

            
R[25]:=0.1;
            
R[26]:=0.12;
            
R[27]:=0.15;
            
R[28]:=0.18;
            
R[29]:=0.22;
            
R[30]:=0.27;
            
R[31]:=0.33;
            
R[32]:=0.39;
            
R[33]:=0.47;
            
R[34]:=0.56;
            
R[35]:=0.68;
            
R[36]:=0.82;

            
R[37]:=1;
            
R[38]:=1.2;
            
R[39]:=1.5;
            
R[40]:=1.8;
            
R[41]:=2.2;
            
R[42]:=2.7;
            
R[43]:=3.3;
            
R[44]:=3.9;
            
R[45]:=4.7;
            
R[46]:=5.6;
            
R[47]:=6.8;
            
R[48]:=8.2;

            
R[49]:=10;
            
R[50]:=12;
            
R[51]:=15;
            
R[52]:=18;
            
R[53]:=22;
            
R[54]:=27;
            
R[55]:=33;
            
R[56]:=39;
            
R[57]:=47;
            
R[58]:=56;
            
R[59]:=68;
            
R[60]:=82;

            
R[61]:=100;
            
R[62]:=120;
            
R[63]:=150;
            
R[64]:=180;
            
R[65]:=220;
            
R[66]:=270;
            
R[67]:=330;
            
R[68]:=390;
            
R[69]:=470;
            
R[70]:=560;
            
R[71]:=680;
            
R[72]:=820;

            
n:=72;
         
end
      
else
         
begin
            R
[1]:=0.001;
            
R[2]:=0.011;
            
R[3]:=0.0012;
            
R[4]:=0.0013;
            
R[5]:=0.0015;
            
R[6]:=0.0016;
            
R[7]:=0.0018;
            
R[8]:=0.002;
            
R[9]:=0.0022;
            
R[10]:=0.0024;
            
R[11]:=0.0027;
            
R[12]:=0.003;
            
R[13]:=0.0033;
            
R[14]:=0.0036;
            
R[15]:=0.0039;
            
R[16]:=0.0043;
            
R[17]:=0.0047;
            
R[18]:=0.0051;
            
R[19]:=0.0056;
            
R[20]:=0.0062;
            
R[21]:=0.0068;
            
R[22]:=0.0075;
            
R[23]:=0.0082;
            
R[24]:=0.0091;

            
R[25]:=0.01;
            
R[26]:=0.011;
            
R[27]:=0.012;
            
R[28]:=0.013;
            
R[29]:=0.015;
            
R[30]:=0.016;
            
R[31]:=0.018;
            
R[32]:=0.02;
            
R[33]:=0.022;
            
R[34]:=0.024;
            
R[35]:=0.027;
            
R[36]:=0.03;
            
R[37]:=0.033;
            
R[38]:=0.036;
            
R[39]:=0.039;
            
R[40]:=0.043;
            
R[41]:=0.047;
            
R[42]:=0.051;
            
R[43]:=0.056;
            
R[44]:=0.062;
            
R[45]:=0.068;
            
R[46]:=0.075;
            
R[47]:=0.082;
            
R[48]:=0.091;


            
R[49]:=0.01;
            
R[50]:=0.011;
            
R[51]:=0.012;
            
R[52]:=0.013;
            
R[53]:=0.015;
            
R[54]:=0.016;
            
R[55]:=0.018;
            
R[56]:=0.02;
            
R[57]:=0.022;
            
R[58]:=0.024;
            
R[59]:=0.027;
            
R[60]:=0.03;
            
R[61]:=0.033;
            
R[62]:=0.036;
            
R[63]:=0.039;
            
R[64]:=0.043;
            
R[65]:=0.047;
            
R[66]:=0.051;
            
R[67]:=0.056;
            
R[68]:=0.062;
            
R[69]:=0.068;
            
R[70]:=0.075;
            
R[71]:=0.082;
            
R[72]:=0.091;

            
R[73]:=1;
            
R[74]:=1.1;
            
R[75]:=1.2;
            
R[76]:=1.3;
            
R[77]:=1.5;
            
R[78]:=1.6;
            
R[79]:=1.8;
            
R[80]:=2;
            
R[81]:=2.2;
            
R[82]:=2.4;
            
R[83]:=2.7;
            
R[84]:=3;
            
R[85]:=3.3;
            
R[86]:=3.6;
            
R[87]:=3.9;
            
R[88]:=4.3;
            
R[89]:=4.7;
            
R[90]:=5.1;
            
R[91]:=5.6;
            
R[92]:=6.2;
            
R[93]:=6.8;
            
R[94]:=7.5;
            
R[95]:=8.2;
            
R[96]:=9.1;

            
R[97]:=10;
            
R[98]:=11;
            
R[99]:=12;
            
R[100]:=13;
            
R[101]:=15;
            
R[102]:=16;
            
R[103]:=18;
            
R[104]:=20;
            
R[105]:=22;
            
R[106]:=24;
            
R[107]:=27;
            
R[108]:=30;
            
R[109]:=33;
            
R[110]:=36;
            
R[111]:=39;
            
R[112]:=43;
            
R[113]:=47;
            
R[114]:=51;
            
R[115]:=56;
            
R[116]:=62;
            
R[117]:=68;
            
R[118]:=75;
            
R[119]:=82;
            
R[120]:=91;

            
R[121]:=100;
            
R[122]:=110;
            
R[123]:=120;
            
R[124]:=130;
            
R[125]:=150;
            
R[126]:=160;
            
R[127]:=180;
            
R[128]:=200;
            
R[129]:=220;
            
R[130]:=240;
            
R[131]:=270;
            
R[132]:=300;
            
R[133]:=330;
            
R[134]:=360;
            
R[135]:=390;
            
R[136]:=430;
            
R[137]:=470;
            
R[138]:=510;
            
R[139]:=560;
            
R[140]:=620;
            
R[141]:=680;
            
R[142]:=750;
            
R[143]:=820;
            
R[144]:=910;

            
n:=144;
         
end;

      
Err:=1E9;
      
Memo1.text:='';
      for 
i:=1 to n do
        for 
j:=1 to n do
          
begin
            Hesaplanan
:=R[i]/R[j];
            if 
abs(Oran-Hesaplanan)<=Err then
                begin
                  
if abs(Oran-Hesaplanan)<0.1 then   // Bu kriteri istedigin sekilde degistirebilirsin
                    
begin
                      Err
:=abs(Oran-(Hesaplanan));
                      
Memo1.Lines.add(format('A %4.4f',[R[i]]));
                      
Memo1.Lines.add(format('B %4.4f',[R[j]]));
                      
Memo1.Lines.add(format('A/B %4.4f',[Hesaplanan]));
                      
Memo1.Lines.add('');
                    
end;
                
end;
            
end;


end;
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: BT - 02 Aralık 2020, 10:27:40
Geribildirimde bulunayım. Emeğinize sağlık öncelikle.

Küsuratlı oranlarda bende çalışmadı.
A/B = 8 dedim ve sonuç olarak şunlar çıktı:

A 1,2000
B 0,1500
A/B 8,0000

A 12,0000
B 1,5000
A/B 8,0000

A 120,0000
B 15,0000
A/B 8,0000

Bu bol sıfırlar kafa karıştırıcı

Mesela A/B = 142 dedim. Yine sonuç göstermedi.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: M.Salim GÜLLÜCE - 02 Aralık 2020, 17:45:00
Alıntı yapılan: BT - 02 Aralık 2020, 10:27:40Geribildirimde bulunayım. Emeğinize sağlık öncelikle.

Küsuratlı oranlarda bende çalışmadı.
A/B = 8 dedim ve sonuç olarak şunlar çıktı:

A 1,2000
B 0,1500
A/B 8,0000

A 12,0000
B 1,5000
A/B 8,0000

A 120,0000
B 15,0000
A/B 8,0000

Bu bol sıfırlar kafa karıştırıcı

Mesela A/B = 142 dedim. Yine sonuç göstermedi.
nokta değil virgülle ayırman gerek küsüratı.
Birde scroll bar olsa fena olmazdı tabii.
Ben becerebilsem eklerim.
Henüz çok acemiyim.
Başlık: Ynt: R1/R2 orani belli ise R1 ve R2 icin yardimci
Gönderen: z - 04 Aralık 2020, 07:58:50
Programin asagidaki satirinda

if abs(Oran-Hesaplanan)<0.1 then   // Bu kriteri istedigin sekilde degistirebilirsin

Verilen oran ile iki direncin orani arasindaki fark 0.1 den kucuk olamiyorsa bu orani veren direncler yok mantigiyla herhangi bir sonuc cikmiyor.

Delphi'nin format komutunda float degiskenleri basarken gereksiz/anlamsiz sifirlari gosterme secenegi var mi bilmiyorum. Arastirayim.

Tesekkurler.