BỘ GIÁO DỤC VÀ ĐÀO TẠO
TRƯỜNG ĐẠI HỌC SƯ PHẠM KỸ THUẬT
THÀNH PHỐ HỒ CHÍ MINH

ĐỀ TÀI NCKH CẤP BỘ

NGHIÊN CỨU, ỨNG DỤNG THIẾT KẾ ĐỘNG,
XÂY DỰNG KHUNG DỮ LIỆU PHỤC VỤ THIẾT KẾ
THỰC TIỄN VÀ GIẢNG DẠY BẬC ĐẠI HỌC
NGÀNH CƠ KHÍ
S

K

C

0

0

3

9

5

9

MÃ SỐ: B2006-22-09

S KC 0 0 2 6 9 1

Tp. Hồ Chí Minh, 2008


BỘ GIÁO DỤC VÀ ĐÀO TẠO
ĐẠI HỌC SƯ PHẠM KỸ THUẬT Tp HỒ CHÍ MINH
------*------

ĐỀ TÀI:

NGHIÊN CỨU, ỨNG DỤNG THIẾT KẾ ĐỘNG,
XÂY DỰNG KHUNG DỮ LIỆU PHỤC VỤ THIẾT
KẾ THỰC TIỄN VÀ GIẢNG DẠY BẬC ĐẠI HỌC
NGÀNH CƠ KHÍ
( Mã số: B2006-22-09 )

Chủ nhiệm đề tài:

ThS. Trần Thế San

Tp. Hồ Chí Minh – 12/2008


MỤC LỤC
Mục lục ……………………………………………………………………………………………………………… 1
Tóm tắt kết quả nghiên cứu ……………………………………………………………………… 2
Tổng quan…………………………………………………………………………………………………………… 4
Phần thứ nhất
Cơ sở tạo dữ liệu và một số chi tiết điển hình…………………………………………7
1. Tƣơng quan biên dạng hình học phẳng……………………………… 7

2. Tƣơng quan hình học của chi tiết………………………………………
3. Biến kích thƣớc………………………………………………………… 8
4. Tƣơng quan dữ liệu giữa các chi tiết…………………………………… 9
5. Tương quan kích thước của 2 chi tiết…………………………………………………………… 9
6. Tương quan kích thước của 2 chi tiết theo chi tiết mẫu………………………… 10
7. Quan hệ họ (family) chi tiết……………………………………………… 10
8. Quản lý dữ liệu bằng Microsoft Excel……………………………………11
9. Quản lý dữ liệu bằng Macro Microsoft Excel……………………………13
10. Vẽ khai triển các hình cơ bản……………………………………………..14
11. Quan hệ giữa Matlab – Microsoft Excel – Solid Edge………………… 16
12. Tạo thƣ viện bằng Visual Basic………………………………………… 16

Phần thứ hai

ỨNG DỤNG. TẠO THƢ VIỆN BẰNG VISUAL BASIC V6.0.
II.A. TẠO FORM BẰNG VISUAL BASIC V6.0
I. Tạo form
II. Tạo form điều khiển bằng nút bấm
III. Tạo các form thiết kế trục, báng răng, hộp giảm tốc
II.B. MỘT VÀI CẤU TRÚC CODE CỦA VISUAL BASIC V6.0
I. Điều khiển các thành phần trên trục
II. Một số cấu trúc lệnh liên kết với Excel
III. Cấu trúc lệnh quan hệ giữa Visual Basic với SolidEdge

Phần thứ ba
ÁP DỤNG
(Cơ sở dữ liệu và thiết kế được lưu trên đĩa CD kèm theo)

19
19

20
23
25
25
26
27
32

III. A - XÂY DỰNG KHUNG CƠ SỞ DỮ LIỆU CÁC CHI TIẾT MÁY CƠ BẢN PHỤC
VỤ GIẢNG DẠY VÀ HỌC TẬP CÁC MÔN HỌC: HÌNH HỌC – VẼ KỸ THUẬT,
NGUYÊN LÝ – CHI TIẾT MÁY.
1- Hình học – vẽ kỹ thuật
32
2- Chi tiết máy và cơ cấu tryền động
36
III. B. ỨNG DỤNG THIẾT KẾ LÒ HƠI CÔNG NGHIỆP
39
KẾT LUẬN
43

