某办公楼位于南澳县深澳镇, 楼高三层, 建筑平面呈“ ┛” 型,长23. 8m , 宽7. 2m , 框架结构, 基础采用筏式基础。场地南面临街道, 北面靠近约6m 宽的水沟。该楼建成于1980 年, 现因建筑物向北发生较严重的倾斜, 墙面开裂, 影响办公楼的正常使用, 受业主的委托, 查明倾斜原因。

    场地岩土工程条件概况：经野外钻探及现场标准贯入试验查明, 场地的岩土层分布填土层:层厚1. 7 ～ 2. 3m , 以填砂为主, 松散状, 标贯试验实测平均值Nm =5 击。 砂层:层厚1. 0～ 2. 3m , 饱和, 松散状为主, 砂粒级配较差, 标贯试验实测平均值Nm =5 击。场地的水文条件如下:已揭露的场区地下水主要为上部潜水层, 埋深0. 7 ～ 1. 0m 。经取样室内试验, 场区主要岩土层的物理力学指标统计。场地下卧软弱土层的主要物理力学性质该场地位于南澳岛, 属海滩沉积地带, 淤泥层埋藏浅, 属第四纪全新世——— 晚更新世滨海相沉积物。淤泥类土为生长在水流不通畅, 缺氧饱和水条件下的近代沉积物。其物质组成和结构具有特殊性。其颜色常呈深灰色、青灰色等暗淡的颜色。不同程度地含有机质、腐殖质残屑, 部分含Priva te Sub MSComm1_OnComm REM 通讯事件Dim tempstr As StringDim w eigh t, i, j As Integ er Dim va lstr As String Select Ca se MSComm1. CommEvent Ca se comEvReceiv e'接受事件发生tempst r = MSComm1. Input ‘接受缓冲区内的数据If Le n(tempstr) > 0 ThenGWZ = InStr(1, tempstr , "g") ‘搜索数据中单位g

If GWZ > 0 Then TP. Tex t = Trim ＄(Left ＄(tempst r , GWZ -1))‘取g 以前的数据为实际质量ElseTP. Tex t = T rim ＄(tempstr) End I f Else Ex it Sub End I f End Select End Sub Private Sub Command2_Click() REM 退出 MSComm1. . Po rtOpen = False ‘关闭通讯端口End End Sub 应用效果笔者在开发华宁土工试验程序HNTGCS 时, 采用上述方法将微机与天平连接, 实现自动采集质量数据, 提高工作效率, 减小差错。其它厂家的天平稍作改动即可。