máy bơm nước hỏa tiễn công ty in ấn https://duan-knparadise.com/ Bơm nước hỏa tiễn bóp da nam Túi nilon PP cong ty in bieu mau
Đoạn mã tính lún - Diễn đàn của các kỹ sư kết cấu Việt Nam










































































Features
Go Back   Diễn đàn của các kỹ sư kết cấu Việt Nam > ỨNG DỤNG TIN HỌC TRONG THIẾT KẾ XÂY DỰNG > Lập trình tính toán, phân tích kết cấu
Tên thành viên
Mật mã
Tin HOT Thông tin BQT diễn đàn

Result  Reload Thống Kê - Diễn đàn của các kỹ sư kết cấu Việt Nam
All Forums | Thông báo | Văn Bản Pháp Luật | Văn Hóa Văn Nghệ Giao Lưu
Please wait...
Please wait...
Loading...
Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 20-12-2005   #1
Luis
Thành viên
 
Tham gia ngày: Apr 2005
Bài gởi: 49
Thanks: 0
Thanked 9 Times in 5 Posts
Default Đoạn mã tính lún

Em viết đoạn mã VBA đê tính toán lún, với giả thiết nền 5 lớp đất. Tính chiều sâu hiệu quả Ha khi tính lún ứng với ứng suất tăng thêm/ưs bản thất cốt đât=0.2 thì vòng lặp bị trục trặc. Em post lên đoạn mã nhờ các bác xem và góp ý giùm. Bác nào đã viết đoạn mã tính lún rồi có thể cho em xin được không. Em rất cám ơn
File Kèm Theo
File Type: txt Tinh lun.txt (3.1 KB, 199 lần tải)
Luis vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to Luis For This Useful Post:
ng0cpr0 (13-09-2013)
Old 07-01-2006   #2
thangna
Thành viên mới
 
Tham gia ngày: Sep 2005
Bài gởi: 21
Thanks: 0
Thanked 3 Times in 3 Posts
Default Ðề: Đoạn mã tính lún

Trích:
Nguyên văn bởi Luis
Em viết đoạn mã VBA đê tính toán lún, với giả thiết nền 5 lớp đất. Tính chiều sâu hiệu quả Ha khi tính lún ứng với ứng suất tăng thêm/ưs bản thất cốt đât=0.2 thì vòng lặp bị trục trặc. Em post lên đoạn mã nhờ các bác xem và góp ý giùm. Bác nào đã viết đoạn mã tính lún rồi có thể cho em xin được không. Em rất cám ơn
Tui có mấy chú ý trong code của bạn như sau:
thứ nhất:
Trích:
Loop Until Ks <= 0.2
Riêng đoạn này đã báo lổi inh ỏi rùi: ( "ko có do nhưng lại tìm thấy Loop")
Thứ 2:
Trích:
K = Ktt(m, lb)
Đây là một hàm tính Ktt ( K tính toán hả?), nhưng Ktt tui chưa thấy ở đâu cả, nên có lổi gì thì tui củng ko biết, nhưng theo như đoạn code ở trên khì sẽ bị báo lỗi là:
"Ktt() chưa được khai báo"
Thứ 3:
Trích:
goto thoat
Nếu là một người lập trình chuyên nghiệp, họ ít khi sữ dụng câu lệnh goto.
Có thể loại bỏ lệnh goto ở trên chỉ bằng một câu lệnh đơn giản, trường hợp của bạn là exit for
Bạn nên post cả đoạn code của hàm ktt() lên để mọi người xem thế nào
thangna vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to thangna For This Useful Post:
ng0cpr0 (13-09-2013)
Old 10-01-2006   #3
Luis
Thành viên
 
Tham gia ngày: Apr 2005
Bài gởi: 49
Thanks: 0
Thanked 9 Times in 5 Posts
Default Ðề: Đoạn mã tính lún

Trích:
Nguyên văn bởi thangna

Đây là một hàm tính Ktt ( K tính toán hả?), nhưng Ktt tui chưa thấy ở đâu cả, nên có lổi gì thì tui củng ko biết, nhưng theo như đoạn code ở trên khì sẽ bị báo lỗi là:
"Ktt() chưa được khai báo"
Thứ 3:

Nếu là một người lập trình chuyên nghiệp, họ ít khi sữ dụng câu lệnh goto.
Có thể loại bỏ lệnh goto ở trên chỉ bằng một câu lệnh đơn giản, trường hợp của bạn là exit for
Rất cám ơn anh về những ý kiến này. Tuy nhiên em kô "chuyên nghiệp" nên rất mong sự giúp đỡ của anh và các đồng nghiệp.
Em post lên đây hàm tính Ktt=f(Z/b,L/B)
Nếu có thể anh có thể sửa đoạn 2 đoạn mã này giùm em.
email: haihac2@hotmail.com
File Kèm Theo
File Type: txt ham Ktt.txt (8.6 KB, 108 lần tải)
Luis vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to Luis For This Useful Post:
ng0cpr0 (13-09-2013)
Old 11-01-2006   #4
thangna
Thành viên mới
 
