비쥬얼베이직) 고체역학) 보의 shear force 와 moment 를 그래프를 그리고 최대 최소값을 출력하는 프로그램입니다

본문내용

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim F, W, L As Double
Dim dL, dx As Double
Dim x As Double
Dim V_max, M_max, vi_max, mi_max, i As Double
Dim V_min, M_min, vi_min, mi_min As Double

Private Sub Command1_Click()

F = txtF.Text
W = txtW.Text
L = txtL.Text

dL = 0.1

Call draw_Vaxis
Call draw_Maxis
Call draw_V
Call draw_M

V_max = V(0)
V_min = V(0)
M_max = M(0)
M_min = M(0)
vi_max = 0
vi_min = 0
mi_max = 0
mi_min = 0

키워드

비쥬얼베이직,   소스,   프로그램,   고체,   보,   shear,   모멘트,   moment