1


TÓM TẮT KẾT QUẢ NGHIÊN CỨU

NGHIÊN CỨU, ỨNG DỤNG THIẾT KẾ ĐỘNG, XÂY DỰNG
KHUNG DỮ LIỆU PHỤC VỤ THIẾT KẾ THỰC TIỄN VÀ GIẢNG DẠY
BẬC ĐẠI HỌC NGÀNH CƠ KHÍ
Mã số: B2006-22-09
Chủ nhiệm đề tài: Trần Thế San

Cơ quan chủ trì: Trường Đại Học Sư Phạm Kỹ Thuật Tp. HCM
Cơ quan phối hợp thực hiện:
Tên đề tài:

-

Công Ty Cơ Khí và Xây Lắp Công Nghiệp – IMECO
Khoa Cơ Khí Chế Tạo Máy – Trường ĐHSP Kỹ Thuật Tp. HCM
Khoa Xây Dựng & CHUD – Trường ĐHSP Kỹ Thuật Tp. HCM

-

Nguyễn Ngọc Phương
Vũ Như Phan Thiện
Trần Trọng Hỉ
Hồ Ngọc Bốn

Cá nhân phối hợp thực hiện:

Thời gian thực hiện: 06/2006 đến 12/2008
1. Mục Tiêu:
- Nghiên cứu động và linh hoạt, từng bước áp dụng vào sản xuất thực tiễn, cho phép
sử dụng có thể mở rộng và nâng cao tùy theo các điều kiện cụ thể.
- Cập nhật kiến thức, bổ sung vào chương trình đào tạo đại học các ngành tự động hóa
cơ khí, cơ điện tử, chế tạo máy, thiết kế máy, cơ tin học.
- Từng bước xây dựng khung cơ sở dữ liệu cơ khí tiến tới xây dựng thư viện cơ khí, kết
cấu thép… trong tương lai.
2. Nội Dung:
- Phân tích, lựa chọn các chi tiết và cơ cấu điển hình để xây dựng khung cơ sở dữ liệu.
- Lựa chọn thiết kế thực tế của đơn vò sản xuất: Lò hơi công nghiệp.

- Thiết kế và xây dựng khung cơ sở dữ liệu.
- Thiết kế linh hoạt lò hơi công nghiệp.
3. Kết Quả:
- Thiết kế và lập trình khung cơ sở dữ liệu, cho phép thiết kế các chi tiết cùng loại
chẳng hạn: Trục, bánh răng, hộp giảm tốc…
- Vẽ và thiết kế khung cơ sở dữ liệu phục vụ môn học: Vẽ kỹ thuật – Nguyên lý - Chi
tiết máy.
- Thiết kế linh hoạt lò hơi công nghiệp.
- Thiết kế linh hoạt module cung cấp nước nóng từ năng lượng mặt trời.

2


SUMMARY
RESEARCH, APPLICATION DYNAMIC DESIGNS,
BUILDING DATA FRAME FOR REAL DESIGN AND TECHICAL
EDUCATION
Project Title:

Code number: B2006-22-09

Coordinator: San Tran The
Implementing Institution: University of Technical Education HCMC
Cooperating Institution (s):
- IMECO Company
- Mechanical Engineering Faculty – University of Technical Education HCMC
-

Applying Mechanics & Building Faculty – University of Technical Education
HCMC

- Phuong Nguyen Ngoc
- Phan Thien Vu Nhu
- Hi Tran Trong
- Bon Ho Ngoc

Duration: from 06/2006 to 12/2008
2. Objectives:
- To research dynamic flexible design, applying into real productions.
- To update knowledges, adding to training programs.
- Building databae frame.
2. Main Contents:
- Selecting, analysing typical mechanical parts and mechanism to build a database
frame.
- Selecting a real design productt: industrial boiler.
- Design and building a database frame.
- Dynamic design a industrial boiler.
3. Results obtained:
- Design and write a database frame, alowing to design mechanical parts, such as,
shafts, bolts, gears, …
- Draw and design database frame for curriculae: Techical drawing – Mechanical
Principles - Machine details.
- Dynamic design a industial boiler.
- Dynamic design solar-energy module for hot water supply.

