TextBox ekletme

[bage]

Arkadaşlar Merhaba,
Makrolarla olup olamayacagını bilmiyorum ama yine de bu konunun üstadlarına sormak istedim.

Ekli dosyada da belirttigim gibi, bir textbox'a girdigimiz deger kadar yeni textbox'lar üretebilirmiyiz?

Ornegin:
Olcum Noktası Sayısı (txtnoktasayisi) textbox'ına 1 yazdıgımız zaman adı sırayla:
txtref0 txtolcuma0 txtolcumb0 txtsapmaa0 txtsapmab0 txtfu0
txtref1 txtolcuma1 txtolcumb1 txtsapmaa1 txtsapmab1 txtfu1

diye yanyana yeni textboxlar türetebilirmiyiz? (Tabiki bu sayı en fazla 20 olacak).(Burada sıfır ile baslayanları da dahil edersek 1 yazınca 1+1=2 sıra textbox turetecek)

Olcum noktası sayısı (txtnoktasayisi) textbox'ına 5 yazdigimizda bu degerlerin hepsi birer artarak 5+1 satir seklinde olacak.

Eger bu mumkunse;
txtsapmaa0=txtref0-txtolcuma0
txtsapmab0=txtref0-txtolcumbo
txtfu0=Mutlak(txtolcuma0-txtolcumb0)

formullerini de textbox'lar ek'lenince otomatik olusturabilir miyiz?

İlgilen ve zaman ayırıp dusunen arkadaslara simdiden tesekkur ederim...

 

[Levent Menteşoğlu]

Bu istediğiniz elbette yapılabilir, ben akşam size detaylı bir dosya hazırlayabilirim.

 

[Ferhat Pazarçevirdi]

Sn.Bage ,

Bu sorunuzu daha önce sormuştunuz ve cevabı alttaki linkte verilmişti. Aynı iş için, iki başlık birden açmış oldunuz.

http://www.excel.web.tr/showthread.php?t=36531

 

[bage]

Sayın fpc,
Ekli dosya haric ,ne konu ne de soru olarak hic bir benzerligi olmayan bir soru sormustum.
Tek benzerlikleri aynı dosya uzerinde farklı tipte iki soru olması.(!!!)

Sayın "leventm", cevabınızı bekleyecegim.
Degerli zamanınızı ayırdıgınız icin de ayrıca cok tesekkur ediyorum....
Saygılar...

 

[Levent Menteşoğlu]

Biraz uğraştırdı ama fena bir çalışma olmadı. Bu dosyada kod ile nesne ekleme-çıkarma,nesne özelliklerini tanımlama ve eklenen bu nesnelere class module ile ortak özellik kazandırma gibi uygulamalarıda görebilirsiniz.

 

[Galus]

Sayın leventm, süper bir çalışma. Tebrikler... Şu formu biz de yapabilecek miyiz ?

 

[Haluk]

Levent bey'in izniyle, kendisinin hazırladığı yukarıdaki dosyada ufak bir ilave yaptım.

İlave konusu, Levent bey'in orjinal kodunda TextBox' ların sayısı 10' dan fazla olunca UserForm'un ölçüleri buna göre değiştiriliyordu. Bazen ekran boyutunu da aşabilir.

Çözüm olarak, UserForm'da TextBox'ların eklendiği alana bir düşey kaydırma çubuğu ilave ederek, UserForm'un yüksekliği değiştirilmeden kaydırma çubuğu ile bütün TextBox'ların görüntülenebilmesi sağlanmıştır.

Revizyonlu dosya ektedir.

 

[Levent Menteşoğlu]

Sayın leventm, süper bir çalışma. Tebrikler... Şu formu biz de yapabilecek miyiz ?

Teşekkür ederim. Bence bu tip çalışmaları yapmamanız için bir sebep yok.

Levent bey'in izniyle, kendisinin hazırladığı yukarıdaki dosyada ufak bir ilave yaptım......

Rica ederim Üstadım, çok yerinde bir ilave olmuş teşekkür ederim. Bencede scrollbar çözümü daha mantıklı.

 

