Bilgisayar Destekli Celik Yapi Tasarimi Computer Aided Structural Design m4w2w

Bilgisayar Destekli Çelik Yapı Tasarımı Onur Tunaboyu YÜKSEK LİSANS TEZİ İnşaat Mühendisliği Anabilim Dalı Ekim 2007

Computer Aided Structural Design Onur Tunaboyu MASTER OF SCIENCE THESIS Department of Civil Engineering October 2007

Bilgisayar Destekli Çelik Yapı Tasarımı

Onur Tunaboyu

Eskişehir Osmangazi Üniversitesi Fen Bilimleri Enstitüsü Lisansüstü Yönetmeliği Uyarınca İnşaat Mühendisliği Anabilim Dalı Yapı Bilim Dalında YÜKSEK LİSANS TEZİ Olarak Hazırlanmıştır

Danışman: Doç. Dr. Nevzat Kıraç

Ekim 2007

Onur Tunaboyu’ nun YÜKSEK LİSANS tezi olarak hazırladığı “Bilgisayar Destekli Çelik Yapı Tasarımı” başlıklı bu çalışma, jürimizce lisansüstü yönetmeliğinin ilgili maddeleri uyarınca değerlendirilerek kabul edilmiştir.

Üye : Doç. Dr. Nevzat Kıraç

Üye : Prof. Dr. Hasan Gönen

Üye : Prof. Dr. Eşref Ünlüoğlu

Üye : Y. Doç. Dr. Mizan Doğan

Üye : Y. Doç. Dr. Necati Mahir

Fen Bilimleri Enstitüsü Yönetim Kurulu’nun ............................. tarih ve ...................... sayılı kararıyla onaylanmıştır.

Prof. Dr. Abdurrahman KARAMANCIOĞLU Enstitü Müdürü

v ÖZET

Çelik yapıların hesap ve projelendirme aşaması baştan sona uzun hesaplar yapılması gerektiğinden dikkat istemektedir. Ne kadar dikkat edilirse edilsin uzun zaman harcanacağı için hata yapmak kaçınılmazdır. Kesitlerin taşıma kapasiteleri, emniyet gerilmelerini aştığı durumlarda, aynı hesapların tekrar yapılması gerektiğinden çelik yapı tasarımında bilgisayar kullanımı mutlaka gerekmektedir.

Kullanıldığı

takdirde zamandan tasarruf sağlanacağı gibi hesaplar daha güvenilir olacaktır. Bu çalışmada bilgisayar kullanımını en üst düzeyde tutarak, daha az zamanda daha doğru sonuçlara ulaşılmaya çalışılmıştır. Bunu başarabilmek için Microsoft Excel programı kullanılarak tablolar oluşturulmuş ve buralarda işlemler yaptırılmıştır. Bazı yerlerde makrolar kullanılarak Excel programına ek özellikler kazandırılmıştır. İzlenen diğer bir yol ise SAP2000 programının işlem sonuçlarını alarak hesap yapabilen makrolar oluşturulmuştur. Son olarak Microsoft Visual Basic 2005 Express Edition ile program yazarak tekrarlı hesapları yapmadan sonuca ulaşılmaya çalışılmıştır.

.....................................................................

Anahtar Kelimeler: Bilgisayar destekli, çelik yapı, tasarım

vi SUMMARY

Steel structures need a lot of attention because calculation takes alot of time . Although we pay attention to the calculations we spend a lot of time and some mistakes can be appeared. If the section can not carry the loads we must choose bigger section and calculations need a revision with the same calculations. So computers must be used during the calculations. By this way calculations can make rapidly. In this study, we try to use the maximum level of computer program usage to reach the true results in a quick time. To succeed it, we use Microsoft Excel to create tables and made it some calculations. We add some macros to add some special features to Microsoft Excel. The other way is, we write a macro to use the outputs of SAP2000 program to make true results in a short time. The last way is, we write a program with Microsoft Visual Basic 2005 Express Edition not to make repetition calculations to reach the results.

.....................................................................

Keywords: Computer Aided, steel structure, design

vii TEŞEKKÜR

Çalışmalarım boyunca değerli yardım ve katkılarıyla beni yönlendiren tez danışmanım Sayın Doç.Dr. Nevzat Kıraç’a, tezin ilerlemesinde katkıda bulunan Yrd.Doç.Dr. Mizan Doğan’a ve diğer tüm bölüm hocalarıma, yine kıymetli tecrübelerinden faydalandığım İnşaat Yüksek Mühendisi Adnan Şirin’e, İnşaat Yüksek Mühendisi Mukaddes Diker’e, ayrıca destekleriyle katkıda bulunan arkadaşlarıma, manevi destekleri ile beni hiçbir zaman yalnız bırakmayan çok değerli aileme teşekkürü bir borç bilirim.

viii

İÇİNDEKİLER Sayfa ÖZET………………………………………………………………………………..

V

SUMMARY…………………………………………………………………………

VI

TEŞEKKÜR………………………………………………………………………… VII ŞEKİLLER DİZİNİ…………………………………………………………………

X

ÇİZELGELER DİZİNİ……………………………………..……………………....

XII

SEMBOLLER DİZİNİ…………………………………………………………...... XIII

1.GİRİŞ……………………………………………………………………………...

1

2.YAPI MALZEMESİ OLARAK ÇELİĞİN ÖZELLİKLERİ……………………...

6

3.ÇELİK YAPILARIN KULLANIM ALANLARI…………………………………

11

4.BİLGİSAYAR DESTEKLİ ÇELİK YAPI TASARIMI…………………………… 13 4.1.Bilgisayar Desteğinin Kazandırdıkları ………………………………....... 13 4.2.İnşaat Mühendisliğinde Bilgisayar Uygulamaları………………………... 15 4.3.Bilgisayar Destekli Çelik Yapı Tasarımı………………………………… 16 4.4.Çelik Yapılarda Hesap Adımları…………………………………………. 16 4.4.1.Modüller kullanarak tasarım…………………………………..

17

4.4.2.Diğer programlardan veri alarak tasarım………………………

18

4.4.3.Hesap kolaylığı sağlayacak küçük yazılımlar yazarak tasarım .

19

4.4.4.Paket program kullanarak tasarım……………………………..

24

5.BİLGİSAYAR DESTEKLİ ÇERÇEVE HESABI PROGRAMI ………………..

28

5.1.Programın Kullanılması ve Hesap Yöntemleri ………………...............

30

5.2.Örnekler ……………………………………..…….…………...............

59

5.2.1.Örnek 1 ……………………………………………………….

59

ix İÇİNDEKİLER (devam) Sayfa 5.2.2.Çözüm 1 ……………………………………………………...

59

5.2.3.Örnek 2 ………………………………………………………

62

5.2.4.Çözüm 2 ……………………………………………………...

62

5.2.5.Örnek 3 ……………………………………………………….

66

5.2.6.Çözüm 3 ……………………………………………………...

66

5.2.7.Örnek 4 ……………………………………………………….

69

5.2.8.Çözüm 4 ……………………………………………………...

70

5.SONUÇ VE ÖNERİLER…………………………………………………………

71

6.KAYNAKLAR……………………….……………………………………………

73

5

x

ŞEKİLLER DİZİNİ Sayfa

Şekil 1.1

Çerçeve programı akış diyagramı ..……….……………………………….

5

2.1

Gerilme – Uzama diyagramı ………...…………………………………….

6

3.1

Çeşitli çelik yapı sistemleri ..………...………………………..…………...

12

4.1

Gezer vinç ana menü ……..……………….……………………………….

20

4.2

Tekerler etkileri menü…...……………………………………………..…..

21

4.3

Gezer vinç hesapları …………..…...…………………………………..…..

21

4.4

Gezer vinç kirişi I profili ve takviye levhası seçimi ……………………....

22

4.5

Gezer vinç kirişi üretilen kesit seçimi ……………………………….……..

23

4.6

Uyarı mesajı …………...………………………………………….………..

23

4.7

Gerilme ve sehim tahkikleri ..…………………..…………………………..

24

4.8

ÇelikPro2006 ile çözülebilen çatı şekilleri ……….……...………………..

25

5.1

Çerçeve program girdileri menüsü ………..……….……...……………....

31

5.2

Çerçeve program profil seçim menüsü …..……….…….…..……………..

32

5.3

Çerçeve program aşık yükü hesabı menüsü ……….…….…..…………....

33

5.4

Çerçeve programı yapılan statik hesaplar listesi ……….……..…………..

34

5.5

Birim yüklemede oluşan uç kuvvetler …………………………………….

35

5.6

Çubuk elemanındaki kuvvetler …………..……….…….………..………..

37

5.7

Dizaynda kullanılacak moment hesabı …..……….…….……..………......

42

5.8

Kesit kontrolü menüsü …………………..……….…….………..………..

44

5.9

Sistem bilgileri menüsü ……..…..………..……….…….………..……....

46

5.10

Maksimum momentin oluştuğu nokta …..……….…….…………..……..

47

5.11

Moment diyagramının hesaplanması ……..……….…….…………..…....

48

5.12

Moment diyagramının ekrana getirilmesi …….…….………………..…...

49

5.13

Normal kuvvet diyagramının ekrana getirilmesi .…….……………….......

50

5.14

Kesme kuvveti diyagramının ekrana getirilmesi .…...….……………….....

51

5.15

Deplasman şemasının ekrana getirilmesi ..……….…..….……………......

52

5.16

Birleşim hesabı menüsü …………….......……….……...…………………

53

xi

ŞEKİLLER DİZİNİ (devam) Sayfa

Şekil 5.17

Birleşim hesabı raporu …………...……....……….……...……………......

54

5.18

SAP2000 dışardan bilgi okunabilen dosya listesi …….…..……………….

56

5.19

SAP2000 dışardan bilgi okunması tamamlandı ….…….…..………….......

57

5.20

SAP2000 ile sistem oluşturuldu ……......……….…….……..…………….

57

5.21

Program hakkında menüsü ……...……....……….…….……..……….......

58

5.22

Örnek1 bilgi girişi ………………….......……….…….………………......

59

5.23

Örnek1 sistem bilgisi …………….……....……….…….……………........

60

5.24

Örnek1 normal kuvvet karşılaştırması ....……….………………………..

60

5.25

Örnek1 kesme kuvvet karşılaştırması …....…….…….……………...........

61

5.26

Örnek1 moment karşılaştırması ……......…….…….……………………..

61

5.27

Örnek2 bilgi girişi ……………….……....……….….…………….............

63

5.28

Örnek2 sistem bilgisi …………….......……….…….……………………..

64

5.29

Örnek2 normal kuvvet karşılaştırması ......…….…….…………….............

64

5.30

Örnek2 kesme kuvvet karşılaştırması .....…….…….……………………...

65

5.31

Örnek2 moment karşılaştırması ..……....…….…….…………….............

65

5.32

Örnek3 bilgi girişi ……………….......……….…….……………………...

67

5.33

Örnek3 aşık yükü hesabı ……....…….…….……………...........................

67

5.34

Örnek3 yetersiz kesit kontrolü ….....…….………….……………………..

68

5.35

Örnek3 yeterli kesit kontrolü …..……....…….…….……………...............

68

5.36

Örnek4 kaynak boyları hesabı …...……....…….…….……………............

70

xii

ÇİZELGELER DİZİNİ Çizelge

Sayfa

2.1

Çekme, basınç ve eğilme için emniyet gerilmeleri ……..………………….

7

2.2

Kayma için emniyet gerilmeleri …… .………...…………………………..

7

4.1

Kafes kiriş elemanları için elverişsiz tesirlerin seçilmesi ………………….

18

5.1

Eleman rijitlik matrisinin oluşturulması ………...……..…………………..

36

5.2

Sistem rijitlik matrisinin oluşturulması ………...…………………………..

40

5.3

Transformasyon matrisi .………………………..……………………….....

40

5.4

Örnek1 sonuçlarının SAP2000 ile karşılaştırılması …………………….....

62

5.5

Örnek2 sonuçlarının SAP2000 ile karşılaştırılması …………………….....

66

5.6

Deplasmanların SAP2000 ile karşılaştırılması ………………………….....

69

xiii

SEMBOLLER DİZİNİ Simgeler

Açıklama

A

Alan

E

Elastisite modülü

G

Kayma modülü

f

Sehim

i

Atalet yarıçapı

J

Atalet momenti

l

Eleman boyu

lk

Burkulma boyu

M

Moment

N

Normal kuvvet

S

Statik moment

q

Yayılı yük

u

Deplasman

V

Kesme kuvveti

W

Mukavemet momenti

α

Çerçeve sol eleman açısı

β

Çerçeve sağ eleman açısı

λ

Narinlik katsayısı

σ

Gerilme

σem

Emniyet gerilmesi

ω

Burkulma katsayısı

1 1. GİRİŞ Ülkemizde inşaat mühendisliği denildiğinde akla betonarme yapılar gelse de, son yıllarda çelik yapıların da üstün özelliklerinin fark edilmesiyle önemi artmaya başlamıştır. İstenilen düzeye gelememesinin sebebi ise bilgi ve deneyim eksikliğinden kaynaklanmaktadır. Bilgi edinmek yerine taşıyıcı sistem malzemesi olarak betonarmeyi seçmek yapı malzemesi olarak çeliğin kullanılmasını engellemektedir. Türkiye’de çelik inşaatın toplam inşaat içindeki payı, çok küçüktür. Bu oranın büyük bölümünü endüstri yapıları, büyük açıklıklı çatılar ve köprüler oluşturmaktadır.

Çok katlı çelik yapı

uygulamaları ise yok denecek kadar azdır. Çok katlı yapılardaki uygulama azlığı, betonarme sistemle aynı yapının daha az maliyetle yapılabileceği düşüncesinden kaynaklanmaktadır. Bu düşünce, sıradan bir betonarme yapı için kabul edilebilirse de, depreme dayanıklı olarak projelendirilmiş, proje her bakımdan sıkıca denetlenmiş ve projesine uygun olarak inşa edilen betonarme bir yapının çelik yapı kadar maliyetli olabileceği de bir gerçektir (Yardımcı, 2005) [1].

Yönetmeliklerdeki eksiklikler,

tecrübeli mühendis sayısının az olması, çizilen projenin sahada nasıl uygulanacağının bilinmemesi gibi nedenlerle zorluklar daha proje aşamasında başlar. Bu gibi zorluklarla başlayan proje uygulama aşamasına gelindiğinde zorluklar artarak devam eder. Ülkemizdeki uygulama azlığı nedeniyle projeyi uygulayan teknik eleman sayısı da azdır. Bölüm2’de çeliğin özelliklerine değinilerek, özellikleri bilinen malzeme hakkında daha doğru kararlar vererek daha verimli sonuçlara ulaşabilineceği düşünülmüştür.

Hangi özellikli yapılarda çeliği kullanmak, diğerlerine göre daha

avantajlı olunur konusunda bir fikir edinilmeye çalışılmıştır. Bu özellikler de göz önüne alınarak ülkemizde yapı malzemesi olarak çeliğin kullanılması hangi alanlarda daha fazla gözlendiği bölüm3’te açıklanmaktadır.

Bütün bu maddeler doğrultusunda

oluşturmak istediğimiz bir çelik yapının hangi aşamalarında bilgisayar desteği kullanılabilineceği bölüm4’te anlatılmıştır. Bölüm5’te ise günlük hayatta sık olarak karşılaşılabilinen, tekrarlı olarak fakat bazı kıstasların değişerek hesap yapılmasını gerektiren durumlarda kullanılması için oluşturulan çerçeve programı anlatılmış ve örnek çözümler yapılmıştır.

2

Bir çelik yapı oluşturmak istendiğinde zorluklar daha proje aşamasında başlamaktadır. Projelendirmenin ilk aşaması olan taşıyıcı sistem seçimi için tecrübeye ihtiyaç vardır. Hangi açıklıklı, hangi tür yükleri ekonomik ve güvenli olarak tahmin etmek için, her tür yapıyı çözmek ve en güvenli ve ekonomik olanına karar vermek doğru bir çözüm olmayacaktır.

Hele bu çözüme elle hesaplar yapılarak ulaşıldığı

düşünülürse, teknik çizim aşamasına aylar sonra geçilebilinir. Her sistemi çözmek yerine belli başlı sitemlerin çözülmesi bile bu süreyi çok uzatır. İşte bu aşamada bilgisayar desteğinden faydalanılabilinir. Çünkü hazır bir paket programda, çok özel sistemler olmadıkça, günlük hayatta sık karşılaşılan yapı tiplerini saniyeler içinde çözebilirler.

Sistem modelini doğru bir şeklide bilgisayara tanıttıktan sonra, yapı

özelliklerine göre yük bilgilerini de programa tanıttıktan sonra hesapların yapılıp, emniyet gerilmelerini aşan kesitlerin, hatta hangi elemanların diğerlerine göre daha fazla zorlandığının ekrana getirilmesi, bilgisayarların hızlanması ile saniyeler sürmektedir.

Bu aşamadan sonra, güvenli olmayan kesitler değiştirilerek tüm

yönetmelik şartlarını sağlayan sistemler oluşturulur ve yapı maliyet karşılaştırmasında en geçerli yöntem olarak kullanılan metrajın ekrana getirilmesi ile sistem seçimi ile veriler elde edilmeye başlanır. Böylece bilgisayar desteği ile sistem seçimine doğruya en

yakın

seçimde

karar

vermek

için

harcanması

kıyaslanamayacak kadar az bir zamana indirilmiş olunur.

gereken

zaman

dilimi

Taşıyıcı sisteme karar

verilmesiyle daha hassas hesaplarla hesap sonucuna ulaşılır. Hesap sonuçlarına göre sistemin iki boyutlu teknik çizimlere dönüştürülme süreci ise başlı başına zaman almaktadır. Hesap sonuçları çok iyi irdelenerek, çizimler doğru bir şekilde ve eksiksiz olarak oluşturulmalıdır. Yerinde uygulanacak sistem, birebir projede çizili olan sistem olacağı için çizimlerde hassas davranılmalıdır. Çizimlerin ölçekli olarak çizilmesi de, uygulama aşamasında üst üste çakışan bir detayın kağıt üzerinde fark edilerek tedbirin önceden alınmasını sağlamaktadır. Bu işlem bilgisayar ortamında sağlandığında daha hızlı ve daha hatasız olarak meydana gelmektedir. Hatta çizimler hesapların yapıldığı paket programlar kullanılarak hazırlandığında, birebir hesaplanan değerlere göre çizim yapılacağı için çizim hatası sıfıra yakın olarak oluşturulmaktadır.

Çizimlerin

tamamlanmasıyla uygulama aşamasında kullanılmak üzere verilmesi gereken ölçü bilgileri de programlar tarafından eksiksiz olarak çizimlere eklenmektedir.

3

Bazı mühendisler ise belli başlı sistem çözüm ve çizimleri yapabilen paket programlar yerine, tüm yapı türlerini çözebilen programları tercih etmektedirler. Hesap yöntem ve sonuçlarının doğruluğunu, dünyanın kabul ettiği programlarla hesaplarını yaparlar. Bu programların ise eksikliği, tüm ülkelerdeki yönetmeliklere göre hesap yapmamalarıdır. Bu yöntemle hesap yapan projeci, kullanması gereken yönetmeliğin hesaplarına yakın bir hesap yöntemi olan yönetmeliği seçerek sonuca yaklaşır. Programın işine yaradığı hesap sonuçlarını alarak, eksik ya da farklı bir yöntemle hesaplanan sonuçları kendisinin yapması gerekir. İşte bu aşama da bir projeci için zaman alan ve hataya açık bir süreçtir. Sonuçların alındığı programa sistem doğru bir şekilde modellenmelidir ki alınan sonuçlar doğru olsun. Doğru bir modelden sonra her eleman için sonuçlar ayrı ayrı okunurken gözden kaçabilecek küçük bir hata hesapların tekrarlanmasına neden olabilmektedir.

Sonuçlar hatasız alınsa bile yönetmeliğin

gerektirdiği hesaplar sonucunda herhangi bir kesitin güvensiz çıkması, hesapların modelleme aşamasından başlayarak tekrarlanmasına neden olabilmektedir. Bu gibi durumlar için de bilgisayar desteği kullanılabilinmektedir. Yönetmeliğin gerektirdiği hesapları yapan elektronik tablo dosyaları oluşturulabilineceği gibi, program sonuçlarını okuyup, hesaplar yapabilen küçük yazılımlar oluşturulabilinmektedir. Bölüm 4.4.2 de bu gibi durumlar için SAP2000 programından kesit tesirlerini okuyabilen bir yazılım oluşturulmuştur.

Bu küçük programla SAP2000 program çıktıları okunarak Excel

programındaki hücrelere yazdırılmaktadır. Alınan bilgiler başka herhangi bir hesaba katılmamıştır, ancak bu bilgilerin kullanıldığı her türlü hesap için kullanılabilir hale gelmiştir. Bazı durumlarda ise yapının belli kısımları yapıdan bağımsız olarak çözülmesi daha uygun olmaktadır. Örneğin sanayi yapılarında sık olarak görülen gezer vinç hesabı, yapıdan bağımsız olarak çözülüp hesap sonuçları sisteme sonradan etki ettirilebilir. Bu gibi ayrı durumlar için de hesap hızını ve güvenliğini arttırmak için küçük yazılımlar yazılabilinir. Bölüm 4.4.3 de bir örneği bulunan yazılım, gezer vinç hesabını sık olarak görülen durumları çözebilmek için yazılmıştır. Programda gezer vinç özelliklerini verdikten sonra, seçilen kesitlerin emniyet gerilmelerini geçip geçmediği hesaplanıp bir rapor hazırlanmaktadır.

4

Son yöntem ise çok özel bir yapı çözümü için program yazılmasıdır. Bölüm5’te bir örneği bulunan bu yöntemin kullanılma amacı, paket programlar olmadan el ile hesap

yapılabilen

yöntemlerde

zaman

ve

hız

kazanmak

için

programlar

hazırlanabileceğini göstermektir. Farklı sistem bilgilerini, farklı yükleme şekillerinin hesapları yapılamasa da sık olarak karşılaşılan sistem ve yükleri çözebilmektedir. Programı oluşturmaya başlamadan hesap yöntemleri iyi kavranmış, hangi bilgiler verildiğinde sonuca ulaşılacağı düşünülmüş, bunlara göre program girdileri menüsü oluşturulmuştur. Programdan beklenecek hesap çıktı sonuçlarına karar verilmiş ve buna göre görevleri başlatacak düğmeler belirlenmiştir. Hesap yöntemleri ilgili kitap ve yönetmeliklerden araştırılarak, sonuca ulaştıracak en doğru ve en kolay yöntem seçilmiştir.

Programla değişik ölçülerdeki çerçeve sistemine, çatıda yayılı yükler

yükleyerek, sistemin iç kuvvetler diyagramları çizdirilebilinmektedir. Seçilen kesitler gerilme kontrollerini sağlayıp sağlamadığının kontrolleri yapılabilindiği gibi hesapların güvenli çıkması muhtemel kesitlerde program tarafından önerilebilinmektedir. Programda köşe birleşim noktası kaynak bilgileri verildikten sonra, kaynak kontrolleri de yapılabilinmektedir. Yapılan tüm hesaplar kullanıcıya bilgi vermek için rapor haline getirilebilinmektedir. Kullanıcının yapması muhtemel hataların yapılıp yapılmadığı kontrol edildikten sonra, yapıldıysa uyarı ekrana getirilerek hesaplara başlanmaktadır. Çözülen sistem kontrol edilmek için SAP2000 programının modeli tanıyabileceği S2K dosya formatında hazırlanarak, SAP2000 ile kontrollerin çok kısa bir sürede yapılması sağlanmıştır. Bu yöntem geliştirilerek daha karmaşık sistemlerin SAP2000 programı ile çok kısa sürede ve hatasız olarak eksiksiz bir biçimde modellenmesi sağlanılabilinir. Akış diyagramı Şekil 1.1 de görülen program bir çok hesabı saniyeler içinde yaparak çözümlere hız kazandırılmıştır.

Proje hazırlanmasında ayrı bir süreç olan rapor

hazırlama süresini ise çok kısaltmaktadır. Bu çalışmada, bilgisayar desteğini en üst düzeyde tutarak hesaplara hız ve güvenlik katmak için neler yapılabilineceği araştırılmıştır.

Bu kapsamda özel

sistemlerin çözümleri için yazılımlar oluşturulmuştur. Çok geniş bir uygulama alanına sahip olan çelik yapının, sınırlı bir çalışma ile yapının baştan sona çözülebilinmesi amaçlanmamıştır. Buradaki esas amaç bazı hesap yöntemlerini kullanarak ya da bir

5 araya getirerek, gündelik hayatta sık olarak karşımıza çıkabilecek hesap yöntemlerinin en az hatayla ve en kısa sürede çözebilecek yöntemler haline getirilmesi sağlanmıştır. BAŞLA

Ana Menü

İşlem

Kesit Seç Menüsü

Yük Seç Menü

Ana Menü

Ana Menü

DUR

DUR

Hesapla

Kesit Kontrolü

Grafik Menüsü

SAP2000 Aktar

Rapor Hazırla

Ana Birleşim Ana Menü Hesabı Menü

Ana Menü

Ana Menü

DUR

DUR

DUR

DUR DUR

DUR

Şekil 1.1 Çerçeve programı akış diyagramı

6

2. YAPI MALZEMESİ OLARAK ÇELİĞİN ÖZELLİKLERİ Doğada cevher halinde bulunan demirin, dövülerek, preslenerek veya haddeden geçirilerek şekil alabilen haline çelik denir. Yapı malzemesi olarak kullanılabilinen çelik, tüm özellikleri her yön ve doğrultuda aynı olan izotrop ve homojen bir malzemedir.[5]

Piyasada yaygın olarak kullanılan çelik malzemelerinin elastisite

modülü (E) değeri 2.1x106 t/m2, kayma modülü (G) 8.1x105 t/m2 ısı genleşme katsayısı 12x10-6 dır. [2] Yapı malzemesi olarak kullanılan çeliğin, çeşitli kuvvetler altındaki dayanımları, malzemenin akma sınırı, çekme mukavemeti, ve sertlik özelliklerinden yararlanılarak elde edilir. Çubuk şeklindeki numune yavaş yavaş artan çekme kuvveti uygulanarak numunedeki boy değişimi ölçülür. Buradan elde edilen sonuçlardan grafik çizilerek kuvvet - uzama diyagramı elde edilir.

Aynı sonuçlardan istenirse de şekil 2.1’de

görülen gerilme uzama diyagramı da çizilebilir.

Şekil 2.1 Gerilme - Uzama Diyagramı [8]

7 Bu grafiklerden çeliğin akma sınırı ve çekme mukavemet değerleri elde edilir. Bunun yanında kopma uzaması, elastik uzama ve kalıcı uzama değerleri de grafikte görüldüğü üzere elde edilmektedir. Çeliğin akma üst sınırına ulaşmadan gözlenen lineer bölgedeki doğrunun eğimiyle çeliğin elastisite modülü hesaplanmaktadır. Deformasyonların gerilmelerle orantılı olduğu bu bölge içinde uygulanan kuvvetlerin kaldırılması durumunda, o ana kadar gözlenen tüm deformasyonlarda ortadan kalkar ve cisim yük uygulanmamış ilk haline geri döner.

Çeliğin akma sınırına gelmeden

gösterdiği deformasyona elastik deformasyon adı verilir (Karaduman, 1999) [3]. Bu sınırın aşılmasıyla gözlenen deformasyonlar kalıcı olacağı için çizelge 2.1 ve çizelge 2.2’de görülen emniyet gerilmeleri akma sınırına göre tespit edilmiştir (Erşen) [4]. Çizelge 2.1 Çekme, basınç ve eğilme için emniyet gerilmeleri ÇELİK CİNSİ

σF (kg/cm2)

σem (kg/cm2) (H)

σem (kg/cm2) (HZ)

ST37

2400

1400

1600

ST52

3600

2100

2400

Çizelge 2.2 Kayma için emniyet gerilmeleri ÇELİK CİNSİ

σem (kg/cm2) (H)

σem (kg/cm2) (HZ)

ST37

900

1050

ST52

1350

1550

Şekil 2.1’deki grafiği incelediğimizde cisim σp değerine kadar elastik deformasyon özelliğine sahiptir.

σp değerinden büyük gerilemelerde bir süre daha

elastik deformasyon gözlenmeye devam eder ancak bu deformasyon şekli artık lineer değildir.

Şekil 2.1’ deki grafikte görülen F noktasından sonra yüklemeye devam

edilirse gerilmede bir artış olmadığı halde, deformasyonun artmaya devam ettiği akma olarak adlandırılan olay gözlenmektedir. Bu değere akma sınırı denilmektedir. Yükü grafikte görülen C noktasında çektiğimiz zaman, lineer bölgeye paralel bir çizgi çizerek elde ettiğimiz C’ noktası bize plastik şekil değiştirme miktarını gösterir. Yüklemeye

8 devam edildiğinde B noktasından sonra gerilme azalmakta fakat şekil değiştirmeler devam etmektedir. Bir müddet sonra ise malzeme kopmaktadır. Sünek bir malzeme olan çeliğin büyük bir şekil değiştirme sığası vardır. Çeliğin betonarmeye göre daha sünek bir malzeme olması, depremde enerji yutması deformasyona uğrasa bile yıkımın olmamasını sağlar. Çeliği diğer yapı malzemeleri ile karşılaştırdığımızda çelik kullanımının avantajları aşağıdaki gibi sıralanabilir : a) Yüksek dayanımlıdır. Öz ağırlığının taşıdığı yüke oranı çok küçük olduğu için yapı ağırlığı betonarme yapıya göre daha azdır. Bu sayede temelin taşıması gereken yükler de azalacağından özellikle kötü zeminlerde temel maliyetlerini oldukça azaltır. Bunun yanında, hafif yapıya etki eden deprem yükleri de azalacağından, çelik, betonarmeye göre deprem davranışı açısından da üstünlük sağlayacaktır. b) Elastisite modülü betonarme ile karşılaştırıldığında çok yüksek olduğu için dinamik yüklere ve sehim problemi olan taşıyıcı elemanlarda daha ekonomik boyutlandırma sağlar. c) Çekme ve basınç dayanımları birbirine eşit olduğundan mimari tasarımda avantaj sağlar. d) Sünek davranış gösterdiğinden şekil değiştirme kapasitesi yüksektir. Bu özelliği ile beklenmeyen yük durumlarında avantaj sağlar. e) Yanmaz ancak dezavantaj olarak yangından etkilenir. Ancak gerekli önlemler alındığında bu etki azaltılır. f) Bazı yöntemlerle çelik için dezavantaj olan korozyon etkisi ortadan kaldırılabilir. g) Atölyelerde işlenmesi nedeniyle yapım süresi kısadır. h) Fabrika ortamında üretildiği için hesaplarda kullanılan değerler daha kesindir.

Şaşmayan ölçüler, hesaplamalar, toleranslara uygunluk ve

üretimleri çok kolaydır. Kuru yöntemlerle inşaat yapılır. Temiz bitişleri vardır ve tamirat gerektirmez. Çelik eleman üretimleri otomatik makinelerle yapılır.

Yani bilgisayarda çizilen bir çelik üretiminde otomasyon söz

konusudur. Bu da hem para, hem zaman olarak büyük kazançlar sağlar. Yapım aşaması ya da sonrası istenilen değişiklikler kolayca yapılabilir.

9 İlaveler kolayca uygulanabilir. Şantiye dışında yapılan üretim, hem teknik anlamda, hem kalite, hem de işçilik anlamında ucuza mal olur. i) Değiştirme ve takviye olanağı kolaylığı nedeniyle malzeme zayiatı çok azdır. j) Elemanlar yerinde monte edildiklerinden iyi bir planlamayla yapım süresi çok kısadır. k) Kolon sayısı azlığı ve geniş açıklıklar daha küçük kesitlerle geçilebilindiği için mimari açıdan avantajlıdır. l) Çeliğin şekil alma olanağı sınırsız olduğundan taşıyıcı yapı pek çok türde yapılabilir. Yapısal çelik fabrikada çok değişik şekillerde işlenebildiğinden tasarımcılar için sınırsız yaratıcı olanaklar sağlar. m) Çelik dünyanın en çok geri dönüştürülen malzemesidir. Dönüşüm doğru yapıldığında kalite ve güvenilirlik kaybı olmaz. Dönüşümlü bir malzeme olması ve inşaat sırasında zararlı atıkların bulunmaması hızlı temiz bir inşaatın gerçekleştirilebilmesi nedeniyle çevreye zarar vermeyen bir malzemedir. n) Çelik taşıyıcıların her zaman görülebilir ve erişilebilir olması yapı kontrol alanında, her zaman denetlenebilirlik gibi bir güvence getirmektedir. Her bir çelik parçası fabrikada üretiminden başlayarak kalite, boyut, fiziksel özellikler konusunda belgelidir. Çelik bir yapıyı istediğiniz her an kontrol edebilirsiniz. Betonarme yapılarda kalite kontrolü ise olanaksıza yakındır, çünkü betonarme bir yapıyı oluşturan malzemelerin fiziksel özellikleri değişken ve karakteristikleri farklıdır. Bu nedenle böyle bir yapıda bunca değişkeni istenilen özelliklere sahip bir sonuca yönlendirmekte malzemelerin kendi serüvenleri dışında, yapıda yan yana gelişlerinden, karışım, karışıma giren oranlar, karışımın niteliği, kalıba dökülmesi, bu esnada işçilik, çevresel etkiler vb. faktörlerin denetiminin zorluğu, çeliği bu anlamda da avantajlı kılmaktadır. Bütün bunların dışında yapımından yıllar sonra betonarme bir binayı kontrol etmek çok pahalı ve zor bir işlemdir, bunun yanında duvarların arasına gizlenmiş bile olsa, çelik taşıyıcı sistemin korozyon, deprem vb. etkilere karşı kontrol edilmesi basit, ucuz ve güvenlidir.

