• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Mühendislik Hesaplaması (Max,Histerezis...)

B

bage

Katılım
25 Ağustos 2005
Mesajlar
47
Excel Vers. ve Dili
İş Yerinde : Excel 2002-Tr
Evde : Excel 2003 Pro-Tr
Arkadaşlar Merhaba,
Bir userform uzerine tetxbox'lar yerleştirip sapmaları, maksimum sapmayı, histerezis degerini hesaplatmak istiyorum.
Arayuzununu ve ControlTipText'lerini yanlarına yazdım.

Eger ilgilenen ve yardımcı olmak isteyen arkadaslar olursa memnun olurum...

Saygılar...
 
Mühendislik 2

Arkadaşlar,
bir önceki yazdigim konuya hic cevap yazan olmadi.
Su soruma cevap vereck arkadaslar olursa sevinirim.
Daha once yine bu siteden bir arkadasin yardimiyla
asagidaki kodu yazmistik (Bu arada kendisine yine tesekkur ederim)
Fakat asagida verdigim kodlar, sadece txtsapma1..........txtsapma22'ye
kadar butun textbox'lar dolunca txtmaxsapma kutucugunda sonuc veriyor.
Kodu nasıl degistirmeliyim ki, her txtsapma.. degerini girince otomatik olarak txtmaxsapma degerini hesaplasin.

Simdiden tesekurler...
'.................................................
Private Sub fmaxkontrol()
Dim buyuk As Single, kucuk As Single, i As Integer
Dim toplam As Single, ilk As Integer


For i = 0 To Me.Controls.Count - 1
NesneAd = Me.Controls(i).Name
If Mid(NesneAd, 1, 8) = "txtsapma" Then
NesneValue = Me.Controls(i).Value

If NesneValue = "" Then Exit Sub
If Not IsNumeric(NesneValue) Then Exit Sub
If NesneValue >= buyuk Then buyuk = 1 * NesneValue
If ilk = 0 Then
kucuk = 1 * NesneValue
ilk = 1
Else
If NesneValue <= kucuk Then
kucuk = 1 * NesneValue
End If
End If
End If
Next i
toplam = Abs(buyuk) + Abs(kucuk)
txtmaxsapma = Format(toplam, " #,##0.00")

End Sub

Private Sub txtsapma1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma18_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma19_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
Private Sub txtsapma22_Exit(ByVal Cancel As MSForms.ReturnBoolean)
fmaxkontrol
End Sub
 
Ekteki dosyayı inceleyiniz.

Bazı değerlerin nasıl işleme dahil edileceği veya nasıl bir sonuç alınacağı konusunda fikrim olmadığından o kısımları boş geçtim. ("Max Skala Değeri" ve "En Büyük % hatası") Eğer bunları biraz açarsanız, ilave edebiliriz.

Burada sizin tasarladığjnız userformun dışına çıkıldı. Tablo ve veri girişini desteklemek ve daha kolay hale getirmek için "OWC spreadsheet" nesnesi kullanıldı
 
Sayın fpc,
gondermis oldugunuz cevap icin tesekkur ederim.
Ama bir satırda hata veriyor."Spreadsheet1" 'i nasıl ekleyebilirim.
İlginiz icin cok tesekkur ederim.

'................
Private Sub UserForm_Initialize()
txtaralik.Text = 10
txtnoktasayisi.Text = 5
With Spreadsheet1
'..............
 
Sayın fpc,
aciklamasini istediginiz terimler ise;

Max Skala degeri > Ölçüm araligi ise,
En Buyuk % Hatasi = (Max Sapma Degeri / Max Skala Degeri)*100

Max Skala Degeri <= Olcum Araligi ise;
En Buyuk % Hatasi = (Max Sapma Degeri / Olcum Araligi)*100

Umarim acik bir sekilde anlatmisimdir.

Tesekkurler...
 
Sayın fpc,
ben de "Microsoft Office Web Component 11.0" mevcut degil.
Bunu bulabilecegim bir adres var mı yada siz ekleyebilir misiniz?
 