3


TỔNG QUAN
Trong tình hình hiện nay ứng dụng cơng nghệ thơng tin ngày càng phát triển và đa dạng, các
ngành nghề khác nhau từ giải trí, học tập, kinh tế cho tới quản lý đều có sự góp mặt của cơng nghệ

thơng tin, và trong lĩnh vực kỹ thuật khơng phải là một ngoại lệ. Các kỹ sư thiết kế khơng chỉ tính tốn
các số liệu trên máy tính mà họ còn ứng dụng các phần mềm mơ phỏng 3D để có được cái nhìn trực
quan hơn về kết cấu, mối quan hệ giữa các chi tiết trong cùng hệ thống máy.
Trong thiết kế truyền thống, kỹ sư và kỹ thuật viên phải tính tốn, thiết kế dựa trên các tài liệu
kỹ thuật, vẽ trên giấy chủ yếu là các tiết diện 2D, do đó thường tốn nhiều cơng sức, rất khó hình dung
tổng thể, độ tin cậy khơng cao, tốn nhiều thời gian, và rủi ro tương đối lớn khi quyết định chế tạo thử.
Từ thập niên 1970 của thế kỷ trước, đã bắt đầu xuất hiện các phần mềm máy tính, các ngơn ngữ lập
trình, hỗ trợ cho thiết kế, và chế tạo. Ban đầu, các phần mềm này chỉ là cơng cụ hỗ trợ nhằm giảm thời
gian, tăng độ tin cậy thiết kế, và tăng tính linh hoạt, dần dần chúng trở thành cơng cụ khơng thể thiếu
trong thiết kế và chế tạo cơ khí. Ngày nay, đã xuất hiện nhiều bộ phần mềm chun dùng, khơng chỉ
hỗ trợ đắc lực cho q trình thiết kế, mà còn có cơ sở dữ liệu tương đối đầy đủ theo các tiêu chuẩn kỹ
thuật quốc gia và quốc tế. Vấn đề chính là chun biệt hóa cơng cụ phần mềm phục vụ cho u cầu và
mục đích sử dụng. Các cơng ty thường có những sản phẩm đặc thù, họ cần có cơ sở dữ liệu và cơng cụ
phần mềm hỗ trợ thiết kế đủ mạnh, tiện lợi, dễ sử dụng, tin cậy và có tính bảo mật cao. Các cơ sở đào
tạo, từ bậc đại học đến cơng nhân, mong muốn có khung cơ sở dữ liệu chun dùng phục vụ cho cơng
tác đào tạo. Tùy theo nhu cầu cụ thể, khung cơ sở dữ liệu này sẽ được cơng ty, cơ sở đào tạo, cập nhật,
mở rộng, nâng cấp, và chun biệt hóa theo thực tế sử dụng.
Trong lĩnh vực thiết kế cơ khí, các phần mềm này còn giúp các kỹ sư thay đổi các thơng số
kích thước, tương quan hình học, tương quan vị trí một cách nhanh chóng nhằm kiểm nghiệm độ tin
cậy của thiết kế, lựa chọn và có thể tối ưu hóa thiết kế theo các điều kiện cụ thể, trước khi đưa vào sản
xuất thử nghiệm cũng như sản xuất hàng loạt nhằm giảm thiểu chi phí, thời gian, cơng sức. Khơng
những thế, các cơng cụ này còn hỗ trợ việc quản lý các chi tiết trong một cụm máy một cách có hệ
thống, cho phép tích hợp với phần mềm khác để xây dựng quy trình cơng nghệ, quản lý vật tư, theo
dõi tiến độ sản xuất và quản lý chất lượng sản phẩm, đồng thời có thể tính tốn chi phí và giá thành.
Ưu điểm cơ bản, bao gồm:
- Nhu cầu thực tế, thiết kế động các thiết bò đơn chiếc và dây chuyền đồng bộ trong cơ khí.
- Ứng dụng công nghệ thông tin trong thiết kế động.
- Các kết cấu cơ khí cơ bản và yêu cầu về khung cơ sở dữ liệu theo tiêu chuẩn.
- Yêu cầu quản lý chất lượng theo hệ thống.
Với những ưu điểm trên, và phạm vi ứng dụng của các phần mềm chun nghiệp khá lớn, nên

