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
Chương trình cắt thép thanh Steel Workshop! - Page 2 - 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 > Phát triển phần mềm xây dựng Việt Nam
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...
Trả lời
Ðiều Chỉnh Xếp Bài
Unread 06-08-2012   #21
HoVietNhu
Thành viên mới
 
Tham gia ngày: Nov 2010
Bài gởi: 2
Thanks: 1
Thanked 2 Times in 2 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop

Tôi muốn mua bản quyền sử dụng, liên hệ như thế nào?

Vui lòng gọi cho tôi theo số điện thoại : 08.62962798-ext: 315

Mr.Như
HoVietNhu 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 HoVietNhu For This Useful Post:
hggiang1984 (15-03-2013)
Unread 08-08-2012   #22
HoVietNhu
Thành viên mới
 
Tham gia ngày: Nov 2010
Bài gởi: 2
Thanks: 1
Thanked 2 Times in 2 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Theo tôi, chúng ta, những người kỹ sư công trình, nên ủng hộ tác giả này. Tôi hoàn toàn đồng ý với @bacdaibang. Chính thói quen "xài chùa" làm cho Việt Nam xấu đi!
Về hiệu quả của chương trình này, theo tôi là chấp nhận được. Với một dự án chừng và trăm tấn thép đến vài ngàn tấn, tôi đã chạy thử. Kết quả rất khả quan.
Tôi cũng đã liên hệ trực tiếp với tác giả và biết anh đang có kế hoạch nâng cấp tính bảo mật cao hơn. Có thể người Việt sẽ có một chương trình hữu dụng, đóng góp thiết thực vào sự phát triển chung của nghành XD.
HoVietNhu 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 HoVietNhu For This Useful Post:
ta.dung.bsg (08-08-2012)
Unread 08-08-2012   #23
ta.dung.bsg
Thành viên tích cực
 
ta.dung.bsg's Avatar
 
Tham gia ngày: Aug 2009
Bài gởi: 102
Thanks: 16
Thanked 173 Times in 44 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Cảm ơn sự ủng hộ của anh Như. Hiện tại tôi đang cố gắng nâng cấp chương trình về tính hiệu quả (thêm giải thuật) cũng như tính bảo mật. Hi vọng chương trình sẽ hoàn tất trong nay mai (hiện tại tôi đang rất bận với công trình tôi đang tham gia điều hành thi công)
__________________
Dương Tấn Dũng
Master of Engineering
GP E&C
ta.dung.bsg 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 ta.dung.bsg For This Useful Post:
hggiang1984 (15-03-2013)
Unread 03-10-2012   #24
HUYHOANGXD30
Thành viên mới
 
Tham gia ngày: Aug 2010
Bài gởi: 1
Thanks: 1
Thanked 1 Time in 1 Post
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

sao ko ko gui ban dung thu vay ban, chu gui de xem thi potay
HUYHOANGXD30 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 HUYHOANGXD30 For This Useful Post:
hggiang1984 (15-03-2013)
Unread 16-05-2013   #25
031113
Thành viên mới
 
Tham gia ngày: Sep 2010
Bài gởi: 4
Thanks: 13
Thanked 0 Times in 0 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Trích:
Nguyên văn bởi ta.dung.bsg View Post
Cảm ơn sự ủng hộ của anh Như. Hiện tại tôi đang cố gắng nâng cấp chương trình về tính hiệu quả (thêm giải thuật) cũng như tính bảo mật. Hi vọng chương trình sẽ hoàn tất trong nay mai (hiện tại tôi đang rất bận với công trình tôi đang tham gia điều hành thi công)
Toppic rất hay. Em hiện cũng là kỹ sư và muốn gắn bó với nghề nên rất cần những phần mềm hay như thế này. Anh cho em hỏi là em muốn mua bản quyền thì em liên hệ với ai???
031113 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 27-02-2014   #26
haihung39ma
Thành viên mới
 