10 Bugün ülkemizde yapı tamamen betonarme sistemler üzerine kuruludur. Betonarmeye geçiş geleneksel yöntemlerle inşa edilen taş, tuğla ve ahşap binalardan olmuştur. Bu nedenlerle günümüzde Türkiye çimento üretimi dünyada en çok olan ülkeler arasında yer almaktadır.

Çelik ise genel olarak endüstriyel yapılarda ve

köprülerde ve özel sistemli yapılarda kullanılabileceği düşünülmektedir. Korozyon ve yangına karşı dayanıksız olması çok kolay önlemler alınarak dayanıklı hale getirilebilir. Malzeme fiyatlarındaki fazlalık ise doğru yerde ve doğru şekilde kullanılarak avantaj sağlanabilir. Çelik yapı tasarım konusunda tecrübeli, çelik davranışını bilen, bunları hesaplarla birleştirerek sonuçlara ulaşabilen ve bu sonuçlar doğrultusunda tüm detaylarıyla eksiksiz ve hatasız çizimleri oluşturabilen mühendislerle çelik yapı avantajları kullanılmalıdır.

Proje aşamasında hesapların zorluğundan

kaynaklanan aksaklıklar bilgisayar desteği kullanılarak en aza indirilebilir.

11 3.ÇELİK YAPILARIN KULLANIM ALANLARI Ülkemizde betonarme yapının çelik yapıya göre daha fazla tercih edilmesinin sebebi, çelik çerçeveli yapıların gerek tasarımı, gerekse üretim ve montajı konusunda yeterli bilgi ve deneyime sahip olunmamaktan kaynaklanmaktadır. Çelik çerçeveli yapıların tüm gelişmiş ülkelerde olduğu gibi ülkemizde de yapılmasının kaçınılmaz olduğu bilinmelidir. Bunun farkına varılarak bilgi edinmek, gerektiği yerde kullanıldığında ekonomiklik sağlayacağı için bir gerekliliktir. Yapı çeliği, homojen, izotrop ve sürekli denetlenerek üretildiğinden güvenli bir malzemedir. Yüksek dayanımı nedeniyle öz ağırlığının taşıdığı yüke oranı küçüktür ve montajın bitmesiyle betonarmede olduğu gibi priz bekleme süresi olmadan yükleri taşıyabilme özelliği vardır. Çelik çerçeveli yapı sistemleri, çok önemli olan yukarıdaki üstünlükleri nedeniyle; a) Büyük açıklıklı köprüler b) Endüstri yapıları c) Spor salonları d) Taşıyıcı sistemleri özel e) Hızla yapılması gereken f) Temel zemini zayıf g) Yatay yüklere dayanıklı h) Çok katlı ve yüksek yapılarda kullanılmaktadır. Şekil 3.1’ de bazı örnek çelik yapı fotoğrafları bulunmaktadır. Ülkemizde çok yaygın olarak kullanılmakta olan betonarme yapıların çoğu çelik çerçeveli olarak yapılabilmektedir fakat çelik çerçeveli yapılardan çoğunun betonarme çerçeveli olarak yapılması olanaksızdır.

12

Şekil 3.1 Çeşitli çelik yapı sistemleri

13 4. BİLGİSAYAR DESTEKLİ ÇELİK YAPI TASARIMI 4.1. Bilgisayar Desteğinin Kazandırdıkları Mühendisler

bilimsel

olarak

doğruluğu

ispatlanmış

konuları,

dönüştürerek ve gerçek hayata uyarlayarak kullanmak zorundadırlar.

pratiğe

Örneğin bazı

malzemeler için kullanılan hesap yöntemi farklı malzemeler içinde kullanılmasını sağlayabilmelidirler. Bu gibi durumlarda aynı hesap yöntemiyle farklı hesaplar yapmak gerekirse bu noktada işimizi hızlandıracak bir program yazılabilinir.

Programı

oluşturma süreci uzun, zor ve ciddi bir süreçtir. Oluşturulduktan sonra kazandırılan zamana göre oluşturma süreci daha uzun sürerse, faydalı bir yazılım meydana getirilmiş olunmaz. Her yazılım yapılış amaçlarına göre çok farklılık gösterir. Bazıları işlemlerin daha hızlı yapılabilinmesi için yazılır. Bazıları yapılan işlemlerde hata oranını en aza indirmek için yazılır. Bazıları çok fazla bilgi depolanmasını kolay bir şekilde sağlamak amacıyla yazılır. Amaçları farklı da olsa herhangi bir program yazılırken az hata, sonuca hızlı ulaşma, hesaplarda kolay değiştirilme, kolay kullanım, ek özelikleri kolay ekleyebilme ve program sonuçlarına güven duyulması istenir. Bir program yazmaya başlamadan önce yukarıdaki maddeleri göz önüne alarak yazılmaya başlanılmalıdır. Böylelikle oluşturulan yazılımdan daha olumu sonuçlar elde edilebilinir. Yazılımın kullanılabilir olması için tamamlandıktan sonra kazandıracağı zamanla, yazılımın bitme süreci iyi düşünülmelidir.

Uzun bir süre sonunda

tamamlandıktan sonra hala işlere hız katmıyorsa faydalı bir yazılım meydana gelmemiş olur. Bunun için bitirme zamanını ve kazandıracağı zamanın iyi tahmin edilmesi gerekir.

Yazılımlar oluşturulurken bazı ek programlara veya dosyalara ihtiyaç

duyulabilinir. Bu gibi durumlarda maliyeti en az tutacak şekilde işimizi görecek kadar dosya veya programa ihtiyaç duymalıyız. Örneğin sadece hesap yapıp çizime ihtiyaç duymuyorsak çizim için gerekli bir dosya almamıza gerek yoktur.

Aynı şekilde

programı oluştururken çizim kısmı için kod oluşturmaya gerek yoktur. Bir program yazmaya karar verildiyse kodlamalar kısmına programı bozmayacak şekilde notlar alarak herhangi bir değişiklik ya da ekleme anında, hatasız hızlı bir şekilde değişiklik oluşturulmalıdır.

14 Yapacağı işe oranla yüksek fiyatla alınacak bir program istenmeyeceği gibi kısa sürede işe yaramaz hale gelen bir program da istenmez. Örneğin sadece betonarme yapı çözmek için her tür yapıyı çözen bir programa ihtiyaç yoktur. Aynı şekilde yönetmelik tarihi eski hesap yöntemlerine göre hesap yapan programlar da istenmemektedir. İnşaat mühendisliği gibi insan hayatını doğrudan etkileyen yazılımlarda, hatasız yazılımlar üretilmek zorundadır. Bu tip yazılımlar hem konuya hem de bilgisayara hakim kişiler tarafından yazılması daha uygundur. Günümüzde yazılım sistemleri inşaat sektörünün bir çok aşamasında, bankacılık sektörünün hemen hemen tamamında, birçok sanayi kuruluşunda, müşteri bilgilerinin saklanması gereken küçük kuruluşlarda, iletişim, ulaşım ve birçok mühendislik dalında çok geniş alanlarda kullanılmaktadır. Bilgisayar sistemleri artık günlük hayatın her alanında karşımıza çıkmaktadır. Günlük işlerin hızlanmasını, kayıtların güvenli bir şekilde tutulmasını ve istendiğinde çok kısa zamanda kayıtlara ulaşılmasını sağlar. Kısaca işlerde kullanılan bilgisayar desteği, işlerde hız ve rahatlık ve güven sağlar. Her

zaman

faydalanmayabiliriz.

bilgisayar

desteğinden,

hazır

bir

program

kullanarak

Eğer işlerimizi kolaylaştıracak küçük programlar yazılmak

istenirse, ihtiyaçların iyi bilerek, sonuca ulaşılacak en uygun çözüme, en doğru ve en kısa yoldan ulaşılmak hedeflenmelidir.

Mühendislik yaklaşımları kullanılırken

doğruluğu ispatlanmış konuları programa, gerçek hayata uyarlayarak ekonomiklikten ve güvenden uzaklaşmadan kullanılmalıdır. Sonuca ulaşmak için bilgisayara veri girişi yapılması gerekmektedir. Doğru sonuca ulaşabilmek için veri girişinin eksiksiz ve hatasız olması gerekmektedir. Yazılan programda veri girişinde bir hata ya da eksiklik olup olmadığının kontrolünü kesinlikle yapılması gerekmektedir. Daha sonra ilgili yönetmelikler takip edilerek herhangi bir değişiklik olup olmadığı kontrol edilmeli, varsa kodların o kısmı düzeltilmelidir. Programdan istenen sonuçlar direk olarak ekrana getirmek yerine tüm hesapların yazıldığı raporlar hazırlanmasıyla daha sonra bu hesapların kontrolü için kullanılabilir. Bir program yazılabilmesi için öncelikle programın yazılacağı konu hakkında teorik, pratik, bilimsel ve matematiksel olarak bilgili sahibi olunması gerekir. Yazılan

15 programda tüm bu bilgiler kullanarak sonuçlara ulaşmaktadır ve kullanıcıyı bu şekilde yönlendirmektedir. Programı yazan kişi, kullanacak kişinin programa neler vererek, hangi sonuçları ne şekilde istediğini iyi bilmelidir.

Bunları bilerek, kullanıcı ara

yüzlerini iyi tasarlayarak bilgi girişinin kolay ve hatasız olmasını sağlamalı, yine kullanışlı formlar tasarlayarak çıkan sonuçlarında anlaşılır biçimde kullanıcıya aktarılması gerekir.

Bütün bunlar göz önüne alınarak program oluşturulur ve bir

deneme sürecinden geçer. Her ne kadar program kodları oluşturulurken her aşamada kontrol yapılsa da bazı özel durumlarda farklı sonuçlar elde edilebilinir. Bu sebeple kontrol süreci tamamlandıktan sonra da devam etmesi daha uygun olur. Oluşturulan yazılımın kullanılmaya başlamasından sonra değişen yönetmeliklere ya da kullanıcının isteklerinin artmasına göre yazılım güncellenme sürecine girer. Bu dönemde eksiklikler giderilir ve yazılım daha kullanışlı hale gelir. Bilgi girişini hızlandıracak ve kullanıcı hatalarını en aza indirecek düzeltmeler yapılır. Tamamlanan yazılımda kullanılabilirlik, güvenilirlik, kolay güncellenebilirlik ve hatasız çalışma gibi özellikler istenir. 4.2. İnşaat Mühendisliğinde Bilgisayar Uygulamaları İnşaat mühendisliğinde, bina sistemlerinin 3-boyutlu analizi, kolon, perde, kiriş ve döşeme gibi yapı elemanlarının dizaynı ile temel hesaplarının hazırlanması amacıyla geliştirilmiş programlar kullanılır. Program kullanımındaki amaç ise, yapı sistemlerinin kısa sürede, hatasız, ekonomik ve güvenli olarak projelendirilmesini sağlamaktır. Bir programda, yapı modeli oluşturulduktan sonra çok kısa sürede ve hatasız hesaplar yapılır, çizimler ve hesap raporları hazırlanır. Çözülen sistemin büyüklüğüne göre uğraşılan rakamlar ve yapılan hesapların çeşitliliği fazla olduğu için belli bir süre geçtikten sonra hata yapmak kaçınılmaz olacaktır. Yapılan hesaplarda sonra çizim aşamasına geçildiğinde harcanan zaman düşünüldüğünde bir programın gerekliliği anlaşılacaktır. Hesap raporlarını hazırlarken de, yapılan hesaplar arasında ihtiyaç olan rakamların seçilmesi ve onların istenilen formata çevrilmesi hem zaman kaybına neden olmakta, hem de hata yapmaya müsait olmaktadır. Bilgisayar programları birçok kolaylık sağlamasına rağmen, bu programlar mutlaka programın özelliklerini bilen, programa hakim deneyimli inşaat mühendisleri

16 tarafından kullanılmalıdır. Program kullanıcıları, hesap yöntemleri konusunda bilgi sahibi olmalıdırlar. Kullandıkları program üzerinde program ve kullanım hatalarından kaynaklan hatalara karşı gerekli kontrolleri yapabilecek düzeyde olmalıdırlar.

4.3. Bilgisayar Destekli Çelik Yapı Tasarımı Çelik yapılar gerek birleşim bölgelerinde, gerek taşıyıcı sistem çeşitliliği açısından projeciye çok değişik seçenekler sunar. Köşe noktada oluşturulacak sistemle yapı mafsallı veya rijit olarak çözülebilir. Tek parça ya da iki elemanın bir araya gelmesiyle çok parçalı taşıyıcı elamanlar oluşturulabilir. Böyle durumlarda tercih ve hesap yöntemlerindeki farklılıklar, çelik yapıların proje aşamasında tercih edilmeyerek gelişmesini engeller. Tüm bu olumsuz faktörler düşünüldüğünde çelik yapı hesaplarında gösterilecek olan titizlik çok daha önem kazanmaktadır. Projede çelik ile ilgili mevcut bilgi düzeyini artırmanın yanında çizimlerin hazırlanmasında Adeko IntelliCAD, statik hesabın yapılmasında ÇelikPro2006

programlarından

yararlanılarak

hesaplarda hız ve

güvenilirlik, çizimlerde hız sağlanılarak bilgisayar kullanımı en üst düzeyde tutulmaya çalışılmıştır.

Excel üzerinden Basic Programlama Dili kullanılarak Makrolar

hazırlanmış, SAP2000’den alınan bazı verilerin ihtiyaca göre hızlıca düzenlenmesi sağlanmıştır. Microsoft Visual Basic 2005 Express Edition ile gezer vinç hesabı yapan ve çerçeve statik değerlerini hesaplayan iki program yapılıp rutin olarak tekrar eden hesaplamaların yapılmasına gerek kalmamış ve hesap hataları en aza indirilmiştir.

4.4. Çelik Yapılarda Hesap Adımları 1- Taşıyıcı Sistem tipi, çatı kaplaması seçilir. 2- Çatı kaplamasına, sistemin bulunduğu yere göre kar yükleri ve sistem özelliklerine göre rüzgar yüklerine karar verilir. 3- Yüklere göre aşık hesabı yapılır. (Gerilme ve sehim hesapları) 4- Askı çubuğu hesabı yapılır. (Gerilme ve ekonomiklik hesabı)

17 5- Kafes kirişlere gelen yükler belirlenir. 6-

Kafes kirişe gelen yükler sonucunda kafes kiriş elemanlarında meydana gelen

tesirler belirlenir. 7-

Belirlenen tesirler doğrultusunda alt başlık, üst başlık, dikme ve diyagonaller

boyutlandırılır ve gerekli kontroller yapılır. (Alt başlık için tek tip profil, üst başlık için tek tip profil seçilmelidir.) 8- Kaynak hesapları yapılır. (Kaynak kalınlık ve uzunluğuna göre gerilme kontrolleri yapılır) 9- Düğüm noktaları levha kalınlık ve boyutları belirlenir. 10- Kolonlar boyutlandırılması yapılır. (Gerilme kontrolü ve birleşim hesabı) 11- Yatay kuşak boyutlandırılması yapılır. 12- Çizimler hazırlanır. 13- Çelik yapının metrajı yapılır. Bu basamakların herhangi bir tanesini yapabilen modüller olabildiği gibi, hepsini tek seferde yapabilen paket programlarda vardır. Hesaplar yapılırken ya da çizimler oluşturulurken bu basamaklardan herhangi birinde bilgisayar kullanılarak bilgiler doğru girilmek kaydıyla hesaplar daha güvenli ve daha çabuk olarak tamamlanılabilinir.

4.4.1.Modüller kullanılarak tasarım 4.4 maddesinde anlatılan adımları tek tek yapan modüller kullanılarak hesaplarda kolaylık sağlanabilir. Çoğu zaman bu yöntemle yapılan işlemler hız kazanır ve en az hata ile sonuca ulaşılmasını sağlamaktadır. Örnek olarak Excel programı ile hesaplarımızı

kolaylaştıran

bir

modül

yazıldı.

Sap2000

programı

inşaat

mühendisliğinde birçok karmaşık hesabı en az hatayla gerçeğe en yakın şekilde hesaplayarak sonuçları kullanıcıya sunar. hesaplarında kullanılamazlar.

Ancak sadece bu ham sonuçlar proje

Bu sonuçlara ek hesaplar yapılması gerekmektedir.

Modül, Sap2000 programıyla çözülmüş bir modelden kafes kiriş eleman sonuçlarını alarak tablonun doldurulmasını sağlıyor.

Bu ve bunun gibi durumlarda bir defaya

18 mahsus zaman ayırarak modül oluşturulursa bundan sonra yapılması gereken hesaplar çok kolay bir şekilde sonuçlandırılabilir. Çizelge 4.1 Kafes kiriş elemanları için elverişsiz tesirlerin seçilmesi Kar yükü Rüzgar Çubuk Zati H No Yük Sol Sağ Toplam Sol Sağ Yüklemesi Sol+Sağ

Zati + Kar Toplam

HZ Yüklemesi Zati + Kar Toplam + Maksimum Rüzgar

Minimum Çubuk Kuvveti

Modül hazırlanırken 99 elemana kadar hesap yapabilecek şekilde yapılmıştır. SAP2000 programıyla oluşturulmuş output dosyasından kesit tesirleri, Excel programının veri alma özelliği ile tüm bilgilerin alınıp Ek 1.de kodları verilen makronun çalıştırılması olarak hazırlanmıştır. Tüm veriler değerlendirilip ve tabloya uygun şekilde yerleştirilir. Program algoritmasında tablo yerleşimi çizelge 4.1’ de görülmektedir. Makronun doğru çalışabilmesi için bazı kısıtlamalar vardır. 1. Veriler, Excel’in A1 hücresine “FRAME LOAD” yazısı gelecek şekilde alınmalıdır. 2. SAP2000 programında yüklemeler “ZATI, KAR, KARSOL, KARSAG, RUZGAR, RUZGARSA, COMB1, COMB2” olarak isimlendirilmelidir. 4.4.2.Diğer programlardan veri alarak tasarım Çözüm yöntemi olarak sonlu elemanlar metodunu kullanarak hesap yapan ve kendini dünyaya ispatlamış SAP2000 programından bilgi alışverişi yaparak da çözümlerimizi hızlı ve güvenilir bir biçimde yapabiliriz. Bunun için de Excel ile hesapları kolaylaştıran bir modül yazıldı. Modül, SAP2000 V7.42 programıyla çözülmüş bir modelden kesit bilgilerini alarak Excel programına yerleştirmektedir. Daha sonra bu bilgilerle istenilen hesapları yapmak için ayrı ayrı modüller eklenebilir. Eleman kısıtlaması olarak Excel hücre satır sayısı olan 65536 kullanılmıştır. SAP2000 V7.42 programıyla “c:\tezoutputdata.txt” yerinde FRAME ELEMENT FORCES output txt dosyası oluşturulduktan sonra, kodları Ek.2.de verilen Excel

19 makrosu bu dosyayı açarak kendi hücrelerine yerleştirir. Bu aşamadan sonra kesit tesirlerini kullanarak istenilen hesaplar yapılabilir. 4.4.3.Hesap kolaylığı sağlayacak küçük yazılımlar yazarak tasarım Hesap yöntemi olarak aynı hesapları tekrarlayan çözüm yöntemlerinde işimizi hızlandıracak programlar da yazabiliriz. Bunun için herhangi bir programlama dili bilmemiz gerekmektedir. Bu sayede aynı hesapları yapmak yerine harcanacak vakit başka hesapları yapmak için kullanılabilir. Örnek olarak, kodları Ek.3.de, programın kullandığı Excel tabloları Ek.4.de,

programın hazırladığı rapor Ek.5.de verilen

Microsoft Visual Basic 2005 Express Edition ile gezer vinç hesabı yapan program tasarlanmıştır. Hesap yöntemi olarak Prof. A. Zafer Öztürk ‘ ün [5] kitabındaki adımlar ve tablolar kullanılmıştır. Programa çerçeve özellikleri, gezer vincin boyutları, çalışma süresi, taşıdığı yükün cinsi, hareket özellikleri, kumanda ve ray eki tipi, kapasitesi, yürüme hızı ve mesnet açıklığı verildikten sonra tekerlek özellikleri ve fren kuvvetleri Excel tablosundan otomatik olarak seçilir. Program Şekil 4.1 ile ekrana gelir. Programın çalışabilmesi için bilgisayarda Excel programı kurulu olmalıdır. Bazı gerekli dosyalar ise kurulum sırasında kendiliğinden gerekli yerlere kopyalanacaktır.

20

Şekil 4.1 Gezer vinç ana menü

Mesnet açıklığının seçilmesiyle Excel tablosundan maksimum ve minimum tekerlek etkileri okunur ve ekrana bu değerler bilgi vermek amacıyla yazılır. (Şekil 4.2)

21

Şekil 4.2 Tekerlek etkileri menüsü

Bilgilerin girilmesinden sonra gezer vinç hesabına başlanılabilir. Kren kiriş hesabı düğmesine basılarak hesaba başlanır. Ekrana Şekil 4.3 gelir.

Şekil 4.3 Gezer vinç hesapları

22

Ekrana gelen menü, gerekli hesaplar yapılarak tablolar doldurulmuş olarak ekrana gelir. Kesit seç düğmesiyle ekrana gelen Şekil 4.4 ile ya da kendi kesitim düğmesiyle gezer vinç kiriş kesiti seçilir (Şekil 4.5). Seçilen kesite göre kesit özellikleri otomatik olarak hesaplanır.

Şekil 4.4 Gezer vinç kirişi I profili ve takviye levhası seçimi

23

Şekil 4.5 Gezer vinç kirişi üretilen kesit seçimi Kiriş kesitini de seçtikten sonra kesit ve sehim tahkikleri düğmesine basılarak kontroller yaptırılır. Gerilme ya da sehimden dolayı emniyet gerilmelerini aşan kesit varsa sesli ve yazılı mesajla uyarı verir (Şekil 4.6). Hesap ekranında da kurtarmayan kısımlar kırmızı renkle uyarı verir (Şekil 4.7). Bu durumda geri gidilerek kesitler büyütülür. Hesaplar tamamlandığında rapor hazırlamak istenirse örneğinin Ek 5’te verilen Excel dosyası program tarafından otomatik olarak doldurulur. hazırlandıktan sonra hesap bitirilir.

Şekil 4.6 Uyarı mesajı

Rapor

24

Şekil 4.7 Gerilme ve sehim tahkikleri

Bu programla küçük kesitlerle hesaplara başlanılır ve kurtarmadıkça yapılması gereken tekrarlı hesapların yapılmasına gerek kalmaz. Hesaplar daha doğrudur ve rapor da otomatik olarak hazırlanmış olur.

4.4.4 Paket program kullanılarak tasarım Tüm hesapların yapıldığı ve çizimlerin ve raporların hazırlandığı paket program da kullanılarak tasarım yapılabilir.

25 Burada örnek olarak ÇelikPro2006 kullanılmıştır. Paket programların çoğunda hazır şablonlar bulunur ve bunların dışındaki hesaplar ya da çizimler yapılamazlar. Çelikpro2006 programı ile çözülebilen yapı şekilleri şekil 4.8’ de görülmektedir.

Şekil 4.8. ÇelikPro2006 ile çözülebilen çatı şekilleri Çatı şeklinin seçilmesiyle bilgi girişine başlanıldıktan sonra gerekli yapı özellikleri, malzeme ve kesit özellikleri programa tanıtılır ve hesaplar yapılır. Emniyet gerilmesini aşan kesitler emniyet gerilmesini geçmeyecek şekilde büyütüldükten sonra örneğinin Ek.6. de verildiği raporlar ve çizimler otomatik olarak program ile hazırlanır. Program görsel olarak bilgi girişini hızlandırmış, hataları bilgi girişini önleyerek en aza indirmiş ve hesap adımlarının sırasıyla yapılmasını sağlamıştır. Adım adım hesaplar takip edilerek hızlı bir şekilde modellenen sistem çözüldükten sonra, güvensiz kesit varsa değiştirilerek yeniden hesap yapılması sağlanmıştır. Tüm kesitler kurtardıktan sonra çizimler ve raporlar program tarafından otomatik olarak oluşturulmaktadır.

26 Paket programların avantajları dezavantajlarından fazla olmasına rağmen yine de eksiklikleri vardır. Bunlar versiyon yenilemeleriyle giderilmektedir. Her versiyon değişiminde programa yenilikler katılarak, daha doğru sonuçlara, daha hızlı bir şekilde ulaşılması sağlanmaktadır.

Paket programlar kullanırken yazılımı alır almaz

kullanmaya başlamak yerine kullanım kılavuzu ile örnekler çözerek ve bunların hesaplarını kontrol ederek kullanılmaya başlanılmadır. Bu sayede programın hesap yöntemlerine adapte olunur ve ilerde model oluştururken ve sonuca ulaşırken nasıl bir durumla karşılaşacağımızı önceden tahmin edilebilir.

Paket programlar işleri

hızlandırmak ve daha hatasız hesap yapmak konusunda başarılı olabilirler ancak unutulmaması gereke konu doğru sonuçlara doğru modelleme ile ulaşılabilinmektedir. Paket programların her hesabı yaptığı da düşünmek yanlış olur. Programlandığının dışında hesapları yapamazlar.

Bu sebeple bir yazılım almadan önce hangi türden

hesapları yapabildiği araştırılmalıdır. Ayrıca eski yönetmeliklere göre hesap yapan versiyonlar mutlaka yenileriyle değiştirilmelidir. Hesap sonuçlarının çıktısını aldıktan sonra, hesap yöntemlerinden işlem sonuçlarına kadar kontroller yapılmalıdır. ÇelikPro programı sanayi tipi yapıların tasarlanmasında, çözülmesinde, çizim ve metrajlarının hazırlanmasında kullanıcıya hız ve doğruluk sağlamaktadır. Bu tür yapılar tip olarak birbirine benzese de, uygulanan yüklerde çok farklılık olacağı için hesaplarda da farklılık olacaktır. Bunun yanında çözüme daha kısa yoldan alternatif yollarla ulaşmak istenirse, program sayesinde sonuçlara daha hızlı ulaşılabilinir. malzeme

imalatında kesim optimizasyon

modülüyle, ekonomiklik

Program, sağlamaya

çalışmaktadır. Program tarafından hazır olarak sunulan sistemlerden biri seçilerek, düğüm noktaları oluşturulur. Sisteme düğüm noktalarından kolonlar atandıktan sonra kesitler kullanıcı tarafından seçilir. Kesitler piyasada kullanılan hazır profiller olabildiği gibi kullanıcı tarafından da kesit tanımlamaya izin verilmektedir. Sistemde ara kat ya da gezer vinç varsa programa bunlar, yerleriyle tanıtıldıktan sonra sistem ölçüleri programa tanıtılır. Çatı ve Duvar aşıkları dolu aşık veya uzaysal aşık olarak tanımlanmaktadır. Aşık seçilmesiyle beraber gergisiz, tek veya çift gergili olarak hesaplanan sonuçlar ekrana getirilerek seçim kullanıcıya bırakılır.

Program farklı mesafeli makasları

27 çözebilmektedir. Gezer vinç hesabı da farklı kapasiteli gezer vinçlere göre hesabı otomatik olarak hazırlayarak raporlandırabilmektedir.

Gezer vincin oturacağı yol

betonarme guse ise, program hesapları TS500-2000’e göre yapmaktadır.

Program

yükleri seçilen aşık ve kaplamaya göre otomatik olarak hesaplamaktadır. Kar yükünü TS498’ e göre kullanıcının belirlemesi gerekmektedir [10]. Seçilen kesitlere göre öz ağırlıklar program tarafından otomatik hesaplanmaktadır.

Hesap yöntemi Deprem

bölgelerinde yapılacak binalar hakkında esaslarda geçen Eşdeğer deprem yükü yöntemine göre yapılmaktadır [11]. Düğüm nokta koordinatlarına göre rüzgar yükünü hesapladıktan sonra gezer vinç varsa, vinç hesabında hesaplanan fren ve reaksiyon yüklerine göre sisteme etki ettirilmektedir. Program statik hesapları matris deplasman yöntemine göre hesaplamaktadır. Program hesapları her menü de kullanıcıya kolaylık sağlamak için ekrana şematik olarak getirilmektedir.

Kesit kontrolleri menüsünde

renklere bakarak en çok gerilmenin olduğu kesitler fark edilerek buralara önlem alınabilinmesi sağlanmıştır. Program sadece çelik kolonları değil betonarme kolon donatı hesabını da yapabilmektedir. Kesitlerin yeterliliği kontrol edilip sağlandıktan sonra, taban levhası boyutları, bulon özellikleri ve sayısı verilen sistemin yeterlilik kontrolü yapılır. Seçilen sistem anında ekrana getirildiği için çakışma ya da yerinde yapamama gibi hatalar anında görülerek sistem değişikliğiyle sorunu çözmek sağlanmıştır.

Program kolon makas birleşimlerindeki kaynak, bulon ve ankraj

tahkiklerini hesaplayabilmektedir.

Statik hesabın son

aşaması olan temel

boyutlandırması da program tarafından yapılarak rapor ve çizimlerin hazırlanması sağlanmıştır.

Temel tipi olarak sadece tekil temel hesabı yapılabilinmektedir.

Hesapların tamamlanmasıyla proje metrajı da program tarafından kısa bir süre de tamamlanmaktadır. Yapılan değişiklikler metraja anında yansıtılarak kullanıcının en doğru çözüme en ekonomik yoldan ulaşılması sağlanmıştır. Sistem istendiği anda üç boyutlu olarak ekrana getirilebilinmektedir. Bu sayede sistem hakkında bir fikir sahibi olarak bir problem olup olmadığına karar verilmesi sağlanmıştır.

Hesap kısmı

tamamlandıktan sonra, imalat aşamasında şantiyede bir problemle karşılaşmamak için, eksiksiz ve hatasız bilgilerle teknik resimlerin oluşturulması gerekmektedir. Hesapları yapılmış kesitlerle ve bunların ayrıntılarıyla birlikte ölçüler vererek çizimler programla birlikte saniyeler içinde hatasız ve eksiksiz oluşturulur.

28 5. BİLGİSAYAR DESTEKLİ ÇERÇEVE HESABI PROGRAMI Bu

program

çerçeve

hesaplarında,

bulunması

gereken

iç

tesirlerin

hesaplanmasını hızlandırmak, en kısa zamanda en az hatayla sonuca ulaşıp raporları kısa bir sürede hazırlamak amacıyla yazılmıştır. Hesap yapılacak sistem, üstten yayılı yükler uygulanmış çerçeve sistemdir. Çerçeve eleman uç kuvvetleri bulunurken matris yöntemiyle hesaplar yapılmış ve sonuca ulaşılmıştır.

Bu sistemin çözümünde açı

yöntemi de kullanılabilinirdi fakat başka sistemler de göz önüne alınsaydı açı yöntem hesap yöntemi, sistemin özelliklerine göre farklılık göstereceğinden çözüm daha karmaşık bir hal alırdı. Daha genel bir hesap yöntemi olduğu için matris yöntemi, hesap yöntemi olarak seçilmiştir.

Bu yöntemde, bilgisayar desteği göz ardı edildiğinde

hesaplar daha uzun ve karmaşıktır. Ancak günümüz bilgisayar şartları düşünüldüğünde bu süre çok az bir zaman alır. Bu yöntemle eksenel yükten oluşan şekil değiştirmeler de hesaba katılmıştır. Matris yöntemiyle çerçeve hesabı yapılırken, çerçeve analizi bilinen çubuk elemanlara dönüştürerek ayrı ayrı hesap yapılmıştır ve her çubuk, sistemin özelliğini bozmadan hesaba katıldığı için sonuçlar kesin sonuçlardır. Çerçeve hesabının yapılması için hazırlanan programda, programlama dili olarak Microsoft Visual Basic 2005 Express Edition kullanılmıştır.