nhóm chúng tơi đưa việc tìm hiểu, nghiên cứu các khả năng ứng dụng cơng nghệ thơng tin trong thiết
kế cơ khí vào đề tài “Nghiên cứu ứng dụng thiết kế động, xây dựng khung dữ liệu phục vụ thiết kế
thực tiễn và giảng dạy bậc Đại học ngành cơ khí”.
Vì quỹ thời gian có hạn và để minh họa, chúng tơi chỉ giới hạn đề tài trong phạm vi ứng dụng các
phần mềm: Solid Edge, Microsoft Office Excel , Visual Basic.

4


MỤC TIÊU CỦA ĐỀ TÀI
 Tìm hiểu, nghiên cứu các khả năng ứng dụng và mối quan hệ giữa các phần mềm:
Solid Edge, Microsoft Excel, Visual Basic…
 Đơn giản hóa quá trình thiết kế các chi tiết máy.
 Thiết lập các mối tương quan hình học, tương quan kích thước trong một chi tiết và
giữa các chi tiết với nhau.
 Thiết lập khung cơ sở dữ liệu cho việc giảng dạy, học tập các môn kỹ thuật cơ sở
phục vụ cho chuyên ngành chế tạo máy, bao gồm: hình họa vẽ kỹ thuật, nguyên lý
máy – chi tiết máy… dựa trên chương trình khung và chương trình đang được thực hiện
tại Trường Đại học Sư phạm Kỹ thuật Tp. HCM.
 Bước đầu xây dựng khung thư viện các chi tiết, cụm chi tiết máy (tiêu chuẩn và chưa
tiêu chuẩn), vật liệu thép và gang thông dụng.
 Kết hợp với đơn vò bạn, lựa chọn sản phẩm để thực hiện thiết kế động.
NỘI DUNG
Xuất phát từ yêu cầu của thực tiễn sản xuất và đào tạo cần tập trung nghiên cứu ứng dụng
thực tiễn theo hướng công nghệ, do đó quá trình nghiên cứu phải bảo đảm đồng bộ giữa
nhu cầu thực tế, đào tạo và đònh hướng phát triển. Trên cơ sở đó, nội dung đề tài sẽ bao
gồm
 Ứng dụng công nghệ thông tin trong kỹ thuật nhằm hỗ trợ thiết kế động các chi
tiết, cơ cấu, cụm máy trong ngành cơ khí, nâng cao tính linh hoạt khi thiết kế các
sản phẩm.

 Lựa chọn cơ cấu, cụm máy điển hình để thiết kế phù hợp các điều kiện cụ thể.
 Thiết lập khung cơ sở dữ liệu dựa trên các tiêu chuẩn công nghiệp hiện hành. Cơ
sở dữ liệu mở để có thể cập nhật và nâng cấp tùy theo yêu cầu sử dụng và sự phát
triển trong tương lai.
 Thiết kế động cụm chi tiết hoặc hệ thống với các biến là thông số hình học và
thông số vật lý.
 Khung dữ liệu cơ bản dựa trên các nguyên lý thiết kế xét đến chương trình đào tạo
các ngành liên quan tại trường ĐHSPKT (CTM, CĐT, CNT, Cơ tin, TKM,…).
 Trình tự chế tạo một sản phẩm cơ khí thường thông qua 3 bước: Tính toán  Thiết
kế  Chế tạo. Trong khi thiết kế chi tiết hay cơ cấu, các kích thùc tự do, hình
dạng, có những kích thước rất quan trọng quyết đònh đến khả năng làm việc của
chi tiết, các kích thước này là kết quả của các bài toán kỹ thuật. Đây chính là mục
đích của đề tài.

5













Lựa chọn cụm chi tiết và kết cấu điển hình.
Phân tích kích thước ban đầu các chi tiết.