Tham gia ngày: Sep 2009
Bài gởi: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Trích:
Nguyên văn bởi 031113 View Post
Toppic rất hay. Em hiện cũng là kỹ sư và muốn gắn bó với nghề nên rất cần những phần mềm hay như thế này. Anh cho em hỏi là em muốn mua bản quyền thì em liên hệ với ai???
Ban cần phần mềm cắt thép thanh. Thép tấm.
Liên hệ mình. 0983 518 510.
Nêu cần lập sơ đồ cắt Ok.
Cung cấp với giá phải trăng.
haihung39ma vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 27-02-2014   #27
haihung39ma
Thành viên mới
 
Tham gia ngày: Sep 2009
Bài gởi: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Bạn cần phần mêm tối ưu cắt thép liên hệ mình: 0983 518 510.
Mình nhận ra sơ đồ cắt thép hình. Thép tấm....
Thanks
haihung39ma vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 06-05-2014   #28
jerrytran330
Thành viên mới
 
Tham gia ngày: Jul 2012
Bài gởi: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

cho minh xin key ,,,,Ma cua minh BFEBFBFF0001067A
kstranminhlam@gmail.com
jerrytran330 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 26-07-2014   #29
TOIBK9
Thành viên mới
 
Tham gia ngày: Oct 2011
Bài gởi: 22
Thanks: 10
Thanked 1 Time in 1 Post
Default Re: Chương trình cắt thép thanh Steel Workshop!

Dear anh ta.dung.bsg
Anh có thể cho em xin mã Activation code được không,
Mã User Code của em là BFEBFBFF000206A7
Mong anh giúp đỡ, mail em là nguyenxuantoi90@gmail.com
Thanks
TOIBK9 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 17-10-2014   #30
trinhvantien
Thành viên mới
 
Tham gia ngày: Aug 2011
Bài gởi: 1
Thanks: 0
Thanked 3 Times in 1 Post
Cool Ðề: Chương trình cắt thép thanh Steel Workshop!

Đã cho chương trình thì hãy cho trót, cứ bắt a e nhập key làm cho cho mệt dữ vậy hả tác giả. Còn muốn bán thì phải gửi lên đúng nơi để bán
Thuật toán đặt khóa đòi bản quyền của chương trình dành cho những ai đam mê *****me:

Private Sub UserForm_Initialize()
Dim strComputer As String
Dim i As Byte
Dim objWMIService, colItems, objItem

strAppPath = Application.Path & "\swork.sreg"
strActivateCode = ""
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", , 48)

For Each objItem In colItems
strProcessorID = objItem.ProcessorID
strName = objItem.SystemName
Next

txtUser.Text = strProcessorID
txtActivate.SetFocus

End Sub

Private Sub cmdActivate_Click()
Dim strDateTime As Date
Dim strWrite As String

strDateTime = Now
strWrite = ""

Dim attVal As Byte

attVal = GetAttr(strAppPath)
attVal = attVal And Not vbReadOnly
attVal = attVal And Not vbHidden
attVal = attVal And Not vbSystem
SetAttr strAppPath, attVal

If Trim(txtActivate.Text) = GenerateCode(strProcessorID, strDateTime) Then
Open strAppPath For Output As #1
strWrite = strWrite & Trim(strName) & "ö"
strWrite = strWrite & Trim(strProcessorID) & "ö"
strWrite = strWrite & Trim(strDateTime) & "ö"
strWrite = strWrite & Trim(txtActivate.Text)
Print #1, strWrite
Close #1

SetAttr strAppPath, vbHidden
MsgBox "You need to restart program to complete registration!", vbInformation + vbOKOnly, "Information"
ThisWorkbook.Close

Else
txtActivate.SetFocus
SendKeys "{Home}+{End}"
txtActivate.Text = GenerateCode(strProcessorID, strDateTime)
End If
End Sub

Thuật toán cũng ko có gì là ghê gớm, tự tìm hiểu nhé.

Phần này dành cho những ai ko thể ***** bằng code, down về dùng luôn, tôi đã vô hiệu hóa hết cái gì đó gọi là bảo mật và demo.
Đọc 1 nguyên tắc sau của tôi trước khi tải : " Không bao giờ trả lời bất cứ câu hỏi nào nên vui lòng ko comment gì hết nhé."

Link để tải :
https://drive.google.com/file/d/0BzN...ew?usp=sharing
Nếu link mà có die thì ai có thì up lại cho ng khác nhé.