Ek.7.’de görülen

algoritmalar kurulurken döngüler oluşturulmuş, bazı hesaplar algoritmalar arasında yapılırken hesap kolaylığı ve zaman kazanımı açısından bazı hesaplar ise Microsoft Excel 2003 programına yaptırılmıştır.

Hesap sonuçları bir rapor oluşturması için

Microsoft Word 2003 programına gönderilmiştir. Bunun için programın çalıştırılacağı bilgisayarda Microsoft Office 2003 ile beraber gelen Microsoft Office 11.0 Object library, Microsoft Excel 11.0 Object library, Microsoft Word 11.0 Object library veya alt sürümlerine ait dosyalar kurulmuş olmalıdır. Çizimlerin ekrana getirilip, dxf çizim formatında hazırlanması için Kos DxfReader ActiveX Control dosyasının 1.51.0.0 sürümü kullanılmıştır. Bu dosyanın olmadığı Microsoft Windows XP işletim sistemli bilgisayarlarda bu dosya \Windows\System32 klasörünün içine kopyalanmalı ve “regsvr32 /v DXFReader.ocx” komutunun çalıştırılmasıyla Windows registry ayarlarına kayıt yapılmalıdır. Dosyanın kullanılması için bilgisayarın kapatılıp tekrar açılmasına ihtiyaç vardır. Microsoft Visual Basic 2005 Express Edition .Net tabanlı programlama

29 dili olduğu için sistemde .Net Framework kurulu olmalıdır. Bu programda Microsoft Visual Basic 2005 Express Edition ile beraber gelebildiği gibi, Microsoft un internet sitesinden indirilebilinir. Program oluşturulurken birçok yönden düşünülerek, program tarafından ve kullanıcı tarafından yapılması muhtemel hatalardan kaçınılmış. Programın aktif ve hızlı bir şekilde kullanılarak sonuca kesin ve hızlı bir şekilde ulaşılması sağlanmıştır. Program kodlarının yanına açıklamalar yazılarak, ileride yapılacak eklemelerin önü açılmıştır.

Kodlar içinde bir hata varsa hataya ulaşmak kolaylaştırılmıştır.

Bir

bilgisayar programında olması gereken özellikler düşünülerek hazırlanmıştır. İstenilen birimde çalışabilmek yerine kodların daha hızlı bir şekilde sonuçlanabilmesi için metrik birim sistemiyle çalışılmıştır. Yükler ton, uzunluklar bilgi girişini hızlandıracak şekilde metre veya santimetre olarak yapılmıştır. Hangi birimle giriş yapıldığı ise bilginin yazıldığı kutuların yanına yazılmıştır. Sonuçların yazıldığı raporlarda da sonuçların birimleri raporlara dahil edilmiştir. Programda kullanılan veri tipleri kodların başında tanımlanarak hafıza daha verimli kullanılmış ve olası hatalar önlenmeye çalışılmıştır. Hesaplarda daha hassas sonuçlar elde edilebilinmesi amacıyla single veri tipi kullanılmıştır. Bu veri tipi ±1.401298x10-45 ile ±3.4028235x1038 değer sınırlarıyla hafızada 4 byte yer kaplar. Ekrana gelen bilgiler yedi rakamdan oluşur. Daha fazla rakamlı bilgiler olduğunda bilimsel kullanım şekline dönüşür. Bazı sonuçların ekrana bu kadar ayrıntılı olarak gelmesine gerek görülmediği durumlarda sonuçlara müdahale edilip tolerans bizim belirlediğimiz şekilde dışarı aktarılır. Hesaplarda bir değişiklik olmadan eski hassasiyetle çalışılmaya devam edilir.

Program veri girdileri ve

çıktılarında değişken isimleri kolay anlaşılabilir olarak seçilerek aynı bilgilerin farklı yerlerde iki kere yer alması engellenmeye çalışılmıştır. Böyle durumlarda gereksiz hafıza kullanılır ve sonuca daha geç ulaşılır. Ayrıca kod satırlarının ilerleyen yerlerinde hatalara neden olarak sonuçların hatalı çıkmasına neden olur. Bilgi girişi her ne kadar farklı birimlerde olsa da hesaplarda kullanılması gereken birimlere otomatik olarak kodlarla çevrilir. Bilgi girişi sırasında rakamsal olarak bilgi girilmesi gereken yerlere kullanıcı tarafından yanlışlıkla harf girilmesi durumunda hesaplar hatalı olacaktır. Hatta bu hata program tarafından daha ileri hatalara neden olup programın kendini kapatmasıyla bile sonuçlanabilir.

Bazı durumlarda da bilgi girişi sıfır olarak

30 yapıldığında paydada sıfır olması durumunda program hata vererek kendini kapatır. Bu gibi hataların önlenmesi için, bilgi girişi bitip hesap yapılmaya başlandığında önce bilgi girişleri kontrol edilir. Yukarıda bahsi geçen durumlar varsa tespit edilip bu durumun olduğu kutular kırmızı renge çevrilerek kullanıcı bu durumun düzeltilmesi için uyarılır ve hesap yapılmadan işlemler kesilir. Düzeltildikten sonra kutular eski rengine geri çevrilir. Hesaplar yapılırken daha kesin sonuçlara ulaşmak için doğru hesap yöntemi seçilmiştir. Matris işlemleri yapılırken daha uzun kodlu hataya açık kodlar oluşturmak yerine Microsoft Excel programının matris işlemlerini otomatik yapması sağlanmıştır. Bilgi girişinde sistemin yanlış tanıtılabileceği düşünülerek oluşabilecek hatalar, bazı bilgilerin otomatik olarak gerekli yerlere yazılmasıyla önlenmeye çalışılmıştır. Program veri tabanı olarak daha karışık veri tabanları yerine Microsoft Excel programı kullanılmıştır.

Hesaplar yapılırken programı yavaşlatsa da bazı işlemleri otomatik

yaparak programın hızlanmasına yardımcı olacağı için bu program seçilmiştir. Hesaplar yapılırken tüm değişkenler temizlenerek yeniden hesap yapılması sağlanmıştır. Program yazılırken tamamlandıktan sonra kontrol yerine her aşama ayrı ayrı defalarca kontrolden geçirilerek olası hatalar en aza indirilmiştir.

Program hakkında bilgi

verilerek hangi hallerde çalışmayacağı veya hatalı çalışacağı önceden tespit edilerek kullanıcıya bildirilmiştir.

Bazı hazır profiller programa dahil edilerek ve kullanıcı

tarafından girilmesi gereken yükler program tarafından hesaplanmasıyla programa bilgi girişi hızlandırılmış ve yapılabilinecek hata ihtimali en aza indirilmiştir. Programa grafik çizimleri dahil edilerek kullanıcın alıştığı biçimde sonuçların görüntülenmesi sağlanmıştır. Programda hesaplar yapıldıkça hesabın yapılıp ilerlediğini gösteren bir araç konulmuştur.

Statik hesaplar yapılırken de hangi hesapların yapıldığı sırayla

ekrana getirilmiştir. Bu sayede kullanıcının hesapla komutundan sonra bekliyorum düşüncesinden çok hesapların yapıldığını da görmesi sağlanmıştır.

5.1. Programın Kullanılması Ve Hesap Yöntemleri Program çalıştırıldıktan sonra sistem bilgilerinin programa tanıtılacağı ana menü ekrana gelir. (Şekil 5.1) Bu formla dört ayrı çerçeve elemanının atalet momentini, kesit

31 alanını, mukavemet momentini, atalet yarıçapını, elastisite modülünü, sistem şeklini ve etki ettirilecek yükleri programa tanıtırız. Y4 mesafesini program Y1, Y2 ve Y3 e göre kendisi hesaplamaktadır. Bu nedenle bilgi girişine gerek kalmadığı için kutu pasif olarak ekrana gelmektedir.

Bu menüde, I ve IPE profillerinin kesit özelliklerinin

otomatik olarak seçilerek gerekli kutulara yazılabilineceği kesit seç düğmesi vardır. Çatıya gelen yayılı yüklerin aşıklar tarafından geliyorsa kaplama cinsine, kar yüküne, aşık ağırlıklarına ve rüzgar ve rijitilik bağlantılarının otomatik olarak hesaplandığı ve gerekli kutulara yazdırılabilineceği aşık yükü düğmesi vardır. Kesit kontrolü yap veya kesit önererek hesap tercihlerinin seçilebilineceği kutular yine bu menüde mevcuttur. Kesit mukavemet momenti ve atalet yarıçapı bilgileri bu iki tercih işaretli değilse pasif olarak ekrana gelmektedir. Çünkü bu iki değer sadece kesit kontrolü ve kesit önerilmesi sırasında işlemlere dahil olmaktadır.

Hesap düğmesiyle statik hesaplar yapılmaya

başlanır. Çizilen kesit diyagramları grafikler düğmesiyle ekrana getirilir. Sistemin kesit tesirlerini SAP2000 programıyla kıyaslamak için, SAP2000 programının modeli tanıyabileceği dosya biçimi SAP2000 düğmesi ile oluşturulur.

Rapor düğmesi ile

hesaplanan kesit tesirlerinin hesap sonuçları Word dosyası olarak oluşturularak ekrana getirilir.

Şekil 5.1 Çerçeve program girdileri menüsü

32

İstenirse Kesit Seç düğmesine basılarak hazır çelik profil tablolarından seçim yapılabilinir. Menü Şekil 5.2’ deki gibi ekrana gelir.

Şekil 5.2 Çerçeve program profil seçim menüsü Bu sayede program girdileri daha hızlı hale getirilmeye çalışılmıştır. Şekil 5.2’ de görüldüğü gibi hazır olarak I ve IPE profilleri vardır. Çerçevedeki yerleşimlerine göre atalet momentlerinin seçilebilinmesi için zayıf doğrultuda mı yoksa kuvvetli doğrultuda mı olduğu seçilmelidir. Bu iki seçenekten biri işaretlendikten sonra profil seçimi yapıldığında seçilen kesitin atalet momenti, kesit alanı, mukavemet momenti ve atalet yarıçapı değerleri otomatik olarak ekrana gelir. Hangi çerçeve elemanında bu değerler kullanılacaksa işaretlenir ve tamam düğmesine basılır.

Eğer

çözülecek

çerçeveye hazır aşık yüklerini etki ettirmek istersek aşık yükü düğmesine basılarak Şekil 5.3’deki menü ekrana getirilir.

33

Şekil 5.3 Çerçeve program aşık yükü hesabı menüsü Aktif kutular doldurularak hesapla b düğmesiyle b çubuğuna yük bilgilerinin gönderileceği, hesapla c düğmesiyle c elemanına yük bilgilerinin gönderileceği bilgisi programa bildirilir.

Çatı kaplaması yatay düzlem yükü, program tarafından çatı

düzlemindeki yükün, eleman açısının kosinüsüne bölümüyle otomatik olarak hesaplanmaktadır.

Çerçeve b elemanına oturan aşık sayısı ve aşığın uzunluğu

girildiğinde, aşıklar arası mesafe, eleman uzunluğunun aşık sayısına bölümünün bir eksiği olarak bulunur.

Aşığın 1m.’sine gelen yükün aşık uzunluğu çarpımıyla bir

aşıktan çerçeveye aktarılan yük hesaplanmış olur. Burada Çerçeve en dış aks çerçevesi ise bu yükün yarısı alınmalıdır. Bu menüde, program son olarak aşıklara gelen yükü çerçeve elemanının 1m.’sine gelen yüke çevirmekte. Bir aşığa gelen toplam yük aşık sayısıyla çarpılıp çerçeve elamanının uzunluğuna bölünerek hesaplanmaktadır. Yük hesapları yapılarak tamam tuşuyla program girdileri menüsüne dönülür.

34

Sistem bilgileri programa tanıtıldıktan sonra hesap bölümüne geçilebilinir. Hesaba başlamadan önce kesit kontrolü ve kesit önerisi yapılıp yapılmayacağına karar verilir. Kesit kontrolü yapılarak program tarafından kurtarılmış kesit önerisi istiyorsak ana menü üzerinde bu iki seçeneği işaretlemek gerekmektedir.

Bu iki seçenek

işaretlendikten sonra hesapla düğmesine basılır. Bu komutla birlikte program hesap yapmaya başlayacaktır. Yaptığı hesaplar ayrı bir formda hesap başlangıç ve bitiş tarih ve saati ekrana getirilmektedir. (Şekil 5.4)

Şekil 5.4 Çerçeve programı yapılan statik hesaplar listesi

35 Hesaplamaya başlamadan önce program girdilerinde bir hata olup olmadığı program tarafından kontrol edilir. Bilgi girişinde rakam yerine harf kullanılmış mı veya bölü sıfır hatası meydana getirebilecek bir durum var mı kontrol edilir. Böyle bir duruma neden olacak kutu renk değiştirerek kullanıcı bu konuda uyarılır ve hatalı değerin değiştirilmesi istenir.

Böyle bir durum söz konusu değil ise ana menüde

girilmiş bilgiler program tarafından kendi değişkenlerine atanır. Hesaplanması gereken çubuk boyları sistem bilgilerine göre hesaplanır. Bu hesaplar esnasında dikkat edilmesi gereken nokta Microsoft Visual Basic 2005 Express Edition programlama dili, verilerin trigonometrik değerlerini radyan cinsinden hesaplamaktadır. Hesaplar yapılmadan önce derece cinsinden girilmiş veriler program tarafından radyana dönüştürülür ve daha sonra hesaplara dahil edilirler. Bilgi girişinin hızlanması için ana menü üstünde bazı kutular da santimetre cinsinden girilmesi istenmiştir. Yine hesaplara başlamadan bu değerler de hesaplarda kullanılması gerektiği birime dönüştürülmüştür.

Hesaplara elemanların

sistem eksen takımlarındaki rijitlik matrislerinin oluşturulmasıyla başlanmıştır.

Şekil 5.5 Birim yüklemeden oluşan uç kuvvetler [6]

36 Şekil 5.5’te görülen çerçeve elemanının şekil değiştirmelerden dolayı oluşan kesit tesiriyle denklem 5.1, denklem 5.2, denklem 5.3 ve denklem 5.4 elde edilmiştir. 4 EI 6 EI + 2 l l

(5.1)

Pu12 = −

12 EI 6 EI 2 EI 6 EI EA Pv12 = − 3 − 2 Mϕ12 = + 2 l l l l l

(5.2)

Pu 21 = −

12 EI 6 EI 2 EI 6 EI EA Pv 21 = − 3 + 2 Mϕ 21 = − 2 l l l l l

(5.3)

Pu11 =

Pu 22 =

EA l

EA l

Pv11 =

Pv 22 =

12 EI 6 EI + 2 l3 l

12 EI 6 EI − 2 l3 l

Mϕ11 =

Mϕ 22 =

4 EI 6 EI − 2 l l

(5.4)

Bu denklemlerin matris formu Çizelge 5.1’de oluşturulmuştur. Çizelge 5.1 Eleman rijitlik matrisinin oluşturulması [6]

37

Şekil 5.6 Çubuk elemanındaki kuvvetler [6] Şekil 5.6’da görülen çubuktaki kuvvet denge denklemleri de denklem 5.5, denklem 5.6, denklem 5.7, denklem 5.8, denklem 5.9, denklem 5.10’da gösterilmiştir. Bu denklemlerle çubuk kuvvetleri ve yer değiştirmelerin dönüşümü için Çizelge 5.3’deki transformasyon matrisi oluşturulmuştur. P1 = P1cos φ + P 2 sin φ

(5.5)

P 2 = − P1sin φ + P 2 cos φ

(5.6)

P3 = P3

(5.7)

P 4 = P4 cos φ + P5 sin φ

(5.8)

P5 = − P 4 sin φ + P5 cos φ

(5.9)

P6 = P6

(5.10)

[K ] = [T ][. K ][. T ]

T

(5.11)

Denklem 5.11 ile elemanların rijitlik matrisleri oluşturulmuştur. Bu basamaklar program tarafından yapılmayarak sistemde aynı denklemler oluşturulduğu için elde edilen denklem 5.12 ile işlemler yapılmaktadır.

38 c= cos φ

s= sin φ

[K ]

c 2 EA s 2 12 EI + l l3 EA 12 EI − 3 ) = sc ( l l s 6 EI − 2 l

[K ]

c 2 EA s 2 12 EI − l l3 EA 12 EI = sc (− + 3 ) l l s 6 EI l2

[K ]

c 2 EA s 2 12 EI + l l3 EA 12 EI = sc ( − 3 ) l l s 6 EI l2

11

−

12

22

[K ] = [K ]

T

21

12

EA 12 EI − 3 ) l l s 2 EA c 2 12 EI + l l3 c6 EI l2 sc (

s 6 EI l2 c6 EI l2 4 EI l

−

EA 12 EI + 3 ) l l 2 2 s EA c 12 EI − − l l3 c6 EI − 2 l sc (−

EA 12 EI − 3 ) l l s 2 EA c 2 12 EI + l l3 c6 EI − 2 l sc (

s 6 EI l2 c6 EI l2 2 EI l

−

s 6 EI l2 c 6 EI − 2 l 4 EI l +

(5.12)

Denklem 5.12’deki işlemler program tarafından çok kısa sürede hesaplanarak değişkenlerine sonuçlar atanır. Bu sürecin bitmesiyle yük matrisleri Denklem 5.13’e göre oluşturulmaya başlanır. a ve d elemanlarında yük olmadığı için matrisleri sıfır matris olarak hesap yapılmadan yazılır. b ve c elemanının yük matrisi hesaplanarak program değişkenlerine sonuçları kaydeder.

39

{P0 }a

0 0   0 =  0 0   0

{P0 }b

{P0 }d

0 0   0 =  0 0   0

{P0 }c

 q1lb   2 sin α   ql   − 1 b cos α   2  2   q1lb  −  12 =   q1lb sin α    2   q1l b  − 2 cos α    2  q1l b    12  q2lc   2 sin β   q l  − 2 c cos β    2 2   q2lc  −  12 =  (5.13)  q 2 l c sin β    2  q 2 lc  − 2 cos β    2  q2lc    12

Bu hesapların da yapılmasıyla önceden yeri belirlenmiş şablon halindeki Excel dosyası açılır ve değişkenlere atanmış veriler dosyanın belirlenmiş hücrelerine yerleştirilir. Eleman bazındaki rijitlik matrisi Çizelge 5.2’deki gibi işleme sokularak, sistem rijitlik matrisine dönüştürülerek Excel dosyasındaki önceden belirlenmiş hücrelere program tarafından otomatik olarak yazılır.

40 Çizelge 5.2 Sistem rijitlik matrisinin oluşturulması

1. Blok 2. Blok 3. Blok 4. Blok 5. Blok

1. Blok Ka11 Ka21

2. Blok Ka12 Ka22 +Kb11 Kb21

3. Blok Kb12 Kb22 +Kc11 Kc21

4. Blok

5. Blok

Kc12 Kc22 +Kd11 Kd21

Kd12 Kd22

Sistem rijitliik matrisinin oluşturulup Excel dosyasına yazılmasından sonra Çizelge 5.3’teki transformasyon matrisi program tarafından oluşturularak Excel programının şablon dosyasında gerekli hücrelerine yazılır. Çizelge 5.3 Transformasyon matrisi

T=

c s 0 0 0 0

-s c 0 0 0 0

0 0 1 0 0 0

0 0 0 c s 0

0 0 0 -s c 0

0 0 0 0 0 1

Programın bu aşamasında dönüşüm matrisleriyle yük matrislerinin çarpılması gerekmektedir.

Bunu uzun algoritmalar oluşturarak yapabileceğimiz gibi Excel

programının kendi çarpım özelliğini kullanmak daha hızlı ve güvenli sonuçlar almamızı sağladığı için bu özellik kullanılmıştır. Önceden hazırladığımız şablonda, program tarafından hücreler dolduruldukça matris işlemleri Excel tarafından otomatik olarak yapılacaktır. Kodlarımızın bu kısmına matris çarpımı ile ilgili kodlar yerine Excel hücrelerinde matris çarpımı için yazması gereken kodlar atanmış mı kontrol kodları yazılmıştır. Herhangi bir nedenle bu kodlar bozulmuşsa ya da silinmişse program bu değişikliği fark edecek ve kullanıcıyı orijinal Excel dosyasının tekrar yüklenmesi için uyaracaktır. Bu kontrolün ardından yine Excel programı tarafından düğüm noktalarına etki eden dış kuvvetler matrisi oluşturulur. Bunu oluşturacak Excel hücre kodları program

41 tarafından ilgili hücrelere gönderilir. Noktalara gelen yükler, eleman bazındaki yüklerin aynı noktalardaki yüklerin toplanmasıyla bulunur. F = K . u olduğuna göre K-1 . F = u ifadesiyle sistem noktalarının deplasman matrisi elde edilir. Bunun için zamandan kazanıp daha kesin sonuçlar elde etmek için K matrisinin tersi Excel programına aldırıldı. Kodların bu kısmında ise ilgili hücreler kontrol ettirilerek işlemin yapılıp yapılmadığı kontrol edilir. Kontrol tamamlandıktan sonra u matrisinin doğru olarak elde edilmesi için Excel hücre kodlarının doğru kontrol edilip edilmediği kontrolü yapılır.

İşlem gereği dönüşüm matrislerinin devrik

dönüşümü de Excel programı tarafından yapılan işlemler arasında yer almaktadır. Bu kontrolü de programımıza yaptırarak hücre kodlarının silinmesine ya da bozulmasından dolayı oluşacak hesap hatalarına karşı önlemimizi almış olduk.

{ f } = [T ]T .[K ][. u ] + {P0 }

(5.14)

Denklem 5.14 ile kesit tesirleri hesaplanabilecek durumdadır. Bunun için önceki adımlarda hesapladığımız sistem bazındaki deplasman matrisi eleman bazına çevrilmektedir. Üç matris aynı anda çarptırılamadığı için Excel programında gerekli hücrelere program öncelikle TT.K matris çarpım kodlarını gönderdi. Daha sonra elde edilen matrisle u matrisi çarpım kodları gönderildi. Elde edilen ikinci matrisle P matrisi toplanarak kesit tesirleri sonucuna ulaşıldı. Bu sonuçlar ileride başka sebeplerden kullanılabilineceği için değişkenlerde saklanmak üzere kaydedildi.

İşlemler

yaptırdığımız Excel şablonu, program tarafından kapatılarak dosyanın zarar görmesi engellenmiş oldu.

Bu adımlar gerçekleşirken Excel programı görünmez olarak

çalışmaya programlanmıştır. Aksi halde kullanıcı müdahale ederek programın hata vererek kapanmasına, hatta şablon Excel dosyasının bozulmasına bile neden olabilir. Programın bu kısmındaki hesap yöntemleri Prof. M. Ruhi Aydın’ın [7] kitabındaki adımlar takip edilerek oluşturulmuştur. Daha sonraki hesap adımı maksimum kesit tesirlerinin bulunmasıdır. Program kodları maksimum kesit tesirlerinin ve bu tesirlerin elemanın hangi noktasında

42 olduğunu bulmaya programlanmıştır. Kesitlerdeki maksimum momentler ve noktası seçildikten sonra kesitte normal kuvvetin çekme olması halinde denklem Denklem 5.15’ e göre hesap yaptırıldı. Başka bir kontrol uygulanmamıştır.

σ= σ=

N M (Denklem 5.15) + A W

Nω M (Denklem 5.16) + 0.9. A W

Normal kuvvetin basınç olması halinde DIN 4114 (Temmuz 1952)’ ye göre burkulma tahkiklerinin yapılabilinmesi için dizaynda kullanılacak moment değerleri hesaplanmaktadır. [5] Moment seçimi Şekil 5.7’ye göre program tarafından otomatik olarak yapılmaktadır. Bu momentler hesaplandıktan sonra Denklem 5.16’ya göre kesit kontrolleri yapılır.

Şekil 5.7 Dizaynda kullanılacak moment hesabı

Kesit kontrollerinde kullanılmak üzere eleman burkulma katsayılarının bulunması için eleman burkulma boyları eleman boyunun yarısı alınarak program tarafından değişkenlerinde saklanır. Burkulma boyunun 0.8 katı ana menüde girilen bilgiler arasında olan atalet yarıçapına bölünerek elde edilen katsayı önceden hazırlanmış Microsoft Excel program dosyasındaki tablonun açılarak içinden o sayıya karşılık gelen burkulma katsayısı seçilmesiyle değişkenlerine kaydedilir.

Eğer λ

katsayısı 20’den küçük olursa burkulma katsayısı tablodan seçmeden 1 olarak alınır. λ katsayısı süneklik düzeyi yüksek sistemlerde 250’den büyük olamaz. Bu durumun

43 kontrolü yapılıp 250’den büyükse program tarafından uyarı verilmesi sağlanmıştır. (TS 648 1980) [9]. Burkulma katsayısının seçildiği Excel dosyası da katsayı seçildikten sonra, çalışması program tarafından sonlandırılmaktadır. Normal kuvvet durumuna göre Denklem 5.15 veya 5.16’ya göre her bir kesitteki gerilmeler hesaplanarak program değişkenlerine kaydedilmektedir. Eğer kesit kontrolü yapılsın seçeneği işaretli olarak hesap yapıldıysa kesit kontrolü hesapları yapılmaya başlanır. Kesit kontrolü menüsü ekrana gelerek işlemler başlar. Kesit öner seçeneği işaretli olmasaydı en ekonomik kesitleri seç, önerilen kesitlerle tekrar hesap ve kurtaran kesit öner düğmeleri ekrana gelmeyecekti. Kesit kontrolü menüsünde kesitlerdeki iç tesirlerin listelendiği bir bölüm, gerilme değeri ve bu değer 16000 ton/m2 den küçükse kırmızı renkte yetersiz yazan kutular ekrana getirilir.

Gerilmenin yeterli olduğu

durumlarda bu kutularda yeşil renkte tamam yazmaktadır. Kullanıcı bu kısımla kesitleri kolayca kontrol edebilmektedir. Bu bölümün yanında ise hesaplarda kullanılan diğer değerlerin kullanıcı tarafından kontrol edilebilinmesi için kesit özelliklerinin yazılı olduğu başka bir bölüm vardır. Kesit öner seçeneği seçtiğimiz için yazılım gerilme hesabını tersten yaparak kurtarması muhtemel kesitler seçmektedir ancak seçilen bu kesitlerin tekrar statik hesabı yapılmasıyla moment değerleri ve kesit alanı değişeceği için hesap sonuçları yetersiz olarak çıkabilir. Kesit önerisi hesapları I ve IPE profil kesit bilgilerinin bulunduğu Excel dosyalarının açılmasıyla başlar.

W =

W =

0.9.M (5.17) N .w 16000 − A M N 16000 − A

(5.18)

Her kesit için ayrı ayrı Denklem 5.17 veya Denklem 5.18’e göre yeterli olması muhtemel mukavemet momenti değerleri seçilir. Bu değer açılmış Excel tablolarının ilgili sütunundan tek tek aranır ve bu değerden büyük değer yakalandığı zaman tercih yapılmış olur. Yukarıdaki denklemde normal kuvvetten kaynaklanan gerilme hesabı

44 16000 değerinden büyükse sonuç negatif çıkmakta ve bu nedenle yazılım öneriyi hatalı seçmektedir. Bu hatanın düzeltilmesi için, normal kuvvetten kaynaklanan gerilmeyi tek başına 16000’i geçirecek kesit alanını veren bir kesit seçilmesiyle hesaba başlanıldı. Bu kesit seçildikten sonra normal işlemlere geri dönüldü. Bu sayede program gerilmeyi sağlayacak mukavemet momenti değerini, alanı hesaplanan alandan büyük olan kesitlerden seçerek sonuca ulaşıldı. Program I profilini X yönünde ve Y yönünde yerleşmiş durumuna göre her kesit için iki öneri sunar. Kuvvetli ve zayıf eksen olarak adlandırılan bu iki öneri her kesit için ekrana getirilir. Aynı işlemler IPE profilleri için de yapılır. Kesiti yeterli olan öneri bulunamazsa ilgili kutular boş bırakılır. Seçim yapıldıktan sonra açılan Excel dosyaları kapatılmıştır. Öneriler listelendikten sonra bu kesitlerin seçilebilinmesi için her kesit için ayrı seçim listeleri doldurulur.

Bu

listelerden programın önerdiği kesitlerden istersek I, istersek IPE profili olarak kuvvetli zayıf yönüne göre tercihler yapılabilinir.

Şekil 5.8 Kesit kontrolü menüsü Kesit kontrolü menüsünde (Şekil 5.8) yine kullanıcının hızını artıracak ek özellikler eklenmiştir. Programın listelediği kesitler arasından ekonomik olanları tek

45 tuşla seçmek için en ekonomik kesitleri seç düğmesi eklenmiştir.

Ekonomiklik

karşılaştırılması kesit alanı temel alınarak yapılmıştır. Bu komut verildikten sonra program listelerindeki kesitlerin alanlarını kontrol ederek, kesit alanı en küçük olan kesiti otomatik olarak seçerek seçilen kesit bölümüne yazmaktadır. Yapılan sayısız deneme sonucunda en ekonomik kesitler genel olarak IPE kuvvetli eksen olarak seçildiği görülmüştür. Bu komutla yeni seçilen kesitlerin yeterli olup olmadığının kontrolü yapılmamaktadır. En ekonomik kesitleri seçtirdikten sonra önerilen kesitle tekrar hesap düğmesiyle, seçilen kesit özellikleri otomatik olarak tanınarak statik hesaplar ve kesit kontrolü hesapları tekrar yapılmaktadır. Yeni kesit özellikleri ile moment değerleri değiştiği için ve kesit alanı değiştiği için, kesitlerden bazıları yetersiz olarak gözükmeye devam edebilir. tekrarlanabilir.

Bu aşamada kesitler tekrar seçilerek hesaplar

Program kullanıcısına hız kazandırmak amacıyla bu işlemleri kesit

güvenli olana dek tekrarlı olarak yapacak kurtaran kesit öner özelliği eklenmiştir. Bu özellik için ayrıca kod yazılmamış, öncelikle ekonomik kesitlerin seçildiği düğmeye bas komutu verilip ardından seçilen kesitlerle tekrar hesap komutu verilmiştir. Yetersiz kesitler kontrol edilerek, böyle bir durumun olması halinde adımları tekrar uygula komutu verilmiştir. Bu özellik eklendikten sonra ekonomik kesitleri seç ve tekrar hesap yap özellikleri gereksiz gibi görülse de kullanıcı kendi seçtiği profille hesap yapabilmesi için bu özellikler programdan çıkarılmamıştır. Hesaplar tamamlandıktan sonra yapılan hesapların kontrolünün otomatik olarak program tarafından hazırlanması sağlanmıştır. Rapor düğmesine basılarak yapılan işlemler ve sonuçları Microsoft Word açılarak yazdırılır. Örnek rapor Ek 8’de görülmektedir. Yapılan hesaplar sonucunda elde edilen sonuçlar inşaat mühendisliğinde sık kullanılan bir metot olan grafik olarak ekrana getirilmek istenmiştir (Şekil 5.9). Elde edilen kesit tesirlerinin ayrı ayrı ekrana grafik olarak gelebilmesi için ana menü üzerinden grafikler düğmesine basılması gerekmektedir. Bu komut verildikten sonra ekrana çerçevenin ölçekli olarak çizildiği menü gelmektedir. Buradaki çizim yöntemi program girdilerinden alınan bilgilerle, bilgisayarın belirlenen bir bölgesinde dxf uzantılı dosyalar oluşturulmaktadır. Oluşturulan bu dosyalar daha sonra form üzerinde çağrılarak ekrana getirilmektedir. Burada çerçeveye etki ettirilmiş yük sembolik olarak gösterilmiştir çizim orantılı olarak ekrana getirilmiştir. Aşırı ya da az yüklerin çizim

46 görünüşünü bozmaması için, programa büyütme katsayısı özelliği de eklenerek çizimi bozmadan yüklerin belli oranda büyüyüp küçülebilen bir şekilde çizilmesi sağlanmıştır. Çizimde görünmeyen kısımların olması halinde + düğmesiyle çizime yaklaşılıp – düğmesiyle çizimden uzaklaşılabilinir. Tam ekran olarak ekrana gelmesi için alttaki düğmeye basılabilinir.

Yön düğmeleri ile de çizim üzerinde hareket edilebilinir.

Kullanıcıya sistem hakkında bilgi vermesi için çubuk boyları da grafik üzerinde yazdırılmıştır. Yük girişinde yapılması muhtemel bir hatayı önlemek için ise yük yönünün sembolik olarak gösterildiği ok yönleri çizime dahil edilmiştir. Büyütme katsayısı değiştirildikten sonra çizimin yeniden yapılması için F düğmesine basılması gerekmektedir.

Şekil 5.9 Sistem bilgileri menüsü

47

Hesaplar sonucu elde edilen moment değerlerinin diyagramının çizilmesi için M düğmesine basılır. Program algoritmasının karmaşık süreçlerinden bir tanesi burada başlamaktadır. Moment diyagramı komutu verilmesiyle program ilk olarak, hesaplar sonucunda önceden kaydedilmiş Excel dosyasını açarak sistem bilgilerini ve hesap sonuçlarını okumaya başlar. Okuma işlemi tamamlandıktan sonra verilerin okunduğu dosya kapatılır. Bu süreçten sonra dxf dosyasının oluşturulma süreci başlamaktadır. dxf dosyalarının yapısı gereği dosya başları ve sonlarında aynı kodlar bulunmaktadır. Bu kodları her çizimde tekrar tekrar yazdırmak yerine, bu kodları oluşturacak alt yordamlar oluşturulmuş, gerektiği zaman kullanılmak üzere program tarafından çağırılmaktadır. Çizimlerin yapıldığı orta bölümler için ise her eleman ve her iç tesir için ayrı kodlar yazılmıştır. Bu kısımda çizgi komutu, çizginin çizileceği katman, çizgi ilk noktasının koordinatları, ve son noktasının koordinatları yazılmalıdır. İlk olarak sistem çizilmeye başlanır. Sistem oluşturulduktan sonra moment grafiği çizilmeye başlanır.

Yayılı yük olmayan a ve d çubuklarında çubukların başlangıcındaki ve

bitişindeki moment değerleri sistem üzerinde koordinatları girilerek noktalar konulur ve bu iki nokta birleştirilerek grafik oluşturulmuş olur. Ancak üzerinde yayılı yükün olabileceği b ve c kesitleri için üzerinde yük olup olmamasına göre ayrı ayrı kodlar yazılmıştır.

Üzerinde yük olmadığı durumda a ve d çubuğundaki yöntemle çizim

yapılmaktadır. Üzerinde yük varsa kesme kuvvetinin yön değiştirdiği bir nokta olup olmadığı program tarafından kontrol edilir. Böyle bir durumun olması durumunda maksimum momentin olduğu nokta hesaplanmaktadır (Şekil 5.10).

Şekil 5.10 Maksimum momentin oluştuğu nokta

48 Kesme değerlerine göre mesafeler hesaplandıktan sonra, yukarıdaki beş noktanın altında kalan alanlarla, bu noktalarda meydana gelen momentler hesaplanarak moment grafiği oluşturulur.

Bu noktaların artırılmasıyla grafik daha hassas bir biçimde

çizdirilebilinirdi ancak grafik çizimi, sadece görsel açıdan bize bir fikir vermesi için çizdirileceği için ayrıntıya gerek görülmemiştir.

Şekil 5.11 Moment diyagramının hesaplanması Kesme kuvvetinin yön değiştirmemesi durumunda Şekil 5.11’de görülen noktalar ve bunlarının altında kalan alanlara göre moment değerleri hesaplanarak bu noktaların birleştirilmesiyle moment grafiğine ulaşılmaktadır. Grafikler dxf dosyası oluşturulduktan sonra form üzerine çağrılarak görsel olarak kullanıcıya sunulmaktadır (Şekil 5.12).

49

Şekil 5.12 Moment diyagramının ekrana getirilmesi Normal kuvvet diyagramlarının çizilmesi için N düğmesine basılması gerekmektedir. Bu komutun verilmesiyle program tarafından hesaplanarak kaydedilmiş Excel dosyası açılarak sistem bilgileri ve hesap sonuçları okunur. Öncelikle sistem oluşturulur. Bu aşamadan sonra normal kuvvet değerleri grafiğe işlenmeye başlanır. Bu grafiklerin çizilme süreci momentin çizilmesi kadar zor değildir. Moment grafiği çiziminde ikinci derece fonksiyonlar olduğu için parabolik çizimi oluşturmak işlemleri uzatmaktadır. Normal kuvvet diyagramında ise çubukların başı ve sonundaki değerler alınarak koordinatları çizime işlenir. Bu iki nokta arası düz bir çizgiyle birleştirilerek grafik çizimi tamamlanmaktadır (Şekil 5.13).

50

Şekil 5.13 Normal kuvvet diyagramının ekrana getirilmesi Kesme kuvveti diyagramlarının ekranda görüntülenmesi için V düğmesine basılır. Bu grafiğin çizilme yöntemi de normal kuvvete benzemektedir. Program kesme kuvveti çizilsin komutunu almasıyla normal kuvvet çizilme yönteminden farklı olarak çubuk uçlarından normal kuvvet değerleri yerine kesme kuvveti değerlerini almaktadır (Şekil 5.14).

51

Şekil 5.14 Kesme kuvveti diyagramının ekrana getirilmesi Son olarak kullanıcıya deplasmanlar hakkında bir izlenim kazandırmak için deplasmanların çizildiği özellik eklenmiştir. Bu özelliğin kullanılması için u düğmesine basılmalıdır. Bu komutla program tekrar sistem bilgilerini ve hesap sonuçlarını almak için Excel dosyasına bağlanmaktadır. Bilgileri aldıktan sonra dosyayı kapatıp çizim işlemine başlamaktadır. Çizim yöntemi olarak sistem oluşturularak okunan deplasman değerleri koordinat olarak çizime işlenmektedir. Bu noktalar birleştirilerek sistem şekli ekrana getirilmektedir. Bu noktada çizilen şekil gerçekte sistemin alacağı şekil değildir, sadece deplasman noktalarının grafik olarak gösterilmesi için ekrana getirilmektedir (Şekil 5.15).

52

Şekil 5.15 Deplasman şemasının ekrana getirilmesi Grafik çizimlerinin ekrana getirilmesinden sonra bu menüye çerçeve köşe hesaplarının eklenmesi düşünülmüştür. Kullanıcıya yapması gereken hesaplarda zaman ve güvenilirlik kazandırmak amacıyla eklenmiştir.

Düğüm hesabı düğmesine

basılmasıyla bu hesabın yapılması için gerekli bilgilerin programa girileceği menü ekrana getirilir. Hesap, köşe birleşiminde Şekil 5.14 deki gibi oluşturulmuş birleşim için yapılmıştır

53

Şekil 5.16 Birleşim hesabı menüsü Bu menüde kaynak boylarının programa yazıldığı kutular ve kaynak boylarının şematik olarak ölçeksiz olarak gösterildiği şekil, ikinci birleşimden iç kuvvetlerin alınarak gerekli kutulara yazan bir komut düğmesi, üçüncü birleşimden iç kuvvetlerin alınarak gerekli kutulara yazan diğer bir komut düğmesi, bilgiler girildikten sonra hesapları başlatarak raporu oluşturan hesapla düğmesi ve hesaplar bittikten sonra ana menüye dönüşü sağlayan ana menü düğmesi form üzerinde yer almaktadır. Bu menüyle bizim çözdüğümüz sistem dışında herhangi bir düğüm de hesaplanabilinmektedir. Bu düğümdeki bilgiler girildikten sonra hesapla düğmesiyle hesaplara başlanılabilinir. Eğer çözdüğümüz sistemde 2. düğüm noktasının çözümünü yapmak istersek 2.Birleşim düğmesine basılarak iç tesirler gerekli kutulara yazılır.

Program, kaynak boyları

hakkında herhangi bir öneri yapmadan, sadece girilen büyüklüklere göre kontrol yapmaktadır. İlk olarak menü ekrana geldiğinde kullanıcıya bir fikir vermesi amacıyla boş olarak değil de bazı bilgilerle ekrana gelmesi düşünülmüştür. Hesapla düğmesine basılarak köşe düğüm noktası kaynak kontrolleri hesabına başlanılmış olur. Hesaplar

54 esnasında yetersiz bir kaynak boyu tespit edildiğinde program anında kullanıcıya bir uyarı mesajıyla bilgi vermektedir. Hesapların tamamlanmasıyla herhangi bir düğmeye basmaya gerek kalmadan hesap sonuçları raporu program tarafından oluşturulmaktadır. Bilgisayar programlarıyla hesapta hızlanmayı sağlayan en önemli özellikte bu hesap sonuçlarının da çok kısa bir sürede rapor haline getirebilmesidir. Hesap esnasında tespit edilen yetersiz kaynak boyu bu raporda kırmızı olarak yazılmaktadır.

Kaynak

kontrollerinde emniyet gerilmesine eşit bir durum çıkması halinde kullanıcıyı uyarmak amacıyla yine kırmızı olarak ekrana getirilmiştir. (Şekil 5.17)

Şekil 5.17 Birleşim hesabı raporu Yapılan hesaplar ve sonuçları açık ve net olarak raporda gösterilmektedir. Örnek rapor Ek 9’da görülmektedir. Bu sayede kullanıcı hesap esnasında nelerin yapıldığı konusunda tam olarak bilgilendirilmektedir.

Programın bu aşaması kodları

oluşturulurken Prof. A. Zafer Öztürk ve Prof. Dr. Hilmi Deren’ in [5], [8]hesap

55 yöntemleri takip edilmiştir. Hesapla komutunun verilmesiyle kesit bilgileri girişinde bir hata olup olmadığı program tarafından kontrol edilir. Eğer bir hata tespit edilirse hangi hücrede hata varsa, o hücre kullanıcının dikkatini çekmek amacıyla kırmızı renge çevrilir. Hata düzeltildiğinde renk tekrar normal rengine dönüşmektedir. Program hesap bilgilerini aldıktan sonra kaynak kesit özelliklerini hesaplar. Kaynak alanları, kaynak ağırlık merkezi, kaynak atalet momenti gibi değerler otomatik olarak kısa bir sürede hesaplanmaktadır. Bilgisayar programlarının en büyük özelliği aynı hesaplar tekrar tekrar yapılıyorsa, bu hesapları hızlı ve güvenli olarak yapabilmesidir. Aynı hesaplar tekrarlanırken, kullanıcı dikkati, belli bir süre sonra dağılabilmektedir. Hata yapma riski de buna bağlı olarak artmaktadır. Bu hesapları bilgisayara yaptırmakla kodlar ilk oluşturulurken zaman harcanılabilir ancak daha sonra hesaplarda kullanılmaya başlandığında zamandan daha fazla kazanç sağlandığı görülecektir. Bu hesapların elle yapılması halinde yapılma ihtimali yüksek hesap hataları da en aza indirilmektedir. Kaynak özellikleri hesaplandıktan sonra köşede meydana gelen iç kuvvetler kendi düzlemine dik olacak şekilde hesaplanır. Öncelikle üst tarafa çekme laması konulmamış kesitte bir gerilme kontrolü yapılır ve çekme lamasına gerek olup olmadığı konusunda kullanıcıya fikir verilir. Yetersiz olduğu durumda birleşimin çekme lamalı durumdaki kesit özellikleri hesaplanır. Her bir kaynak için dış kenarda ve ortadaki gerilme kontrolleri yapılır.

Kaynakta çekme mi basınç kuvveti mi oluşturulduğu

belirlenir. Enine levha ve kaynaklarındaki gerilme kontrolleri de program tarafından yapılmaktadır. En sonunda mukayese gerilme kontrolü de yapılarak işleme son verilir. Yapılan hesaplar kullanıcının kontrolü için de bir rapor olarak ekrana getirilir. Hesapların tamamlanmasıyla ana menüye dönüş ana menü düğmeleriyle yapılır. Program statik hesaplarının kontrolü için, hesapları yapılan sistemin, SAP2000 programıyla kontrol edilmesi düşünülmüştür. Bunun için SAP2000 ile sistemin her defasında modellenmesi zaman alacağı düşünülmüştür.

Bu zaman kaybını en aza

indirmek için, sistem bilgilerini SAP2000 in anlayacağı bir dosya formatında program çıktısı hazırlayan kod yazılmasına karar verilmiştir.

SAP2000 programının import

özelliğiyle dışardan sistem model alabilmesi özelliği kullanılmıştır (Şekil 5.18).

56

Şekil 5.18 SAP2000 dışardan bilgi okunabilen dosya listesi Sistem bilgilerini S2K dosyası formatında oluşturarak SAP2000’e kolayca aktarılması sağlanmıştır. Bu özelliği kullanmak için S2K dosyasının yapısı bilinmesi gerekmektedir. Oluşturulan S2K dosyasının içinde ne yazdığı Ek12‘de görülmektedir. Sistem oluşturulmadan önce, yanlışlık yapılmaması için sistem bilgileri kontrol edilmektedir.

Kontrol aşamasından sonra dosya formatına uygun sırada bilgiler

yazılarak dosya S2K formatına kayıt edilerek komut sonuna gelinir. Oluşturulan dosya bilgisayarın c sürücüsünün içinde 10ur klasörünün içinde cerceve klasörünün içinde SAP klasörünün içinde oluşturulmaktadır. Bu dosyayı açmak için SAP2000 programı açılarak File, import, SAP2000 .S2K dosyası seçilerek burada oluşturduğumuz dosya seçilerek aç düğmesine bastığımızda program bizim oluşturduğumuz dosyayı okumaya başlayacaktır (Şekil 5.19).

57

Şekil 5.19 SAP2000 dışardan bilgi okunması tamamlandı Bilgi okunması tamamlandıktan sonra OK düğmesine bastıktan sonra oluşturduğumuz sistem oluşturduğumuz kesit özellikleriyle ekrana gelir (Şekil 5.20). Kısa bir kodla bundan sonraki sistem modellemelerimizde çok fazla zaman kazanmış durumda oldundu. Bu program için eleman sayımız ve sistem özellikleri az olduğu için kazandığımız zaman gözükmüyor olabilir fakat daha karışık sistemlerde daha karışık mesnet şartları ve daha fazla yük olan sistem oluşturmak istediğimizde bu kısa kodlarla kazanılacak zaman daha iyi gözükmektedir. Bu yöntemle SAP2000 bilgi girişinde zaman kazanmak amaçlanmıştır. Gözümüzden kaçacak bir bilgi girişinin de önüne geçilmiş olunmuştur.

Şekil 5.20 SAP2000 ile sistem oluşturuldu

58 Ana menü üzerinde yer alan rapor düğmesiyle program tarafından yapılan statik hesaplar ve hesap sonuçları, hesap adımlarıyla rapor haline getirilir. Böylece kullanıcı yapılan işlemleri, hesap yöntemlerini adım adım takip ederek sonuçları kontrol edebilir. Rapor hazırlanırken boş bir Word sayfası açılır. Program tarafından hazırlanmış Excel dosyası açılarak sistem bilgileri, hesap sonuçları okunarak boş belgeye yazdırılmaya başlanır. Rapor tamamlandıktan sonra, istenirse kayıt edilerek bilgisayar ortamında, istenirse de yazdır komutuyla kağıda yazdırılarak saklanılabilinir. Örnek rapor dosyası Ek 10’da görülmektedir. Hakkında düğmesiyle ekrana, program hakkında bilgilerin bulunduğu menü çağrılır (Şekil 5.21). Bu menü de programın hangi amaçla, kim tarafından yazıldığı, hangi şartlarda çalışabileceği, hangi hesap yöntemi kullanıldığı yazmaktadır.

Şekil 5.21 Program hakkında menüsü

59 5.2. Örnekler 5.2.1 Örnek 1 Her elemanı I120 seçilmiş bir sistemin çatısında yayılı yük olarak 0.2 ton/m2 olarak yükleme yapılmıştır.X1, X2, Y1, Y2, Y3, Y4 mesafeleri 4m’dir. Bu sistemin iç kuvvet diyagramları çizilerek SAP2000 programıyla karşılaştırılacaktır. (E = 2.1 x 106 ton/m2) alınacaktır. 5.2.2 Çözüm 1 Sistem bilgileri Şekil 5.22’deki gibi olarak programa girilerek hesap düğmesine basılmıştır. Kesit seçimi, kesit seç düğmesi kuvvetli yön olarak seçilerek her elemana atanmıştır.

Şekil 5.22 Örnek1 bilgi girişi Hesaplar tamamlandıktan sonra rapor düğmesi ile hesap sonuçları rapor haline getirilmiştir. Bu örneğin raporu Ek 10’da görülmektedir. SAP2000 programıyla kıyas yapabilmemiz için SAP2000 düğmesine basarak SAP2000 modelini oluşturduktan

60 sonra SAP2000 programı ile analiz yapıldı. getirilmiştir.

Grafikler düğmesiyle sonuçlar ekrana

Karşılaştırmalı sonuçlar Şekil 5.24, Şekil 5.25 ve Şekil 5.26’da

görülmektedir.

Şekil 5.23 Örnek1 sistem bilgisi

(a)

(b)

Şekil 5.24 Örnek1 normal kuvvet karşılaştırması a)SAP2000 b)Çerçeve programı