Tham gia ngày: Sep 2005
Bài gởi: 21
Thanks: 0
Thanked 3 Times in 3 Posts
Default Ðề: Đoạn mã tính lún

Hơ, cũng may là cái mảng hsKo() của bạn chỉ là 28x11 , nếu không thì.....
Để về tôi xem lại cái vòng lặp của bạn xem nó như thế nào!
Hẹn gặp lại
thangna vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to thangna For This Useful Post:
ng0cpr0 (13-09-2013)
Old 12-01-2006   #5
thangna
Thành viên mới
 
Tham gia ngày: Sep 2005
Bài gởi: 21
Thanks: 0
Thanked 3 Times in 3 Posts
Default Ðề: Đoạn mã tính lún

Với dạng CSDL như của bạn, tôi khuyên bạn đọc từ file ra sẽ đỡ tốn công... gỏ hơn rất nhiều
Đây là đoạn code đọc dl từ file text( cùng với file text đi kèm)

[CODE]Dim line As String
Dim file As Integer
file = FreeFile
Dim i As Integer
i = 0
Dim j As Integer
Dim hsKo(28, 11) As Double
Dim hsm(28) As Double
Dim lb(11) As Double
Open App.Path & "\test2.txt" For Input As file
Line Input #file, line 'bo qua dong comment
Line Input #file, line
Dim v1 As Variant
v1 = Split(line, " ")
For j = 1 To 28
hsm(j) = v1(j - 1)
Next
Line Input #file, line 'bo qua dong comment
Line Input #file, line 'bo qua dong comment
Line Input #file, line
v1 = Split(line, " ")
For j = 1 To 11
lb(j) = v1(j - 1)
Next
Line Input #file, line 'bo qua dong comment
Line Input #file, line 'bo qua dong comment
For i = 1 To 28
Line Input #file, line
v1 = Split(line, " ")
For j = 1 To 11
hsKo(i, j) = v1(j - 1)
Next j
Next i[/CODE]

Còn về phần đoạn code tính ktt tui cũng đã có vài góp ý( để ngay trong file "ham ktt.txt" đi kèm đây, bạn xem ý kiến của tôi thế nào?)
File Kèm Theo
File Type: txt test2.txt (1.9 KB, 124 lần tải)
File Type: txt ham Ktt.txt (3.9 KB, 124 lần tải)
thangna vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to thangna For This Useful Post:
ng0cpr0 (13-09-2013)
Old 12-01-2006   #6
thanhcd12moi
Thành viên
 
Tham gia ngày: Nov 2005
Bài gởi: 33
Thanks: 0
Thanked 1 Time in 1 Post
Default Ðề: Đoạn mã tính lún

Tôi biết có công thức tính hệ số lún Ktt. Bạn không thử dùng công thức cho tiện? Tôi đã từng lập trình bằng Mathlab về nội suy (lúc làm đồ án tốt nghiệp) nhưng tôi thấy không cần thiết .
thanhcd12moi vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to thanhcd12moi For This Useful Post:
ng0cpr0 (13-09-2013)
Old 13-01-2006   #7
Luis
Thành viên
 
Tham gia ngày: Apr 2005
Bài gởi: 49
Thanks: 0
Thanked 9 Times in 5 Posts
Default Ðề: Đoạn mã tính lún

Trích:
Nguyên văn bởi thangna

Còn về phần đoạn code tính ktt tui cũng đã có vài góp ý( để ngay trong file "ham ktt.txt" đi kèm đây, bạn xem ý kiến của tôi thế nào?)
E cám ơn bác. Về đoạn code tính Ktt như vậy là ổn rồi. Còn về đoạn code chính trong phần tính lún bác có cao kiến gì, Em chờ tin bác
Chúc bác thành công

To: thanhcd12moi

Công thức thì em biết đấy, chỉ có công thức xác định K khi tính lún ổn định theo biểu thức chuyển vị của lý thuyết đàn hồi thôi.
mà lại khai triển cái công thức arctg(x) theo chuỗi Macloranh chỉ có trong đoạn từ (-1,1) còn ngoài thì chịu.
Luis vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following User Says Thank You to Luis For This Useful Post:
ng0cpr0 (13-09-2013)
Loading...
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền sử dụng ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Mở

Chuyển đến



Múi giờ GMT. Hiện tại là 08:58 PM.


DIỄN ĐÀN http://ketcau.com/forum NƠI HỘI TỤ CỦA CÁC KỸ SƯ KẾT CÂU VIỆT NAM
WWW.KETCAU.COM - CẦU NỐI CỦA CÁC KỸ SƯ KẾT CẤU CÔNG TRÌNH, ĐỊA KỸ THUẬT VIỆT NAM. DIỄN ĐÀN ĐƯỢC MUA BẢN QUYỀN CỦA JELSOFT ENTERPRISES Ltd. Thiết kế website