[bage]

Sayın "leventm";
Sayın "Haluk";

oncelikle her ikinize de ayrı ayrı tesekkur etmek istiyorum.
İki üstadın bu konuya cevap yazması beni cok memnun etti.
Bu arada bu zamana kadar tesekkur edemedigim icin ayrıca ozur dilerim.
Bir saygısızlık olarak gorulmemesini istirham ediyorum, zorunlu bir seyahate cıktıgım icin ancak simdi forum'a girebildim.
Gercekten cok guzel bir calisma olmus.
Bu arada birkac sorum daha olacak, affınıza sıgınarak:
I)
Ölçüm Aralığı=8
Ölçüm Noktasi sayisi=4
ise

"Referans" yazan kısmında altında açilacak TextBok'larda sırayla:
0,00
(Ölçüm Aralığı /Ölçüm Noktası Sayısı)*1= (8/4)*1= 2,00
(Ölçüm Aralığı /Ölçüm Noktası Sayısı)*2 =(8/4)*2= 4,00
(Ölçüm Aralığı /Ölçüm Noktası Sayısı)*3 =(8/4)*3= 6,00
(Ölçüm Aralığı /Ölçüm Noktası Sayısı)*4 =(8/4)*4= 8,00

sonucları yazacak.

II)
TabIndex sıralaması, önce "Artan" yazan kısmın altındaki txtolcuma... 'lar tamamlandıktan sonra "Azalan" yazan kısmın altındaki txtolcumb...'lere geciş yapacak.

III)
"Max Sapma Değeri" (txtmaxsapma) kısmına "Artan Sapma" ve "Azalan Sapma" lar icerisindeki mutlak değerce en buyuk olan degeri yazacak.

IV)
"En Büyük Histerezis Değeri" (txtfusonuc) kısmına , "Histerezis" yazan kısmın altındaki txtfu... 'ların mutlak değerce en buyuk olanını yazacak,

V)
"En Buyuk % Hatası" (txtfs) kısmına ise;
-Eğer "Max Skala Değeri (txtmaxskala)" dolu ve "Ölçüm Aralığı (txtaralik)" değerinden büyük ise,
En Buyuk % Hatası=(Max Sapma değeri/Max Skala Değeri)*100

-Eğer "Max skala değeri" boş yada "Ölçüm Aralığı" Değerinden küçük ise
En Buyuk % Hatası=(Max sapma Değeri/Ölçüm Aralığı)*100 sonucunu yazacak.

Belki biraz yüzsüzlük yapıyorum, ama üstadlarımızın anlayışla karşılayacağını umuyorum.
Şimdiden değerli zamanınızı ayırdığınız için cok tesekkür eder sonsuz saygılarımı sunuyorum....

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[bage]

Sayın leventm,
Sehir disinda oldugum icin bu gune kadar forum'a giris yapamamistim.Gercekten ellerinize saglik,cok guzel olmus.
Fakat birkac noktada duzeltme/duzenlemeye ihtiyac var galiba....
I-) Herzaman "Referans" 'ın ilk degeri "0 (sıfır)" olacak. (Bir onceki calismada oyle idi)

II) "Artan Sapma" kısmının formatında bir sorun yasıyorum.
Ornegin
"Referans"= 2
"Artan" = 2,05 ise
"Artan Sapma" = -4,99999999999999

gibi bir sonuc veriyor.

III) Bir de "Max Skala Değeri" kısmına ve "Olcum Noktasi Sayisi" kısmına deger girdigim zaman "Referans" kısmına sadece yeni TextBox'lar aciyor fakat iclerine degerleri atmiyor.
Bir de "Max Skala Degeri" > "Olcum Araligi" degerinden buyuk ise ve "Olcum Noktasi Sayisi" na bir deger girilmisse "Referans" kisma degerleri atmiyor.

Eger zamanınız olur da ilgilenirseniz cok memnun olurum.
Simdiden degerli zamanınızı ayırdıgınız icin cok tesekkur ederim.

Saygılar, Selamlar....