61

(a)

(b)

Şekil 5.25 Örnek1 kesme kuvvet karşılaştırması a)SAP2000 b)Çerçeve programı

(a)

(b)

Şekil 5.26 Örnek1 moment karşılaştırması a)SAP2000 b)Çerçeve programı

62

Çizelge 5.4 Örnek1 sonuçlarının SAP2000 ile karşılaştırılması

Noktalar 12 21 23 32 34 43 45 54

N 0.8000 0.8000 0.7483 0.1827 0.1827 0.7483 0.8000 0.8000

SAP2000 V 0.2583 0.2583 0.3830 0.1827 0.1827 0.3830 0.2583 0.2583

M 0.4970 0.5362 0.5362 0.0306 0.0306 0.5362 0.5362 0.4970

N 0.8000 0.8000 0.7483 0.1827 0.1827 0.7483 0.8000 0.8000

CERCEVE V 0.2583 0.2583 0.3830 0.1827 0.1827 0.3830 0.2583 0.2583

M 0.4970 0.5362 0.5362 0.0306 0.0306 0.5362 0.5362 0.4970

Çizelge 5.4’te görüldüğü gibi program sonuçları SAP2000 ile karşılaştırıldığında virgülden sonra dört haneye kadar birebir aynısı çıkmaktadır. 5.2.3 Örnek 2 a ve d kesitleri IPE120, b ve c kesitleri IPE200 olarak seçilmiş bir sistemin sol çatısında yayılı yük olarak -0.1 ton/m2 yük bulunmaktadır. Sağ çatısında ise yük yoktur. X1, Y1, Y3 mesafeleri 4m, X2, Y2, Y4 mesafeleri ise 5m’dir. Bu sistemin iç kuvvet diyagramları çizilerek SAP2000 programıyla karşılaştırılacaktır. (E = 2 x 106 ton/m2) alınacaktır. 5.2.4 Çözüm 2 Sistem bilgileri Şekil 5.27’deki gibi olarak programa girilerek hesap düğmesine basılmıştır. Kesit seçimi, kesit seç düğmesine basılarak kuvvetli yön olarak seçilerek ilgili elemanlar için atanmıştır. Kesit kontrolü ve kesit önererek hesap seçenekleri gerek olmadığından seçilmemiştir.

63

Şekil 5.27 Örnek2 bilgi girişi SAP2000 programıyla kıyas yapabilmemiz için SAP2000 düğmesine basarak SAP2000 modelini oluşturduktan sonra SAP2000 programı ile analiz yapıldı. Grafikler düğmesiyle sonuçlar ekrana getirilmiştir. Karşılaştırmalı sonuçlar Şekil 5.29, Şekil 5.30, Şekil 5.31’de görülmektedir.

64

Şekil 5.28 Örnek2 sistem bilgisi

(a)

(b)

Şekil 5.29 Örnek2 normal kuvvet karşılaştırması a)SAP2000 b)Çerçeve programı

65

(a)

(b)

Şekil 5.30 Örnek2 kesme kuvvet karşılaştırması a)SAP2000 b)Çerçeve programı

(a)

(b)

Şekil 5.31 Örnek2 moment karşılaştırması a)SAP2000 b)Çerçeve programı

66 Çizelge 5.5 Örnek2 sonuçlarının SAP2000 ile karşılaştırılması

Noktalar 12 21 23 32 34 43 45 54

N 0.3132 0.3132 0.2772 0.0352 0.0983 0.0983 0.0868 0.0868

SAP2000 V 0.0522 0.0522 0.1549 0.0950 0.0245 0.0245 0.0522 0.0522

M 0.0843 0.1246 0.1246 0.0670 0.0670 0.1061 0.1061 0.1028

N 0.3132 0.3132 0.2772 0.0352 0.0983 0.0983 0.0868 0.0868

CERCEVE V 0.0522 0.0522 0.1549 0.0950 0.0245 0.0245 0.0522 0.0522

M 0.0843 0.1246 0.1246 0.0670 0.0670 0.1061 0.1061 0.1028

Çizelge 5.5’te görüldüğü gibi program sonuçları SAP2000 ile karşılaştırıldığında virgülden sonra dört haneye kadar birebir aynısı çıkmaktadır. 5.2.5 Örnek 3 X1ve X2 mesafeleri 3’er m, kolon boyunun 6m ve çatı yüksekliğinin 2m olduğu sistem verilmiştir. Sistemde sol ve sağ taraftaki çatıda yükler dörder aşıkla çerçeveye aktarılmaktadır. Aşık uzunluğu 6m için çatı kaplaması 8 kg/m2, kar yükü 75 kg/m2, aşık ağırlığı 7 kg/m 2, Rüzgar ve rijitlik bağlantısı ağırlıkları 1.4 kg/m2 yükleri uygulanan sistem için, kurtaran kesitler önerilerek, her kesitin aynı olduğu sistem seçilmesi istenmiştir.

Bu sistemin deplasman ve gerilme değerlerini hesaplayarak bir rapor

hazırlanacaktır. Bulunan deplasman değerleri SAP2000 ile karşılaştırılacaktır. (E = 2.1 x 106 ton/m2) alınacaktır. 5.2.6 Çözüm 3 Sistem bilgileri Şekil 5.32’deki gibi olarak programa girilmiştir. Kesit olarak I120 profili seçilerek her kesite atanmıştır. Örnek 3’te verilen veriler doğrultusunda aşık yüklerinin hesaplanması için aşık yükü düğmesine basılır. Ekrana gelen menü Şekil 5.33 gibi doldurulmuştur. Çatı düzlemindeki yük program tarafından otomatik olarak yatay düzleme dönüştürülerek ekrana gelmiştir. Çerçeveye gelen toplam yük

67 yayılı yüke çevrilerek sisteme otomatik olarak etki ettirilmiş olur. Kesit kontrolü ve kesit önererek hesap seçenekleri seçilerek hesap düğmesine basılır.

Şekil 5.32 Örnek3 bilgi girişi

Şekil 5.33 Örnek3 aşık yükü hesabı

68 Hesaplar tamamlandıktan sonra gerilme kontrolleriyle program tarafından önerilen kesitler ekrana getirilir (Şekil 5.34).

Şekil 5.34 Örnek3 yetersiz kesit kontrolü Bu aşamada programa kurtaran kesit öner komutu verilmiştir.

Bu komutla

birlikte program kurtarması muhtemel kesitleri seçerek hesabı tekrarlamaktadır. Bütün kesitler güvenli çıktıktan sonra hesaplar bitirilmektedir. Tekrarlı hesaplar sonucunda program kesitleri seçmiştir (Şekil 5.33).

Şekil 5.33 Örnek3 yeterli kesit kontrolü

69 Örnekte bütün kesitlerin aynı olması istendiği için tamam diyerek ana menüye dönülür ve kesit seç diyerek önerilen kesitlerden en büyük olanı bütün kesitler için seçilmiştir. Hesaplar tamamlandıktan sonra ana menü üzerindeki rapor düğmesi ile hesap sonuçları rapor haline getirilmiştir.

Bu örneğin raporu Ek 11’de görülmektedir.

SAP2000 programıyla kıyas yapabilmemiz için SAP2000 düğmesine basarak SAP2000 modelini oluşturduktan sonra SAP2000 programı ile analiz yapıldı.

Program ve

SAP2000 ile elde edilen deplasmanlar çizelge 5.6’da karşılaştırılmaktadır. Sonuçlar virgülden sonra dört haneye kadar aynı çıkmıştır. Çizelge 5.6 Deplasmanların SAP2000 ile karşılaştırılması

Nokta 1 Nokta 2 Nokta 3 Nokta 4 Nokta 5

U1 0.0000 -0.0878 0.0000 0.0878 0.0000

SAP2000 U3 0.0000 -0.0027 -0.1357 -0.0027 0.0000

Çerçeve Programı R2 U1 U3 R2 0.0000 0.0000 0.0000 0.0000 0.0426 -0.0878 -0.0027 0.0426 0.0000 0.0000 -0.1357 0.0000 -0.0426 0.0878 -0.0027 -0.0426 0.0000 0.0000 0.0000 0.0000

5.2.7 Örnek 4 Kaynak boylarının ve düğüm noktası iç kuvvet değerlerinin Şekil 5.36’da verildiği sistemin kaynak kontrollerini yaparak, kurtaran kaynak boylarını hesapladıktan sonra raporun hazırlanması.

70

Şekil 5.36 Örnek4 kaynak boyları hesabı 5.2.8 Çözüm 4 Ana menü üzerinde grafikler düğmesine basarak, daha sonrada düğüm hesabı düğmesine basarak köşe kaynak hesabı menüsü ekrana getirilir. Sistem bilgileri Şekil 5.36’daki gibi olarak programa girilmiştir.

Hesapla komutunu vererek işlemlere

başlanmıştır. Yetersiz bir kesit olmadığı için herhangi bir uyarıyla karşılaşılmamıştır. Word e aktar komutuyla hesaplanan değerler bir Word dosyası açılarak Ek 9’da görülen rapor haline otomatik olarak getirilmiştir.

71 6. SONUÇ VE ÖNERİLER Bilgisayar programlarının kullanılmaya başlanmasıyla, birçok karmaşık hesap ve denklem çözmek zorunda kalınan çelik yapı proje hesaplarında daha hatasız ve hızlı sonuçlara ulaşılması

sağlanmıştır. Bunlar hazır modüller kullanılarak, kendi

modüllerimizi kendimiz hazırlayarak, bazı program çıktılarının kullanılabilecek sonuçlarını kullanarak ya da projeyi baştan sona hazırlayan paket programlar kullanarak olabilir. Buradaki en önemli nokta ise, programlara doğru bilgiler verildiğinde doğru çözüme ulaşılır. Doğru çözüme ulaşmak programlar iyi tanınmalı, hesap yöntemlerini, hangi hesapları hangi yönetmeliğe göre yapıldığını, hangi hesapların yapılamadığının iyi bilinmesi gerekmektedir.

Programlardaki güncellemeler bazı hataları gidermek,

yenilikleri eklemek ve ek özellikler kazandırmak için yapılırlar. Bu programlara sonuna kadar güvenmemeyi gösterir. Doğru bilgi girişi ile kullanılarak çözülmüş bir projede çok fazla zaman kazanılacağı kesindir ve yapılan hesaplar daha doğrudur. Daha az hatayla, daha az zamanda daha güvenli projeler üretebilmek için bilgisayarlardan destek alınmalıdır. Kullanılan programlar son halleriyle kullanılmalıdırlar. Çelik proje çözümünde tekrarlı hesaplardan kaçınarak zaman kazanmak ve hata payını en aza indirmek için program yazmaya karar verilirse, algoritmaları kurmaya başlamadan konu hakkında araştırmalar yapılarak konuya hakim olunmalıdır. Yönetmeliklerde istenen son hesaplar düşünülmelidir. Hesaplar için kullanılacak bilgi girişlerini program tarafından doğru ve eksiksiz alınması için menüler düşünülmelidir. Menülerde bilgi girişi hızlı olacak şekilde düşünülmeli, kullanıcıyı birimler konusunda uyararak hata yapılması önlenilmelidir. Gereksiz bilgi girişleriyle kullanıcı dikkatini dağıtarak hatalara sebep olmaktan kaçınarak bilgi girişinin de daha hızlı olunmasını sağlayacak sade menüler oluşturulmalıdır. Hesaplar tamamlandıktan sonra alışılmış bir formatta, hesap aşamasının her adımı, hesap yöntemleriyle birlikte rapor haline getirilerek kontrol edilmesi sağlanılmalıdır.

Hesaplar sonucunda bir hata varsa

kullanıcının dikkatini çekerek bu eksikliklerden kullanıcı bilgilendirilmelidir. Program yazmak zaman alan ve dikkat isteyen bir iştir. Bu sebeple yazması düşünülen programa başlamadan önce kazandıracağı zaman gibi faktörleri göz önüne alınarak karar verilmelidir. Program kodları oluşturulurken kodlar arasına notlar alarak daha sonra

72 ekleme ya da düzeltme yapılmak istenirse, daha az hatayla daha az sürede ekleme şansı elde edilir. Program oluşturulduktan sonra deneme yapmak yerine, her aşamada farklı denemeler yaparak program test edilmelidir. Proje çözümlerinde bilgisayar desteği kullanılıyorsa, hesap sonuçları mutlaka kontrol edilmelidir. Çelik yapı proje aşamasında hızlı bir şekilde güvenli sonuçlara ulaşmak için yazılan programlarda, amaçlanan hız ve güvenlik sağlanmıştır. Gerek programlama aşamasında, gerekse kontrol için yapılan örneklerde doğru sonuçlara ulaşılmıştır, ancak tablolar kullanılarak yapılan işlemelerde tablo dışına çıkılmamıştır. Tablodaki değerler arasında bir sonuç çıkarsa, ara değer hesabı yapılarak işlemlere devam edilmiştir. Programdan daha hassas sonuçlar istenirse, tabloların kullanılması yerine bu tabloların hazırlandığı formüller kodlara eklenebilir. Ancak bu işlem programın tamamlanma sürecini çok uzatacaktır.

Ayrı ayrı yazılmış programlar tek bir program altında

toplanarak işlemlerin devamlılığı sağlanabilir. eklenerek program zenginleştirilebilir.

Yaygın kullanılan sistem çözümleri

Sadece düşey yük değil, yatay yükler de

eklenilebilir. Bunun yanında yayılı yüklere tekil yükler hatta momentler de eklenerek model oluşturma zenginleştirilebilir. hazırladığı kodlar eklenebilir.

Hesap sonuçlarına göre kesit çizimlerinin

Kaynak kontrolü menüsünde kaynak kalınlıklarının

önerildiği ek özellik eklenebilir. Her eklenen özellik ekleme aşamasında ve kontrol aşamasında zaman alacağı için ne kadar kullanılabilir olacağı mutlaka göz önüne alınmalıdır.

73 KAYNAKLAR DİZİNİ [1] Yardımcı, N., 2005, Türkiye’de çelik yapılar, Türkiye Mühendislik Haberleri [2] Çelik yapılar el kitabı, İMO İzmir Şubesi, 1985/1 [3] Karaduman, M., 1999, Çelik yapılar cilt I, Birsen Yayınevi [4] Erşen, N., Çelik yapılar ve çözümlenmiş problemler, Birsen Yayınevi [5] Öztürk, Z., 2002, Çelik yapılar, Birsen Yayınevi [6] Doğan, M., 2005, Yapı Statiği II ders notları [7] Aydın, R., 2003, Yapı statiği cilt II, Osmangazi Üniversitesi Basım Evi [8] Deren, H., Uzgider, E., Piroğlu, F., Kasım 2002, Çelik yapılar, Çağlayan Kitapevi [9] TS 648, Çelik Yapıların Hesap ve Yapım Kuralları, TSE, 1980 [10] TS 498, Yapı Elemanlarının Boyutlandırılmasında Alınacak Yüklerin Hesap Değerleri, TSE , 1987 [11] Deprem bölgelerinde yapılacak binalar hakkında esaslar, Mart 2007

EKLER

Bilgisayar Destekli Çelik Yapı Tasarımı Ek.1. TABLO.XLS Makrosu Private Sub CommandButton1_Click() satir = InputBox("Lütfen SAP çıktısındaki satır sayısını girin") For i = 1 To satir Cells(i, 1).Select A = Cells(i, 1).Value B = ActiveCell.Offset(0, 1).Value yuk = A & B yuksayi = Left(A, 2) yukad = LTrim(Mid(yuk, 3, Len(yuk))) If IsNumeric(yuksayi) Then k = yuksayi + 2 ElseIf yuksayi = "" Then k=k End If Select Case yukad Case "" j=j k=k Case "ZATI" j = "M" Case "KAR" j = "P" Case "RUZGAR" j = "Q" Case "KARSOL" j = "N" Case "KARSAG" j = "O" Case "COMB1" j = "S" Case "COMB3" j = "T" Case "RUZGARSA" j = "R" Case Else j = "AA" End Select isim = j & k If A = "" And B = "0" Then C = Cells(i, 3).Value Range(isim).Value = C End If Next i say = 1000 satirt = satir + 2 For z = satirt To 1 Step -1 Cells(z, 3).Select onur = Cells(z, 3).Value If onur = "" Then ActiveCell.Offset(-1, 0).Select