Các lưu ý khi sử dụng :
1. Các đơn vị chiều dài phải sử dụng thống nhất tại tất cả các nơi, trong chương trình ng viết ghi "m" thì chiều dài các bạn khai báo cũng là m. Nếu dữ liệu của bạn là mm thì chỉnh lại Lo = 11.7m thành Lo = 11700m chạy sẽ ok. Bạn hãy nghĩ điều gì sẽ xảy ra nếu bạn cần 100 cây L = 3500 mà từ 1 cây sắt chuẩn chỉ dài có 11,7 mm. máy chạy cũng đứng hình luôn.
2. Thuật toán tốn khá nhiều bộ nhớ nên tôi giảm lại số biến vòng lặp, nguyên thuỷ là 100000, tôi sửa lại cho 500 thôi, nhiêu đây tôi thấy khá đủ dùng, ai có nhu cầu cao hơn thì vào code sửa lại.

****Vui lòng ko comment gì hết nhé ****
trinhvantien vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 3 Users Say Thank You to trinhvantien For This Useful Post:
flashx (23-06-2016), Qtaikhoan (22-04-2015), trantien (14-09-2015)
Unread 07-01-2015   #31
ta.dung.bsg
Thành viên tích cực
 
ta.dung.bsg's Avatar
 
Tham gia ngày: Aug 2009
Bài gởi: 102
Thanks: 16
Thanked 173 Times in 44 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

Trích:
Nguyên văn bởi trinhvantien View Post
Đã cho chương trình thì hãy cho trót, cứ bắt a e nhập key làm cho cho mệt dữ vậy hả tác giả. Còn muốn bán thì phải gửi lên đúng nơi để bán
Thuật toán đặt khóa đòi bản quyền của chương trình dành cho những ai đam mê *****me:

Private Sub UserForm_Initialize()
Dim strComputer As String
Dim i As Byte
Dim objWMIService, colItems, objItem

strAppPath = Application.Path & "\swork.sreg"
strActivateCode = ""
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", , 48)

For Each objItem In colItems
strProcessorID = objItem.ProcessorID
strName = objItem.SystemName
Next

txtUser.Text = strProcessorID
txtActivate.SetFocus

End Sub

Private Sub cmdActivate_Click()
Dim strDateTime As Date
Dim strWrite As String

strDateTime = Now
strWrite = ""

Dim attVal As Byte

attVal = GetAttr(strAppPath)
attVal = attVal And Not vbReadOnly
attVal = attVal And Not vbHidden
attVal = attVal And Not vbSystem
SetAttr strAppPath, attVal

If Trim(txtActivate.Text) = GenerateCode(strProcessorID, strDateTime) Then
Open strAppPath For Output As #1
strWrite = strWrite & Trim(strName) & "ö"
strWrite = strWrite & Trim(strProcessorID) & "ö"
strWrite = strWrite & Trim(strDateTime) & "ö"
strWrite = strWrite & Trim(txtActivate.Text)
Print #1, strWrite
Close #1

SetAttr strAppPath, vbHidden
MsgBox "You need to restart program to complete registration!", vbInformation + vbOKOnly, "Information"
ThisWorkbook.Close

Else
txtActivate.SetFocus
SendKeys "{Home}+{End}"
txtActivate.Text = GenerateCode(strProcessorID, strDateTime)
End If
End Sub

Thuật toán cũng ko có gì là ghê gớm, tự tìm hiểu nhé.

Phần này dành cho những ai ko thể ***** bằng code, down về dùng luôn, tôi đã vô hiệu hóa hết cái gì đó gọi là bảo mật và demo.
Đọc 1 nguyên tắc sau của tôi trước khi tải : " Không bao giờ trả lời bất cứ câu hỏi nào nên vui lòng ko comment gì hết nhé."

Link để tải :
https://drive.google.com/file/d/0BzN...ew?usp=sharing
Nếu link mà có die thì ai có thì up lại cho ng khác nhé.