Tương quan kích thước hình học.
Các kích thước thay đổi trong khi thiết kế.
Thiết kế một chi tiết dựa trên chi tiết có liên quan.
Khái niệm tạo 2 chi tiết mới từ chi tiết đã có.
Cơ sở dữ liệu và quản lý dữ liệu thiết kế dạng bảng Excel.
Tạo module thiết kế bằng VB hoặc VC.
Dữ liệu thiết kế nhận từ kết quả tính toán bằng Matlab.
Xây dựng cơ sở dữ liệu theo hệ thống với tập hợp các module mở liên hệ chặt chẽ
với nhau, mỗi module có thể được mở rộng cập nhật và năng cấp theo yêu cầu và
hướng phát triển cụ thể. Tùy theo điều kiện thực tế có thể bổ sung các module
mới, xây dựng các module con theo hệ thống lồng ghép đa cấp.

Việc nghiên cứu thiết kế động các chi tiết, cơ cấu, cụm máy được thực hiện với sự hỗ
trợ cũa các phần mềm Solid-Edge, Microsoft Excel, Visual Basic, Matlab, Unigraphics…
Dựa trên tiêu chuẩn quản lý chất lượng ISO-9000, tiêu chuẩn chất lượng quốc gia và
quốc tế, tiêu chuẩn quá trình đào tạo, đề tài được thực hiện theo hướng chuẩn hoá từ
thiết kế nội dung đến xây dựng cơ sở dữ liệu, bảo đảm tính cập nhật và nâng cao.
6


Khung cơ sở dữ liệu dựa trên module được tiêu chuẩn hoá theo hướng mở, để có thể
tiếp tục phát triển nhưng vẫn bảo đảm tính an toàn và thực tiễn.
Các bước thực hiện bao gồm : xây dựng cơ sở tạo dữ liệu dựa trên các quan hệ vật lý, hình
học, và kích thước của nhóm chi tiết cùng loại, tạo form điều khiển bằng nút bấm, tạo form
thiết kế chi tiết hoặc cụm chi tiết. Viết chương trình và cấu trúc code của Visual Basic liên
kết với các phần mềm khác ( Microsoft Excel để quản lý dữ liệu, Solid Edge để vẽ 3D…).
Thực hiện thiết kế động các chi tiết máy cơ bản, trục, bánh răng, hộp giảm tốc, bu lơng,
một số cơ cấu truyền động, … phục vụ giảng dạy và học tập, chuẩn bị khung cơ sở dữ liệu
cho thiết kế thực tế. Kết hợp với đơn vị bạn, thực hiện thiết kế động lò hơi cơng nghiệp,…
Các bước thực hiện bao gồm:


Phần Thứ Nhất
CƠ SỞ TẠO DỮ LIỆU VÀ MỘT SỐ CHI TIẾT ĐIỂN HÌNH
13. Tƣơng quan biên dạng hình học phẳng.
 Ghi kích thước.
 Ràng buộc: nối, song song, vuông góc...
 Gióng hàng đứng, ngang.
 Đònh nghóa kích thước bằng nhau…
 Các tham số biến kích thước, có thể chọn bu lơng tiêu chuẩn để minh họa. Bu
lơng có 2 kích thước thay đổi là đường kính và chiều dài bulông.
đường kính bulông.
V1399  12
đường kính đỉnh bulông.
V 871  V 874 * 2
phụ thuộc vào V1399
V 874  12
0
0
V 833  120 , V 1134  30 ,…
mặc đònh, không thay đổi.

7


14. Tƣơng quan hình học
của chi tiết.

15. Biến kích thƣớc.

8



16. Tƣơng quan dữ liệu giữa các chi tiết, các lệnh Copylink & Pastelink.

17. Tương quan kích thước của 2 chi tiết theo chi tiết mẫu được tạo trước theo chức
năng Insert Part.

Chi tiết mẫu HGT

Chi tiết thân HGT

Chi tiết nắp HGT

Kích thước của chi tiết HGT (hộp giảm tốc) được xây dựng trước, sự thay đổi kích thước
của chi tiết HGT sẽ dẫn đến thay đổi kích thước các chi tiết thân và nắp HGT một cách tự
động.