tuna = ActiveCell.Value If tuna = "" Then ActiveCell.Offset(-1, -1).Select uzunluk = ActiveCell.Value If uzunluk = "LOC" Then End End If ActiveCell.Offset(-2, 0).Select sıf = ActiveCell.Value If sıf = "0" Then ActiveCell.Offset(-1, -1).Select say = ActiveCell.Value say = Left(say, 2) say = say + 2 Else ActiveCell.Offset(-2, 0).Select sıf2 = ActiveCell.Value If sıf2 = "0" Then ActiveCell.Offset(-1, -1).Select say = ActiveCell.Value say = Left(say, 2) say = say + 2 End If End If End If End If Cells(z, 3).Select Ad = "L" & say Range(Ad).Value = uzunluk Next z End Sub Private Sub CommandButton2_Click() Load Hakkinda Hakkinda.Show End Sub Sub Makrom() Load Hakkinda Hakkinda.Show End Sub Private Sub CommandButton1_Click() Unload Me End Sub

Ek.2. SAPOUTPUTOKU.XLS Makrosu Dim deger(65536) As String Dim a(65536) As String Dim Loc(65536) As String Private Sub CommandButton1_Click() Open "c:\tezoutputdata.txt" For Input As #1 satir = 1 Do While Not EOF(1) Input #1, deger(satir) '65536 satıra kadar çalışıyor satir = satir + 1 Loop Close 'SAP 7.42 Çıktısı Formatında Olup Olmadığının Kontrolü If Left(deger(2), 19) = "SAP2000 v7.42 File:" Then tamam = "TAMAM" Else MsgBox ("Bilgi Almaya çalıştığınız dosya <SAP2000 v7.42> output formatında değil ve program doğru çalışmaybilir") End If 'Sadece FRAME ELEMENT FORCES Dosyası Olup Olmadığının Kontrolü If Left(deger(5), 40) = "F R A M E E L E M E N T F O R C E S" Then tamam = "TAMAM" Else MsgBox ("Bilgi Almaya çalıştığınız dosya SADECE değil ve program doğru çalışmayabilir") End If 'Bütün değerler okundu ve hafızaya kaydedildi. '=============================================== 'For i = 4 To satir 'Range("A" & i).Value = "" 'Range("B1").Value = "" 'Range("F1").Value = "" 'Next i 'Bütün Hücreler Temizlendi. '=============================================== birim = Right(deger(2), 20) birim = Left(birim, 6) For i = 0 To 6 kontrol = Left(Right(birim, i + 1), 1) If kontrol = " " Then birimharfsayisi = i Exit For Else birimharfsayisi = i End If Next i birim = Right(birim, birimharfsayisi) Range("A1").Value = "Birim =" Range("B1").Value = birim ' Birim Seçildi ve B1 hücresine yazıldı Range("A2").Value = deger(5) ' Kaç Yük Kombinasyonu Var Bulalım sayac1 = 0 For i = 9 To satir Step 4 a(i) = Mid(deger(i), 1, 3)

a(5) = a(9) sayac1 = sayac1 + 1 If a(i) <> a(i - 4) Then Exit For End If Next i Range("F1") = sayac1 - 1 ' Kaç Yük Kombinasyonunu Buladuk ' Kaç Eleman Var Bulalım elemansayisi = deger(satir - 5) hane = Len(elemansayisi) For i = 1 To hane kontrol = Left(elemansayisi, i) If Not IsNumeric(kontrol) Then elemansayisi = Left(elemansayisi, i - 1) Exit For End If Next i Range("I1").Value = elemansayisi 'Eleman Sayısı da bulundu 'Şimdi Tabloyu Dolduralım.(4. satırdan başilıyor) For i = 9 To satir If deger(i) = "" Then i=i+2 End If Loc(i) = deger(i) ' Mod4 = 1 için yapıldığında 2. elemana geçerken bırakılan boşlukta mod4=2 olması gerekiyor. Bu sebepten olmadı. Yük Kombinasyon Adının sonu Rakam olmamalı If Not IsNumeric(Right(Loc(i), 1)) Then frameveYuk = Loc(i) 'Frame Adının Alınması frameveYukuzunlugu = Len(Loc(i)) For t = 1 To frameveYukuzunlugu Frame = Mid(frameveYuk, t, 1) If Frame = " " Then Exit For End If Next t frameuzunlugu = t - 1 Yukuzunlugu = frameveYukuzunlugu - frameuzunlugu Frame = Left(frameveYuk, frameuzunlugu) Yuk = Right(frameveYuk, Yukuzunlugu) GoTo gel1: End If uzunluk = Len(Loc(i)) For x = 1 To uzunluk kontrol = Mid(Loc(i), x, 1) If kontrol = " " Then Exit For End If Next x Loc(i) = Left(Loc(i), x - 1) Range("C" & i - 6) = Loc(i) 'C sütunu dolduruldu 'I sütunu doldurulalım Range("I" & i - 6) = Right(deger(i), 12) 'I sütunu dolduruldu

'H sütunu doldurulalım uzunluk1 = uzunluk - 12 M2 = Left(deger(i), uzunluk1) Range("H" & i - 6) = Right(M2, 12) 'H sütunu dolduruldu 'G sütunu doldurulalım uzunluk2 = uzunluk1 - 12 t = Left(deger(i), uzunluk2) Range("G" & i - 6) = Right(t, 12) 'G sütunu dolduruldu 'F sütunu doldurulalım uzunluk3 = uzunluk2 - 12 V3 = Left(deger(i), uzunluk3) Range("F" & i - 6) = Right(V3, 12) 'F sütunu dolduruldu 'E sütunu doldurulalım uzunluk4 = uzunluk3 - 12 V2 = Left(deger(i), uzunluk4) Range("E" & i - 6) = Right(V2, 12) 'E sütunu dolduruldu 'D sütunu doldurulalım uzunluk5 = uzunluk4 - 12 P = Left(deger(i), uzunluk5) Range("D" & i - 6) = Right(P, 12) 'D sütunu dolduruldu 'Eleman ve Yuk Bilgilerini Yazalım Range("A" & i - 6) = Frame Range("B" & i - 6) = Yuk 'Eleman ve Yuk Bilgilerini Yazdık gel1: Next i End Sub

Ek.3. Gezer Vinç Program Kodları Public Class Form1 Dim appXL As New Excel.Application Dim rif, ry, v As String Dim guncelle, G, excelle As Long Dim aciklik As Object Dim topla, topla1, topla2, labli As Object Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged rif = TextBox2.Text guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged ry = TextBox3.Text guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged v = TextBox4.Text guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles guncel.TextChanged 'Vinç Grubu Başı Kontrol Edilmesi lazım If rif = "Küçük" And ry = "Küçük" And v = "Normal" Then TextBox1.Text = "1" ElseIf rif = "Küçük" And ry = "Küçük" And v = "Kuvvetli" Then TextBox1.Text = "2" ElseIf rif = "Küçük" And ry = "Büyük" And v = "Normal" Then TextBox1.Text = "2" ElseIf rif = "Büyük" And ry = "Küçük" And v = "Normal" Then TextBox1.Text = "2" ElseIf rif = "Küçük" And ry = "Büyük" And v = "Kuvvetli" Then TextBox1.Text = "3" ElseIf rif = "Büyük" And ry = "Küçük" And v = "Kuvvetli" Then TextBox1.Text = "3" ElseIf rif = "Büyük" And ry = "Büyük" And v = "Normal" Then TextBox1.Text = "3" ElseIf rif = "Büyük" And ry = "Büyük" And v = "Kuvvetli" Then TextBox1.Text = "4" End If 'Vinç Grubu Sonu 'Vurma Katsayısı Tayini If TextBox6.Text <= 1 And RadioButton9.Checked = True Then TextBox12.Text = 1.1 ElseIf TextBox6.Text > 1 And RadioButton9.Checked = True Then TextBox12.Text = 1.2 ElseIf TextBox6.Text <= 1.5 And RadioButton9.Checked = False Then

TextBox12.Text = 1.1 ElseIf TextBox6.Text > 1.5 And RadioButton9.Checked = False Then TextBox12.Text = 1.2 End If End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ' Y katsayısı Başı G = TextBox1.Text If G = "1" Then TextBox5.Text = "1.2" ElseIf G = "2" Then TextBox5.Text = "1.4" ElseIf G = "3" Then TextBox5.Text = "1.6" ElseIf G = "4" Then TextBox5.Text = "1.9" End If ' Y Katsayısı Sonu End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox2.Text = "Küçük" End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox2.Text = "Büyük" End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox3.Text = "Küçük" End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged TextBox3.Text = "Büyük" End Sub Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged TextBox4.Text = "Normal" End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged TextBox4.Text = "Kuvvetli" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Checked = True RadioButton3.Checked = True RadioButton5.Checked = True RadioButton7.Checked = True RadioButton9.Checked = True End Sub Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle

End Sub Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle End Sub Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged guncelle = Val(guncel.Text) guncelle = guncelle + 1 guncel.Text = guncelle End Sub Private Sub excel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles excel.TextChanged Dim A As Object Dim hucre, sutun, satır, deneme As Object Dim KTC, TLH, XXX, BXX, KYX, KTA, BR1, BR2, KR1, KR2, KRG As Object satır = Val(satir.Text) KTC = "D" & satır TLH = "E" & satır XXX = "F" & satır BXX = "G" & satır KYX = "H" & satır KTA = "I" & satır BR1 = "J" & satır BR2 = "K" & satır KR1 = "L" & satır KR2 = "M" & satır KRG = "N" & satır '1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- profilGleri.xls c:\ ye kopyalanmalı On Error Resume Next Dim path As Object path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "kapasitetablosu.xls") KTC = (appXL.Range(KTC).Value) TLH = (appXL.Range(TLH).Value) XXX = (appXL.Range(XXX).Value) BXX = (appXL.Range(BXX).Value) KYX = (appXL.Range(KYX).Value) KTA = (appXL.Range(KTA).Value) BR1 = (appXL.Range(BR1).Value) BR2 = (appXL.Range(BR2).Value) KR1 = (appXL.Range(KR1).Value) KR2 = (appXL.Range(KR2).Value) KRG = (appXL.Range(KRG).Value) TextBox13.Text = KTC TextBox14.Text = TLH TextBox15.Text = XXX TextBox16.Text = BXX TextBox17.Text = KYX TextBox18.Text = KTA TextBox19.Text = BR1 TextBox20.Text = BR2 TextBox21.Text = KR1 TextBox22.Text = KR2

TextBox23.Text = KRG appXL.Application.Quit() Form6.Show() Form6.TextBox19.Text = BR1 Form6.TextBox20.Text = BR2 Form6.TextBox21.Text = KR1 Form6.TextBox22.Text = KR2 End Sub Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged ComboBox2.Visible = True ComboBox3.Visible = False End Sub Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged ComboBox3.Visible = True ComboBox2.Visible = False End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged aciklik = (ComboBox3.Text) TextBox7.Text = aciklik / 1000 Select Case aciklik Case 8750 satir2.Text = 1 Case 11250 satir2.Text = 2 Case 13750 satir2.Text = 3 Case 16250 satir2.Text = 4 Case 18750 satir2.Text = 5 Case 21250 satir2.Text = 6 End Select excelle = Val(excel.Text) excelle = excelle + 1 excel.Text = excelle End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged aciklik = (ComboBox2.Text) TextBox7.Text = aciklik / 1000 Select Case aciklik Case 8350 satir2.Text = 1 Case 10850 satir2.Text = 2 Case 13350 satir2.Text = 3 Case 15850 satir2.Text = 4 Case 18350 satir2.Text = 5 Case 20850

satir2.Text = 6 Case 23350 satir2.Text = 7 Case 25850 satir2.Text = 8 Case 28350 satir2.Text = 9 End Select excelle = Val(excel.Text) excelle = excelle + 1 excel.Text = excelle End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged ComboBox3.Enabled = True ComboBox2.Enabled = True Select Case (ComboBox1.Text) Case 3 satir1.Text = 4 Case 5 satir1.Text = 13 Case 8 satir1.Text = 22 Case 10 satir1.Text = 31 Case 12.5 satir1.Text = 40 Case 16 satir1.Text = 49 Case 20 satir1.Text = 58 Case 32 satir1.Text = 67 Case 50 satir1.Text = 76 Case 80 satir1.Text = 85 Case 100 satir1.Text = 94 End Select End Sub Private Sub satir_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satir1.TextChanged topla1 = Val(satir1.Text) topla2 = Val(satir2.Text) topla = topla1 + topla2 satir.Text = topla End Sub Private Sub satir2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satir2.TextChanged topla1 = Val(satir1.Text) topla2 = Val(satir2.Text) topla = topla1 + topla2 satir.Text = topla End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click KrenKirisHesabi.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim cıkıs As Object cıkıs = MsgBox("Programdan çıkmak istediğinizden emin misiniz? ", 35, "Çıkış ") If cıkıs = 6 Then End End If End Sub Private Sub TextBox19_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox19.TextChanged Button1.Enabled = True End Sub Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged labli = Val(TextBox10.Text) / Val(TextBox25.Text) TextBox26.Text = VB6.Format(labli, "0.00") End Sub Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox25.TextChanged labli = Val(TextBox10.Text) / Val(TextBox25.Text) TextBox26.Text = VB6.Format(labli, "0.00") End Sub End Class Public Class KrenKirisHesabi Dim appXL As New Excel.Application Dim R1x, r2x, r1n, r2n, lk, h, kkb, l, abl, ustu, altı, Y, cs, vk As Object Dim path, X1, M1, X2, M2, X3, M3, X4, M4, T0, T1 As Object Dim Abla, AblE, BX1, BM1, BX2, BM2, BX3, BM3, BX4, BM4, BT0, BT1, labli As Object Dim fX1, fM1, fX2, fM2, fX3, fM3, fX4, fM4, fT0, fT1 As Object Dim SM1X, SM2X, SM3X, SM4X, SM1Y, SM2Y, SM3Y, SM4Y, ST0X, ST1X, ST0Y, ST1Y, YMI, YMII, YM1, YM2, sutun, SYMI, SYMII, SYM1, SYM2 As Object Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form1.Show() Me.Close() End Sub Private Sub KrenKirisHesabi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Y = Form1.TextBox5.Text R1x = Form1.TextBox19.Text r2x = Form1.TextBox20.Text r1n = Form1.TextBox21.Text r2n = Form1.TextBox22.Text lk = Form1.TextBox7.Text h = Form1.TextBox14.Text kkb = Form1.TextBox24.Text kkb = (kkb - lk) / 2 l = Form1.TextBox10.Text cs = Form1.TextBox9.Text vk = Form1.TextBox12.Text labli = Val(Form1.TextBox26.Text) TextBox1.Text = lk

TextBox2.Text = h / 1000 TextBox3.Text = kkb TextBox4.Text = R1x TextBox5.Text = r2x TextBox6.Text = r1n TextBox7.Text = r2n TextBox8.Text = l TextBox21.Text = Y TextBox37.Text = cs TextBox35.Text = vk TextBox52.Text = labli Select Case cs Case 3 sutun = "B" Case 4 sutun = "C" Case 5 sutun = "D" Case 6 sutun = "E" Case 7 sutun = "F" Case 8 sutun = "G" Case 9 sutun = "H" End Select 'Excele Git ve Değerleri Al YMI = sutun & "8" YMII = sutun & "9" YM1 = sutun & "12" YM2 = sutun & "13"

'1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- yayiliyukmomentleri.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path As Object path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "yayiliyukmomentleri.xls") YMI = (appXL.Range(YMI).Value) YMII = (appXL.Range(YMII).Value) YM1 = (appXL.Range(YM1).Value) YM2 = (appXL.Range(YM2).Value) TextBox36.Text = YMI TextBox38.Text = YMII TextBox39.Text = YM1 TextBox40.Text = YM2 appXL.Application.Quit() 'Aldık ve Exceli Kapattık End Sub Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged abl = h / (l * 1000) abltext.Text = abl

TextBox49.Text = vk * Val(TextBox22.Text) * l * l End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged abl = h / (l * 1000) abltext.Text = abl End Sub Private Sub abltext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles abltext.TextChanged Dim ablf As Object ablf = Val(abltext.Text) If abltext.Text >= 0 And abltext.Text < 0.05 Then ustu = 6 altı = 7 ElseIf abltext.Text >= 0.05 And abltext.Text < 0.1 Then ustu = 7 altı = 8 ElseIf abltext.Text >= 0.1 And abltext.Text < 0.15 Then ustu = 8 altı = 9 ElseIf abltext.Text >= 0.15 And abltext.Text < 0.2 Then ustu = 9 altı = 10 ElseIf abltext.Text >= 0.2 And abltext.Text < 0.25 Then ustu = 10 altı = 11 ElseIf abltext.Text >= 0.25 And abltext.Text < 0.3 Then ustu = 11 altı = 12 ElseIf abltext.Text >= 0.3 And abltext.Text < 0.35 Then ustu = 12 altı = 13 ElseIf abltext.Text >= 0.35 And abltext.Text < 0.4 Then ustu = 13 altı = 14 ElseIf abltext.Text >= 0.4 And abltext.Text < 0.45 Then ustu = 14 altı = 15 ElseIf abltext.Text >= 0.45 And abltext.Text < 0.5 Then ustu = 15 altı = 16 ElseIf abltext.Text >= 0.5 And abltext.Text < 0.55 Then ustu = 16 altı = 17 ElseIf abltext.Text >= 0.55 And abltext.Text < 0.6 Then ustu = 17 altı = 18 ElseIf abltext.Text >= 0.6 And abltext.Text < 0.65 Then ustu = 18 altı = 19 ElseIf abltext.Text >= 0.65 And abltext.Text < 0.7 Then ustu = 19 altı = 20 ElseIf abltext.Text >= 0.7 And abltext.Text < 0.75 Then ustu = 20 altı = 21 ElseIf abltext.Text >= 0.75 And abltext.Text < 0.8 Then

ustu = 21 altı = 22 ElseIf abltext.Text >= 0.8 And abltext.Text < 0.85 Then ustu = 22 altı = 23 ElseIf abltext.Text >= 0.85 And abltext.Text < 0.9 Then ustu = 23 altı = 24 ElseIf abltext.Text >= 0.9 And abltext.Text < 0.95 Then ustu = 24 altı = 25 ElseIf abltext.Text >= 0.95 And abltext.Text < 0.1 Then ustu = 25 altı = 26 End If 'Excelden Bilgileri Alıyoruz On Error Resume Next path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "momenttablosu.xls") X1 = (appXL.Range("B" & altı).Value) M1 = (appXL.Range("C" & altı).Value) X2 = (appXL.Range("D" & altı).Value) M2 = (appXL.Range("E" & altı).Value) X3 = (appXL.Range("F" & altı).Value) M3 = (appXL.Range("G" & altı).Value) X4 = (appXL.Range("H" & altı).Value) M4 = (appXL.Range("I" & altı).Value) T0 = (appXL.Range("J" & altı).Value) T1 = (appXL.Range("K" & altı).Value) AblE = (appXL.Range("A" & ustu).Value) BX1 = (appXL.Range("B" & ustu).Value) BM1 = (appXL.Range("C" & ustu).Value) BX2 = (appXL.Range("D" & ustu).Value) BM2 = (appXL.Range("E" & ustu).Value) BX3 = (appXL.Range("F" & ustu).Value) BM3 = (appXL.Range("G" & ustu).Value) BX4 = (appXL.Range("H" & ustu).Value) BM4 = (appXL.Range("I" & ustu).Value) BT0 = (appXL.Range("J" & ustu).Value) BT1 = (appXL.Range("K" & ustu).Value) appXL.Application.Quit() ' Aldık fX1 = BX1 - X1 fM1 = BM1 - M1 fX2 = BX2 - X1 fM2 = BM2 - M2 fX3 = BX3 - X3 fM3 = BM3 - M3 fX4 = BX4 - X4 fM4 = BM4 - M4 fT0 = BT0 - T0 fT1 = BT1 - T1 Abla = ablf - AblE X1 = BX1 - (Abla * fX1 / 0.05) M1 = -(BM1 - (Abla * fM1 / 0.05)) X2 = BX2 - (Abla * fX2 / 0.05)

M2 = -(BM2 - (Abla * fM2 / 0.05)) X3 = BX3 - (Abla * fX3 / 0.05) M3 = BM3 - (Abla * fM3 / 0.05) X4 = BX4 - (Abla * fX4 / 0.05) M4 = BM4 - (Abla * fM4 / 0.05) T0 = BT0 - (Abla * fT0 / 0.05) T1 = BT1 - (Abla * fT1 / 0.05) x1text.Text = VB6.Format(X1, "0.0000") m1text.Text = VB6.Format(M1, "0.0000") x2text.Text = VB6.Format(X2, "0.0000") m2text.Text = VB6.Format(M2, "0.0000") x3text.Text = VB6.Format(X3, "0.0000") m3text.Text = VB6.Format(M3, "0.0000") x4text.Text = VB6.Format(X4, "0.0000") m4text.Text = VB6.Format(M4, "0.0000") t0text.Text = VB6.Format(T0, "0.0000") t1text.Text = VB6.Format(T1, "0.0000") End Sub Private Sub m1text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m1text.TextChanged SM1X = M1 * Y * R1x * l TextBox9.Text = VB6.Format(SM1X, "0.000") End Sub Private Sub m2text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m2text.TextChanged SM2X = M2 * Y * R1x * l TextBox10.Text = VB6.Format(SM2X, "0.000") End Sub Private Sub m3text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m3text.TextChanged SM3X = M3 * Y * R1x * l TextBox11.Text = VB6.Format(SM3X, "0.000") End Sub Private Sub m4text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m4text.TextChanged SM4X = M4 * Y * R1x * l TextBox12.Text = VB6.Format(SM4X, "0.000") End Sub Private Sub t0text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t0text.TextChanged ST0X = T0 * Y * R1x TextBox13.Text = VB6.Format(ST0X, "0.000") End Sub Private Sub t1text_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t1text.TextChanged ST1X = T1 * Y * R1x TextBox14.Text = VB6.Format(ST1X, "0.000") End Sub Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged SM1Y = SM1X / (Y * 10) TextBox15.Text = VB6.Format(SM1Y, "0.000") TextBox41.Text = Val(TextBox9.Text) + Val(TextBox31.Text) End Sub Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged SM2Y = SM2X / (Y * 10)

TextBox16.Text = VB6.Format(SM2Y, "0.000") TextBox42.Text = Val(TextBox10.Text) + Val(TextBox32.Text) End Sub Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged SM3Y = SM3X / (Y * 10) TextBox17.Text = VB6.Format(SM3Y, "0.000") TextBox43.Text = Val(TextBox11.Text) + Val(TextBox33.Text) End Sub Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged SM4Y = SM4X / (Y * 10) TextBox18.Text = VB6.Format(SM4Y, "0.000") TextBox44.Text = Val(TextBox12.Text) + Val(TextBox34.Text) End Sub Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged ST0Y = ST0X / (Y * 10) TextBox19.Text = VB6.Format(ST0Y, "0.000") End Sub Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged ST1Y = ST1X / (Y * 10) TextBox20.Text = VB6.Format(ST1Y, "0.000") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox57.Text = "1" kesit.Show() Me.Hide() End Sub Private Sub TextBox23_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox23.TextChanged TextBox22.Text = Val(TextBox23.Text) * 78.5 / 100000 TextBox22.Text = VB6.Format(TextBox22.Text, "0.000") TextBox49.Text = vk * Val(TextBox22.Text) * l * l 'MxIg TextBox31.Text = Val(TextBox36.Text) * Val(TextBox49.Text) SYMI = Val(TextBox31.Text) / (-1) TextBox31.Text = VB6.Format(SYMI, "0.000") 'MxIIg TextBox32.Text = Val(TextBox38.Text) * Val(TextBox49.Text) SYMII = Val(TextBox32.Text) / (-1) TextBox32.Text = VB6.Format(SYMII, "0.000") 'Mx1g TextBox33.Text = Val(TextBox39.Text) * Val(TextBox49.Text) SYM1 = Val(TextBox33.Text) TextBox33.Text = VB6.Format(SYM1, "0.000") 'Mx2g TextBox34.Text = Val(TextBox40.Text) * Val(TextBox49.Text) SYM2 = Val(TextBox34.Text) TextBox34.Text = VB6.Format(SYM2, "0.000") End Sub Private Sub TextBox35_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox35.TextChanged TextBox49.Text = vk * Val(TextBox22.Text) * l * l End Sub

Private Sub TextBox36_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox36.TextChanged TextBox31.Text = Val(TextBox36.Text) * Val(TextBox49.Text) SYMI = Val(TextBox31.Text) / (-1) TextBox31.Text = VB6.Format(SYMI, "0.000") End Sub Private Sub TextBox38_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox38.TextChanged TextBox32.Text = Val(TextBox38.Text) * Val(TextBox49.Text) SYMII = Val(TextBox32.Text) / (-1) TextBox32.Text = VB6.Format(SYMII, "0.000") End Sub Private Sub TextBox39_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox39.TextChanged TextBox33.Text = Val(TextBox39.Text) * Val(TextBox49.Text) SYM1 = Val(TextBox33.Text) TextBox33.Text = VB6.Format(SYM1, "0.000") End Sub Private Sub TextBox40_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox40.TextChanged TextBox34.Text = Val(TextBox40.Text) * Val(TextBox49.Text) SYM2 = Val(TextBox34.Text) TextBox34.Text = VB6.Format(SYM2, "0.000") End Sub Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged TextBox45.Text = TextBox15.Text End Sub Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged TextBox46.Text = TextBox16.Text End Sub Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged TextBox47.Text = TextBox17.Text End Sub Private Sub TextBox18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox18.TextChanged TextBox48.Text = TextBox18.Text End Sub Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox31.TextChanged TextBox41.Text = Val(TextBox9.Text) + Val(TextBox31.Text) End Sub Private Sub TextBox33_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox33.TextChanged TextBox43.Text = Val(TextBox11.Text) + Val(TextBox33.Text) End Sub Private Sub TextBox32_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox32.TextChanged TextBox42.Text = Val(TextBox10.Text) + Val(TextBox32.Text) End Sub Private Sub TextBox34_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox34.TextChanged TextBox44.Text = Val(TextBox12.Text) + Val(TextBox34.Text) End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form4.Show() Me.Hide() End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Text = "ST37" Then TextBox50.Text = 1.4 TextBox51.Text = 1.6 ElseIf ComboBox1.Text = "ST52" Then TextBox50.Text = 2.1 TextBox51.Text = 2.4 End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Form5.Show() Me.Hide() End Sub End Class Public Class kesit Dim appXL As New Excel.Application Dim grup, satir As Object Dim Kax, Ke1, Ke2, Kjx, Wxu, Wxa, Jyx, Sxx, b, s As Object Private Sub kesit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load RadioButton1.Checked = True RadioButton3.Checked = True grup = 1 ComboBox1.Items.Add(260) ComboBox1.Items.Add(280) ComboBox1.Items.Add(300) ComboBox1.Items.Add(320) ComboBox1.Items.Add(340) ComboBox1.Items.Add(360) ComboBox1.Items.Add(380) ComboBox1.Items.Add(400) ComboBox1.Items.Add(425) ComboBox1.Items.Add(450) ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) TextBox4.Text = grup End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged TextBox1.Text = "I" End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged TextBox1.Text = "IPE" End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged TextBox2.Text = "A 55"

End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged TextBox2.Text = "A 45" End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged TextBox2.Text = "A 65" End Sub Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged TextBox2.Text = "A 75" End Sub Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged TextBox2.Text = "A 100" End Sub Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged TextBox2.Text = "A 120" End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox3.Text = TextBox1.Text & " + " & TextBox2.Text End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged TextBox3.Text = TextBox1.Text & " + " & TextBox2.Text End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click KrenKirisHesabi.Show() KrenKirisHesabi.TextBox23.Text = TextBox23.Text KrenKirisHesabi.TextBox24.Text = TextBox24.Text KrenKirisHesabi.TextBox25.Text = TextBox25.Text KrenKirisHesabi.TextBox26.Text = TextBox26.Text KrenKirisHesabi.TextBox27.Text = TextBox27.Text KrenKirisHesabi.TextBox28.Text = TextBox28.Text KrenKirisHesabi.TextBox29.Text = TextBox29.Text KrenKirisHesabi.TextBox30.Text = TextBox30.Text KrenKirisHesabi.TextBox53.Text = TextBox5.Text KrenKirisHesabi.TextBox54.Text = TextBox7.Text KrenKirisHesabi.TextBox55.Text = TextBox8.Text KrenKirisHesabi.TextBox56.Text = TextBox1.Text & ComboBox1.Text & " + " & TextBox2.Text Me.Close() End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged ComboBox1.Items.Clear() If RadioButton1.Checked = True And RadioButton3.Checked = True Then grup = 1 ComboBox1.Items.Add(260) ComboBox1.Items.Add(280) ComboBox1.Items.Add(300) ComboBox1.Items.Add(320) ComboBox1.Items.Add(340)

ComboBox1.Items.Add(360) ComboBox1.Items.Add(380) ComboBox1.Items.Add(400) ComboBox1.Items.Add(425) ComboBox1.Items.Add(450) ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton1.Checked = True And RadioButton4.Checked = True Then grup = 2 ComboBox1.Items.Add(340) ComboBox1.Items.Add(360) ComboBox1.Items.Add(380) ComboBox1.Items.Add(400) ComboBox1.Items.Add(425) ComboBox1.Items.Add(450) ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton1.Checked = True And RadioButton5.Checked = True Then grup = 3 ComboBox1.Items.Add(400) ComboBox1.Items.Add(425) ComboBox1.Items.Add(450) ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton1.Checked = True And RadioButton6.Checked = True Then grup = 4 ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton1.Checked = True And RadioButton7.Checked = True Then grup = 5 ComboBox1.Items.Add(475) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton1.Checked = True And RadioButton8.Checked = True Then grup = 6 ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton3.Checked = True Then grup = 7 ComboBox1.Items.Add(220) ComboBox1.Items.Add(240) ComboBox1.Items.Add(270) ComboBox1.Items.Add(300) ComboBox1.Items.Add(330) ComboBox1.Items.Add(360) ComboBox1.Items.Add(400) ComboBox1.Items.Add(450) ComboBox1.Items.Add(500)

ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton4.Checked = True Then grup = 8 ComboBox1.Items.Add(270) ComboBox1.Items.Add(300) ComboBox1.Items.Add(330) ComboBox1.Items.Add(360) ComboBox1.Items.Add(400) ComboBox1.Items.Add(450) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton5.Checked = True Then grup = 9 ComboBox1.Items.Add(330) ComboBox1.Items.Add(360) ComboBox1.Items.Add(400) ComboBox1.Items.Add(450) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton6.Checked = True Then grup = 10 ComboBox1.Items.Add(400) ComboBox1.Items.Add(450) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton7.Checked = True Then grup = 11 ComboBox1.Items.Add(400) ComboBox1.Items.Add(450) ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) ElseIf RadioButton2.Checked = True And RadioButton8.Checked = True Then grup = 12 ComboBox1.Items.Add(500) ComboBox1.Items.Add(550) ComboBox1.Items.Add(600) End If TextBox4.Text = grup End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged TextBox5.Text = ComboBox1.Text End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged TextBox6.Text = TextBox4.Text + TextBox5.Text End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged TextBox6.Text = TextBox4.Text + TextBox5.Text End Sub

Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged Select Case TextBox6.Text ' IA45 Case 1260 satir = 4 Case 1280 satir = 5 Case 1300 satir = 6 Case 1320 satir = 7 Case 1340 satir = 8 Case 1360 satir = 9 Case 1380 satir = 10 Case 1400 satir = 11 Case 1425 satir = 12 Case 1450 satir = 13 Case 1475 satir = 14 Case 1500 satir = 15 Case 1550 satir = 16 Case 1600 satir = 17 'IA55 Case 2340 satir = 19 Case 2360 satir = 20 Case 2380 satir = 21 Case 2400 satir = 22 Case 2425 satir = 23 Case 2450 satir = 24 Case 2475 satir = 25 Case 2500 satir = 26 Case 2550 satir = 27 Case 2600 satir = 28 'IA65 Case 3400 satir = 30 Case 3425

satir = 31 Case 3450 satir = 32 Case 3475 satir = 33 Case 3500 satir = 34 Case 3550 satir = 35 Case 3600 satir = 36 'IA75 Case 4475 satir = 38 Case 4500 satir = 39 Case 4550 satir = 40 Case 4600 satir = 41 'IA100 Case 5475 satir = 43 Case 5500 satir = 44 Case 5550 satir = 45 Case 5600 satir = 46 'IA120 Case 6550 satir = 48 Case 6600 satir = 49 'IPEA45 Case 7220 satir = 54 Case 7240 satir = 55 Case 7270 satir = 56 Case 7300 satir = 57 Case 7330 satir = 58 Case 7360 satir = 59 Case 7400 satir = 60 Case 7450 satir = 61 Case 7500 satir = 62 Case 7550 satir = 63 Case 7600 satir = 64