Các lưu ý khi sử dụng :
1. Các đơn vị chiều dài phải sử dụng thống nhất tại tất cả các nơi, trong chương trình ng viết ghi "m" thì chiều dài các bạn khai báo cũng là m. Nếu dữ liệu của bạn là mm thì chỉnh lại Lo = 11.7m thành Lo = 11700m chạy sẽ ok. Bạn hãy nghĩ điều gì sẽ xảy ra nếu bạn cần 100 cây L = 3500 mà từ 1 cây sắt chuẩn chỉ dài có 11,7 mm. máy chạy cũng đứng hình luôn.
2. Thuật toán tốn khá nhiều bộ nhớ nên tôi giảm lại số biến vòng lặp, nguyên thuỷ là 100000, tôi sửa lại cho 500 thôi, nhiêu đây tôi thấy khá đủ dùng, ai có nhu cầu cao hơn thì vào code sửa lại.

****Vui lòng ko comment gì hết nhé ****
Chào bạn,
Mình chưa bao giờ có ý định bán. Bạn hỏi một số người trong diễn đàn đã có ý định mua nhưng mình điều từ chối. Đây là chương trình phi thương mại.
Nhưng, bạn nên hiểu rằng (cái mà nhiều người cố tình chưa hiểu), mọi người đều có quyền cái gì đó đối với sản phầm của mình. Và bạn nên học hỏi ông bà chúng ta "ăn quả nhớ kẻ trồng cây".
Tôi không trách bạn "háu đá", chỉ mong bạn dành chút thời gian để suy ngẫm.
__________________
Dương Tấn Dũng
Master of Engineering
GP E&C
ta.dung.bsg vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
The Following 2 Users Say Thank You to ta.dung.bsg For This Useful Post:
Qtaikhoan (22-04-2015), trantien (14-09-2015)
Unread 22-05-2015   #32
nhk007dng
Thành viên mới
 
Tham gia ngày: Aug 2010
Bài gởi: 4
Thanks: 3
Thanked 3 Times in 2 Posts
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

@trinhvantien làm vậy được gì bạn?
@ta.dung.bsg cảm ơn bạn vì chương trình rất hay, xưa nay dùng mà ko biết tác giả của nó . Mình cũng đã tích hợp chương trình của bạn vào 1 tiện ích nhỏ của mình, để dùng và chia sẻ. Hy vọng tác giả ko phiền.
nhk007dng vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 04-06-2015   #33
dukich_Che
Thành viên mới
 
Tham gia ngày: Aug 2010
Bài gởi: 11
Thanks: 3
Thanked 3 Times in 3 Posts
Default Re: Chương trình cắt thép thanh Steel Workshop!

Trích:
Nguyên văn bởi ta.dung.bsg View Post
Xin lỗi mọi người, hôm trước tôi có gửi chương trình này rồi nhưng file đã cũ (lưu ở máy tính khác) nên có một số lỗi (lỗi format data sheet). Hôm nay, tôi gửi mọi người bản mới nhất để mọi người dùng và cho ý kiến tham khảo.
Gửi bác Dũng!
Em mới dùng phần mềm steel workshop bác Post lên, em có câu hỏi này muốn bác trả lời giúp.
+Mục " Chiều dài kiểm soát" , "Đoạn thừa tận dụng" có ý nghĩa gì
Rất mong được bác trả lời giúp. Em cám ơn bác!
dukich_Che vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Unread 07-06-2015   #34
nhattan40
Thành viên mới
 
Tham gia ngày: Mar 2013
Bài gởi: 1
Thanks: 2
Thanked 1 Time in 1 Post
Default Ðề: Chương trình cắt thép thanh Steel Workshop!

@ta.dung.bsg
Cám ơn anh đã viết tiện ích này
@trinhvantien
Cám ơn anh đã thuốc tiện ích này.
---
Sử dụng phần mềm tri thức của người khác một cách lậu như này thì đúngl à không hay gì.
Nhưng tò mò muốn dùng thử thì phải nhờ đến anh @trinhvantienien. sau khi dùng thử em thấy phần mềm rất tiện ích và dễ hiểu.
Mong anh @ta.dung.bsg tiếp tục có những tiện ích tiện lợi như vậy
nhattan40 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 nhattan40 For This Useful Post:
trantien (14-09-2015)
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à 10:55 AM.


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.