Tự động hóa trong thiết kế cầu đường part 1 pps

... 59 11 .LàmviệcvớiUserFormvàcácthànhphầnđiềukhiển  61 11 .1. Các vấn đề chung 61 11 .1. 1. Tạo UserForm và các thành phần điều khiển trong VBA IDE 63 11 .1. 2. Các thuộc tính của UserForm và các thành phần điều khiển. 64 11 .1. 3. Các phương ... rõ trong cách thức tạo ra từng thành phần trong hồ sơ thiết kế. Ví dụ, trong thiết kế cầu, phần phân tích kết cấ...

Ngày tải lên: 12/07/2014, 20:20

... Dim P1 As DiemDo Dim P_Array (1 to 10 00) As DiemDo P1.TrM = 1 P1.STT = 1 P1.DT = 213 0 P1.DG = 212 0 P1.DD = 211 0 P1.H = 13 0.5 P1.V = 78.25 P1.MT = “Goc nha C4” P_Array (1) = P1 5.9. ... biến sử dụng kiểu dữ liệu tự định nghĩa Dim P1 As DiemDo Dim P_Array (1 to 10 00) As DiemDo With P1 .TrM = 1 .STT = 1 .DT = 213 0 .DG = 212 0 .DD = 211 0 ....

Ngày tải lên: 12/07/2014, 20:20

... C C H H Ư Ư Ơ Ơ N N G G   I I V V : :   L L Ậ Ậ P P   T T R R Ì Ì N N H H   T T R R Ê Ê N N   M M I I C C R R O O S S O O F F T T   E E X X C C E E L L   11 1 1. Khởi động VBAIDE. Trong trình đơn Tools, chọn mục MacroÖVisual Basic Editor; 2. Trong trình đơn Insert, chọn mục Module để tạo một ... tính này cũng tương tự như khi chọn từ trình đơn FormatÖSheetÖHide/Unh...

Ngày tải lên: 12/07/2014, 20:20

... ( =1) của nó lại trong bộ nhớ. Do đó đến lần chạy thứ hai, biến B được tạo mới sẽ nhận giá trị là B=B +1= 0 +1= 1, còn biến stA do vẫn tồn tại từ lần trước nên giá trị của nó là stA=stA +1= 1 +1= 2. ... C C H H Ư Ư Ơ Ơ N N G G   I I I I I I : :   C C Ơ Ơ   B B Ả Ả N N   V V Ề Ề   N N G G Ô Ô N N   N N G G Ữ Ữ   L L Ậ Ậ P P   T T R R Ì Ì N N H H   V V I I S S U U A A...

Ngày tải lên: 12/07/2014, 20:20

... Dim strRe1 As String, strRe2 As String, strre3 As String Open “C:\file1.txt” For Input As 1 Line Input #1, strRe1 Line Input #1, strRe2 Line Input #1, strRe3 Debug.Print strRe1, strRe2, ... bộ dữ liệu trong tập tin C:\File1.txt: Dim strRe As String Open "C:\file1.txt" For Input As #1 Do While Not EOF (1) Input #1, strRe Debug.Print strRe Loop Close #1 13 .2.3....

Ngày tải lên: 12/07/2014, 20:20

... Combo Box sẽ hiển thị các cấp đường thiết kế, và khi lựa chọn một cấp đường, giá trị vận tốc thiết kế tương ứng sẽ được gán cho ô. Trình tự thực hiện như sau: 1. Tạo mới Combo Box trên worksheet, ... Tham chiếuthưviệnmởrộngcủachươngtrìnhExcel 1. Khởi động chương trình AutoCAD Ö Khởi động VBAIDE trong AutoCAD bằng cách nhấn tổ hợp phím ALT+F 11. 15 2 Để đ...

Ngày tải lên: 12/07/2014, 20:20

... quản lý Macro trong AutoCAD. 10 . Hiển thị VBAIDE, là nơi sẽ thực hiện quá trình thiết kế mã lệnh và giao diện của chương trình. 2.2 .1. Tạo m ới, Mở và Lưu dự án VBA 19 4 13 . Trong màn hình ... trong giáo trình môn học “Lập trình trên ứng dụng nền”. 2. Quản lý dự án VBA trong AutoCAD 2 .1. Dự án VBA trong AutoCAD Không giống như trong Excel, chỉ có một loại dự á...

Ngày tải lên: 12/07/2014, 20:20

... points(9) = 3: points (10 ) = 2: points (11 ) = 0 ' Toạ độ điểm 4 points (12 ) = 4: points (13 ) = 4: points (14 ) = 8 ' Toạ độ điểm 5 ' Tạo đường đa tuyến 3D trong không gian mô hình ... các điểm góc point1(0) = 1. 3: point1 (1) = 7.8: point1(2) = 0 point2(0) = 13 .7: point2 (1) = -2.6: point2(2) = 0 ‘ Thực hiện phương thức ZoomWindow ZoomWindow point1, poi...

Ngày tải lên: 12/07/2014, 20:20

... points(0 To 11 ) As Double points(0) = 1: points (1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points (10 ) = 4: ... points(0 To 11 ) As Double points(0) = 1: points (1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9)...

Ngày tải lên: 12/07/2014, 20:20

... trình tự thiết lập. 10 00 Giá trị kiểu String. 10 03 Tên của Layer. 10 10 Toạ độ 3D của một điểm 10 40 Giá trị của Double. 10 71 Giá trị kiểu Interger. Ví dụ sau sẽ tạo một đường thẳng trong ... ' Định nghĩa các điểm trên đường kích thước P1 (0) = 5#: P1 (1) = 5#: P1 (2) = 0# P2 (0) = 10 #: P2 (1) = 8#: P2 (2) = 0# location(0) = 6.5: location (1) = 8#: location(2)...

Ngày tải lên: 12/07/2014, 20:20