'IPEA55 Case 8270 satir = 66 Case 8300 satir = 67 Case 8330 satir = 68 Case 8360 satir = 69 Case 8400 satir = 70 Case 8450 satir = 71 Case 8500 satir = 72 Case 8550 satir = 73 Case 8600 satir = 74 'IPEA65 Case 9330 satir = 76 Case 9360 satir = 77 Case 9400 satir = 78 Case 9450 satir = 79 Case 9500 satir = 80 Case 9550 satir = 81 Case 9600 satir = 82 'IPEA75 Case 10400 satir = 84 Case 10450 satir = 85 Case 10500 satir = 86 Case 10550 satir = 87 Case 10600 satir = 88 'IPEA100 Case 11400 satir = 90 Case 11450 satir = 91 Case 11500 satir = 92 Case 11550 satir = 93 Case 11600 satir = 94 'IPEA120

Case 12500 satir = 96 Case 12550 satir = 97 Case 12600 satir = 98 End Select 'Excele Git ve Değerleri Al Kax = "B" & satir Ke1 = "C" & satir Ke2 = "D" & satir Kjx = "E" & satir Wxu = "F" & satir Wxa = "G" & satir Jyx = "H" & satir Sxx = "I" & satir '1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- kiriskesiti.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path As Object path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "kiriskesiti.xls") KAx = (appXL.Range(KAx).Value) Ke1 = (appXL.Range(Ke1).Value) Ke2 = (appXL.Range(Ke2).Value) Kjx = (appXL.Range(Kjx).Value) Wxu = (appXL.Range(Wxu).Value) Wxa = (appXL.Range(Wxa).Value) Jyx = (appXL.Range(Jyx).Value) Sxx = (appXL.Range(Sxx).Value) TextBox23.Text = Kax TextBox24.Text = Ke1 TextBox25.Text = Ke2 TextBox26.Text = Kjx TextBox28.Text = Wxu TextBox29.Text = Wxa TextBox27.Text = Jyx TextBox30.Text = Sxx appXL.Application.Quit() 'Aldık ve Exceli Kapattık 'Excele Git ve Değerleri Al If TextBox1.Text = "I" Then Select Case (TextBox5.Text) Case 260 satir = 26 Case 280 satir = 27 Case 300 satir = 29 Case 320 satir = 30 Case 340 satir = 31 Case 360 satir = 32 Case 380 satir = 33

Case 400 satir = 35 Case 425 satir = 34 Case 450 satir = 36 Case 475 satir = 37 Case 500 satir = 38 Case 550 satir = 39 Case 600 satir = 40 End Select b = "D" & satir s = "E" & satir '1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- IProfili.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path2 As Object path2 = "c:\10ur\Kren\" appXL.Workbooks.Open(path2 & "IProfili.xls") b = (appXL.Range(b).Value) s = (appXL.Range(s).Value) TextBox7.Text = b / 10 TextBox8.Text = s / 10 appXL.Application.Quit() ElseIf TextBox1.Text = "IPE" Then Select Case (TextBox5.Text) Case 220 satir = 38 Case 240 satir = 42 Case 270 satir = 46 Case 300 satir = 50 Case 330 satir = 54 Case 360 satir = 58 Case 400 satir = 62 Case 450 satir = 66 Case 500 satir = 70 Case 550 satir = 74 Case 600 satir = 78 End Select b = "D" & satir s = "E" & satir

'1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- IpeProfili.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path3 As Object path3 = "c:\10ur\Kren\" appXL.Workbooks.Open(path3 & "IpeProfili.xls") b = (appXL.Range(b).Value) s = (appXL.Range(s).Value) TextBox7.Text = b / 10 TextBox8.Text = s / 10 appXL.Application.Quit() End If End Sub End Class Public Class Form4 Dim appXL As New Excel.Application Dim moment, Wa, GG, Gerilme, k1, R1max, Y, l, lkenar, Jx, k, g, Sehim, sehimkontrol, sehimkontrol2, aralik, bulucazsutun, bulucazsatir, bulucaz, labli As Object Dim gerilme2, ıh, e1, maxMIy, b, jy, Gk2, s, hb2 As Object Dim AU, JxU, JyU, eyU, satirU As Object Dim AI, e1U, JxIU, JyUUssu As Object Dim terim1, terim2, terim3, terim4, terim5, terim6, terim7, terim8 As Object Dim gerilmeson, MaxM1x, MaxM1y As Object Dim bulucazkenar, bulucazsutunkenar, kkenar, k1kenar, sehimkenar As Object Dim atla As Object Dim raporaliyimmi As Object Dim decimalyap As Decimal Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '1 Yuk1Gerilme moment = Val(KrenKirisHesabi.TextBox41.Text) moment = moment * (-100) Wa = Val(KrenKirisHesabi.TextBox28.Text) GG = Val(KrenKirisHesabi.TextBox50.Text) TextBox1.Text = moment TextBox2.Text = Wa Gerilme = moment / Wa TextBox3.Text = VB6.Format(Gerilme, "#,##0.0") If Gerilme = GG Then Label4.BackColor = Color.Red Label4.Text = "(ton/cm2)=" & GG & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme1'e göre Gerilme ve Emniyet Gerilmesi EŞİT.Kesit Büyütülmesi Önerilir") ElseIf Gerilme < GG Then Label4.Text = "(ton/cm2)<" & GG & "(ton/cm2) Kesit GÜVENLİ" ElseIf Gerilme > GG Then Label4.BackColor = Color.Red Label4.Text = "(ton/cm2)>" & GG & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme1'e göre Gerilme Emniyet Gerilmesinden BÜYÜK. Kesit Büyütülmesi Gerekir") End If '2 Yuk1Sehim labli = Val(KrenKirisHesabi.TextBox52.Text) k1 = 0.874 TextBox4.Text = k1 R1max = Val(KrenKirisHesabi.TextBox4.Text) * 10 TextBox5.Text = R1max

Y = Val(KrenKirisHesabi.TextBox21.Text) TextBox6.Text = Y l = Val(KrenKirisHesabi.TextBox8.Text) TextBox7.Text = l TextBox11.Text = l Jx = Val(KrenKirisHesabi.TextBox26.Text) TextBox8.Text = Jx TextBox14.Text = Jx TextBox19.Text = Jx lkenar = Val(Form1.TextBox10.Text) 'Sehim Tablosu Başı bulucazsatir = (labli * 100) - 80 + 5 aralik = (Val(KrenKirisHesabi.TextBox37.Text) - 1) If aralik <= 2 Then bulucazsutun = "H" bulucazsutunkenar = "B" ElseIf aralik = 3 Then bulucazsutun = "I" bulucazsutunkenar = "C" ElseIf aralik = 4 Then bulucazsutun = "J" bulucazsutunkenar = "D" ElseIf aralik = 5 Then bulucazsutun = "K" bulucazsutunkenar = "E" ElseIf aralik >= 6 Then bulucazsutun = "L" bulucazsutunkenar = "F" End If 'Excele Git ve Değerleri Al bulucaz = bulucazsutun & bulucazsatir bulucazkenar = bulucazsutunkenar & bulucazsatir '1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- sehim.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path As Object path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "sehim.xls") k = (appXL.Range(bulucaz).Value) kkenar = (appXL.Range(bulucazkenar).Value) appXL.Application.Quit() 'Aldık ve Exceli Kapattık 'Sehim Tablosu Sonu TextBox9.Text = k g = Val(KrenKirisHesabi.TextBox22.Text) * 10 TextBox10.Text = g Sehim = (k1 * R1max * Y * l * l * l / Jx) + (k * g * l * l * l * l / Jx) TextBox12.Text = VB6.Format(Sehim, "0.00") sehimkontrol = Val(l) * 100 / 900 TextBox13.Text = VB6.Format(sehimkontrol, "0.00") If Sehim >= sehimkontrol Then Label15.Text = "cm >=" Label6.BackColor = Color.Red Label6.Text = "cm. Sehim Büyük. Kesit BÜTÜLMELİ" MsgBox("İç Açıklıklarda Sehim Büyük. Kesit Büyütülmesi Gerekir") ElseIf Sehim < sehimkontrol Then

Label15.Text = "cm <" Label6.Text = "cm Kesit GÜVENLİ" End If '3 Yuk2Gerilme TextBox16.Text = moment ıh = Val(KrenKirisHesabi.TextBox53.Text) / 10 TextBox17.Text = ıh hb2 = ıh / 2 e1 = Val(KrenKirisHesabi.TextBox24.Text) TextBox18.Text = e1 maxMIy = Val(KrenKirisHesabi.TextBox45.Text) * (-100) TextBox20.Text = maxMIy b = Val(KrenKirisHesabi.TextBox54.Text) TextBox21.Text = b jy = Val(KrenKirisHesabi.TextBox27.Text) TextBox22.Text = jy gerilme2 = (moment * (ıh - e1) / Jx) + (maxMIy * b / (jy * 2)) TextBox24.Text = VB6.Format(gerilme2, "0.0") Gk2 = Val(KrenKirisHesabi.TextBox51.Text) If gerilme2 = Gk2 Then Label33.BackColor = Color.Red Label33.Text = "(ton/cm2)=" & Gk2 & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme2'e göre Gerilme ve Emniyet Gerilmesi EŞİT.Kesit Büyütülmesi Önerilir") ElseIf gerilme2 < Gk2 Then Label33.Text = "(ton/cm2)<" & Gk2 & "(ton/cm2) Kesit GÜVENLİ" ElseIf gerilme2 > Gk2 Then Label33.BackColor = Color.Red Label33.Text = "(ton/cm2)>" & Gk2 & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme2'e göre Gerilme Emniyet Gerilmesinden BÜYÜK. Kesit Büyütülmesi Gerekir") End If 'Kenarlar Dışındaki Kesit Tahkikleri Sonu s = Val(KrenKirisHesabi.TextBox55.Text) 'Kenar Açıklıklardaki Gerilme Hesabı için Gerekli Yerlerin Doldurulması MaxM1x = Val(KrenKirisHesabi.TextBox43.Text) * 100 TextBox39.Text = MaxM1x TextBox38.Text = ıh MaxM1y = Val(KrenKirisHesabi.TextBox47.Text) * 100 TextBox33.Text = MaxM1y TextBox34.Text = b 'Kenar Açıklıklardaki Sehim Hesabı için Gerekli Yerlerin Doldurulması k1kenar = 1.158 TextBox50.Text = k1kenar TextBox49.Text = R1max TextBox48.Text = Y TextBox47.Text = lkenar TextBox45.Text = lkenar TextBox43.Text = kkenar End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click KrenKirisHesabi.Show() Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Show() Me.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim cıkıs As Object cıkıs = MsgBox("Hesabı Btirip programdan çıkmak istediğinizden emin misiniz? ", 35, "Çıkış ") If cıkıs = 6 Then End End If End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Text = "U80" Then satirU = 16 ElseIf ComboBox1.Text = "U100" Then satirU = 17 ElseIf ComboBox1.Text = "U120" Then satirU = 18 ElseIf ComboBox1.Text = "U140" Then satirU = 19 ElseIf ComboBox1.Text = "U160" Then satirU = 20 ElseIf ComboBox1.Text = "U180" Then satirU = 21 ElseIf ComboBox1.Text = "U200" Then satirU = 23 ElseIf ComboBox1.Text = "U220" Then satirU = 24 ElseIf ComboBox1.Text = "U240" Then satirU = 25 ElseIf ComboBox1.Text = "U260" Then satirU = 26 ElseIf ComboBox1.Text = "U280" Then satirU = 27 ElseIf ComboBox1.Text = "U300" Then satirU = 29 ElseIf ComboBox1.Text = "U320" Then satirU = 30 ElseIf ComboBox1.Text = "U350" Then satirU = 31 ElseIf ComboBox1.Text = "U380" Then satirU = 32 ElseIf ComboBox1.Text = "U400" Then satirU = 34 ElseIf ComboBox1.Text = "Takviye YOK" Then AU = 0 JxU = 0 JyU = 0 eyU = 0 TextBox15.Text = AU TextBox25.Text = JxU TextBox26.Text = JyU TextBox27.Text = eyU GoTo atla End If 'Excele Git ve Değerleri Al

AU = "I" & satirU JxU = "R" & satirU JyU = "W" & satirU eyU = "AD" & satirU '1- Projet - Preferences içerisinden : "Microsoft Excel 11.0 Object Library" seçilir Ok. tusuna basilir. '2- UProfili.xls c:\10ur\Kren\ na kopyalanmalı On Error Resume Next Dim path As Object path = "c:\10ur\Kren\" appXL.Workbooks.Open(path & "UProfili.xls") AU = (appXL.Range(AU).Value) JxU = (appXL.Range(JxU).Value) JyU = (appXL.Range(JyU).Value) eyU = (appXL.Range(eyU).Value) TextBox15.Text = AU TextBox25.Text = JxU TextBox26.Text = JyU TextBox27.Text = eyU appXL.Application.Quit() 'Aldık ve Exceli Kapattık 'e1U nun hesaplanması atla: AI = Val(KrenKirisHesabi.TextBox23.Text) e1U = ((AI * e1) + (2 * AU * hb2)) / (AI + (2 * AU)) TextBox28.Text = VB6.Format(e1U, "0.00") 'Hesap bitti 'Jx in hesaplanması JxIU = Jx + (AI * (e1 - e1U) * (e1 - e1U)) + (2 * (JxU + (AU * (hb2 - e1U) * (hb2 - e1U)))) TextBox29.Text = VB6.Format(JxIU, "0.0") 'Hesap bitti 'JyUSSU in hesaplanması If KrenKirisHesabi.TextBox56.Text = "Yapma Kutu" Then JyUUssu = jy + (2 * ((JyU / 2) + ((AU / 2) * ((eyU + (b / 2)) * (eyU + (b / 2)))))) Else JyUUssu = jy + (2 * ((JyU / 2) + ((AU / 2) * ((eyU + (s / 2)) * (eyU + (s / 2)))))) End If TextBox30.Text = VB6.Format(JyUUssu, "0") 'Hesap bitti 'Kenar Açıklık Gerilmenin Hesabi TextBox36.Text = VB6.Format(JxIU, "0.0") TextBox37.Text = VB6.Format(e1U, "0.00") TextBox35.Text = JyUUssu TextBox35.Text = VB6.Format(JyUUssu, "0.0") gerilmeson = (MaxM1x * (ıh - e1U) / JxIU) + (MaxM1y * b / (JyUUssu * 2)) TextBox31.Text = VB6.Format(gerilmeson, "0.0") If gerilmeson = Gk2 Then Label57.BackColor = Color.Red Label57.Text = "(ton/cm2)=" & Gk2 & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme2'e göre Gerilme ve Emniyet Gerilmesi EŞİT.Kesit Büyütülmesi Önerilir") ElseIf gerilmeson < Gk2 Then Label74.BackColor = Color.Transparent Label57.Text = "(ton/cm2)<" & Gk2 & "(ton/cm2) Kesit GÜVENLİ" ElseIf gerilmeson > Gk2 Then Label57.BackColor = Color.Red Label57.Text = "(ton/cm2)>" & Gk2 & "(ton/cm2) Kesit BÜYÜTÜN" MsgBox("Yükleme2'e göre Gerilme Emniyet Gerilmesinden BÜYÜK. Kesit Büyütülmesi Gerekir")

End If 'Kontrol Sona Erdi 'Kenar Açıklık Sehim Kontrolü TextBox40.Text = VB6.Format(JxIU, "0.0") TextBox46.Text = VB6.Format(JxIU, "0.0") TextBox44.Text = g sehimkenar = (k1kenar * R1max * Y * lkenar * lkenar * lkenar / JxIU) + (kkenar * g * lkenar * lkenar * lkenar * lkenar / JxIU) sehimkontrol2 = Val(lkenar) * 100 / 900 TextBox41.Text = VB6.Format(sehimkontrol2, "0.00")

TextBox42.Text = VB6.Format(sehimkenar, "0.00") TextBox41.Text = VB6.Format(sehimkontrol2, "0.00") If sehimkenar > sehimkontrol2 Then Label75.Text = "cm >=" Label74.BackColor = Color.Red Label74.Text = "cm. Sehim Büyük. Kesit BÜTÜLMELİ" MsgBox("Kenar Açıklıklarda Sehim Büyük. Kesit Büyütülmesi Gerekir") ElseIf sehimkenar <= sehimkontrol2 Then Label75.Text = "cm <" Label74.BackColor = Color.Transparent Label74.Text = "cm Kesit GÜVENLİ" End If 'Kontrol Sona Erdi End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Label4.BackColor = Color.Red Or Label6.BackColor = Color.Red Or Label33.BackColor = Color.Red Or Label57.BackColor = Color.Red Or Label74.BackColor = Color.Red Then '==================================== raporaliyimmi = MsgBox("Kurtarmayan Kesitler VAR. Rapor almak istediğinize emin misiniz? ", MsgBoxStyle.OkCancel, "Rapor Alalım mı?") If raporaliyimmi = 1 Then GoTo raporal Else GoTo raporalma End If '==================================== End If raporal: Dim raporlama As New Excel.Application() raporlama.Workbooks.Open("C:\10ur\Kren\rapor.xls") raporlama.Visible = True raporlama.Range("D3").Value = Val(Form1.TextBox10.Text) * 100 'İlk ve Son Açıkklık raporlama.Range("D4").Value = Val(Form1.TextBox25.Text) * 100 'İç Açıkklıklar raporlama.Range("D5").Value = Form1.TextBox9.Text 'Çerçeve Sayısı raporlama.Range("F5").Value = Val(Form1.TextBox9.Text) - 1 'Aralık Sayısı raporlama.Range("D6").Value = Val(Form1.TextBox24.Text) * 100 'Kolonlar Arası Mesafe raporlama.Range("D7").Value = Val(Form1.TextBox8.Text) * 100 'Konsollar Arası Mesafe raporlama.Range("D8").Value = Val(Form1.TextBox7.Text) * 100 'Köprü Mesnet Açıklığı raporlama.Range("D9").Value = Val(Form1.TextBox11.Text) * 100 'Vinç Kotu

'Rolatif işletme Süresi If Form1.RadioButton1.Checked = True Then raporlama.Range("A12").Value = Form1.RadioButton1.Text ElseIf Form1.RadioButton2.Checked = True Then raporlama.Range("A12").Value = Form1.RadioButton2.Text End If 'Rolatif Yük If Form1.RadioButton3.Checked = True Then raporlama.Range("A14").Value = Form1.RadioButton3.Text ElseIf Form1.RadioButton4.Checked = True Then raporlama.Range("A14").Value = Form1.RadioButton4.Text End If 'Vuruşlar If Form1.RadioButton5.Checked = True Then raporlama.Range("A16").Value = Form1.RadioButton5.Text ElseIf Form1.RadioButton6.Checked = True Then raporlama.Range("A16").Value = Form1.RadioButton6.Text End If decimalyap = Form1.TextBox6.Text raporlama.Range("A17").Value = decimalyap 'Vinç Hızı raporlama.Range("D17").Value = Form1.ComboBox1.Text 'Vinç Kapasitesi 'Ray Eki If Form1.RadioButton9.Checked = True Then raporlama.Range("G17").Value = "olan, " ElseIf Form1.RadioButton10.Checked = True Then raporlama.Range("G17").Value = "olmayan, " End If 'Kumandası If Form1.RadioButton7.Checked = True Then raporlama.Range("H17").Value = "yerden" ElseIf Form1.RadioButton8.Checked = True Then raporlama.Range("H17").Value = "sepetten" End If raporlama.Range("A21").Value = Form1.TextBox1.Text 'Vinç Grubu decimalyap = Form1.TextBox5.Text raporlama.Range("B21").Value = decimalyap 'Y Katsayısı decimalyap = Form1.TextBox12.Text raporlama.Range("C21").Value = decimalyap 'Vurma Katsayısı raporlama.Range("E21").Value = Form1.TextBox13.Text 'Tekerlek Çapı raporlama.Range("G21").Value = Form1.TextBox14.Text 'Tekerlekler Arası raporlama.Range("I21").Value = Form1.TextBox15.Text 'x raporlama.Range("A25").Value = Form1.TextBox16.Text 'b raporlama.Range("B25").Value = Form1.TextBox17.Text 'Kedi Arabası Yüksekliği raporlama.Range("E25").Value = Form1.TextBox18.Text 'Kedi Arabası Tekerlek raporlama.Range("H25").Value = Form1.TextBox23.Text 'Vinç Ray Yüksekliği decimalyap = Form1.TextBox19.Text raporlama.Range("A29").Value = decimalyap 'R1Max decimalyap = Form1.TextBox20.Text raporlama.Range("B29").Value = decimalyap 'R2Max decimalyap = Form1.TextBox21.Text raporlama.Range("C29").Value = decimalyap 'R1Min decimalyap = Form1.TextBox22.Text raporlama.Range("D29").Value = decimalyap 'R2Min decimalyap = Form1.TextBox19.Text raporlama.Range("B32").Value = decimalyap 'P raporlama.Range("E32").Value = KrenKirisHesabi.abltext.Text ' a/l raporlama.Range("B35").Value = KrenKirisHesabi.m1text.Text ' kMIx

raporlama.Range("B36").Value = KrenKirisHesabi.m2text.Text ' kMIIx raporlama.Range("B37").Value = KrenKirisHesabi.m3text.Text ' kM1x raporlama.Range("B38").Value = KrenKirisHesabi.m4text.Text ' kM2x raporlama.Range("B41").Value = KrenKirisHesabi.t0text.Text ' kTox raporlama.Range("B42").Value = KrenKirisHesabi.t1text.Text ' kT1x decimalyap = KrenKirisHesabi.TextBox21.Text raporlama.Range("C35").Value = decimalyap ' Y katsayısı raporlama.Range("G35").Value = KrenKirisHesabi.TextBox9.Text ' MIx raporlama.Range("G36").Value = KrenKirisHesabi.TextBox10.Text ' MIIx raporlama.Range("G37").Value = KrenKirisHesabi.TextBox11.Text ' M1x raporlama.Range("G38").Value = KrenKirisHesabi.TextBox12.Text ' M2x raporlama.Range("F41").Value = KrenKirisHesabi.TextBox13.Text ' Tox raporlama.Range("F42").Value = KrenKirisHesabi.TextBox14.Text ' T1x raporlama.Range("F46").Value = KrenKirisHesabi.TextBox15.Text ' MIy raporlama.Range("F47").Value = KrenKirisHesabi.TextBox16.Text ' MIIy raporlama.Range("F48").Value = KrenKirisHesabi.TextBox17.Text ' M1y raporlama.Range("F49").Value = KrenKirisHesabi.TextBox18.Text ' M2y raporlama.Range("F52").Value = KrenKirisHesabi.TextBox19.Text ' Toy raporlama.Range("F53").Value = KrenKirisHesabi.TextBox20.Text ' T1y raporlama.Range("E72").Value = KrenKirisHesabi.ComboBox1.Text ' St raporlama.Range("A72").Value = KrenKirisHesabi.TextBox56.Text ' İç Açıklık Kesiti If KrenKirisHesabi.TextBox57.Text = "1" Then raporlama.Range("B70").Value = "X" ' İç Açıklık Kesiti Şekli ElseIf KrenKirisHesabi.TextBox57.Text = "2" Then raporlama.Range("E70").Value = "X" ' İç Açıklık Kesiti Şekli ElseIf KrenKirisHesabi.TextBox57.Text = "3" Then raporlama.Range("H70").Value = "X" ' İç Açıklık Kesiti Şekli End If raporlama.Range("A74").Value = KrenKirisHesabi.TextBox26.Text ' A raporlama.Range("B74").Value = KrenKirisHesabi.TextBox54.Text ' b raporlama.Range("C74").Value = KrenKirisHesabi.TextBox55.Text ' s raporlama.Range("D74").Value = KrenKirisHesabi.TextBox24.Text ' e1 raporlama.Range("E74").Value = KrenKirisHesabi.TextBox25.Text ' e2 raporlama.Range("F74").Value = KrenKirisHesabi.TextBox26.Text ' Jx raporlama.Range("G74").Value = KrenKirisHesabi.TextBox27.Text ' JyUssu raporlama.Range("H74").Value = KrenKirisHesabi.TextBox28.Text ' Wxu raporlama.Range("I74").Value = KrenKirisHesabi.TextBox29.Text ' Wxa decimalyap = KrenKirisHesabi.TextBox22.Text raporlama.Range("F76").Value = decimalyap ' G decimalyap = KrenKirisHesabi.TextBox36.Text raporlama.Range("B80").Value = decimalyap ' KMIgxEk7 decimalyap = KrenKirisHesabi.TextBox38.Text raporlama.Range("B81").Value = decimalyap ' KMIIgxEk7 decimalyap = KrenKirisHesabi.TextBox39.Text raporlama.Range("B82").Value = decimalyap ' KM1gxEk7 decimalyap = KrenKirisHesabi.TextBox40.Text raporlama.Range("B83").Value = decimalyap ' KM2gxEk7 decimalyap = KrenKirisHesabi.TextBox31.Text raporlama.Range("G80").Value = decimalyap ' MIgxEk7 decimalyap = KrenKirisHesabi.TextBox32.Text raporlama.Range("G81").Value = decimalyap ' MIIgxEk7 decimalyap = KrenKirisHesabi.TextBox33.Text raporlama.Range("G82").Value = decimalyap ' M1gxEk7 decimalyap = KrenKirisHesabi.TextBox34.Text raporlama.Range("G83").Value = decimalyap ' M2gxEk7 raporlama.Range("E87").Value = KrenKirisHesabi.TextBox41.Text ' MIxt raporlama.Range("E88").Value = KrenKirisHesabi.TextBox42.Text ' MIIxt

raporlama.Range("E89").Value = KrenKirisHesabi.TextBox43.Text ' M1xt raporlama.Range("E90").Value = KrenKirisHesabi.TextBox44.Text ' M2xt raporlama.Range("H87").Value = KrenKirisHesabi.TextBox45.Text ' MIyt raporlama.Range("H88").Value = KrenKirisHesabi.TextBox46.Text ' MIIyt raporlama.Range("H89").Value = KrenKirisHesabi.TextBox47.Text ' M1yt raporlama.Range("H90").Value = KrenKirisHesabi.TextBox48.Text ' M2yt raporlama.Range("E96").Value = TextBox3.Text & Label4.Text ' İç Açıklık Yükleme1 Sigma Kontrolü raporlama.Range("B101").Value = TextBox4.Text 'K2Ek4 raporlama.Range("F101").Value = TextBox9.Text 'KEk8 raporlama.Range("B102").Value = TextBox12.Text & Label15.Text & TextBox13.Text & Label6.Text ' İç Açıklık Yükleme1 Sehim Kontrolü raporlama.Range("C111").Value = TextBox17.Text 'h raporlama.Range("B112").Value = TextBox24.Text & Label33.Text ' İç Açıklık Yükleme2 Sigma Kontrolü raporlama.Range("B130").Value = ComboBox1.Text 'Ek Kesit raporlama.Range("A132").Value = TextBox15.Text 'AEk raporlama.Range("B132").Value = TextBox25.Text 'JxEk raporlama.Range("C132").Value = TextBox26.Text 'JyUssuEk raporlama.Range("D132").Value = TextBox27.Text 'eyEk raporlama.Range("B137").Value = TextBox28.Text 'e1Ek raporlama.Range("B141").Value = TextBox29.Text 'JxEk raporlama.Range("B146").Value = TextBox30.Text 'JyUssuEk raporlama.Range("B154").Value = TextBox31.Text & Label57.Text ' Kenar Açıklık Yükleme2 Sigma Kontrolü raporlama.Range("B160").Value = TextBox42.Text & Label75.Text & TextBox41.Text & Label74.Text ' Kenar Açıklık Yükleme2 Sehim Kontrolü raporlama.Range("B159").Value = TextBox50.Text 'K1Ek4 raporlama.Range("F159").Value = TextBox43.Text 'KEk8 raporalma: End Sub End Class Public Class Form5 Dim hYI, bYI, tfYI, twYI As Object Dim AYI, e1YI, e2YI, JxYI, JyYI, WxuYI, WxaYI, sxYI, sYI As Object Dim JyYI1, JyYI2, JyYI3 As Object Dim hK, bK, tfK, twK, dK As Object Dim AK, e1K, e2K, JxK, JyK, WxuK, WxaK, sxK, sK As Object Dim JyK1, JyK2, JyK3 As Object Dim YKAM, YIAM As Object Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click KrenKirisHesabi.Show() KrenKirisHesabi.TextBox23.Text = TextBox23.Text KrenKirisHesabi.TextBox24.Text = TextBox24.Text KrenKirisHesabi.TextBox25.Text = TextBox25.Text KrenKirisHesabi.TextBox26.Text = TextBox26.Text KrenKirisHesabi.TextBox27.Text = TextBox27.Text KrenKirisHesabi.TextBox28.Text = TextBox28.Text KrenKirisHesabi.TextBox29.Text = TextBox29.Text KrenKirisHesabi.TextBox30.Text = TextBox30.Text KrenKirisHesabi.TextBox53.Text = TextBox5.Text KrenKirisHesabi.TextBox54.Text = TextBox7.Text KrenKirisHesabi.TextBox55.Text = TextBox8.Text KrenKirisHesabi.TextBox56.Text = TextBox11.Text KrenKirisHesabi.TextBox57.Text = TextBox12.Text Me.Close()

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox12.Text = "2" hYI = Val(TextBox5.Text) bYI = Val(TextBox1.Text) tfYI = Val(TextBox2.Text) twYI = Val(TextBox3.Text) AYI = ((bYI * hYI) - ((bYI - twYI) * (hYI - 2 * tfYI))) / 100 TextBox23.Text = VB6.Format(AYI, "0.0") e1YI = hYI / 20 TextBox24.Text = VB6.Format(e1YI, "0.0") e2YI = hYI / 20 TextBox25.Text = VB6.Format(e2YI, "0.0") JxYI = ((bYI * (hYI * hYI * hYI) / 12) - ((bYI - twYI) * ((hYI - (2 * tfYI)) * (hYI - (2 * tfYI)) * (hYI - (2 * tfYI))) / 12)) / 10000 TextBox26.Text = VB6.Format(JxYI, "0.0") JyYI1 = hYI * bYI * bYI * bYI JyYI2 = (hYI - (2 * tfYI)) * twYI * twYI * twYI JyYI3 = (hYI - (2 * tfYI)) * bYI * bYI * bYI JyYI = ((JyYI1 + JyYI2 - JyYI3) / 120000) / 2 ' Y yönündeki zorlama fren kuvveleri yapacaktır. 'Frende kesitin üst yarısını etkileyeceği için Y yönndeki ataletin yarısı alınacaktır. TextBox27.Text = VB6.Format(JyYI, "0.0") WxuYI = JxYI / e1YI TextBox28.Text = VB6.Format(WxuYI, "0.0") TextBox29.Text = VB6.Format(WxuYI, "0.0") 'YIAM = ((twYI * hYI * hYI / 8) + (2 * tfYI * (bYI - twYI) * tfYI / 4)) / ((twYI * hYI / 2) + (bYI * twYI) - (tfYI * twYI)) 'sxYI = (AYI / 2) * (YIAM / 10) ' Yarım Kesitin Tabanına Göre Statik Momenti 'TextBox30.Text = VB6.Format(sxYI, "0.0") TextBox7.Text = bYI / 10 sYI = twYI TextBox8.Text = sYI / 10 TextBox11.Text = "Yapma I" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox12.Text = "3" hK = Val(TextBox10.Text) bK = Val(TextBox9.Text) tfK = Val(TextBox6.Text) twK = Val(TextBox4.Text) dK = hK - tfK - tfK AK = (2 * ((bK * tfK) + (twK * dK))) / 100 TextBox23.Text = VB6.Format(AK, "0.0") e1K = hK / 20 TextBox24.Text = VB6.Format(e1K, "0.0") e2K = hK / 20 TextBox25.Text = VB6.Format(e2K, "0.0") JxK = ((bK * hK * hK * hK / 12) - (((bK - twK - twK) * dK * dK * dK) / 12)) / 10000 TextBox26.Text = VB6.Format(JxK, "0.0") JyK1 = hK * bK * bK * bK / 12 JyK2 = dK * (bK - twK - twK) * (bK - twK - twK) * (bK - twK - twK) / 12 JyK = ((JyK1 - JyK2) / 10000) / 2 ' Y yönündeki zorlama fren kuvveleri yapacaktır. 'Frende kesitin üst yarısını etkileyeceği için Y yönndeki ataletin yarısı alınacaktır. TextBox27.Text = VB6.Format(JyK, "0.0")

