建筑結(jié)構(gòu)與防火課程設(shè)計(jì)報(bào)告書(shū)-資料下載頁(yè)
2025-05-23 18:13本頁(yè)面
【正文】 = Ts * Tm + T0 Loop Until Ts 600 Ts = Format(Ts, ) = 防火保護(hù)層厚度di= + Str(Format((1000 * di), .0)) + mm If 2 * Ci * Ri * di * FV / (Cs * Rs) = 1 Then Label17 = 該防火保護(hù)層為輕質(zhì)保護(hù)層 = amp。H0amp。 End If End If End If = 截面保護(hù)層參數(shù)B= + Str(dB) = 鋼材溫度Ts= + Str(Ts) + ℃ = 高溫下鋼材強(qiáng)度折減系數(shù)ηT= + Str(Format( * Ts * Ts * Ts * Ts * Ts + * Ts , .000)) = 該構(gòu)件應(yīng)力比σf/f= + Str(Format( * Val(), .000)) If ( * Val()) ( * ( * Ts * Ts * Ts * Ts * Ts + * Ts )) Then Label22 = 因?yàn)樵摌?gòu)件應(yīng)力比≤折減系數(shù)，所以保護(hù)層厚度滿足要求 di = Format( * di * 1000, .0) Else = = msg = MsgBox( 因?yàn)樵摌?gòu)件應(yīng)力比＞折減系數(shù)，所以保護(hù)層厚度不滿足要求，須增加保護(hù)層厚度, vbOKOnly, 提示) If msg = 1 Then GoTo RE End If End If = 考慮溫度應(yīng)力的影響，由規(guī)范規(guī)定應(yīng)將保護(hù)層厚度增加30%，即此時(shí)di為： + Str(di) + mmEnd SubPrivate Sub Command2_Click() = = = = = = = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Option1_Click() = True = False = False = False = False = False = True = False = False = False = False = FalseEnd SubPrivate Sub Option2_Click() = True = True = False = False = False = False = True = True = False = False = False = FalseEnd SubPrivate Sub Option3_Click() = False = False = True = True = True = True = False = False = True = True = True = TrueEnd Sub寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來(lái)越容易。不奮斗就是每天都很容易，可一年一年越來(lái)越難。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無(wú)能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。拼一個(gè)春夏秋冬！贏一個(gè)無(wú)悔人生！早安！—————獻(xiàn)給所有努力的人. 學(xué)習(xí)好幫手
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號(hào)-1