2018인하대 (A+) 철근콘크리트 중간

목차

① 자료 입력화면
② 콘크리트 단면, 보강철근, 전단의 설계과정에 대한 member function 또는 sub program
③ 극한강도 해석을 위한 member function 또는 sub program
④ 설계 및 해석 결과를 보여주는 출력화면
⑤ 제작된 프로그램의 적용범위에 대한 설명
⑥ 순지간이 에 대해 폭과 높이가 각각 와 인 직사각형 단면에 자중 의 3.0배에 해당하는 활하중을 지지하는 데 필요한 최소 단면과 보강철근을 설계하고, 순지간의 변화에 대한 인장 및 압축 철근비의 변화를 분석한다

본문내용

② 콘크리트 단면, 보강철근, 전단의 설계과정에 대한 member function 또는 sub program
(1) 콘크리트 단면

Private Sub SetConcreteSection()
GetCellPosition "단면특성", rowo, colo: rowo = rowo + 3
sHeight = Cells(rowo, colo + 1): If sHeight = 0 Then sHeight = 200
sWidth = Cells(rowo, colo + 2): If sWidth = 0 Then sWidth = 200
fHeight = Cells(rowo, colo + 3): If fHeight > 0 And fHeight < 100 Then fHeight = 100
wWidth = Cells(rowo, colo + 4): If wWidth < 200 Or fHeight = 0 Then wWidth = sWidth

'콘크리트 단면수정
Cells(rowo, colo + 1) = sHeight: Cells(rowo, colo + 2) = sWidth:
Cells(rowo, colo + 4) = wWidth

'콘크리트 자중
qSelf = GetCellValue("재료특성", 3, 1) * GetGrossArea / 10 ^ 6 'kN/m
Call SetCellValue("분포하중", 2, 2, qSelf): Call ResetMoments '자중 재설정
If signMn < 0 Then
temp = sWidth: sWidth = wWidth: wWidth = temp: fHeight = sHeight - fHeight
End If

'사용 단면특성
If CheckFlangeMn Then be = wWidth Else be = sWidth
usedCon = be * eDepth ^ 2 / 10 ^ 9
'최소단면계산

참고 자료

없음