



Study with the several resources on Docsity
Earn points by helping other students or get them with a premium plan
Prepare for your exams
Study with the several resources on Docsity
Earn points to download
Earn points by helping other students or get them with a premium plan
Community
Ask the community for help and clear up your study doubts
Discover the best universities in your country according to Docsity users
Free resources
Download our free guides on studying techniques, anxiety management strategies, and thesis advice from Docsity tutors
Visual Basic YArdımı İle verilerin Değerlendirilmesi ve Tearik ve Deneysel Yolların Ortak Paydada Buluşması
Typology: Study notes
1 / 6
This page cannot be seen from the preview
Don't miss anything!
Cevdet CANPOLAT 1 Mehmet ERDAL 2 Özgür KÜÇÜKALİ 3 İbrahim AKDEMİR^4
(^1) Jeo. Müh., Şb. Müd., DSİ Gen. Müd. TAKK Dai. Bşk. Zem. Mek. Lab. / ANKARA (^2) İnş. Müh., Şb. Müd. V., DSİ Gen. Müd. TAKK Dai. Bşk. Zem. Mek. Lab. / ANKARA (^3) Jeo. Yük. Müh. , DSİ Gen. Müd. TAKK Dai. Bşk. Zem. Mek. Lab. / ANKARA (^4) İnş. Yük. Müh., DSİ Gen. Müd. TAKK Dai. Bşk. Zem. Mek. Lab. / ANKARA
DSİ Teknik Araştırma ve Kalite Kontrol Dairesi Başkanlığı Zemin Mekaniği Lab. Şb. Md. hayata geçirilen konsolidasyon yazılım programı, mühendis ve laborantın iş yükünü azaltmış olup günler süren okuma ve değerlendirmeleri tek tuşla yaparak zaman ve emek yönünden konsolidasyon deneyinin raporlanmasını asgari düzeylere çekerek optimum sonuçlar elde edilmiştir. Böylece mühendisin yorumlamasına açık grafikler ortak bir çerçevede çıkmaya başlamıştır.
Deney sistemi kısaca veri toplama ünitesi, şase bağlantısı, aygıt geçiti, veri taşıma kabloları ve yazılım programından oluşmaktadır. Programlama Microsoft txt dosyası tabanlı çalıştığı için kolay kavranabilen ve herhangi bir durumda değiştirme özelliğine sahip ve verilerin anlık kaydedilmesi esasına dayalı bir yazılım olduğu için kullanıcı dostu bir yapıya bürünmektedir. Raporlama Excel ve Föyleme Word ortamında yapıldığı için txt dosyalarının değerlendirilmesi bilgisayar üzerinde olmakta ve Kullanıcılardan gelen A tipi belirsizlikler sadece numune hazırlama kısmıyla ve sensörlerin ölçümlemeden gelen belirsizlikleri kullanmak suretiyle hatalar ayıklanabilmektedir.
Konsolidasyon Programı ve Arayüzü Kullanma Teknikleri
Numuneler sıkıştırma kalıplarında hazırlanarak (Örselenmiş ise γ (^) kmaks ve W (^) opt değerlerine göre, Örselenmemiş ise γdoğal ve Wdoğal ) hücreye konur numuneler suya boğularak komparatör saatinden bir günlük okuma değeri alınarak (Eğer Şişme kontrollü yapmıyorsak)
Arayüzde yeni tuşuna basıldıktan sonra lab. no ve numune numarası kısımları girilir. Dikkat edilmesi gereken husus bu noktadan sonra bir önceki gerçekleştirdiğimiz deneyde o istasyona ait veriyi raporlama ve föyleme imkanımızın arayüzde artık gerçekleştiremeceğimizdir. Tabii bu konsolidasyon verilerimizin txt tabanlı olarak anında kayıt edildiği için sonradanda bazı uygulamalar yapılarak tekrar Excel ve Word ortamında verileri aktarabiliriz.
İstasyon numaralarının yazdığı kısımda bulunan Hs butonuna basılarak arayüze kabarma veya çökelme miktarı yansır numunenin ilk yüksekliği ölçülerek arayüze girilir klavyedeki tab tuşuna basılarak son numune yüksekliği yazılıma kayıt edilir. Bundan sonra verilerin okumasına hazırdır komparatör saati üzerindeki zero (sıfır) butonuna basılır. Hücrenin içine yerleştirdiğimiz ringin çapını mm olarak virgül yerine nokta kullanılarak rakamsal değeri girilir klavye üzerinde tab tuşuna basılarak otomatik olarak alt sekmede yer alan kesit alanı hesap edilmiş olur.
Numunenin konsolidasyon hücresine bağlanmadan rutubet konrtolerinin deneyin başında ve sonunda yapılarak arayüzdeki alt kısma girilir. Tamam tuşu arayüze bu değerlerin kayıt edilmesini sağlar herhangi bir yanlış rakamsal yazılımda doğrusu yazılarak tamam tuşuna basılabilir. Klavyede tab tuşu bir alttaki sekmeye geçmemizi sağlar.
Bilgisayar üzerine verilerin kayıt edilmesi lab. no başlığı altında Örneğin 11-00.. bir dosya açarak bu dosyanın altında txt, Excel ve Word dosyalarının oluşmasını sağlar. Burada dikkat edilmesi gereken husus numune numarası ve lab. numarasını ara yüzde verirken bölü ‘’/’’ ve ‘’:’’ işaretini (Windows kayıt tabanlı işaretler kullanılmalı) kullanmamaktır aksi takdirde kayıt yapamamaktadır.
Kayıt işleminin başlaması için gün boyunca ölçtüğümüz en yüksek ve en düşük değerlerinin T butonuna basarak girilmesi gerekmektedir. Bundan sonra ilk yükleme için on tuşu aktif hale getirilir ve yük kefeye aktarılır. Bu noktada ayarlar kısmında tetikleme değeri verdiğimiz rakamdan sonra ölçümle başlayacaktır. (TS 1900-2 göre konsolidasyon değeri için 0,002 mm doğrulukla ölçüm yapabilen). İstasyon yeşil yanarak bir gün boyunca TS 1900-2 standart’ında belirtilen saniyeler ve dakikalarda ölçüm yapacaktır. Birbirini izleyen yük kademelerinde ve en son 1600 kPa gelindiğinde (7. gün sonunda), 400 kPa yük kademesine geri dönülmesi için 1600 ve 800 kPa yüklerin kefeden alınması gerekir. Bunun için her yük kademesinde on tuşunun aktif hale getirilerek yüklemelerin başlatılması esasına dayanan sistemde on tuşu aktif hale gelmeden önce 1600 kPa yük alınır 3-4 saniye beklenerek ekranda görünen değerin sabit bir hal aldığı gözlemlenir ve on tuşu aktif hale getirilerek 800 kPa yük alınır. Aynı işlem geri dönüş 100 kPa için tekrarlanır.
Yüklemeler tamamlanıp veriler kayıt edildikten sonra istasyon no kısmında bulunan hangi yük kademesinde olduğumuzu gösteren rakamsal değer tamam yazısı şekline gelecektir. Bu uygulamayı gördükten sonra R ‘’Raporlama’’ ve F ‘’Föyleme’’ butonlarına basılarak veriler Excel ve word ortamına akreditasyon forumda bulunan analiz programı ve ham verilerin kayıt yapıldığı dokümanlara dönüştürülerek hazır hale gelecektir.
Veri toplama 9 gün devam ettiği için elektrik kesintisi olmaması ve masaüstü bilgisayarlarının (Hızı ve Depolaması Yüksek) yönetici açılması gerekmektedir
Dikkat Edilmesi Gereken Noktalar
Şekil 2 (Ayarlar Sekmesi Tetik Nümerik Değeri)
Şekil 3 (Veriler Sekmesi Ön Bellek)
Şekil 4 (Yazılım Arayüzü)
Şekil 5 (Veri Toplama Donanımı)
Şekil 6 (Dijital Sinyal Çevirici ‘’Aygıt Geçiti’’)
KONSOLİDASYON DENEYİ EXCEL PROGRAMININ VİSUAL BASIC AÇIK KAYNAK KODLARI Private Sub CommandButton1_Click() n = 2 b = WorksheetFunction.Slope(Sayfa1.Range("B59:B60"), Sayfa1.Range("A59:A60")) For i = 2 To 18 b1 = WorksheetFunction.Slope(Sayfa1.Range("B59:B" & 59 + i), Sayfa1.Range ("A59:A" & 59 + i)) a1 = WorksheetFunction.Intercept(Sayfa1.Range("B59:B" & 59 + i), Sayfa1.Range ("A59:A" & 59 + i)) b2 = WorksheetFunction.Slope(Sayfa1.Range("B59:B" & 60 + i), Sayfa1.Range ("A59:A" & 60 + i)) bdeg = Abs((b2 - b)) / b * 100 If bdeg > 10 Then Exit For n = n + 1 Bu dongüde DSİ Lab. ve Pratik Raporlarda Kullanılan Birincil Konsolidasyon (Ani Oturma) atlanmış İkincil Konsolidasyon (İnşaat Oturması) Değerlerden itibaren eğrinin doğrudan ayrıldığı tecrübelere dayanarak % 10 eğim verilerek hesaplanmıştır. Doğrudan sapma % 10 aşarsa doğruyu çizecektir. Next Range("C9").Value = a Range("B10").Value = (Sayfa1.Range("B46").Value - a1) / b For i = 1 To 18 y1 = Sayfa1.Range("B" & 59 + i).Value
x1 = Sayfa1.Range("A" & 59 + i).Value y2 = Sayfa1.Range("B" & 60 + i).Value x2 = Sayfa1.Range("A" & 60 + i).Value x3 = 0: x4 = 1.15 * Range("B10").Value y3 = a1: y4 = Sayfa1.Range("B75").Value If ((y4 - y3) * (x2 - x1) - (y2 - y1) * (x4 - x3)) = 0 Then t = 0 Else t = ((y4 - y3) * (x3 - x1) - (y3 - y1) * (x4 - x3)) / ((y4 - y3) * (x2 - x1) - (y2 - y1)
Worksheets(5).ChartObjects(1).Activate ActiveChart.Axes(xlValue).Select With ActiveChart.Axes(xlValue) .MinimumScale = Fix(Sayfa4.Range("E30") * 10000) / 100 .MaximumScale = Fix(Sayfa4.Range("E16") * 10000) / 100 + ((Sayfa4.Range ("E16") * 100 - Sayfa4.Range("E30") * 100)) / 5 .MajorUnit = ((Sayfa4.Range("E16") * 100 - Sayfa4.Range("E30") * 100)) / 5 .MinorUnit = (((Sayfa4.Range("E16") * 100 - Sayfa4.Range("E30") * 100)) / 5) / 5 .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone Bu Ksımda Boşluk Oranı Basınç Grafiği Ölçeklendirilmektedir. End Sub Not : Kaynak Kodları Bir Adet Yükleme İçin Gösterilmiştir. Grafik Sayısına Göre Kodlamalarda Paralellik Arz edecektir.