【文章內(nèi)容簡介】 2 = 0 39。連接數(shù)據(jù)庫 39。 Dim myconn1 As = New (data source=SALAN。integrated security=SSPI。initial catalog=地基沉降 ) 39。Dim mymd As New 39。 = myconn1 39。 = select * from 矩形中點(diǎn)應(yīng)力系數(shù)表 where 長寬比 = amp。 n1 amp。 or 長寬比 = amp。 n2 39。Dim myadpater As = New (mymd) 39。Dim mydataset As New DataSet 39。(mydataset, 矩形中點(diǎn)應(yīng)力系數(shù)表 ) 39。 = (0) 39。() Dim m As Single = 0 Dim m1, m2 As Single s = 0 39。39。//////////////////////////////////////////////////////////////////////////////////////////// Do h1 += maxh h2 += maxh If h2 height And point 1 Then MsgBox(sasa amp。 point) point += 1 MsgBox(sajadksajdlksjdajksajdsjds1 amp。 point) height += (point).Item(土層厚度 ) 39。自重應(yīng)力計(jì)算 End If 地基沉降軟件開發(fā) 19 If h2 wh Then 39。 MsgBox(PPPPC amp。 Pc) 39。MsgBox(point) Pc = Pc + maxh * (point).Item(土的重度 ) 10 * maxh 39。MsgBox(Pc amp。 Pc) Else Pc = Pc + maxh * (point).Item(土的重度 ) 39。 MsgBox(Pc amp。 Pc) End If 39。確定深寬比 m 以及范圍 [m1,m2] m = h1 / b 39。s深寬比 If m 5 Then m = 5 If m = 0 And m Then For m1 = 0 To Step If m = m1 And m m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then For m1 = To Step If m = m1 And m = m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m = 5 Then m1 = m2 = End If a1 = YinglixishuJu(n1, n, n2, m1, m, m2) 39。 MsgBox(a1) 地基沉降軟件開發(fā) 20 Pz2 = Pz * a1 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(壓縮模量 )) Pz1 = Pz2 39。 MsgBox(Pz1 amp。 Pz1) 39。 MsgBox(s) Loop While Pz1 * Pc MsgBox(此基礎(chǔ)的沉降量為 amp。 s amp。 cm) () s1 = s Else Pc = (0).Item(土的重度 ) * h 39?；A(chǔ)底部自重應(yīng)力 Pz = F / ( * r * r) Pc + 20 * h 39?；A(chǔ)底部附加應(yīng)力 Pz1 = Pz Pz2 = 0 s = 0 Dim m As Single = 0 Dim m1, m2 As Single 39。39。//////////////////////////////////////////////////////////////////////////////////////////// Do h1 += maxh h2 += maxh If h2 height And point 1 Then point += 1 height += (point).Item(土層厚度 ) 39。自重應(yīng)力計(jì)算 MsgBox((point).Item(土層厚度 )) End If If h2 wh Then Pc = Pc + maxh * (point).Item(土的重度 ) 10 * maxh 39。MsgBox(Pc amp。 Pc) Else Pc = Pc + maxh * (point).Item(土的重度 ) 地基沉降軟件開發(fā) 21 39。 MsgBox(Pc amp。 Pc) End If 39。確定深寬比 m 以及范圍 [m1,m2] m = h1 / r 39。深度與半徑的比值 If m Then m = If m = 0 And m Then For m1 = 0 To Step If m = m1 And m m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then For m1 = To Step If m = m1 And m = m1 + Then m1 = m1 m2 = m1 + Exit For End If Next End If If m = And m Then m1 = m2 = End If If m = And m = Then m1 = m2 = End If 39。MsgBox(m1 amp。 amp。 m amp。 amp。 m2) a1 = YinglixishuYuan(m1, m, m2) 39。MsgBox(a1) Pz2 = Pz * a1 地基沉降軟件開發(fā) 22 s += (Pz1 + Pz2) * maxh / (2 * (point).Item(壓縮模量 )) Pz1 = Pz2 39。 MsgBox(Pz1 amp。 Pz1) 39。 MsgBox(s) Loop While Pz1 * Pc s1 = s MsgBox(此基礎(chǔ)的沉降量為 amp。 s amp。 cm) End If End Sub 應(yīng)力面積 法計(jì)算界面 列出已經(jīng)輸入并需要 用到的各類數(shù)據(jù)以供用戶檢查，若檢查合格可直接計(jì)算，反之可重新定義參數(shù)。以下為算法實(shí)現(xiàn)過程。 地基沉降軟件開發(fā) 23 地基沉降軟件開發(fā) 24 Dim lianjie As New (initial catalog = 地基沉降 。data source = SALAN。 integrated security=SSPI。) Dim shujuji As New DataSet Dim shipeiqicanshu1 As String = select * from 附加應(yīng)力系數(shù)表 Dim shipeiqicanshu2 As String = select * from 土層定義表 Dim shipeiqicansh