| |||||
技術交流 在土木工程分析工作中常須建構程式可以在不同的條件數進行不同階段數之分析,範例為押入沉箱貫入不同土層不同深度時所提供之摩擦力,由於每一案件之土層數及深度均不相同,故採迴路加判別式加以區分,並以詳列計算式以交代磨擦力來源,以下為一於excel中以vba將資料丟出支小程式,提供各先進參考指正。 For i = 1 To 10 i1 = i + 217 i1w = "c" & i1 Data1 = Range(i1w).Value If Data1 = "end" Then Exit For ‘分層結束 ckdp1 = Data1 + cut1 ckdp2 = ckdp1 - dd1 ckdp3 = ckdp1 - Data1 ckk = 0 i2w = "d" & i1 datav = 0 dataa = "" Data2 = "" For j = 1 To 9 If dp(j) >= ckdp2 And dp(j) < ckdp1 Then If ckk >= 1 Then fm = "+" tta = dp(j) - dp(j - 1) ckk = ckk + 1 Else fm = "" tta = dp(j) - ckdp2: Call check45(tta, tta) ckk = ckk + 1 End If dataa = fm & tta & "*" & ff(j) datav = datav + tta * ff(j) Data2 = Data2 & data ‘組合計算式 End If If ckdp1 > dp(j) And ckdp1 <= dp(j + 1) Then If ckk >= 1 Then fm = "+" tta = ckdp1 - dp(j): Call check45(tta, tta) ckk = ckk + 1 Else fm = "" tta = ckdp1 - ckdp2: Call check45(tta, tta) ckk = ckk + 1 End If dataa = fm & tta & "*" & ff(j + 1) datav = datav + tta * ff(j + 1) Data2 = Data2 & data ‘組合計算式 End If Next j totalffv(i) = datav * sl1 Data2 = "(" & Data2 & ")*" & sl1 & "=" & totalffv(i) Range(i2w).Select ActiveCell.FormulaR1C1 = Data2 '主摩擦力計算完成 Next i '次摩擦力計算 For i = 1 To 10 i1 = i + 217 i1w = "c" & i1 Data1 = Range(i1w).Value If Data1 = "end" Then Exit For ckdp1 = Data1 + cut1 ckdp2 = ckdp1 - dd1 ckdp3 = ckdp1 - Data1 ckk = 0 i2w = "h" & i1 datavs = 0 dataa = "" Data2 = "" For j = 1 To 9 If dp(j) >= ckdp3 And dp(j) < ckdp2 Then If ckk >= 1 Then fm = "+" tta = dp(j) - dp(j - 1) ckk = ckk + 1 Else fm = "" tta = dp(j) - ckdp3: Call check45(tta, tta) ckk = ckk + 1 End If dataa = fm & tta & "*" & ffs(j) datavs = datavs + tta * ffs(j) Data2 = Data2 & dataa End If If ckdp2 > dp(j) And ckdp2 <= dp(j + 1) Then If ckk >= 1 Then fm = "+" tta = ckdp2 - dp(j): Call check45(tta, tta) ckk = ckk + 1 Else fm = "" tta = ckdp2 - ckdp3: Call check45(tta, tta) ckk = ckk + 1 End If dataa = fm & tta & "*" & ffs(j + 1) datavs = datavs + tta * ffs(j + 1) Data2 = Data2 & dataa End If Next j totalffvs(i) = datavs * sl2 Data2 = "(" & Data2 & ")*" & sl2 & "=" & totalffvs(i) Range(i2w).Select ActiveCell.FormulaR1C1 = Data2 Next i For i = 1 To 10 a = totalffv(i) + totalffvs(i): Call check45(a, a) totalffall(i) = a i1 = i + 217 i3w = "l" & i1 i1w = "c" & i1 Data1 = Range(i1w).Value If Data1 = "end" Then Exit For Data1 = Range(i1w).Value Range(i3w).Select ActiveCell.FormulaR1C1 = a Next i End Sub
| |||||
技師投稿 | |||||
公會公告 more... 注意事項:尚未領取紀念品之會員先進(已繳納96年度會費者),另可於各地辦事處領取。
注意事項:敬請mail(mail@twce.org.tw)告知本會,謝謝!
【網站公告】目前公會郵件主機業已架設好防垃圾信及病毒之機制,歡迎各位會員使用; 有關設定請按我
案由:本[研擬會員參與網站推廣活動案],於資訊委員會提出議案並經網站經營管理委員會提理事會備案,於96年11月理事會議第十三案通過,獎勵網站推廣活絡,至97年會員大會前,由第八屆第二次會員大會編列預算 50,000元
說明:vod課程內有分進修用與取得積分用
公會發文 more... 技師報 more...
研討會(本會)通知 more...
論文截止日期:97年04月14日(星期一)
景觀建築工程系列1-屋頂及人工地盤之景觀設計與防水工程實務講座 開課日期:97年04月24日(四)
水利水保再生系列1-生態水池設計施工與維護管理實務講座(含現地解說) 開課日期:97年04月11日(五)
開課日期:97年04月10-11日(四-五)
開課日期:97年04月09日(三)
時間:97年6月13日(週五)晚上7時 時間:97年5月23日(週五)晚上7時
時間:97年4月25日(週五)晚上7時
出發日期:97年04月19日~04月27日
報名截止日期:97年04月03日
仲裁人訓練課程(97.05.24、97.05.25、97.05.31、97.06.01) 聯絡人:陳佳伶、張玲瑄 04-22938390
預定重要時程:論文全文截止收件:97年04月30日;論文全文審查結果通知:97年05月31日
活動日期:97年04月20日(星期日)上午8:00
活動日期:97年04月12日(星期六)
各社團例行性活動: 授課時間:97年01月07日-97年06月02日(每週一) PM6:30 地點:台北市土木技師公會會議室(台北市松山區東興路28號9樓)
籃球社活動時間:每週二19:00~21:00 地點:台北市立民族國民中學體育館(台北市大安區羅斯福路四段113巷13號)
書法社活動時間:每週三19:00~21:00 地點:會本部(台北縣板橋市三民路二段37號12樓A3)
羽球社活動時間:每週三20:00~22:30 地點:吉豐羽球館(台北市內湖路三段348巷7號1樓)
網球社活動時間:每週三 20:00-22:00 地點:台北市青年公園網球場(台北市水源路199號)
游泳社活動時間:每週六 09:00~12: 北區地點:海豚灣溫水游泳池(台北縣深坑鄉北深路三段111號) 中區地點:台中中興遊泳池(台中市北屯區山西路二段233號)
合氣道社活動時間:每月第3個週六 14:30-16:30 地點:南港合氣道訓練中心(台北市南港路三段130巷3弄1號5樓)
棋橋社活動時間:每月第4個週六14:00~18:30 地點:台北市新生南路三段2號R樓(頂樓)
影音社活動時間:每月第4個週六14:00~18:00 地點:台北市新生南路三段2號R樓(頂樓)
保齡球社活動時間:每週日09:00~14:00 地點:E 7 Club球館【原飛龍保齡球館】(台北縣三重市中央南路63之1號B1F) | 公文轉載 more... 高雄縣政府 函之『有關建築物公共安全檢查簽證申報案件,本府將加強查察是否有外牆逃生窗封閉及2以以上違法設置布幔廣告外牆…』乙案-97.03.10
行政院公共工程委員會 函之『有關「工程技術顧問公司管理條例」(下稱本條例)第5條第1項第4款適用疑義』乙案-97.03.07
中華民國土木技師公會全國聯合會 函之『函轉臺北市政府都市發展局修正「臺北市申請複測都市計畫樁及繳納重建樁位工料費收費標準」條文』乙案-97.03.06
中華民國土木技師公會全國聯合會 函之『函轉行政院公共工程委員會有關「機關委託技術服務案件,請注意於委託技術服務契約載明…』乙案-97.03.06
行政院公共工程委員會 函之『檢送本會訂定「機關辦理公共工程國際競圖注意事項」乙份』乙案-97.03.03
臺北縣營建剩餘土石方資源處理商業公會 函之『為宣導本會服務會員項目,歡迎 貴會員多加利用』乙案-97.03.03
中華民國土木技師公會全國聯合會 函之『函轉行政院公共工程委員會97年2月13日電子公文,為避免評核等第與缺失扣點差異分析、比例失當,特研訂對應原則』乙案-97.02.22
臺北縣政府 公告之『公告水利利有關本府權限事項委任本府水利局,以該局名義執行之,並自中華民國97年3月1日起生效』乙案-97.02.20
中華民國土木技師公會全國聯合會 函之『函轉行政院公共工程委員會97年1月17日召開「研商得辦理附屬於工程規劃…』乙案-97.02.15
中華民國土木技師公會全國聯合會 函之『函轉財團法人國際合作發展基金會徵才啟事,請轉知貴會會員』乙案-97.01.29 聯絡人:李玉婷小姐 02-28732323分機712 中華民國土木技師公會全國聯合會 函之『檢送經濟部標準檢驗局訂定「團體推動標準化活動補助作業規範」』乙案-97.02.05 中華民國土木技師公會全國聯合會 函之『函轉內政部營建署97年1月21日召開「建築物施工中營造業專任工程人員督察紀錄表」、「建築物施工日詩」…』乙案-97.02.05 中華民國土木技師公會全國聯合會 函之『函轉中華民國不動產估價師公會全國聯合會研訂之「營造或施工費標準表」等資訊』乙案-97.01.29 高雄縣政府 函之『本府依法規定再次重申,爾後整棟建築物均屬違建者,則不予受理其申報建築物公共安全檢查』乙案-97.01.28
財團法人國際合作發展基金會 函之『本會駐沙烏地阿拉伯技術團誠徵交通工程人員乙名資格條件如附件』乙案-97.01.22
交通部運輸研究所 函之『檢送本所辦理之「96年度橋梁維護管理訓練講習」教學光碟DVD乙份』乙案-97.01.15 光碟內容包含:橋梁目視檢測、橋梁監測系統規劃、橋梁詳細檢測等課程錄影及講義
行政院公共工程委員會 函之『修正「公有建築物施工階段契約約定權責分工表」(分有無委託專案管理廠商)…』乙案-97.01.08 財團法人浩然基金會 函之『檢送2008年『國外碩士進修獎學金』申請資料乙份』乙案-96.12.17 申請日期:97年03月01日至04月30日截止 臺北縣政府工務局 函之『本案係內政部來函有關營造業未於96年6月日至7月31日間向主管機關申報淨值、承攬總額』乙案-96.12.17
投標日期、地點:97年04月15日下午6點30分開標前,將服務計劃書及相關文件寄達或送達以下地點。請洽:許素梅 小姐 電話:89613968-142
截止日期:97年04月24日中午12:00前傳真至公會;為免疏漏,傳真後請立即以電話查詢確認(逾時恕不受理)
北部出發日:06/19~21 報名截止日04/16
下載專區 more... 縮短樓層勘驗間隔維護安全計畫申請書、推薦書、報備書
| ||||
回頁首▲ |
發 行 人:林永裕 執行單位:資訊委員會 輔導理事:梁詩桐、高 原 督導監事:余 烈 資訊委員會:廖祐新 (主委)、鄭得志 (副主委)、朱泰明(副主委)、林忠行、黃武雄、 吳季鋼、宋明生、王啟河、林文隆、黃仁達、姚嘉偉、黃國艦、陳國星、 潘其芬、周榮隆、張文隆、施滄洲、林摩西、唐雨耕、張志彰、謝百鉤、 徐適康、陳柏伸、陳建權、劉長齡、朱弘家、林育信 |
版權所有,未經確認授權,請勿轉貼節錄
Top | Back |