WxuK = JxK / e1K TextBox28.Text = VB6.Format(WxuK, "0.0") TextBox29.Text = VB6.Format(WxuK, "0.0") 'YKAM = ((2 * (twK * hK * hK / (2 * 4))) + ((bK - 2 * twK) * tfK * tfK / 2)) / ((2 * twK * hK / 2) + ((bK - 2 * twK) * tfK)) 'sxK = (AK / 2) * (YKAM / 10) ' Yarım Kesitin Tabanına Göre Statik Momenti 'TextBox30.Text = VB6.Format(sxK, "0.0") TextBox7.Text = bK / 10 sK = twK TextBox8.Text = sK / 10 TextBox11.Text = "Yapma Kutu" End Sub End Class Public Class Form6 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub End Class

Ek.4.1. Gezer Vinç Programının Kullandığı Sehim Excel Tablosu Açıklık Ortasındaki Sehim Hesabı İçin k Değerleri la li 0.80 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.90 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.00

2 0.0540 0.0604 0.0671 0.0741 0.0815 0.0891 0.0971 0.1050 0.1140 0.1230 0.1330 0.1420 0.1520 0.1630 0.1740 0.1850 0.1970 0.2090 0.2220 0.2350 0.2480

Kenar Açıklık Açıklık Sayısı 3 4 5 0.0974 0.0985 0.0982 0.1050 0.1060 0.1050 0.1130 0.1130 0.1130 0.1210 0.1200 0.1210 0.1300 0.1280 0.1290 0.1390 0.1360 0.1370 0.1480 0.1450 0.1460 0.1580 0.1540 0.1550 0.1680 0.1630 0.1640 0.1790 0.1730 0.1740 0.1900 0.1820 0.1840 0.2010 0.1930 0.1950 0.2130 0.2030 0.2060 0.2250 0.2140 0.2170 0.2370 0.2250 0.2280 0.2500 0.2370 0.2400 0.2640 0.2490 0.2530 0.2780 0.2610 0.2660 0.2920 0.2740 0.2790 0.3070 0.2870 0.2930 0.3220 0.3010 0.3070

6 0.0983 0.1050 0.1130 0.1210 0.1290 0.1370 0.1460 0.1550 0.1640 0.1740 0.1840 0.1940 0.2050 0.2160 0.2280 0.2400 0.2520 0.2650 0.2780 0.2910 0.3050

la li 0.80 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.90 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99 1.00

En Büyük Sehimli Açıklık Açıklık Sayısı 2 3 4 5 0.3080 0.1310 0.1270 0.1280 0.3050 0.1270 0.1250 0.1250 0.3030 0.1220 0.1230 0.1240 0.3010 0.1180 0.1220 0.1260 0.2980 0.1140 0.1200 0.1270 0.2950 0.1090 0.1180 0.1280 0.2930 0.1040 0.1170 0.1290 0.2900 0.0994 0.1150 0.1310 0.2870 0.0944 0.1130 0.1320 0.2840 0.0892 0.1110 0.1330 0.2810 0.0840 0.1090 0.1350 0.2780 0.0786 0.1080 0.1360 0.2750 0.0732 0.1060 0.1380 0.2720 0.0676 0.1040 0.1390 0.2690 0.0618 0.1020 0.1400 0.2660 0.0560 0.0995 0.1420 0.2620 0.0498 0.0973 0.1440 0.2590 0.0439 0.0952 0.1450 0.2550 0.0376 0.0930 0.1470 0.2520 0.0313 0.0908 0.1480 0.2480 0.0248 0.0885 0.1500

6 0.1270 0.1250 0.1240 0.1250 0.1250 0.1250 0.1260 0.1260 0.1270 0.1270 0.1280 0.1280 0.1290 0.1290 0.1300 0.1310 0.1310 0.1320 0.1320 0.1330 0.1340

Ek.4.2. Gezer Vinç Programının Kullandığı Yayılı Yük momentleri Excel Tablosu

Değer T0 T1 T2 T3 T4 MI MII MIII MIV M1 M2 M3 M4 X1 X2 X3 X4 E1 E2 E2 E3 E3 E4 E4

3 0.3750 1.2500

4 0.4000 1.1000

5 0.3929 1.1428 0.9286

6 0.3947 1.1317 0.9736

7 0.3942 1.1317 0.9616 1.0192

8 0.3944 1.1337 0.9649 1.0070

0.1250

0.1000

0.1071 0.0714

0.1053 0.0789

0.1058 0.0769 0.0865

0.1056 0.0775 0.0845

0.0703

0.0800 0.0250

0.0772 0.0364

0.0779 0.0332 0.0461

0.0777 0.0340 0.0433

0.3750

0.4000 0.5000

0.3930 0.5357

0.3947 0.5264 0.5000

0.3942 0.5327 0.4904

0.7500

0.8000 0.2760 0.7240

0.7860 0.2659 0.8055

0.7894 0.2680 0.7830 0.1964 0.8036

0.7884 0.2675 0.7899 0.1960 0.7850

0.0778 0.0338 0.0440 0.0405 0.3944 0.5281 0.4930 0.5000 0.7887 0.2680 0.7884 0.1962 0.7897 0.2153 0.7847

9 0.3943 1.1340 0.9640 1.0103 0.9948 0.1057 0.0773 0.0850 0.0825 0.0777 0.0339 0.0438 0.0412 0.3943 0.5283 0.4923 0.5026 0.7887 0.2680 0.7890 0.1960 0.7880 0.2150 0.7900

Çarpan ql ql ql ql ql ql2 ql2 ql2 ql2 ql2 ql2 ql2 ql2 l l l l l l l l l l l

Ek.4.3. Gezer Vinç Programının Kullandığı Mesnet, Açıklık momentleri Excel Tablosu

a/l

0.00 0.05 0.10 0.15 0.20 0.25 0.30 0.35 0.40 0.45 0.50 0.55 0.60 0.65 0.70 0.75 0.80 0.85 0.90 0.95 1.00

0<=(a/l) <= 1 için en büyük mesnet ve açıklık momentleri ile mesnet Reaksiyonları Mesnet Momentler (-) Açıklık Momentleri MI M II 1.Açıklık 2.Açıklık Mesnet xo=I xo=I xo=0Menetinden Menetinden xo=0Menetinden Menetinden Uzaklık Uzaklık Uzaklık Uzaklık Reaksiyonları Xo/l MI Xo/l MI Xo/l MI Xo/l MI T0 T1 0.578 0.206 0.616 0.172 0.437 0.409 0.495 0.345 2.000 2.013 0.552 0.206 0.590 0.172 0.417 0.396 0.489 0.321 1.937 2.011 0.525 0.204 0.563 0.171 0.407 0.364 0.484 0.299 1.874 2.004 0.497 0.201 0.534 0.168 0.398 0.343 0.479 0.279 1.811 1.994 0.469 0.197 0.504 0.164 0.389 0.323 0.474 0.261 1.749 1.979 0.439 0.192 0.472 0.159 0.380 0.304 0.470 0.243 1.687 1.961 0.408 0.186 0.438 0.153 0.372 0.287 0.466 0.226 1.627 1.937 0.375 0.179 0.402 0.147 0.366 0.271 0.462 0.212 1.568 1.911 0.342 0.170 0.365 0.139 0.361 0.256 0.458 0.200 1.510 1.881 0.307 0.161 0.773 0.146 0.357 0.242 0.455 0.190 1.454 1.847 0.725 0.160 0.748 0.153 0.351 0.229 0.453 0.180 1.399 1.810 0.700 0.167 0.723 0.160 0.345 0.218 0.450 0.172 1.347 1.771 0.675 0.172 0.698 0.164 0.348 0.208 0.408 0.165 1.297 1.728 0.651 0.176 0.674 0.168 0.350 0.199 0.409 0.159 1.249 1.683 0.627 0.180 0.648 0.170 0.354 0.191 0.410 0.155 1.204 1.633 0.603 0.181 0.623 0.172 0.357 0.185 0.411 0.151 1.162 1.583 0.579 0.182 0.598 0.171 0.361 0.180 0.413 0.148 1.123 1.529 0.556 0.181 0.574 0.170 0.368 0.177 0.414 0.146 1.087 1.474 0.532 0.180 0.549 0.167 0.374 0.174 0.416 0.145 1.054 1.417 0.517 0.178 0.524 0.164 0.386 0.173 0.418 0.145 1.025 1.358 0.487 0.174 0.499 0.159 0.392 0.173 0.420 0.145 1.000 1.297

Ek.5. Gezer Vinç Örnek Raporu

GEZER VİNÇ HESABI Gezer Vinç Bilgileri İlk ve Son Aralık Açıklığı (la) : 600 cm İç Açıklıklar (l) : 600 cm Çerçeve Sayısı : 8 tane 7 tane aralık vardır. Kolonlar Arası Mesafe : 1500 cm Konsollar Arası Mesafe : 460 cm Köprü Mesnet Açıklığı (lk) : 875 cm Gezer Vinç Kotu : 460 cm Gezer Vinç Özellikleri Rölatif İşletme Süresi : Çalışılan zamanların, çalışılmayan ve yüksüz durulan zamanların Toplamına oranı KÜÇÜK Rölatif Yük : Çoğu zaman emniyetli yükün altında çalışan vinçler Vuruşlar : Yük, araba veya vincin hareketinden dolayı NORMAL vuruşlara maruz kalan Vinçler 1.50 m/sn yürüme hızlı, 3 ton kapasiteli, ray eki olan, yerden kumandalı Gezer Vinç. Program Çıktıları Tekerlek Çapı (mm) Tekerlekler Arası (mm) Vinç Grubu Ψ Katsayısı φ Vurma Katsayısı x (mm) 1.2 400 3540 1 1.2 440 b (mm) 175 R1 Max (ton) 4.5

Kedi Arabası Tekerlek Açıklığı (mm) 2240

Kedi Arabası yüksekliği (mm) 1000

R2 Max (ton) 3.4

R1 Min (ton) 2.4

R2 Min (ton) 1.0

Kren Düşey Yükleri İçin P= 5 ton alınarak (a/l) = x x x x x

ψ 1.2 1.2 1.2 1.2

x x x x x

P 4.5 4.5 4.5 4.5

kEk6 x 13,070 x 17,366 x

ψ 1.2 1.2

x x x

P 4.5 4.5

Kren Yatay Yükü İçin /( My = Mx MIy = -5540.000 /( maxM1Py= -5288.000 /( maxM2Py= 6804.000 /( MIy = 5391.000 /(

ψ 1.2 1.2 1.2 1.2

x x x x x

10 10 10 10 10

/( /( /(

ψ 1.2 1.2

x x x

10 10 10

Mx = MIx = MIIx = maxM1Px= maxM2Px= T= Tox = T1x =

T= Tox = T1x =

kEk6 -0.1710 -0.1632 0.2100 0.1664

Tx 7058 9378

Vinç Ray Genişliği (mm) 45

0.59 x x x x x

oranıyla tablodan değerler okunur.

l 6 6 6 6

= = = =

= =

7058 9378

) ) ) ) )

= = = =

-0.462 -0.441 0.567 0.449

ton m ton m ton m ton m

) ) )

= =

0.588 0.781

ton ton

-5540.00 -5288.00 6804.00 5391.00

ton ton

ton m ton m ton m ton m

1 Seçilen Kesit

[

A (cm2) 9710

X I260 + A 45 b (cm) 39152

]

[

s (cm) 0.94

Kren Kiriş Rayının Ağırlığı (g) =

e1 (cm) 39342 9710

] ST37 e2 (cm) 39095 x 78.5 =

[ ı Jy(cm4) 309

Jx(cm4) 9710 0.062

]

Wxu 542

Wxa 742

ton/m

Kirişte bu yük ve φ katsayısının da çarpılmasıyla elde edilen momentler 2 x x Mgx = kEk7 x φ g l x 0.062 x MIgx = 0.1056 x 1.2 36 = -0.283 x 0.062 x MIIgx = 0.0775 x 1.2 36 = -0.208 x 0.062 x maxM1gx= 0.0778 x 1.2 36 = 0.208 x 0.062 x maxM2gx= 0.0338 x 1.2 36 = 0.091

ton m ton m ton m ton m

Kirişte hareketli ve sabit yüklerden meydana gelen maksimum momentler max M = M Mg + max MIx = -5540.00 + -0.283 = -5823.00 tonm max MIy= max MIIx= -5288.00 + -0.208 = -5496.00 tonm max MIIy= max M1x= 6804.00 + 0.208 = 7012.00 tonm max M1y= max M2x= 5391.00 + 0.091 = 5482.00 tonm max M2y=

-0.462 -0.441 0.567 0.449

tonm tonm tonm tonm

Kesit Tahkikleri ve Sehim Hesapları İlk ve Son Açıklıklar Dışında 1.Yükleme Hali σ = max Mıx / Wxu =

σ=

-5823 /

542

=

1.1(ton/cm2)<1.4(ton/cm2) Kesit GÜVENLİ

 ( R1 × ψ ) × (l ) 3   ( g ) × (l ) 4  l f =  k 2 Ek 4 × + kEk 8 ×   ≤ Jx Jx     900 3

x x 600 )+( 0.134 x f=[( 0.874 x 4.5 1.2 f = 1.06cm >=0.67cm. Sehim Büyük. Kesit BÜTÜLMELİ

0.062

x

600

4

)]/

9710

2. Yükleme Hali Gezer Vinç Kirişine fren kuvvetinin tesri halinde meydana gelen moment için, kuvvetin eksantrik etkisi sebebiyle kiriş kesitinin üst yarısı dikkate alınmıştır. Bu durumda kesitte en büyük gerilme kiriş üst başlığının sağ ucunda meydana gelir.

 max MIx   max MIy b  × ( h − e1)  +  ×  < HzEmniyetG erilmesi ı jx 2    Jy

σ =

σ =[ σ=

-5823

x(

)/

-

26

9710 ]/[( -0.462 /

309

)/( 39152 x

2 )]

1.3(ton/cm2)<1.6(ton/cm2) Kesit GÜVENLİ 2

Kenar Açıklıklarda

X

[

Takviye A (cm2) 39215

]

[

U100 ı Jy(cm4) 39170

Jx(cm4) 206

]

[

]

ey (cm) 20090

e1ekli = [( AI × e1I ) + ( 2 × ( Aek × hI / 2 )) ] / [ AI + ( 2 × Aek ) ] e1ekli = e1ekli =

[( 9710 16.66

x 39342 )+( cm

x 39215 / (

2

[

13 ))]/[

9710

+(

] [

Jxekli = [JxI ] + AI × ( e1I − e1ekli ) 2 + 2 × ( Jxek +2 ( Aek × (( h / 2 ) − e1ekli ) 2 )) [

Jxekli = Jxekli =

9710 ]x[ 9710 x( 39342 10605.8 cm4

16.66)]+2x[

x 39215 )]

2

]

2

206 +( 39215 x( 39215 - 16.66 ))]

s   Jyek Aek Jy ı ekli = Jy ı I + 2 ×  +( × (eyek + ) 2 ) 2 2   2

[ ]

Jyıekli = Jyıekli =

[

309 ]+2x[(39170 / 393 cm4

2

)+ 39215 /

2

)+ 20090 +(

0.94

/

2 ))]

Bu Değerler Göre İlk ve Son Açıklıktaki Kesit Kontrolleri

 max M 1x



 max M 1y

b

σ = × ( h − e1ekli)  +  ×  < HzEmniyetG erilmesi ı 2  Jxekli   Jy ekli σ =[ -5823 x( 26 - 16.66 )/ 10605.8 ]/[( -0.462 / 393 )/( 39152 x 1.4(ton/cm2)<1.6(ton/cm2) Kesit GÜVENLİ σ=  ( R1 ×ψ ) × (l ) 3   ( g ) × (l ) 4  l f =  k1Ek 4 × + kEk 8 ×   ≤ Jxekli Jxekli  900    f=[( f=

1,158

x

4.5

3

x x 1.2 6 )+( 0.305 x 0.062 x 6 1.30cm >=0.67cm. Sehim Büyük. Kesit BÜTÜLMELİ

4

2 )]

)]/ 10605.8

Ek.6. ÇelikPro2006 Örnek Raporu

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

PDF created with pdfFactory Pro trial version www.pdffactory.com

Ek.7. Çerçeve Programı Akış Diyagramı Anlamları

Algoritma Başlangıcı veya Sonu

Karar Verme

Döngülerde; Başlangıç Değeri, Son Değer, Artış Sayısı

İşin Akış Yönü

Klavye İle Bilgi Girişi

Görüntüleme

Döngünün Çalıştığı Bölüm

Hesaplama ya da Değerlerin Değişkenlere Aktarımı

Araç Belirtmeden Giriş Ya da Çıkış

Diskten okuma veya Diske Yazma

Çerçeve Programı (AŞIK YÜKÜ HESABI)

Çerçeve Programı (KESİT SEÇ)

Akış Diyagramı

Akış Diyagramı

BAŞLA

BAŞLA

Aşık Yükü Menüsü

Kesit Seç Menüsü

Sistem Bilgileri

Kesit Adı

Aşık Yükü Hesabı

Oku Kesit Özellikleri

Hesap Sonuçları Seç Kesit Özellikleri Aşık Yükü Sonuçları

DUR

Kesit Özellikleri

Yaz Kesit Özellikleri

DUR

Çerçeve Programı (STATİK HESAP) Akış Diyagramı BAŞLA

Transformasyon Matrisi Excel’de Hesaplandı

Sistem Bilgileri

Yapılan İşlemler

Transformasyon Matrisi Excel’e Yazıldı

Elemanların Rijitlik Matrisi

Yük Matrisi Excel’de Hesaplandı

Yükler Hesaplandı Yük Matrisi Excel’e Yazıldı Hesap Sonuçları Excel’e Yazıldı

Sistem Rijitilik Matrisi Excel’de Hesaplandı

Sistem Rijitlik Matrisi Excel’e Yazıldı

Excel Hücre Kodları Kontrol Edildi

TxP Matrisi Excel’de Hesaplandı

TxP Matrisi Excel’e Yazıldı

F Matrisi Excel’de Hesaplandı

Excel Hücre Kodları Kontrol Edildi

F Matrisi Excel’e Yazıldı

TT Matrisi Excel’de Hesaplandı

Excel Hücre Kodları Kontrol Edildi

K-1 Matrisi Excel’de Hesaplandı

TT Matrisi Excel’e Yazıldı

Excel Hücre Kodları Kontrol Edildi TT.K.u+P Matrisi Excel’de Hesaplandı

K-1 Matrisi Excel’e Yazıldı

Excel Hücre Kodları Kontrol Edildi

u Matrisi Excel’de Hesaplandı

u Matrisi Excel’e Yazıldı

TT.K.u+P Matrisi Excel’e Yazıldı

M,N,V Sonuçları Excel’de Hesaplandı

M,N,V Sonuçları Excel’e Yazıldı

Hesap Sonuçları Excel’den Okundu Maksimum Momentler Hesaplandı Çekme

Basınç N:

Moment Hesabı

Moment Hesabı

Burkulma Boyu Hesabı Narinlik Katsayısı Hesabı

Burkulma Katsayısı Excel’den Okundu

Gerilme Hesabı

Gerilme Hesabı

Kesit Öner ya da Kesit Kontrolü

Sonuç

Kesit Önerme ve Kesit Kontrol Hesapları

Sonuçlar Ana Menü

DUR

Kesit Kontrol Menüsü

Hesap Sonuçları Excel’den Okundu En Ekonomik Kesitleri Seç

Önerilen Kesitle Tekrar Hesap

Rapor

Tamam

Sonuçlar Kurtaran Kesit Öner Önerilen Kesitlerin Alanları

En Küçük Alanlı Kesit Seçildi

Kesit Kontrol Menüsü

Ana Menü Üzerindeki Hesapla Komutu Verildi Kesit Kontrol Menüsü

En Ekonomik Kesitleri Seç Hesap Sonuçları Okundu Komutu Verildi

Önerilen Kesitle Word Dosyasına Yazılacaklar Tekrar Hesap Hazırlandı Komutu Verildi Oluşturuldu

Kesit Kontrolleri Yapıldı

Word Dosyası

Yetersiz Sonuçlar Word Dosyası Oluşturuldu Yeterli Kesit Kontrol Menüsü

Kesit Kontrol Menüsü

Ana Menü

DUR

Çerçeve Programı (DİYAGRAMLAR MENÜSÜ) Akış Diyagramı BAŞLA

Sistem Bilgileri ve Hesap Sonuçları Excel’den Okundu

Çubuk Başlangıç ve Bitiş Koordinatları Hesaplandı

DXF Dosyası Oluşturuldu

DXF Dosyası Ekrana Getirildi F

M

N

V Komut:

Düğüm Hesabı

u Ana Menü Ana Menü

Birleşim Hesabı Menüsü

DUR

Düğüm Noktası Kaynak Bilgileri 2.Birleşim veya 3.Birleşim

Ana Menü

Word’e Aktar

Birleşim

Ana Menü Hesap Sonuçları Excel’den Okundu

Hesap Sonuçları Word’e Yazdırılacak Şekilde Ayarlandı

DUR

Kaynak Bilgilerine Göre Kesit Özellikleri Hesaplandı

Kesit Tesirleri Birleşim Kesitine İndirgendi

Çekme Lamasız Kesitte Gerilme Kontrolleri Yapıldı

Çekme Lamasına Gerek Olup Olmadığı Kontrolü Yapıldı

Word Dosyası Oluşturuldu

Word Dosyası

2 Dikişinde Kenarda ve Ortada Gerilme Kontrolleri Yapıldı

3 Dikişinde Kenarda ve Ortada Gerilme Kontrolleri Yapıldı

Çekme Lamasında Kenarda ve Ortada Gerilme Kontrolleri Yapıldı

Çekme Lamasını Kolona veya Kirişe Bağlayan Kaynaklarda Gerilme Kontrolleri Yapıldı

Hesap Sonuçları Baskı Önizleme Menüsüne Gönderilecek Şekilde Ayarlandı

Baskı Önizleme Menüsü

Birleşim Hesabı Menüsü

Çerçeve Programı (SAP2000’E AKTARMA) Akış Diyagramı

BAŞLA

Sistem Bilgileri

S2K Dosyasına Yazılacaklar Hazırlandı Oluşturuldu

S2K Dosyası Oluşturuldu

Çerçeve Programı (RAPOR HAZIRLAMA) Akış Diyagramı

BAŞLA

Hesap Sonuçları Okundu

Word Dosyasına Yazılacaklar Hazırlandı Oluşturuldu Word Dosyası

DUR Word Dosyası Oluşturuldu

DUR

Ek.8. Örnek1 Raporu SİSTEM BİLGİERİ

X1= 4.000 m, X2= 4.000 m. Y1= 4.000 m, Y2= 4.000 m, Y3= 4.000 m, Y4= 4.000 m. Fia= -90 derece, Fib= -45 derece. Fic= 45 derece, Fid= 90 derece. q1= 0.200 ton, q2= 0.200 ton Aa= 0.0014 m2 ve Ia= 0.000 m4 Ab= 0.0014 m2 ve Ib= 0.000 m4 Ac= 0.0014 m2 ve Ic= 0.000 m4 Ad= 0.0014 m2 ve Id= 0.000 m4 E=2100000 ton/m2 ELEMAN RİJİTLİK MATRİSLERİ Ka Matrisi 1 0 3 -1 0 3

0 746 0 0 -746 0

3 0 7 -3 0 3

-1 0 -3 1 0 -3

0 -746 0 0 746 0

3 0 3 -3 0 7

-263 264

1 1

-264 263

263 -264

1 1

Kb Matrisi 264 -263

1 -264 263 1

1 263 -264 1

5 -1 -1 2

-1 264 -263 -1

-1 -263 264 -1

2 -1 -1 5

263 264 1 -263 -264 1

-1 1 5 1 -1 2

-264 -263 1 264 263 1

-263 -264 -1 263 264 -1

-1 1 2 1 -1 5

0 746 0 0 -746 0

-3 0 7 3 0 3

-1 0 3 1 0 3

0 -746 0 0 746 0

-3 0 3 3 0 7

Kc Matrisi 264 263 -1 -264 -263 -1

Kd Matrisi 1 0 -3 -1 0 -3

TRANSFORMASYON MATRİSLERİ Ta Matrisi 0.000 -1.000 0.000 0.000 0.000 0.000

1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 -1.000 0.000

0.000 0.000 0.000 1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

0.707 0.707 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.707 -0.707 0.000

0.000 0.000 0.000 0.707 0.707 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-0.707 0.707 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.707 0.707 0.000

0.000 0.000 0.000 -0.707 0.707 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 1.000 0.000

0.000 0.000 0.000 -1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

Tb Matrisi 0.707 -0.707 0.000 0.000 0.000 0.000

Kc Matrisi 0.707 0.707 0.000 0.000 0.000 0.000

Td Matrisi 0.000 1.000 0.000 0.000 0.000 0.000

YÜK (P) MATRİSLERİ Pb Matrisi Pb

0.283 -0.283 -0.267 0.283 -0.283

T*Pb

0.000 -0.400 -0.267 0.000 -0.400

0.267

0.267

-0.283 -0.283 -0.267 -0.283 -0.283 0.267

0.000 -0.400 -0.267 0.000 -0.400 0.267

Pc Matrisi Pc

T*Pc

SİSTEM RİJİTLİK MATRİSLERİ K . 10E-3 Matrisi 0.001 0.000 0.003 -0.001 0.000 0.003 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.746 0.000 0.000 -0.746 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.003 0.000 0.007 -0.003 0.000 0.003 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

-0.001 0.000 -0.003 0.265 -0.263 -0.002 -0.264 0.263 0.001 0.000 0.000 0.000 0.000 0.000 0.000

0.000 -0.746 0.000 -0.263 1.009 0.001 0.263 -0.264 0.001 0.000 0.000 0.000 0.000 0.000 0.000

0.003 0.000 0.003 -0.002 0.001 0.012 -0.001 -0.001 0.002 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 0.000 -0.264 0.263 -0.001 0.528 0.000 -0.002 -0.264 -0.263 -0.001 0.000 0.000 0.000

0.000 0.000 0.000 0.263 -0.264 -0.001 0.000 0.528 0.000 -0.263 -0.264 0.001 0.000 0.000 0.000

0.000 0.000 0.000 0.001 0.001 0.002 -0.002 0.000 0.010 0.001 -0.001 0.002 0.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.264 -0.263 0.001 0.265 0.263 -0.002 -0.001 0.000 -0.003

0.000 0.000 0.000 0.000 0.000 0.000 -0.263 -0.264 -0.001 0.263 1.009 -0.001 0.000 -0.746 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.001 0.001 0.002 -0.002 -0.001 0.012 0.003 0.000 0.003

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.001 0.000 0.003 0.001 0.000 0.003

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.746 0.000 0.000 0.746 0.000

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.003 0.000 0.003 0.003 0.000 0.007

NOKTA DEPLASMANLARININ BULUNMASI F=K.u

==>

0.99138 8918714 0.00022 577 7868892 882411 0.00134 0.00022 1315792 7868892 67302 882411 0.20107 7560092 0.00011 316 3934785 597934 0.75992 3601303 0.00089 837 8400880 877256 0.00067 0.23156 0690784 2057236 080681 505 0.09291 0.00019 1383159 4499552 1104 267512 0.52735 8035481 0.00022 76 7868892 882394 0.00022 6.57754 7868892 8832925 882398 74E-08

K-1 . F = u

0.20107 0.75992 7560092 3601303 0.23156 316 837 2057236 505 0.00067 0.00011 0.00089 0690784 3934785 8400880 080682 597934 877256 0.13655 0.18638 6204235 9576661 0.01478 166 33 6564177 7737 0.18638 0.76304 1.81554 9576661 1033132 6950285 33 226 99E-15

0.52735 0.00022 0.17115 8035481 7868892 1467387 76 882398 08

0

0.17726 9359355 644

0.00022 7868892 882393 0.17115 1467387 081

0.40000 0011596 692 0.26666 6680574 417 0

0.01478 6564177 7737 0.04645 5829867 4987 0.17115 1467387 081

0.23156 0.00067 0.01478 . 2057236 0690784 6564177 508 080682 7746

0.00107 3105285 64026 0.01137 0040380 8729 1.37390 0992973 63E-15 0.17959 1284343 426 1.71737 6241217 04E-16

0.00011 3934785 597934

0.09291 1383159 1103 0.00019 4499552 267512 0.04645 5829867 4987 0.09244 1819673 1052 1.81791 0.23367 0292977 6117817 2.36513 61E-15 051 8391373 93E-16 0.12601 0.09244 2.27528 0204045 1819673 6904623 321 1052 62E-16 0.75992 0.23156 3601303 2057236 0.09291 84 508 1383159 1108 0.00089 0.00067 0.00019 8400880 0690784 4499552 877261 080682 267511

0.17115 0.04955 0.18638 0.01478 1467387 0.00011 8863524 9576661 6564177 08 3934785 7718 33 7746 597933

1.Çubuk M, N, V lerin bulunması

6.57754 8832925 0.00011 79E-08 3934785 597933 0.00011 0.04955 3934785 8863524 597934 7718

0.75992 0.00089 0.18638 3601303 8400880 9576661 84 877261 33

0.09291 1383159 1108 0.99138 8918714 584

0.00019 4499552 0.04645 267511 5829867 4988 0.00022 0.20107 7868892 7560092 882416 317

0.00022 0.00134 0.00011 7868892 1315792 3934785 882416 67302 597935

0.20107 0.00011 0.13655 0.04645 7560092 3934785 6204235 5829867 317 597935 166 4988

= 0.80000 0023193 384 0

0

0.40000 0011596 692 0.26666 6680574 417

0.17726 9359355 647 0.00107 3105285 64026 0.01137 0040380 8723

(TTa . Ka . ua) + Poa = N, V, M 0 1 0 0

-1 0 0 0

0 0 1 0

0 0 0 0

0 0 0 -1

0 0 0 0

0

0

0

1

0

0

0

0

0

0

0

1

.

Ka

.

0 0 0 0.177 26935 93556 44 0.001 07310 52856 4026 0.011 37004 03808 729

+

Poa

=

N12 = V12 = M12 = N21 =

0.800 0.258 0.497 -0.800

ton ton ton/m ton

V21 =

-0.258

ton

M21 = 0.536

ton/m

N23 =

0.748

ton

V23 =

-0.383

ton

2.Çubuk M, N, V lerin bulunması (TTb . Kb . ub) + Pob = N, V, M 0.707 10676 90849 3 0.707 10676 90849 3 0

0.707 10676 90849 3 0.707 10676 90849 3 0

0

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0.707 10676 90849 3

0

0

0

0

0

0

0

0.707 10676 90849 3 0

0.707 10676 90849 3 0.707 10676 90849 3 0

.

Ka

.

0

1

0.177 26935 93556 44 0.001 07310 52856 4026 0.011 37004 03808 729 1.373 90099 29736 3E-15

M23 = -0.536

ton/m

N32 =

-0.183

ton

0.179 59128 43434 26 1.717 37624 12170 4E-16

V32 =

-0.183

ton

M32 = -0.031

ton/m

1.373 90099 29736 3E-15 0.179 59128 43434 26

N34 =

0.183

ton

V34 =

-0.183

ton

+

Poa

=

3.Çubuk M, N, V lerin bulunması (TTc . Kc . uc) + Poc = N, V, M 0.707 10676 90849 3 0.707 10676 90849 3 0

0.707 10676 90849 3 0.707 10676 90849 3

0

0

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0.707 10676 90849 3 0.707 10676

0

0

0.707 10676 90849 3 0.707

0

.

Ka

.

1.717 37624 12170 4E-16 0.177 26935 93556 47 0.001 07310

+

Poa

=

M34 = 0.031

ton/m

N43 =

-0.748

ton

V43 =

-0.383

ton

0

0

0

10676 90849 3 0

90849 3 0

52856 4026 1

0.011 37004 03808 723

M43 = 0.536

ton/m

0.177 26935 93556 47 0.001 07310 52856 4026 0.011 37004 03808 723 0 0 0

N45 =

0.800

ton

V45 =

-0.258

ton

4.Çubuk M, N, V lerin bulunması (TTd . Kd . ud) + Pod = N, V, M 0

1

0

0

0

0

-1

0

0

0

0

0

0

0

1

0

0

0

0 0 0

0 0 0

0 0 0

0 -1 0

1 0 0

0 0 1

.

Ka

.

+

Poa

=

M45 = -0.536

ton/m

N54 = -0.800 V54 = 0.258 M54 = -0.497

ton ton ton/m

Ek.9. Örnek4 Köşe Kaynak Raporu SİSTEM BİLGİERİ

1a= 5.0 mm, 1b= 320.0 mm. 2a= 150.0 mm, 2b= 10.7 mm. 3a= 150.0 mm, 3b= 10.7 mm. 4a= 120.0 mm, 4b= 10.0 mm. c= 392.0 mm, d= 5.0 mm, e= 100.0 mm. f= 150.0 mm, g= 15.0 mm, Alfa= 10.0 derece. M= 5.0 tonm, N= 3.0 ton, Q= 4.0 ton.

a-a Kesitine Ait Hesaplamalar

1 2 3 Toplam 4 Toplam

A(cm2) 32.00 16.05 16.05 64.10 12.00 76.10

y(cm) 0.00 19.07 -19.07 0.00 20.10 0.00

A x y(cm3) 0.00 305.99 -305.99 0.00 241.20 241.20

A x y2(cm4) 0.00 5833.76 5833.76 11667.52 4848.12 16515.64

Birleşim Kesitine İndirgenmiş Tesirler N1=N.sin(alfa) + Q.cos(alfa) = 3. sin(10) + 4. cos(10) = 4.460ton Q1=N.cos(alfa) - Q.sin(alfa) = 3. cos(10) - 4. sin(10) = 2.260ton

J(cm4) 2730.67 0.00 0.00 2730.67 0.00 2730.67

N'=N1.sin(45+alfa/2) + Q1.cos(45+alfa/2) = 4.460. sin(50) + 2.260. cos(50) = 4.869ton Q'=N1.cos(45+alfa/2) - Q1.sin(45+alfa/2) = 4.460. cos(50) - 2.260. sin(50) = 1.136ton Çekme Lamasız Kesitte : Jx = 11668 + 2731 = 14398 cm4 2 Dikişinde Dış Kenarda Hesap GerilmeK' = ( 500 / 14398 ) * ( 39.2 /2) - ( 4.9 / 64.1 ) = 0.6ton/m2 GerilmeK = GerilmeK'/cos(45-alfa/2) = 0.6 / cos(45-10/2) = 0.8 0.8 < 1.1 olduğundan Gerilme Tahkiki sağlanmıştır Çekme Lamalı Kesitte : yg = Top(A*y)/A = 241.2 / 76.1 = 3.17cm Jx = 16516 + 2731 = 19246cm4 Jg = Jx - A.yg^2 = 19246 - 76 * (3.17)^2 = 18482cm4 M' = M + N'.yg = 5 + 4.9 * 0.0317 = 5.15tonm LAMALI KESİTTE 2 Dikişinde Dış Kenarda Hesap GerilmeK' = (M'/Jg) * 16.43 - (N'/A) = ( 515 / 18482 ) * 16.43 - ( 4.9 / 76.10 ) = 0.4 ton/cm2 GerilmeK = 0.39 / Sin(45 + 5 ) = 0.51 ton/cm2 0.5 < 1.1olduğundan Dikiş2 Kaynak Gerilme Tahkiki sağlanmıştır.(KENAR) LAMALI KESİTTE 2 Dikişinde Ortada Hesap GerilmeK' = (M'/Jg) * 15.90 - (N'/A) = ( 515 / 18482 ) * 15.90 - ( 4.9 / 76.10 ) = 0.4 ton/cm2 GerilmeK = 0.38 / Sin(45 + 5 ) = 0.50 ton/cm2 0.5 < 1.1olduğundan Dikiş2 Kaynak Gerilme Tahkiki sağlanmıştır.(ORTA) - ÇEKME Kuvveti :Z2 = Sigma . A2 = 0.5 * 16.1 = 8.3 ton LAMALI KESİTTE 3 Dikişinde Dış Kenarda Hesap GerilmeK' = (-M'/Jg) * 22.77 - (N'/A) = ( 515 / 18482 ) * 22.77 - ( 4.9 / 76.10 ) = -0.7 ton/cm2 GerilmeK = -0.70 / Sin(45 + 5 ) = -0.91 ton/cm2 -0.9 < 1.4 olduğundan Dikiş3 Kaynak Gerilme Tahkiki sağlanmıştır.(KENAR) LAMALI KESİTTE 3 Dikişinde Ortada Hesap GerilmeK' = (M'/Jg) * 22.23 - (N'/A) = ( 515 / 18482 ) * 22.23 - ( 4.9 / 76.10 ) = -0.7 ton/cm2 GerilmeK = -0.68 / Sin(45 + 5 ) = -0.89 ton/cm2 -0.9 < 1.4 olduğundan Dikiş3 Kaynak Gerilme Tahkiki sağlanmıştır.(ORTA)

- BASINÇ Kuvveti :D3 = Sigma . A3 = -0.9 * 16.1 = -14.6 ton 4 Çekme Lamasında Hesap GerilmeK' = (M'/Jg) * 17.43 - (N'/A) = ( 515 / 18482 ) * 17.43 - ( 4.9 / 76.10 ) = 0.4 ton/cm2 GerilmeK = 0.42 / Sin(45 + 5 ) = 0.55 ton/cm2 0.6 < 1.4 olduğundan Çekme Lamasındaki Kaynak Gerilme Tahkiki sağlanmıştır.(KENAR) 4 Çekme Laması Ortada Hesap GerilmeK' = (M'/Jg) * 16.93 - (N'/A) = ( 515 / 18482 ) * 16.93 - ( 4.9 / 76.10 ) = 0.4 ton/cm2 GerilmeK = 0.41 / Sin(45 + 5 ) = 0.53 ton/cm2 0.5 < 1.4 olduğundan Çekme Lamasındaki Kaynak Gerilme Tahkiki sağlanmıştır.(ORTA) - ÇEKME Kuvveti :D4 = Sigma . A4 = 0.5 * 12.0 = 6.4 ton Çekme Lamasını kolon veya kirişe birleştiren kaynak dikişlerinde Hesap Ak = 2 * 0.5 * 10 = 10.0 cm2 To4 = Z4 / Ak = 6.4 / 10 = 0.6 toncm2 0.6 < 1.1 olduğundan Çekme Lamasını kolona ya da kirişe bağlayan Kaynak Gerilme Tahkiki sağlanmıştır. Enine Levhada Hesap Çekme Başlığındaki Toplam Çekme Kuvveti Z = Z2 + Z4 = 8.3 + 6.4 = 14.6541541214625 ton. ÇEKME LEVHASI R1 = 2 * Z * Math.Sin(radyan45 - (Alfa / 2)) R1 = 2 * 14.7 * Sin( 45 - 10/ 2) = 19ton. Sigma = R1 / Ad Sigma = 19 / 22.5 = 0.8ton/cm2 0.8 < 1.4 olduğundan Enine Levha Tahkiki sağlanmıştır. 1 Dikişlerinde Hesap Qg,kiriş = Q' - (Z-D)sin(45-alfa/2) = 1.1 - ( 14.7-14.6)sin(45 - 10/2) = 1.1 ton. Qg,kolon = Q' + (Z-D)sin(45-alfa/2) = 1.1 + ( 14.7-14.6)sin(45 - 10/2) = 1.1 ton. Tokolon = Qgkolon / A1 = 1.1 / 32 = 0.0 ton/cm2 0.0 < 1.1 olduğundan Dikiş1 Kaynak Tahkiki sağlanmıştır. 1 Dikişlerinde Alt Kenarda Hesap

GerilmeK = (M'/Jg) * 19.17 - (N'/A) = ( 515 / 18482 ) * 19.17 - ( 4.9 / 76.10 ) = -0.6 ton/cm2 -0.6 < 1.1 olduğundan Dikiş1 Kaynak Tahkiki sağlanmıştır. 1 Dikişlerinde Mukayese Gerilme Hesabı GerilmeV = (SigmaK^2 + ToKolon^2)^0.5 = = (-0.6^2 + 0.0^2)^0.5 = 0.6ton/cm2 0.6 < 1.1 olduğundan Dikiş1 Kaynak Tahkiki sağlanmıştır.

Ek.10. Örnek2 Raporu SİSTEM BİLGİERİ

X1= 4.000 m, X2= 5.000 m. Y1= 4.000 m, Y2= 5.000 m, Y3= 4.000 m, Y4= 5.000 m. Fia= -90 derece, Fib= -51 derece. Fic= 45 derece, Fid= 90 derece. q1= -0.100 ton, q2= 0.000 ton Aa= 0.0013 m2 ve Ia= 0.000 m4 Ab= 0.0028 m2 ve Ib= 0.000 m4 Ac= 0.0028 m2 ve Ic= 0.000 m4 Ad= 0.0013 m2 ve Id= 0.000 m4 E=2000000 ton/m2 ELEMAN RİJİTLİK MATRİSLERİ Ka Matrisi 1 0 2 -1 0 2

0 661 0 0 -661 0

2 0 6 -2 0 3

-1 0 -2 1 0 -2

0 -661 0 0 661 0

2 0 3 -2 0 6

-433 543

4 4

-348 433

433 -543

4 4

Kb Matrisi 348 -433

4 -348 433 4

4 433 -543 4

24 -4 -4 12

-4 348 -433 -4

-4 -433 543 -4

12 -4 -4 24

402 403 3 -402 -403 3

-3 3 22 3 -3 11

-403 -402 3 403 402 3

-402 -403 -3 402 403 -3

-3 3 11 3 -3 22

0 661 0 0 -661 0

-2 0 6 2 0 3

-1 0 2 1 0 2

0 -661 0 0 661 0

-2 0 3 2 0 6

Kc Matrisi 403 402 -3 -403 -402 -3

Kd Matrisi 1 0 -2 -1 0 -2

TRANSFORMASYON MATRİSLERİ Ta Matrisi 0.000 -1.000 0.000 0.000 0.000 0.000

1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 -1.000 0.000

0.000 0.000 0.000 1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

0.781 0.625 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.625 -0.781 0.000

0.000 0.000 0.000 0.781 0.625 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-0.707 0.707 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.707 0.707 0.000

0.000 0.000 0.000 -0.707 0.707 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 1.000 0.000

0.000 0.000 0.000 -1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

Tb Matrisi 0.625 -0.781 0.000 0.000 0.000 0.000

Kc Matrisi 0.707 0.707 0.000 0.000 0.000 0.000

Td Matrisi 0.000 1.000 0.000 0.000 0.000 0.000

YÜK (P) MATRİSLERİ Pb Matrisi Pb

-0.156 0.125 0.133 -0.156 0.125

T*Pb

0.000 0.200 0.133 0.000 0.200

-0.133

-0.133

0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 0.000

Pc Matrisi Pc

T*Pc

SİSTEM RİJİTLİK MATRİSLERİ K . 10E-3 Matrisi 0.001 0.000 0.002 -0.001 0.000 0.002 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.661 0.000 0.000 -0.661 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.002 0.000 0.006 -0.002 0.000 0.003 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

-0.001 0.000 -0.002 0.349 -0.433 0.002 -0.348 0.433 0.004 0.000 0.000 0.000 0.000 0.000 0.000

0.000 -0.661 0.000 -0.433 1.204 0.004 0.433 -0.543 0.004 0.000 0.000 0.000 0.000 0.000 0.000

0.002 0.000 0.003 0.002 0.004 0.031 -0.004 -0.004 0.012 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 0.000 -0.348 0.433 -0.004 0.752 -0.031 -0.008 -0.403 -0.402 -0.003 0.000 0.000 0.000

0.000 0.000 0.000 0.433 -0.543 -0.004 -0.031 0.947 0.000 -0.402 -0.403 0.003 0.000 0.000 0.000

0.000 0.000 0.000 0.004 0.004 0.012 -0.008 0.000 0.046 0.003 -0.003 0.011 0.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.403 -0.402 0.003 0.405 0.402 0.001 -0.001 0.000 -0.002

0.000 0.000 0.000 0.000 0.000 0.000 -0.402 -0.403 -0.003 0.402 1.064 -0.003 0.000 -0.661 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.003 0.003 0.011 0.001 -0.003 0.028 0.002 0.000 0.003

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.001 0.000 0.002 0.001 0.000 0.002

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.661 0.000 0.000 0.661 0.000

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.002 0.000 0.003 0.002 0.000 0.006

NOKTA DEPLASMANLARININ BULUNMASI F=K.u

==>

0.66544 6472229 0.00030 629 9907134 845959 0.00151 0.00030 3922386 9907134 92461 845858 0.02558 0261606 0.00015 4774 4151893 378996 0.50332 6100718 0.00114 309 8811438 41962 0.00084 0.12999 2739562 5354766 235092 186 0.03115 0.00017 1267366 5190580 3402 720779 0.37243 4100256 0.00030 493 6223974 399461 0.00030 8.22949 9907106 8680237 208152 05E-08 0.07379 8990630 0.00015 3036 3896839 254466

K-1 . F = u

0.02558 0.50332 0261606 6100718 0.12999 479 315 5354766 181 0.00084 0.00015 0.00114 2739562 4151893 8811438 235055 379002 41967 0.04672 0.05597 0.02411 5635500 3266518 8536049 634 3759 2091

0.03115 1267366 3402 0.00017 5190580 720776 0.01228 5389309 6073 0.05597 0.53271 0.02108 3266518 2970974 8234737 0.02515 3768 188 7685 9403383 2508 0.02411 0.02108 0.12252 0.00449 8536049 8234737 6362907 5274559 2086 7631 099 18383 0.01228 5389309 6073 0.07971 0839598 418

0.02515 9403383 251 0.55104 8017255 94

0.00015 4151879 134203 0.00591 8841574 05074

0.00114 8811332 26078 0.05165 2325508 7678

0.37243 0.00030 0.07379 4100256 9907106 8990630 505 208155 3033

3.49075 5684509 85E-09

0.00030 6223974 39953 0.07971 0839598 4175

8.22949 8680240 0.00015 18E-08 3896839 254461 0.00015 0.00591 4151879 8841574 134205 05056

0.20000 0012450 376

0.01849 6845665 1088 0.00047 4137572 539768

0.13333 3340287 209

0.01266 1014465 9359

0.55104 0.00114 0.05165 8017255 8811332 2325508 945 26079 7669

3.49075 5684509 85E-09

0.01480 5578409 0859

0.20000 = 0012450 376

0.02729 0256651 4846

0.13333 3340287 209 0

0.00456 6835332 9242 0.04179 1748240 1884

0

0.00013 1464325 779398 0.00101 3834442 05946

0.14212 0.00067 . 9242799 1265057 0.01805 281 654015 1903756 4647 0.00449 0.02844 0.00017 5274559 5998459 0.02099 5190564 0.01378 18359 8601 2701293 531857 6098392 0631 0074 0.14212 0.69293 0.00030 0.03341 9242799 0.02099 5064052 6223946 2003029 287 2701293 799 102056 4343 0626 0.00067 0.00017 0.00030 0.00151 0.00015 1265057 5190564 6223946 3922247 3896825 654008 531857 102038 03443 033236 0.03341 0.00015 0.04768 0.01805 0.01378 2003029 3896825 5630672 1903756 6098392 4357 033236 6141 4642 0074

1.Çubuk M, N, V lerin bulunması

0

(TTa . Ka . ua) + Poa = N, V, M 0 1 0 0

-1 0 0 0

0 0 1 0

0 0 0 0

0 0 0 -1

0 0 0 0

0

0

0

1

0

0

0

0

0

0

0

1

.

Ka

.

0 0 0 0.018 49684 56651 088 0.000 47413 75725 39768 0.012 66101 44659 359

+

Poa

=

N12 = V12 = M12 = N21 =

-0.313 -0.052 -0.084 0.313

ton ton ton/m ton

V21 =

0.052

ton

M21 = -0.125

ton/m

2.Çubuk M, N, V lerin bulunması (TTb . Kb . ub) + Pob = N, V, M 0.624 69506 26373 29

0

0

0

0

0.018 49684 56651 088

N23 =

-0.277

ton

0.780 86882 82966 61

0.780 86882 82966 61 0.624 69506 26373 29

0

0

0

0

V23 =

0.155

ton

0

0

1

0

0

0

0

0

0

0.624 69506 26373 29

0

0

0

0

0.780 86882 82966 61

0.780 86882 82966 61 0.624 69506 26373 29

0

0

0

0

0

1

0.000 47413 75725 39768 0.012 66101 44659 359 0.014 80557 84090 859 0.027 29025 66514 846 0.004 56683 53329 242

.

Ka

.

0

+

Poa

=

M23 = 0.125

ton/m

N32 =

-0.035

ton

V32 =

0.095

ton

M32 = 0.067

ton/m

N34 =

-0.098

ton

V34 =

-0.024

ton

3.Çubuk M, N, V lerin bulunması (TTc . Kc . uc) + Poc = N, V, M 0.707 10676 90849 3

0.707 10676 90849 3

0

0

0

0

0.707 10676 90849 3 0

0.707 10676 90849 3

0

0

0

0

0

1

0

0

0

0

0

0

0.707 10676 90849

0.707 10676 90849

0

.

Ka

.

0.014 80557 84090 859 0.027 29025 66514 846 0.004 56683 53329 242 0.041 79174

+

Poa

=

M34 = -0.067

ton/m

N43 =

ton

0.098

0

0

0

0

0

0

3

3

0.707 10676 90849 3 0

0.707 10676 90849 3

0

0

1

82401 884 0.000 13146 43257 79398 0.001 01383 44420 5946

V43 =

0.024

ton

M43 = -0.106

ton/m

N45 =

-0.087

ton

V45 =

0.052

ton

4.Çubuk M, N, V lerin bulunması (TTd . Kd . ud) + Pod = N, V, M 0

1

0

0

0

0

-1

0

0

0

0

0

0

0

1

0

0

0

0 0 0

0 0 0

0 0 0

0 -1 0

1 0 0

0 0 1

.

Ka

.

0.041 79174 82401 884 0.000 13146 43257 79398 0.001 01383 44420 5946 0 0 0

+

Poa

=

M45 = 0.106

ton/m

N54 = 0.087 V54 = -0.052 M54 = 0.103

ton ton ton/m

Ek.11. Örnek3 Raporları SİSTEM BİLGİERİ

X1= 3.000 m, X2= 3.000 m. Y1= 6.000 m, Y2= 2.000 m, Y3= 6.000 m, Y4= 2.000 m. Fia= -90 derece, Fib= -34 derece. Fic= 34 derece, Fid= 90 derece. q1= 0.744 ton, q2= 0.744 ton Aa= 0.0023 m2 ve Ia= 0.000 m4 Ab= 0.0023 m2 ve Ib= 0.000 m4 Ac= 0.0023 m2 ve Ic= 0.000 m4 Ad= 0.0023 m2 ve Id= 0.000 m4 E=2100000 ton/m2 ELEMAN RİJİTLİK MATRİSLERİ Ka Matrisi 2 0 6 -2 0 6

0 821 0 0 -821 0

6 0 22 -6 0 11

-2 0 -6 2 0 -6

0 -821 0 0 821 0

6 0 11 -6 0 22

-627 427

9 13

-949 627

627 -427

9 13

Kb Matrisi 949 -627

9 -949 627 9

13 627 -427 13

37 -9 -13 19

-9 949 -627 -9

-13 -627 427 -13

19 -9 -13 37

627 427 13 -627 -427 13

-9 13 37 9 -13 19

-949 -627 9 949 627 9

-627 -427 -13 627 427 -13

-9 13 19 9 -13 37

0 821 0 0 -821 0

-6 0 22 6 0 11

-2 0 6 2 0 6

0 -821 0 0 821 0

-6 0 11 6 0 22

Kc Matrisi 949 627 -9 -949 -627 -9

Kd Matrisi 2 0 -6 -2 0 -6

TRANSFORMASYON MATRİSLERİ Ta Matrisi 0.000 -1.000 0.000 0.000 0.000 0.000

1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 -1.000 0.000

0.000 0.000 0.000 1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

0.555 0.832 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.832 -0.555 0.000

0.000 0.000 0.000 0.555 0.832 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-0.555 0.832 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.832 0.555 0.000

0.000 0.000 0.000 -0.555 0.832 0.000

0.000 0.000 0.000 0.000 0.000 1.000

-1.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 1.000 0.000 0.000 0.000

0.000 0.000 0.000 0.000 1.000 0.000

0.000 0.000 0.000 -1.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 1.000

Tb Matrisi 0.832 -0.555 0.000 0.000 0.000 0.000

Kc Matrisi 0.832 0.555 0.000 0.000 0.000 0.000

Td Matrisi 0.000 1.000 0.000 0.000 0.000 0.000

YÜK (P) MATRİSLERİ Pb Matrisi Pb

0.619 -0.929 -0.558 0.619 -0.929

T*Pb

0.000 -1.116 -0.558 0.000 -1.116

0.558

0.558

-0.619 -0.929 -0.558 -0.619 -0.929 0.558

0.000 -1.116 -0.558 0.000 -1.116 0.558

Pc Matrisi Pc

T*Pc

SİSTEM RİJİTLİK MATRİSLERİ K . 10E-3 Matrisi 0.002 0.000 0.006 -0.002 0.000 0.006 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.821 0.000 0.000 -0.821 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

0.006 0.000 0.022 -0.006 0.000 0.011 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000

-0.002 0.000 -0.006 0.951 -0.627 0.003 -0.949 0.627 0.009 0.000 0.000 0.000 0.000 0.000 0.000

0.000 -0.821 0.000 -0.627 1.248 0.013 0.627 -0.427 0.013 0.000 0.000 0.000 0.000 0.000 0.000

0.006 0.000 0.011 0.003 0.013 0.059 -0.009 -0.013 0.019 0.000 0.000 0.000 0.000 0.000 0.000

0.000 0.000 0.000 -0.949 0.627 -0.009 1.898 0.000 -0.017 -0.949 -0.627 -0.009 0.000 0.000 0.000

0.000 0.000 0.000 0.627 -0.427 -0.013 0.000 0.853 0.000 -0.627 -0.427 0.013 0.000 0.000 0.000

0.000 0.000 0.000 0.009 0.013 0.019 -0.017 0.000 0.074 0.009 -0.013 0.019 0.000 0.000 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.949 -0.627 0.009 0.951 0.627 0.003 -0.002 0.000 -0.006

0.000 0.000 0.000 0.000 0.000 0.000 -0.627 -0.427 -0.013 0.627 1.248 -0.013 0.000 -0.821 0.000

0.000 0.000 0.000 0.000 0.000 0.000 -0.009 0.013 0.019 0.003 -0.013 0.059 0.006 0.000 0.011

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.002 0.000 0.006 0.002 0.000 0.006

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.821 0.000 0.000 0.821 0.000

0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 -0.006 0.000 0.011 0.006 0.000 0.022

NOKTA DEPLASMANLARININ BULUNMASI F=K.u

==>

0.42835 2927311 0.00050 085 6736888 341488 0.00121 0.00050 6977893 6736888 83147 341488 0.03637 1310264 0.00016 8942 8909880 599598 0.40528 1310163 0.00091 787 2116057 804321 0.00060 0.03497 8679787 1572198 138914 3863 0.02226 0.00021 0172038 9658822 9066 831293 0.38112 8029180 0.00050 05 6736888 341486 0.00050 3.81680 6736888 4463561 341433 61E-07

K-1 . F = u

0.03637 0.40528 1310264 1310163 0.03497 8942 787 1572198 3863 0.00060 0.00016 0.00091 8679787 8909880 2116057 138914 599598 80432 0.02676 0.04530 0.01321 3269107 1051370 3653457 7985 3987 1063

0.38112 0.00050 0.05387 8029180 6736888 0243019 05 341436 8349

0.04530 1051370 3987

0.40528 0.00091 0.04530 1310163 2116057 1051370 785 804264 3998

0.01321 3653457 1063 0.00741 9951236 47764 0.05387 0243019 8335 0.00016 8909880 599591

0.02226 0172038 9066 0.00021 9658822 831293 0.00741 9951236 47764 0.40662 0567634 2.20077 0.02202 722 2476846 5733802 36E-15 3404 0.05358 1.19116 2.18742 3777849 9933839 1151231 5529 11E-16 82E-15 1.22156 0.01732 0.02202 5337279 9499193 5733802 81E-16 0956 3403 0.40528 0.03497 1310163 1572198 0.02226 785 3819 0172038 9064 0.00091 0.00060 0.00021 2116057 8679787 9658822 804263 138908 831296

0.05387 0.00331 0.04530 0243019 0.00016 6818490 1051370 8348 8909880 19376 3998 599599

0.01321 3653457 1068

1.Çubuk M, N, V lerin bulunması

1.91763 7604265 11E-09 1.11599 9978011 68 0.55800 0028133 392 0

0.08782 0952487 8672

0.03497 0.00060 . 1572198 8679787 0.01321 3819 138904 3653457 1068 0.00021 0.02226 9658822 0.00741 0172038 831296 9951236 9064 47771 0.42835 0.00050 0.03637 2927311 6736888 1310264 079 341425 895

= 2.23199 9956023 37 0

0.00050 0.00121 0.00016 6736888 6977893 8909880 341427 83147 599593

1.11599 9978011 68 0.55800 0028133 392

0.13570 4000929 389 3.11382 8639378 37E-16 0.08782 0952487 8561 0.00271 7146516 25272 0.04257 5994005 8656

0.00050 6736888 341486 0.05387 0243019 8334

3.81680 4463561 0.00016 15E-07 8909880 599599 0.00016 0.00331 8909880 6818490 59959 19376

0.03637 0.00016 0.02676 0.00741 1310264 8909880 3269107 9951236 895 599594 7988 4777

1.91763 7604265 11E-09

0.00271 7146516 25273 0.04257 5994005 8643 5.58234 0145693 37E-15

(TTa . Ka . ua) + Poa = N, V, M 0 1 0 0

-1 0 0 0

0 0 1 0

0 0 0 0

0 0 0 -1

0 0 0 0

0

0

0

1

0

0

0

0

0

0

0

1

.

Ka

.

0 0 0 0.087 82095 24878 672 0.002 71714 65162 5273 0.042 57599 40058 643

+

Poa

=

N12 = V12 = M12 = N21 =

2.232 0.400 0.963 -2.232

ton ton ton/m ton

V21 =

-0.400

ton

M21 = 1.437

ton/m

N23 =

1.571

ton

V23 =

-1.635

ton

2.Çubuk M, N, V lerin bulunması (TTb . Kb . ub) + Pob = N, V, M 0.832 05026 38816 83 0.554 70019 57893 37 0

0.554 70019 57893 37 0.832 05026 38816 83 0

0

0

0

0

0

0

0

0

1

0

0

0

0

0

0

0.832 05026 38816 83

0

0

0

0

0

0

0

0.554 70019 57893 37 0

0.554 70019 57893 37 0.832 05026 38816 83 0

.

Ka

.

0

1

0.087 82095 24878 672 0.002 71714 65162 5273 0.042 57599 40058 643 5.582 34014 56933 7E-15 0.135 70400 09293 89 3.113 82863 93783 7E-16

+

Poa

=

M23 = -1.437

ton/m

N32 =

-0.333

ton

V32 =

-0.222

ton

M32 = -1.110

ton/m

N34 =

0.333

ton

V34 =

-0.222

ton

3.Çubuk M, N, V lerin bulunması (TTc . Kc . uc) + Poc = N, V, M 0.832 05026 38816 83

0.554 70019 57893 37

0

0

0

0

0.554 70019 57893 37 0

0.832 05026 38816 83

0

0

0

0

0

1

0

0

0

0

0

0

0

0

0.554 70019 57893 37 0.832 05026 38816

0

0

0.832 05026 38816 83 0.554 70019

0

5.582 34014 56933 7E-15 0.135 70400 09293 89 .

Ka

.

3.113 82863 93783 7E-16 0.087 82095 24878 561 0.002 71714 65162

+

Poa

=

M34 = 1.110

ton/m

N43 =

-1.571

ton

V43 =

-1.635

ton

0

0

0

57893 37 0

83 0

5272 1

0.042 57599 40058 656

M43 = 1.437

ton/m

0.087 82095 24878 561 0.002 71714 65162 5272 0.042 57599 40058 656 0 0 0

N45 =

2.232

ton

V45 =

-0.400

ton

4.Çubuk M, N, V lerin bulunması (TTd . Kd . ud) + Pod = N, V, M 0

1

0

0

0

0

-1

0

0

0

0

0

0

0

1

0

0

0

0 0 0

0 0 0

0 0 0

0 -1 0

1 0 0

0 0 1

.

Ka

.

+

Poa

=

M45 = -1.437

ton/m

N54 = -2.232 V54 = 0.400 M54 = -0.963

ton ton ton/m

Gerilme Kontrolü

Kesit

A

a Kesiti IPEA20 0 seçilmiş tir. b Kesiti IPEA20 0 seçilmiş tir. c Kesiti IPEA20 0 seçilmiş tir. d Kesiti IPEA20 0 seçilmiş tir.

W

Mmax

N'

Lk

i

w

Gerilme Sonuc

8.23

Narinli k 146

0.00234 0.00016 0.719 7 16

2.232

3.00

1.08

5029.65 TAMA 5 M

Basınç

0.00234 0.00016 1.437 7 16

1.571

1.80

8.23

22

1.00

8674.50 TAMA 8 M

Basınç

0.00234 0.00016 1.437 7 16

1.571

1.80

8.23

22

1.00

8674.50 TAMA 8 M

Basınç

0.00234 0.00016 0.719 7 16

2.232

3.00

8.23

146

1.08

5029.65 TAMA 5 M

Basınç

Ek.12. TABLO.XLS Makrosu ; File C:\10ur\cerceve\SAP\cerceveSAP2000.$2k saved 11/22/07 15:53:08 in Ton-m SYSTEM DOF=UX,UZ,RY LENGTH=m FORCE=Ton PAGE=SECTIONS T 1 X=0 2 X=0 3 X=4 4 X=9 5 X=9

Y=0 Y=0 Y=0 Y=0 Y=0

Z=0 Z=4 Z=9 Z=4 Z=0

RESTRAINT ADD=1 DOF=U1,U2,U3,R1,R2,R3 ADD=5 DOF=U1,U2,U3,R1,R2,R3 PATTERN NAME=DEFAULT MATERIAL NAME=STEEL IDES=S M=.798142 W=7.833414 T=0 E=2.038902E+07 U=.3 A=.0000117 FY=25310.51 NAME=CONC IDES=C M=.2448012 W=2.402616 T=0 E=2531051 U=.2 A=.0000099 NAME=OTHER IDES=N M=.2448012 W=2.402616 T=0 E=2531051 U=.2 A=.0000099 NAME=CERCEVE IDES=S T=0 E=2000000 U=.3 A=0 FY=25310.51 FRAME SECTION NAME=FSEC1 MAT=STEEL SH=R T=.5,.3 A=.15 J=2.817371E-03 I=.003125,.001125 AS=.125,.125 NAME=CERCEVEA MAT=CERCEVE A=.001321 J=0 I=3.178E-06,3.178E-06 AS=0,0 S=1,1 Z=1,1 R=1,1 T=.4572,.254 NAME=CERCEVEB MAT=CERCEVE A=.002848 J=0 I=1.943E-05,1.943E-05 AS=0,0 S=1,1 Z=1,1 R=1,1 T=.4572,.254 NAME=CERCEVEC MAT=CERCEVE A=.002848 J=0 I=1.943E-05,1.943E-05 AS=0,0 S=1,1 Z=1,1 R=1,1 T=.4572,.254 NAME=CERCEVED MAT=CERCEVE A=.001321 J=0 I=3.178E-06,3.178E-06 AS=0,0 S=1,1 Z=1,1 R=1,1 T=.4572,.254 FRAME 1 J=1,2 2 J=2,3 3 J=3,4 4 J=4,5

SEC=CERCEVEA SEC=CERCEVEB SEC=CERCEVEC SEC=CERCEVED

NSEG=2 NSEG=2 NSEG=2 NSEG=2

ANG=0 ANG=0 ANG=0 ANG=0

LOAD NAME=LOAD1 SW=1 CSYS=0 TYPE=DISTRIBUTED SPAN ADD=2 RD=0,1 UZP=.1,.1 OUTPUT ; No Output Requested END ; The following data is used for graphics, design and pushover analysis.

; If changes are made to the analysis data above, then the following data ; should be checked for consistency. SAP2000 V7.42 SUPPLEMENTAL DATA GRID GLOBAL X "1" 0 GRID GLOBAL X "2" 4 GRID GLOBAL X "3" 9 GRID GLOBAL Y "4" 0 GRID GLOBAL Z "5" 0 GRID GLOBAL Z "6" 4 GRID GLOBAL Z "7" 9 MATERIAL STEEL FY 25310.51 MATERIAL CERCEVE FY 25310.51 MATERIAL CONC FYREBAR 42184.18 FYSHEAR 28122.79 FC 2812.279 FCSHEAR 2812.279 FRAMESECTION CERCEVEA J 1 MFJ 0 AS2 1 MFAS2 0 AS3 1 MFAS3 0 FRAMESECTION CERCEVEB J 1 MFJ 0 AS2 1 MFAS2 0 AS3 1 MFAS3 0 FRAMESECTION CERCEVEC J 1 MFJ 0 AS2 1 MFAS2 0 AS3 1 MFAS3 0 FRAMESECTION CERCEVED J 1 MFJ 0 AS2 1 MFAS2 0 AS3 1 MFAS3 0 STATICLOAD LOAD1 TYPE DEAD END SUPPLEMENTAL DATA