Sayın fpc,
vermiş oldugunuz link'ten ilgili dosyayı indirip çalıştırdım.
Gondermis oldugunuz dosya cok guzel calisiyor, ellerinize saglik,
farkli bir uygulama olmus.
Burada sunu sormak istiyorum:
Bu bilgilerin bazilarini (ihtiyacim olanlari) ornegin bazı hucrelerdeki bilgileri nasil Excel sayfasindaki hucrelere aktarabilirm.
Bir de, Olcum Araligi sayisini ornegin 20 yazinca alta dogru sayfayi nasil otomatik olarak büyütebiliriz?

Gercekten farklı ve guzel bir calisma olmus, tesekkur ederim...

Bu arada Sayın "leventm" 'umun yapacagi calismayi da merakla bekliyorum....
Simdiden size ve Sayın "leventm" a cok tesekkur ederim...
Saygılarımla...
 
Bu bilgilerin bazilarini (ihtiyacim olanlari) ornegin bazı hucrelerdeki bilgileri nasil Excel sayfasindaki hucrelere aktarabilirm.
Genişletmek için tıkla ...

Ekteki dosyayı inceleyiniz. Bir adet commanbutton eklendi. Bastığınızda aktif sheet üzerine tüm bilgileri alırsınız.

Kod: 
Bir de, Olcum Araligi sayisini ornegin 20 yazinca alta dogru sayfayi nasil otomatik olarak büyütebiliriz?

Sayfa zeten alta doğru büyüyor. Sadece mouse veya klavye yardımıyla aşağıya inin. Hatta 1000'e bile bölebilirsiniz. O zaman 1001 satır ilave edilir. Aynı şekilde diğer textbox'ıda değiştirdiğinizde spreadsheet otomatik olarak kendini yeniler.
 
Ekteki dosyayı inceleyiniz.

(1) Enter tuşu ile bir sornaki sütunun ilk hücresine geçme : Tamam.
(2) Artan ve Azalan hücreleri hariç, diğer tüm hücrelere müdahale engellendi.
(3) Enbüyük % Hatası hesapları : Tamam (Ancak bunu test etmeniz gerekiyor)
 
Son düzenleme:
Mehaba Sayın fpc,
sehir disinda oldugum icin anacak simdi foruma girebildim.
Oncelikle emek ve zaman harcadiginiz icin cok tesekkur ederim.
Fakat hazırlamis oldugunuz kodlari calistiramiyorum,hata raporu veriyor.
"Hesaplama" tusuna basinca bilgisayar dusunmeye geciyor ve arkasindan "Hata Raporu Gonder" mesaji veriyor.
Ayni sekilde Visual Basic Duzenleyicisine (Alt+F11) girmeye calisinca da ayni hatayi veriyor.
Baska kodlari calistirirken herhangi bir sorun yasamiyorum.
O yuzden hazirlamis oldugunuz kodlari calistiramadim.

Saygılar, Selamlar...
 
Bende herhangi bir hata vermiyor.

Konuyu inceleyen di&#287;er arkada&#351;lardan ricam, dosyada benzer problemler ya&#351;ay&#305;p ya&#351;amad&#305;klar&#305;n&#305; yazmalar&#305;...

E&#287;er sorun di&#287;er kullan&#305;c&#305;larda da &#231;&#305;karsa, kodlar&#305; g&#246;zden ge&#231;irelim.

Kulland&#305;&#287;&#305;n&#305;z bilgisayarda; "Microsoft Office Web Component 11.0" y&#252;kl&#252; m&#252; acaba?
 
Sayın fpc,
Bilgisayarımda "Microsoft Office Web Component 11.0" yuklu.
Ayrıca, en son gonderdiginiz kodlardan once hazırlamıs oldugunuz kodlar duzgun calisiyor.
"Hesapla" butonuna basinca "Excel" çalışma kitabi tamamen kapanip kayboluyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst