2017 인하대 (A+) 공학수치해석 중간
- 최초 등록일
- 2019.01.15
- 최종 저작일
- 2017.09
- 12페이지/
한컴오피스
- 가격 1,000원
![할인쿠폰받기](/images/v4/document/ico_det_coupon.gif)
목차
① 자료 입력화면 및 WorkSheet의 버튼클릭 실행프로그램
② 자료를 입출력하는 Module Responses
③ 포물선 및 긴장재 객체의 Class Module
④ 변화를 보여주는 출력화면
⑤ 지간과 높이의 변화에 대한 프로젝트 수행 결과의 분석 및 설명
본문내용
② 자료를 입출력하는 Module Responses
Module SJSResponses
Private objShape As SJSTendon
Private fricC As Double, fricW As Double, Fpj As Double, setMove As Double
Private rowDisp As Integer, colDisp As Integer
Public difMode As Integer
Public Sub Computeresponses()
Dim inpoints(4, 2) As Double, curveCoord(2, 2) As Double
Dim strType As String, iLoc As Integer, rowo As Integer, colo As Integer, rowi As Integer
If Not Getcellposition("Location", rowo, colo) Then Exit Sub
preX = -1: numCurve = -1: colo = colo + 1
For iLoc = 1 To 4: rowi = rowo + iLoc
valx = Getcellvalue(rowi, colo)
If valx > preX Then
inpoints(iLoc, 1) = valx
inpoints(iLoc, 2) = Getcellvalue(rowi, colo + 1)
preX = valx: numCurve = numCurve + 1
End If
Next iLoc
If numCurve < 1 Then Exit Sub Else Set objShape = New SJSTendon
fricC = Getvalue("Friction", 2, 0): fricW = Getvalue("Friction", 2, 1)
참고 자료
없음