9


18. Tương quan kích thước của 2 chi tiết theo chi tiết mẫu được tạo trước theo chức
năng Divide Part.

Chi tiết TM

Chi tiết thân TM

Chi tiết nắp TM

Kích thước của chi tiết TM được xây dựng trước, sau đó được chia thành 2 chi tiết thân

và nắp. Sự thay đổi kích thước của chi tiết TM sẽ dẫn đến thay đổi kích thước các chi tiết thân
và nắp TM một cách tự động.
19. Quan hệ họ (family) chi tiết.

10


20. Quản lý dữ liệu bằng Microsoft Excel.

11


12


21. Quản lý dữ liệu bằng Macro Microsoft Excel.

Chƣơng trình Macro.
Sub UpdateSolidEdge()
Dim SelRow As Integer
Dim Sel As Object
Dim IApp As Object
Dim Variables As Object
Dim Feature As Object
Dim A As Double, B As Double, C As Double, D As Double, E As Double
Dim F As Double, G As Double, H As Double, I As Double, J As Double, K As Double
Dim UseLinks As Boolean
UseLinks = False
Set Sel = Application.ActiveCell
SelRow = Sel.Row

If SelRow <= 9 And SelRow <> 4 Then
If UseLinks Then

13


Sheets("Sheet1").Rows(SelRow & ":" & SelRow).Copy (Sheets("Sheet2").Rows("1:1"))
Else
A = Sheets("Sheet1").Cells(SelRow, 2).Value
B = Sheets("Sheet1").Cells(SelRow, 3).Value
C = Sheets("Sheet1").Cells(SelRow, 4).Value
D = Sheets("Sheet1").Cells(SelRow, 5).Value
E = Sheets("Sheet1").Cells(SelRow, 6).Value
F = Sheets("Sheet1").Cells(SelRow, 7).Value
G = Sheets("Sheet1").Cells(SelRow, 8).Value
H = Sheets("Sheet1").Cells(SelRow, 9).Value
I = Sheets("Sheet1").Cells(SelRow, 10).Value
J = Sheets("Sheet1").Cells(SelRow, 11).Value
K = Sheets("Sheet1").Cells(SelRow, 12).Value
On Error Resume Next
Set IApp = GetObject(, "SolidEdge.Application")
If Err Then
MsgBox "Solid Edge must be running"
Else
Set Vars = IApp.ActiveDocument.Variables
If UCase(IApp.ActiveDocument.Name) <> "TRUC.PAR" Then
MsgBox "The document Truc.par must be active."
Set Vars = Nothing
Set IApp = Nothing
End

End If
IApp.delaycompute = True
Call Vars.Edit("A", Str(A))
Call Vars.Edit("B", Str(B))
Call Vars.Edit("C", Str(C))
Call Vars.Edit("D", Str(D))
Call Vars.Edit("E", Str(E))
Call Vars.Edit("F", Str(F))
Call Vars.Edit("G", Str(G))
Call Vars.Edit("H", Str(H))
Call Vars.Edit("I", Str(I))
Call Vars.Edit("J", Str(J))
Call Vars.Edit("K", Str(K))
IApp.delaycompute = False
Set Vars = Nothing
Set IApp = Nothing
End If
End If
Else
MsgBox "Invalid row selected."
End If
End Sub

14


22. Vẽ khai triển các hình cơ bản
 Khai triển mặt trụ:
_ Để khai triển một mặt trụ ta phải xem mặt trụ là tập hợp các mặt bên của một hình lăng
trụ được chia đều trên vòng tròn đáy của hình trụ. Việc khai triển có chính xác cao hay thấp là

dựa vào việc ta chia mặt lăng trụ nhiều hay ít.
_ Ta có thể xem các dạng hình trụ cần khai triển là một họ quan hệ hình học. Việc thay đổi
các kích thước trong quan hệ hình học của họ hình trụ thật đơn giản với Solid Edge chỉ cần
một cái click chuột, thay đổi thông số của họ rồi cập nhật thế là ta đã khai triển được cả họ
hình trụ mà không phải tốn thời gian để khai triển từng thành viên trong đó.

Một mặt trụ được chia số múi mặt lăng trụ khác nhau.

15


 Khai triển mặt nón:
_ Tương tự mặt trụ, đối với mặt nón thì qui tắc khai triển của ta cũng không khác gì lắm so
với mặt trụ.

Một mặt hình nón được chia theo số múi lăng trụ khác nhau

16


23. Quan hệ giữa Matlab – Microsoft Excel – Solid Edge.
24. Tạo thƣ viện bằng Visual Basic.
Quản lý việc thiết kế các chi tiết bằng ngôn ngữ lập trình Visual Basic.
Từ những khả năng độc đáo trên của Solid Edge ta có thể thực hiện các liên kết trong Solid
Edge với ngôn ngữ lập trình Visual Basic, bước đầu thiết kế các chi tiết trong Solid Edge
bằng ngôn ngữ lập trình Visual Basic.
Đây cũng chính là phần nội dung quan trọng nhất mà chúng tôi bước đầu nghiên cứu, tiên
phong cho một hướng mới trong thiết kế. Đó là tạo dựng một thư viên người dùng riêng trong
vấn đề thiết kế các chi tiết tiêu chuẩn cũng như một thư viện riêng phục vụ trong công việc
giảng dạy.


Form thiết kế trục.

Form thiết kế bánh răng.
17


Nhập dữ liệu thiết kế trục.

Trục đã được thiết kế.

18


Nhập dữ liệu thiết kế bánh răng ngoài.

Bánh răng ngoài đã được thiết kế.
19


Nhập liệu thiết kế bánh răng trong.

Bánh răng trong đã được thiết kế.
20


Phần Thứ Hai
ỨNG DỤNG. TẠO THƢ VIỆN BẰNG VISUAL BASIC V6.0.
II.A. TẠO FORM BẰNG VISUAL BASIC V6.0
I. Tạo form:

_ Khởi động Visual Basic V6.0
_ Trong hộp thoại New Project chọn Standard EXE

_ Trong hộp thoại Properties – Form
Đặt tên cho form
Thiết lập các thuộc tính của form

_ Quản lý Project và form bằng cửa sổ Project Explorer
Thêm Project, Form, ….
Lưu, xóa Project, Form, …

21


II. Tạo form điều khiển bằng nút bấm:

1. Khởi động thành phần điều khiển:
_ Trên menu bar chọn:
Project > Components…
Phím tắt: Ctrl_T
_ Trong hộp thoại Components
Chọn Tab Controls
Đánh dấu kiểm vào ô: Microsoft Windows Common Controls 5.0 (SP2)
Chọn nút OK
_ Trên thanh General
Chọn nút Control
_ Trên form, định vị trí nút Control.
_ Điều khiển các nút bấm
Tại vị trí Control bấm chuột phải chọn Properties
Trong hộp thoại Property Pages điều chỉnh số lượng nút điều khiên, cũng như các thuộc tính

của nút điều khiển.

22


2. Tạo hình ảnh trên nút bằng ImageList:
_ Trên thanh Generall
Chọn nút ImageList
_ Trên form, định vị trí ImageList
_ Tại vị trí ImageList bấm chuột phải chọn Properties

Trong hộp thoại Property Pages chọn các hình cần thiết chèn vô, cũng như thiết lập các thuộc
tính cho ImagesList.
3. Cấu trúc lệnh điều khiển nút bấm:
_ Tại vị trí nút điều khiển double click sẽ hiện ra cửa sổ code.
_ Code điều khiển nụt bấm:
Private Sub ABC_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
Case "Truc"
<các câu lệnh điều khiển form cho nút bấm tạo trục>
Case "Banh rang"
<các câu lệnh điều khiển form cho nút bấm tạo bánh răng>
Case "Hop Giam Toc"
<các câu lệnh điều khiển form cho nút bấm thiết kế hộp giảm tốc>
Case "PN"
<các câu lệnh điều khiển form cho nút bấm thiết kế Pannel nước>
Case “Exit”
End „(thoát khỏi chương trình)
End Select


23