1. Trang chủ
  2. » Luận Văn - Báo Cáo

Thiết kế chế tạo hệ thống cơ điện tử cho việc xác định tính năng ma sát cặp vật liệu

112 24 0

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 112
Dung lượng 1,87 MB

Nội dung

Thiết kế chế tạo hệ thống cơ điện tử cho việc xác định tính năng ma sát cặp vật liệu Thiết kế chế tạo hệ thống cơ điện tử cho việc xác định tính năng ma sát cặp vật liệu Thiết kế chế tạo hệ thống cơ điện tử cho việc xác định tính năng ma sát cặp vật liệu luận văn tốt nghiệp,luận văn thạc sĩ, luận văn cao học, luận văn đại học, luận án tiến sĩ, đồ án tốt nghiệp luận văn tốt nghiệp,luận văn thạc sĩ, luận văn cao học, luận văn đại học, luận án tiến sĩ, đồ án tốt nghiệp

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI LUẬN VĂN THẠC SỸ KHOA HỌC THIẾT KẾ, CHẾ TẠO HỆ THỐNG CƠ ĐIỆN TỬ CHO VIỆC XÁC ĐỊNH TÍNH NĂNG MA SÁT CẶP VẬT LIỆU NGÀNH ĐIỀU KHIỂN TỰ ĐỘNG MÃ SỐ ĐẶNG THÁI VIỆT Người hướng dẫn khoa học: PGS TS PHAN XUÂN MINH HÀ NỘI 2007 MỤC LỤC LỜI CAM ĐOAN MỤC LỤC MỞ ĐẦU CHƯƠNG I: TỔNG QUAN VỀ MA SÁT I.1 TỔNG QUAN I.2 LỊCH SỬ PHÁT TRIỂN I.3 HỆ SỐ MA SÁT I.3.1 Quan hệ hệ số ma sát áp suất pháp tuyến I.3.2 Quan hệ hệ số ma sát với tốc độ trượt MA SÁT KHƠNG CĨ CHẤT BÔI TRƠN 10 1.4 CHƯƠNG 2: THIẾT KẾ HỆ TRUYỀN DẪN CƠ KHÍ 12 II.1 NHỮNG YÊU CẦU KHI THIẾT KẾ, CHẾ TẠO MÁY ĐO HỆ SỐ MA 12 SÁT II.2 CÁC PHƯƠNG ÁN KẾT CẤU MÁY ĐO HỆ SỐ MA SÁT 13 II.2.1 Phương án I 14 II.2.2 Phương án II 14 II.3 TÍNH TỐN THIẾT KẾ CƠ KHÍ MÁY ĐO HỆ SỐ MA SÁT II.3.1 Tính chọn động cơ: 15 15 II.3.2 Tính chọn truyền đai 16 II.3.3 Tính tốn trục 17 CHƯƠNG 3: THIẾT KẾ HỆ TRUYỀN ĐỘNG ĐIỆN 21 III.1 CẢM BIẾN ĐO LỰC 21 III.1.1 Cấu tạo nguyên lý 21 III.1.2 Đặc tính kỹ thuật Sensor 22 III.2 MẠCH KHUẾCH ĐẠI VÀ HIỆN THỊ SỐ 23 III.3 TÍNH CHỌN ĐỘNG CƠ 24 III.3.1 Động bước 25 III.3.2 Đặc tính động bước 26 III.4 HỆ THỐNG ĐIỀU KHIỂN ĐỘNG CƠ BƯỚC 28 III.4.1 Nguyên tắc chung 29 29 III.4.2 Phương pháp điều khiển động bước29 29 III.4.3 Vấn đề trượt bước 32 32 III.4.4 Ưu điểm động bước: 33 33 III.5 THIẾT KẾ MẠCH ĐIỀU KHIỂN ĐỘNG CƠ BƯỚC 34 III.5.1 Cấu trúc mạch nguyên lý: 34 34 III.5.2 Điều khiển động bước dùng IRF 540 36 III.5.3 Khối xử lí trung tâm 37 37 III.5.4 Khối giao tiếp nối tiếp RS232: 38 38 III.5 Khối nguồn: 39 39 III.6 VI ĐIỀU KHIỂN 41 III.6.1 Nguyên tắc điều khiển động bước vi xử lý: 41 41 41 III.6.2 Nguyên tắc đọc xử lý liệu từ cảm biến 42 42 III.6.3 Thuật tốn cho vi điều khiển 45 45 III.6 Tính chọn chip vi xử lý AT89S52 46 46 CHƯƠNG 55 THIẾT KẾ GIAO DIỆN TRÊN MÁY TÍNH PC IV.1 NHIỆM VỤ CỦA CHƯƠNG TRÌNH GIAO DIỆN TRÊN MÁY VI 57 TÍNH 57 IV.2 TÍNH TỐN KẾT QUẢ ĐO TRÊN CHƯƠNG TRÌNH GIAO DIỆN 57 IV.3 XUẤT BÁO CÁO KẾT QUẢ THÍ NGHIỆM 57 IV THUẬT TỐN CHO CHƯƠNG TRÌNH MÁY TÍNH 61 IV.5 GIAO DIỆN VÀ CÁCH SỬ DỤNG CHƯƠNG TRÌNH 62 IV.5.1 Form mở đầu 63 63 IV.5.3 Form đo theo tải trọng 64 64 IV.5.4 Form tổng hợp theo vận tốc 65 65 IV.5.5 Form tổng hợp theo tải trọng 66 66 CHƯƠNG KHẢO SÁT QUÁ TRÌNH ĐO THỰC NGHIỆM 67 V.1 XÂY DỰNG PHƯƠNG TRÌNH ĐƯỜNG THẲNG BIỂU DIỄN SỰ 67 TUYẾN TÍNH CỦA CẢM BIẾN V.1.1 Chuẩn thiết bị đo 68 V.2 KẾT QUẢ TÍNH HỆ SỐ MA SÁT TRÊN CƠ SỞ LÝ THUYẾT 69 V.2.2 Trong trường hợp chi tiết khí thơng thường 70 V.3 KẾT QUẢ ĐO 71 V.3.1 Kết hệ số ma sát theo vận tốc 73 V.3.2 Kết hệ số ma sát theo tải trọng 74 V.3.3 Kiểm nghiệm tính hệ số ma sát mẫu vật liệu thép 45 75 KẾT LUẬN 77 PHỤ LỤC 80 TÀI LIỆU THAM KHẢO 105 LỜI CAM ĐOAN Tôi xin cam đoan kết luận văn thân thực dựa hướng dẫn giáo viên hướng dẫn khoa học tài liệu tham khảo trích dẫn Học viên Đặng Thái Việt Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 MỤC LỤC LỜI CAM ĐOAN MỤC LỤC MỞ ĐẦU CHƯƠNG I: TỔNG QUAN VỀ MA SÁT I.1 TỔNG QUAN I.2 LỊCH SỬ PHÁT TRIỂN I.3 HỆ SỐ MA SÁT I.3.1 Quan hệ hệ số ma sát áp suất pháp tuyến I.3.2 Quan hệ hệ số ma sát với tốc độ trượt MA SÁT KHÔNG CĨ CHẤT BƠI TRƠN 10 1.4 CHƯƠNG II: THIẾT KẾ HỆ TRUYỀN DẪN CƠ KHÍ 12 II.1 NHỮNG YÊU CẦU KHI THIẾT KẾ, CHẾ TẠO MÁY ĐO HỆ SỐ MA 12 SÁT II.2 CÁC PHƯƠNG ÁN KẾT CẤU MÁY ĐO HỆ SỐ MA SÁT 13 II.2.1 Phương án I 14 II.2.2 Phương án II 14 II.3 TÍNH TỐN THIẾT KẾ CƠ KHÍ MÁY ĐO HỆ SỐ MA SÁT 15 II.3.1 Tính chọn động cơ: 15 II.3.2 Tính chọn truyền đai 16 II.3.3 Tính tốn trục 17 CHƯƠNG III: 21 THIẾT KẾ HỆ TRUYỀN ĐỘNG ĐIỆN III.1 CẢM BIẾN ĐO LỰC 21 III.1.1 Cấu tạo nguyên lý 21 III.1.2 Đặc tính kỹ thuật Sensor 22 III.2 MẠCH KHUẾCH ĐẠI VÀ HIỆN THỊ SỐ 23 III.3 TÍNH CHỌN ĐỘNG CƠ 24 III.3.1 Động bước 25 III.3.2 Đặc tính động bước 26 III.4 HỆ THỐNG ĐIỀU KHIỂN ĐỘNG CƠ BƯỚC 28 III.4.1 Nguyên tắc chung 29 Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 III.4.2 Phương pháp điều khiển động bước 29 III.4.3 Vấn đề trượt bước 32 III.4.4 Ưu điểm động bước 33 III.5 THIẾT KẾ MẠCH ĐIỀU KHIỂN ĐỘNG CƠ BƯỚC 34 III.5.1 Cấu trúc mạch nguyên lý 34 III.5.2 Điều khiển động bước dùng IRF 540 36 III.5.3 Khối xử lí trung tâm 37 III.5.4 Khối giao tiếp nối tiếp RS232 38 III.5 Khối nguồn 39 III.6 VI ĐIỀU KHIỂN 41 III.6.1 Nguyên tắc điều khiển động bước vi xử lý 41 III.6.2 Nguyên tắc đọc xử lý liệu từ cảm biến 42 III.6.3 Thuật toán cho vi điều khiển 45 III.6 Tính chọn chip vi xử lý AT89S52 46 CHƯƠNG IV 55 THIẾT KẾ GIAO DIỆN TRÊN MÁY TÍNH PC IV.1 NHIỆM VỤ CỦA CHƯƠNG TRÌNH GIAO DIỆN TRÊN MÁY VI 57 TÍNH IV.2 TÍNH TỐN KẾT QUẢ ĐO TRÊN CHƯƠNG TRÌNH GIAO DIỆN 57 IV.3 XUẤT BÁO CÁO KẾT QUẢ THÍ NGHIỆM 57 IV THUẬT TỐN CHO CHƯƠNG TRÌNH MÁY TÍNH 61 IV.5 GIAO DIỆN VÀ CÁCH SỬ DỤNG CHƯƠNG TRÌNH 62 IV.5.1 Form mở đầu 63 IV.5.3.Form đo theo tải trọng 64 IV.5.4 Form tổng hợp theo vận tốc 65 IV.5.5 Form tổng hợp theo tải trọng 66 CHƯƠNG V KHẢO SÁT QUÁ TRÌNH ĐO THỰC NGHIỆM 67 V.1 XÂY DỰNG PHƯƠNG TRÌNH ĐƯỜNG THẲNG BIỂU DIỄN SỰ 67 TUYẾN TÍNH CỦA CẢM BIẾN V.1.1 Chuẩn thiết bị đo 68 V.2 KẾT QUẢ TÍNH HỆ SỐ MA SÁT TRÊN CƠ SỞ LÝ THUYẾT 69 V.2.2 Trong trường hợp chi tiết khí thơng thường 70 Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 V.3 KẾT QUẢ ĐO 71 V.3.1 Kết hệ số ma sát theo vận tốc 73 V.3.2 Kết hệ số ma sát theo tải trọng 74 V.3.3 Kiểm nghiệm tính hệ số ma sát mẫu vật liệu thép 45 75 KẾT LUẬN 77 PHỤ LỤC 80 TÀI LIỆU THAM KHẢO 105 Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 DANH MỤC CÁC BẢNG BIỂU, HÌNH VẼ Hình 1.1 Sơ đồ nguyên tắc biến thiên hệ số ma sát phụ thuộc vào áp suất Hình 1.2 Sơ đồ nguyên tắc biến thiên hệ số ma sát phụ thuộc vào vận tốc trượt µ = f (V ) Hình 1.3 Phân loại dạng ma sát Hình 2.1 Kết cấu máy đo có mẫu với đường kính khác Hình 2.2 Kết cấu máy đo với mẫu có đường kính Hình 2.3 Biểu đồ mơmen Hình 2.4 Mơ hình máy đo ma sát MS 2007 Hình 3.1 Sơ đồ khối hệ thống thiết kế Hình 3.2 Sơ đồ cảm biến vi đo lực hoạt động Hình 3.3 Sơ đồ chân cảm biến Hình 3.4 Sơ đồ nguyên lý mạch thu thập liệu đo Hình 3.5 Sơ đồ chân ICL7107 Hình 3.6 Động bước Hình 3.7 Động pha Hình 3.8 Momen động bước Hình 3.9 Sơ đồ khối hệ thống điều khiển động bước Hình 3.10 Giản đồ nguyên lý lực điện từ điều khiển chế độ vi bước Hình 3.11 Giản đồ xung cấp điều khiển1 pha Hình 3.12 Giản đồ xung cấp cấp điều khiển pha Hình 3.13 Giản đồ xung cấp điều khiển nửa bước Hình 3.14 Chống dao động bước Hình 3.15 Sơ đồ điều khiển động VR Hình 3.16 Mạch nguyên lý điều khiển cực động Hình 3.17 Sơ đồ chân ULN2003 Hình 3.18 Sơ đồ chân IRF Hình 3.19 Sơ đồ mạch cách ly Hình 3.20 Sơ đồ mạch khối vi điều khiển Hình 3.21 Sơ đồ mạch khối giao tiếp PC Hình 3.22 Sơ đồ mạch khối nguồn Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 CD.DialogTitle = "Luu tep" CD.Filter = "TTF files(*.TTF)|*.TTF" CD.FileName = "TT" + "-" + Combo1.Text + "-" + Combo2.Text + "-" + Combo3.Text CD.ShowSave Ms.TextMatrix(2, 7) = "" Ms.TextMatrix(2, 8) = "" 'xoa thi pic.Cls vehetruc If CD.FileName "" Then End Sub frmvt.Caption = "Do theo van toc" + CD.FileName Open CD.FileName For Output As #1 'Ve he truc Private Sub XPStyleButton6_Click() pic.DrawWidth = If MsgBox("Nhap du cac thong so ?", vbOKCancel + vbQuestion, "Thong bao !") = vbOK Then pic.Cls vehetruc vedothi Else Cancel = 'Khong ve End If End Sub 'luu mau do, vat lieu truc a = Combo1.Text Print #1, a a = Combo2.Text Print #1, a 'luu tai trong, duong kinh truc a = Combo3.Text Print #1, a a = 50 Print #1, a 'luu du lieu tai bang For I = To a = Ms.TextMatrix(0, I) Print #1, a a = Ms.TextMatrix(3, I) Print #1, a Next I Close #1 Else MsgBox "Khong co ten tep !", vbOKOnly + vbCritical, "Thong Bao Loi" End If End Sub 'Reset Private Sub XPStyleButton4_Click() 'xoa du lieu textbox Text2.Text = "" Text3.Text = "" Text4.Text = "" 'xoa du lieu bang luu Ms.TextMatrix(3, 1) = "" Ms.TextMatrix(3, 2) = "" Ms.TextMatrix(3, 3) = "" Ms.TextMatrix(3, 4) = "" Ms.TextMatrix(3, 5) = "" Ms.TextMatrix(3, 6) = "" Ms.TextMatrix(3, 7) = "" Ms.TextMatrix(3, 8) = "" Ms.TextMatrix(2, 1) = "" Ms.TextMatrix(2, 2) = "" Ms.TextMatrix(2, 3) = "" Ms.TextMatrix(2, 4) = "" Ms.TextMatrix(2, 5) = "" Ms.TextMatrix(2, 6) = "" Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 'Chuong trinh ve thi Public Sub vehetruc() pic.ForeColor = &HFFFFFF 'Chia picture 12 khoang chia deltax = pic.ScaleWidth \ 12 deltay = pic.ScaleHeight \ 12 x0 = deltax y0 = deltay * 11 X = deltax * 11 Y = deltay 'Ve cac truc tung,hoanh pic.Line (x0, y0)-(X, y0), vbWhite pic.Line (x0, y0)-(x0, Y), vbWhite 'Ve cac khoang chia truc X, truc Y For I = To 10 'Chia tren truc X xi = deltax * I yt = y0 + 40 yd = y0 - 40 pic.Line (xi, yt)-(xi, yd), vbWhite pic.CurrentX = xi - 150 pic.CurrentY = yd + 80 pic.FontSize = 10 j = (I - 1) * 50 pic.Print (j) Next I For I = To 10 'Chia tren truc Y yi = deltay * I xt = x0 - 40 xp = x0 + 40 93 pic.Line (xt, yi)-(xp, yi), vbWhite pic.CurrentX = xt - 400 pic.CurrentY = yi - 150 pic.FontSize = 10 k = 0.5 - (I - 1) * 0.05 pic.Print k Next I 'Them so vao goc pic.CurrentX = x0 - 400 pic.CurrentY = y0 pic.FontSize = 10 pic.Print "0" 'Dien cac thong so cua thi pic.CurrentX = X - 350 pic.CurrentY = deltay * 11 - 300 pic.FontSize = 10 pic.Print "P (gam)" pic.CurrentX = X - 800 pic.CurrentY = deltay pic.FontSize = 15 pic.Print "y = f (p)" pic.CurrentX = deltax + 200 pic.CurrentY = Y - 200 pic.FontSize = 10 pic.Print "y" 'Them dau mui ten 'mui ten truc X yt = deltay * 11 - 40 yd = deltay * 11 + 40 xt = X - 150 pic.Line (X, deltay * 11)-(xt, yt) pic.Line (X, deltay * 11)-(xt, yd) y0 = yi End If pic.Line (x0, y0)-(xi, yi), vbGreen x0 = xi y0 = yi Next j End Sub Private Sub XPStyleButton8_Click() Dim baocao As Word.Application 'Object Set baocao = CreateObject("Word.Application") ' Neu MS Word chua duoc cai tren may thi se bao loi If baocao Is Nothing Then MsgBox "MS Word chua duoc cai tren may cua ban" Exit Sub End If 'Luu thi cho vao bao cao SavePicture pic.Image, "C:\WINDOWS\Temp\dothitaitrong.bmp" With baocao Visible = True Activate WindowState = wdWindowStateNormal Documents.Add noidung baocao End With End Sub Public Sub noidung(baocao As Word.Application) With baocao 'mui ten truc Y xt = deltax - 40 xp = deltax + 40 yd = Y + 150 pic.Line (deltax, Y)-(xt, yd) pic.Line (deltax, Y)-(xp, yd) End Sub Public Sub vedothi() 'Lay du lieu tu bang luu de ve thi pic.DrawWidth = For j = To xj = Val(Ms.TextMatrix(0, j)) yj = Val(Ms.TextMatrix(3, j)) xi = (xj \ 50 + 1) * deltax yi = pic.ScaleHeight - (yj * 20 + 1) * deltay If j = Then x0 = xi Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 If baocao.ActiveWindow.View.SplitSpecial wdPaneNone Then baocao.ActiveWindow.Panes(2).Close End If If baocao.ActiveWindow.ActivePane.View.Type = wdNormalView Or baocao.ActiveWindow _ ActivePane.View.Type = wdOutlineView Then baocao.ActiveWindow.ActivePane.View.Type = wdPrintView End If baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader baocao.Selection.Font.Name = "Times New Roman" baocao.Selection.Font.Size = 14 94 baocao.Selection.TypeText Text:="Lu" & ChrW(7853) & "n V" & ChrW(259) & "n T" & _ ChrW(7889) & "t Nghi" & ChrW(7879) & "p" If baocao.Selection.HeaderFooter.IsHeader = True Then baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageFooter Else baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader End If baocao.Selection.TypeText Text:="SV : Tr" & ChrW(7847) & "n Quang Huy" & vbTab & _ "Nguy" & ChrW(7877) & "n V" & ChrW(259) & "n Th" & ChrW(7885) & vbTab & _ "Lê Xuân " & ChrW(272) & ChrW(7913) & "c" baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekMainDocument baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.Font.Size = 20 baocao.Selection.TypeText Text:="Tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(272) _ & ChrW(7841) & "i H" & ChrW(7885) & "c Bách Khoa Hà N" & ChrW(7897) & _ "i" baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="B" & ChrW(7897) & " Môn Máy & Ma Sát" baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 16 baocao.Selection.TypeText Text:=" -o0o -" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="B" & ChrW(7843) & "ng K" & ChrW(7871) & "t Qu" & _ ChrW(7843) & " " & ChrW(272) & "o H" & ChrW(7879) & " S" & ChrW(7889) & _ " Ma Sát Theo T" & ChrW(7843) & "i Tr" & ChrW(7885) & "ng" baocao.Selection.TypeParagraph baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft baocao.Selection.Font.Size = 14 baocao.Selection.TypeParagraph Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 baocao.Selection.TypeText Text:="Ngày th" & ChrW(7921) & "c hi" & ChrW(7879) & _ "n : " baocao.Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="Th" & ChrW(7901) & "i gian làm : " baocao.Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.ActiveDocument.Tables.Add Range:=baocao.Selection.Range, NumRows:=4, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With baocao.Selection.Tables(1) Columns.PreferredWidth = baocao.CentimetersToPoints(5) If Style "Table Grid" Then Style = "Table Grid" End If ApplyStyleHeadingRows = True ApplyStyleLastRow = True ApplyStyleFirstColumn = True ApplyStyleLastColumn = True End With 'van toc baocao.Selection.TypeText Text:="V" & ChrW(7853) & "n t" & ChrW(7889) & "c tr" & _ ChrW(7909) & "c : " baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Combo3.Text + " (v/ph)" baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 'vat lieu baocao.Selection.TypeText Text:="V" & ChrW(7853) & "t li" & ChrW(7879) & "u " & _ ChrW(273) & "o :" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Combo1.Text 95 baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 'vat lieu truc baocao.Selection.TypeText Text:="V" & ChrW(7853) & "t li" & ChrW(7879) & "u tr" & _ ChrW(7909) & "c : " baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Combo2.Text baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 'Duong kinh truc baocao.Selection.TypeText Text:=ChrW(272) & ChrW(432) & ChrW(7901) & "ng kính tr" _ & ChrW(7909) & "c m" & ChrW(7851) & "u :" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="50mm" baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 'bo khung bao baocao.Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend baocao.Selection.Borders(wdBorderTop).LineStyl e = wdLineStyleNone baocao.Selection.Borders(wdBorderLeft).LineStyl e = wdLineStyleNone baocao.Selection.Borders(wdBorderBottom).LineS tyle = wdLineStyleNone baocao.Selection.Borders(wdBorderRight).LineSty le = wdLineStyleNone baocao.Selection.Borders(wdBorderHorizontal).Li neStyle = wdLineStyleNone baocao.Selection.Borders(wdBorderVertical).Line Style = wdLineStyleNone baocao.Selection.Borders(wdBorderDiagonalDow n).LineStyle = wdLineStyleNone baocao.Selection.Borders(wdBorderDiagonalUp) LineStyle = wdLineStyleNone baocao.Selection.MoveDown Unit:=wdLine, Count:=1 Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 baocao.Selection.TypeParagraph baocao.ActiveDocument.Tables.Add Range:=baocao.Selection.Range, NumRows:=2, NumColumns:= _ 9, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With baocao.Selection.Tables(1) If Style "Table Grid" Then Style = "Table Grid" End If ApplyStyleHeadingRows = True ApplyStyleLastRow = True ApplyStyleFirstColumn = True ApplyStyleLastColumn = True End With baocao.Selection.TypeText Text:="T" & ChrW(7843) & "i tr" & ChrW(7885) & "ng (g)" baocao.Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=77.4, RulerStyle:= _ wdAdjustNone baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.TypeText Text:="H" & ChrW(7879) & " s" & ChrW(7889) & " ma sát" baocao.Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=89.4, RulerStyle:= _ wdAdjustNone baocao.Selection.MoveUp Unit:=wdLine, Count:=1 baocao.Selection.MoveRight Unit:=wdCharacter, Count:=1 baocao.Selection.TypeText Text:="50" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="100" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="150" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="200" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="250" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="300" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="350" baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:="400" baocao.Selection.HomeKey Unit:=wdLine baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=7 baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 1) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 2) 96 baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 3) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 4) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 5) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 6) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 7) baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=Ms.TextMatrix(3, 8) baocao.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:=ChrW(272) & ChrW(7891) & " th" & ChrW(7883) & _ " th" & ChrW(7875) & " hi" & ChrW(7879) & "n :" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.InlineShapes.AddPicture FileName:="C:\WINDOWS\Temp\dothitaitrong.b mp" _ , LinkToFile:=False, SaveWithDocument:=True End With End Sub Form tổng hợp theo vận tốc Private Sub Form_Load() Set Skinner1.SkinPicture = LoadPicture(App.Path & "\skin\anhnen.bmp") Shape1.Visible = False Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label7.Visible = False Label8.Visible = False pic.DrawWidth = vehetruc dem = End Sub If baocao.ActiveWindow.ActivePane.View.Type = wdNormalView Or baocao.ActiveWindow _ ActivePane.View.Type = wdOutlineView Then baocao.ActiveWindow.ActivePane.View.Type = wdPrintView End If baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader baocao.Selection.Font.Name = "Times New Roman" baocao.Selection.Font.Size = 14 baocao.Selection.TypeText Text:="Lu" & ChrW(7853) & "n V" & ChrW(259) & "n T" & _ ChrW(7889) & "t Nghi" & ChrW(7879) & "p" If baocao.Selection.HeaderFooter.IsHeader = True Then baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageFooter Else Public Sub noidung(baocao As Word.Application) With baocao If baocao.ActiveWindow.View.SplitSpecial wdPaneNone Then baocao.ActiveWindow.Panes(2).Close End If Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader End If baocao.Selection.TypeText Text:="SV : Tr" & ChrW(7847) & "n Quang Huy" & vbTab & _ "Nguy" & ChrW(7877) & "n V" & ChrW(259) & "n Th" & ChrW(7885) & vbTab & _ 97 "Lê Xuân " & ChrW(272) & ChrW(7913) & "c" baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekMainDocument baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.Font.Size = 20 baocao.Selection.TypeText Text:="Tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(272) _ & ChrW(7841) & "i H" & ChrW(7885) & "c Bách Khoa Hà N" & ChrW(7897) & _ "i" baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="B" & ChrW(7897) & " Môn Máy & Ma Sát" baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 16 baocao.Selection.TypeText Text:=" -o0o -" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="B" & ChrW(7843) & "ng T" & ChrW(7893) & "ng H" & _ ChrW(7907) & "p K" & ChrW(7871) & "t Qu" & ChrW(7843) & " " & ChrW(272) _ & "o H" & ChrW(7879) & " S" & ChrW(7889) & " Ma Sát Theo V" & ChrW(7853) _ & "n T" & ChrW(7889) & "c" baocao.Selection.TypeParagraph baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft baocao.Selection.Font.Size = 14 baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="Ngày th" & ChrW(7921) & "c hi" & ChrW(7879) & _ "n : " baocao.Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="Th" & ChrW(7901) & "i gian làm : " baocao.Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 baocao.Selection.TypeParagraph 'Duong kinh truc mau baocao.Selection.TypeText Text:=ChrW(272) & ChrW(432) & ChrW(7901) & "ng kính tr" _ & ChrW(7909) & "c m" & ChrW(7851) & "u : 50 mm" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 12 'bang moi baocao.ActiveDocument.Tables.Add Range:=baocao.Selection.Range, NumRows:=1, NumColumns:= _ 9, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With baocao.Selection.Tables(1) If Style "Table Grid" Then Style = "Table Grid" End If ApplyStyleHeadingRows = True ApplyStyleLastRow = True ApplyStyleFirstColumn = True ApplyStyleLastColumn = True End With baocao.Selection.TypeText Text:="n (v/ph)" For I = To 19 Step baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=mangdulieu(1, I) Next I For j = To dem - baocao.Selection.InsertRowsBelow baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 baocao.Selection.TypeText Text:=mangdulieu(j, 1) + "-" + mangdulieu(j, 2) + "- " + mangdulieu(j, 3) + " (g)" baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend Select Case j Case baocao.Selection.Font.Color = wdColorBrightGreen Case baocao.Selection.Font.Color = wdColorBlue Case baocao.Selection.Font.Color = wdColorRed Case baocao.Selection.Font.Color = wdColorPink Case baocao.Selection.Font.Color = wdColorYellow Case baocao.Selection.Font.Color = wdColorRose Case 98 baocao.Selection.Font.Color = wdColorPaleBlue Case baocao.Selection.Font.Color = wdColorLavender End Select yd = y0 - 40 pic.Line (xi, yt)-(xi, yd), vbWhite pic.CurrentX = xi - 150 pic.CurrentY = yd + 80 pic.FontSize = 10 j = (I - 1) * 25 + 100 For I = To 20 Step baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=mangdulieu(j, pic.Print (j) Next I I) Next I Next j baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent) baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 14 baocao.Selection.TypeText Text:=ChrW(272) & ChrW(7891) & " th" & ChrW(7883) & _ " th" & ChrW(7875) & " hi" & ChrW(7879) & "n :" baocao.Selection.TypeParagraph baocao.Selection.InlineShapes.AddPicture FileName:="C:\WINDOWS\Temp\dothitonghopva ntoc.bmp" _ , LinkToFile:=False, SaveWithDocument:=True End With End Sub 'Chuong trinh ve thi Public Sub vehetruc() 'Chia picture 12 khoang chia For I = To 10 'Chia tren truc Y yi = deltay * I xt = x0 - 40 xp = x0 + 40 pic.Line (xt, yi)-(xp, yi), vbWhite pic.CurrentX = xt - 400 pic.CurrentY = yi - 150 pic.FontSize = 10 k = 0.5 - (I - 1) * 0.05 pic.Print k Next I 'Them so vao goc pic.CurrentX = x0 - 400 pic.CurrentY = y0 pic.FontSize = 10 pic.Print "0" 'Dien cac thong so cua thi pic.CurrentX = X - 350 pic.CurrentY = deltay * 11 - 300 pic.FontSize = 10 pic.Print "n (v/ph)" pic.CurrentX = X - 800 pic.CurrentY = deltay pic.FontSize = 15 pic.Print "y = f (n)" deltax = pic.ScaleWidth \ 12 deltay = pic.ScaleHeight \ 12 x0 = deltax y0 = deltay * 11 X = deltax * 11 Y = deltay pic.CurrentX = deltax + 200 pic.CurrentY = Y - 200 pic.FontSize = 10 pic.Print "y" 'Ve cac truc tung,hoanh 'Ve cac khoang chia truc X, truc Y 'mui ten truc X yt = deltay * 11 - 40 yd = deltay * 11 + 40 xt = X - 150 pic.Line (X, deltay * 11)-(xt, yt) pic.Line (X, deltay * 11)-(xt, yd) For I = To 10 'Chia tren truc X xi = deltax * I yt = y0 + 40 'mui ten truc Y xt = deltax - 40 xp = deltax + 40 yd = Y + 150 pic.Line (x0, y0)-(X, y0), vbWhite pic.Line (x0, y0)-(x0, Y), vbWhite Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 'Them dau mui ten 99 pic.Line (deltax, Y)-(xt, yd) pic.Line (deltax, Y)-(xp, yd) End Sub Public Sub vedothi(m As Byte) 'Lay du lieu tu mang luu de ve thi For j = To 20 xj = (mangdulieu(m, j)) j=j+1 yj = (mangdulieu(m, j)) xi = ((xj - 100) \ 25 + 1) * deltax yi = pic.ScaleHeight - (yj * 20 + 1) * deltay If j = Then x0 = xi y0 = yi End If 'chon mau de ve thi Select Case dem Case pic.Line (x0, y0)-(xi, yi), &HFF00& Case pic.Line (x0, y0)-(xi, yi), &HFF0000 Case pic.Line (x0, y0)-(xi, yi), &HFF& Case pic.Line (x0, y0)-(xi, yi), &HFF00FF Case pic.Line (x0, y0)-(xi, yi), &HFFFF& Case pic.Line (x0, y0)-(xi, yi), &HC0C0FF Case pic.Line (x0, y0)-(xi, yi), &HC0FFC0 Case Shape2.Visible = True Label2.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label2.Visible = True Case Shape3.Visible = True Label3.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label3.Visible = True Case Shape4.Visible = True Label4.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label4.Visible = True Case Shape5.Visible = True Label5.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label5.Visible = True Case Shape6.Visible = True Label6.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label6.Visible = True Case Shape7.Visible = True Label7.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label7.Visible = True Case Shape8.Visible = True Label8.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Label8.Visible = True End Select Case pic.Line (x0, y0)-(xi, yi), &HFFC0C0 End Select x0 = xi y0 = yi Next j 'Hien thi chu giai Select Case m Case Shape1.Visible = True Label1.Visible = True Label1.Caption = mangdulieu(m, 1) + " " + mangdulieu(m, 2) + " " + mangdulieu(m, 3) Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 End Sub 'Mo tep Private Sub isButton1_Click() i1 = j1 = If dem > Then MsgBox "Chi duoc mo toi da la tep !", vbCritical + vbOKOnly, "Thong Bao" Exit Sub Else CD.DialogTitle = "Lua chon tep can mo: " CD.FileName = "" CD.Filter = "(*.VTF)|*.VTF" CD.ShowOpen 100 If CD.FileName "" Then Open CD.FileName For Input As #3 Do Until EOF(3) Input #3, a mangdulieu(dem, j1) = a j1 = j1 + Loop Close #3 vedothi (dem) dem = dem + End If End If End Sub 'Bao Cao Private Sub isButton2_Click() Dim baocao As Word.Application MsgBox "MS Word chua duoc cai tren may cua ban", vbOKOnly Exit Sub End If 'Luu thi cho vao bao cao SavePicture pic.Image, "C:\WINDOWS\Temp\dothitonghopvantoc.bmp" With baocao Visible = True Activate WindowState = wdWindowStateNormal Documents.Add noidung baocao 'Object Set baocao = CreateObject("Word.Application") ' Neu MS Word chua duoc cai tren may thi se bao loi If baocao Is Nothing Then End With End Sub 'Thoat Private Sub isButton3_Click() Unload Me End Sub Form tổng hợp theo tải trọng Private Sub Form_Load() Set Skinner1.SkinPicture = LoadPicture(App.Path & "\skin\anhnen.bmp") Shape1.Visible = False Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label7.Visible = False Label8.Visible = False pic.DrawWidth = vehetruc dem = End Sub Public Sub noidung(baocao As Word.Application) With baocao If baocao.ActiveWindow.View.SplitSpecial wdPaneNone Then baocao.ActiveWindow.Panes(2).Close Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 End If If baocao.ActiveWindow.ActivePane.View.Type = wdNormalView Or baocao.ActiveWindow _ ActivePane.View.Type = wdOutlineView Then baocao.ActiveWindow.ActivePane.View.Type = wdPrintView End If baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader baocao.Selection.Font.Name = "Times New Roman" baocao.Selection.Font.Size = 14 baocao.Selection.TypeText Text:="Lu" & ChrW(7853) & "n V" & ChrW(259) & "n T" & _ ChrW(7889) & "t Nghi" & ChrW(7879) & "p" If baocao.Selection.HeaderFooter.IsHeader = True Then baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageFooter Else baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekCurrentPageHeader End If 101 baocao.Selection.TypeText Text:="SV : Tr" & ChrW(7847) & "n Quang Huy" & vbTab & _ "Nguy" & ChrW(7877) & "n V" & ChrW(259) & "n Th" & ChrW(7885) & vbTab & _ "Lê Xuân " & ChrW(272) & ChrW(7913) & "c" baocao.ActiveWindow.ActivePane.View.SeekVie w = wdSeekMainDocument baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.Font.Size = 20 baocao.Selection.TypeText Text:="Tr" & ChrW(432) & ChrW(7901) & "ng " & ChrW(272) _ & ChrW(7841) & "i H" & ChrW(7885) & "c sChrW(7897) & " Môn Máy & Ma Sát" baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 16 baocao.Selection.TypeText Text:=" -o0o -" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="B" & ChrW(7843) & "ng T" & ChrW(7893) & "ng H" & _ ChrW(7907) & "p K" & ChrW(7871) & "t Qu" & ChrW(7843) & " " & ChrW(272) _ & "o H" & ChrW(7879) & " S" & ChrW(7889) & " Ma Sát Theo T" & ChrW(7843) _ & "i Tr" & ChrW(7885) & "ng" baocao.Selection.TypeParagraph baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft baocao.Selection.Font.Size = 14 baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="Ngày th" & ChrW(7921) & "c hi" & ChrW(7879) & _ "n : " baocao.Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False baocao.Selection.TypeParagraph baocao.Selection.TypeText Text:="Th" & ChrW(7901) & "i gian làm : " baocao.Selection.InsertDateTime DateTimeFormat:="h:mm:ss am/pm", InsertAsField:= _ False, DateLanguage:=wdVietnamese, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 baocao.Selection.TypeParagraph 'Duong kinh truc mau baocao.Selection.TypeText Text:=ChrW(272) & ChrW(432) & ChrW(7901) & "ng kính tr" _ & ChrW(7909) & "c m" & ChrW(7851) & "u : 50 mm" baocao.Selection.TypeParagraph baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 12 'bang moi baocao.ActiveDocument.Tables.Add Range:=baocao.Selection.Range, NumRows:=1, NumColumns:= _ 9, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With baocao.Selection.Tables(1) If Style "Table Grid" Then Style = "Table Grid" End If ApplyStyleHeadingRows = True ApplyStyleLastRow = True ApplyStyleFirstColumn = True ApplyStyleLastColumn = True End With baocao.Selection.TypeText Text:="P(gam)" For I = To 19 Step baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=mangdulieu(1, I) Next I For j = To dem - baocao.Selection.InsertRowsBelow baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=1 baocao.Selection.TypeText Text:=mangdulieu(j, 1) + "-" + mangdulieu(j, 2) + "- " + mangdulieu(j, 3) + " (v/ph)" baocao.Selection.MoveLeft Unit:=wdCharacter, Count:=10, Extend:=wdExtend Select Case j Case baocao.Selection.Font.Color = wdColorBrightGreen Case baocao.Selection.Font.Color = wdColorBlue Case baocao.Selection.Font.Color = wdColorRed Case baocao.Selection.Font.Color = wdColorPink Case baocao.Selection.Font.Color = wdColorYellow Case baocao.Selection.Font.Color = wdColorRose Case 102 baocao.Selection.Font.Color = wdColorPaleBlue Case baocao.Selection.Font.Color = wdColorLavender End Select For I = To 20 Step baocao.Selection.MoveRight Unit:=wdCell baocao.Selection.TypeText Text:=mangdulieu(j, I) Next I Next j baocao.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter baocao.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent) baocao.Selection.MoveDown Unit:=wdLine, Count:=1 baocao.Selection.TypeParagraph baocao.Selection.Font.Size = 14 baocao.Selection.TypeText Text:=ChrW(272) & ChrW(7891) & " th" & ChrW(7883) & _ " th" & ChrW(7875) & " hi" & ChrW(7879) & "n :" baocao.Selection.TypeParagraph baocao.Selection.InlineShapes.AddPicture FileName:="C:\WINDOWS\Temp\dothitonghoptai trong.bmp" _ , LinkToFile:=False, SaveWithDocument:=True End With End Sub 'Chuong trinh ve thi Public Sub vehetruc() 'Chia picture 12 khoang chia deltax = pic.ScaleWidth \ 12 deltay = pic.ScaleHeight \ 12 x0 = deltax y0 = deltay * 11 X = deltax * 11 Y = deltay 'Ve cac truc tung,hoanh pic.Line (x0, y0)-(X, y0), vbWhite pic.Line (x0, y0)-(x0, Y), vbWhite 'Ve cac khoang chia truc X, truc Y For I = To 10 'Chia tren truc X xi = deltax * I Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 yt = y0 + 40 yd = y0 - 40 pic.Line (xi, yt)-(xi, yd), vbWhite pic.CurrentX = xi - 150 pic.CurrentY = yd + 80 pic.FontSize = 10 j = (I - 1) * 50 pic.Print (j) Next I For I = To 10 'Chia tren truc Y yi = deltay * I xt = x0 - 40 xp = x0 + 40 pic.Line (xt, yi)-(xp, yi), vbWhite pic.CurrentX = xt - 400 pic.CurrentY = yi - 150 pic.FontSize = 10 k = 0.5 - (I - 1) * 0.05 pic.Print k Next I 'Them so vao goc pic.CurrentX = x0 - 400 pic.CurrentY = y0 pic.FontSize = 10 pic.Print "0" 'Dien cac thong so cua thi pic.CurrentX = X - 350 pic.CurrentY = deltay * 11 - 300 pic.FontSize = 10 pic.Print "P (gam)" pic.CurrentX = X - 800 pic.CurrentY = deltay pic.FontSize = 15 pic.Print "y = f (p)" pic.CurrentX = deltax + 200 pic.CurrentY = Y - 200 pic.FontSize = 10 pic.Print "y" 'Them dau mui ten 'mui ten truc X yt = deltay * 11 - 40 yd = deltay * 11 + 40 xt = X - 150 pic.Line (X, deltay * 11)-(xt, yt) pic.Line (X, deltay * 11)-(xt, yd) 'mui ten truc Y xt = deltax - 40 xp = deltax + 40 yd = Y + 150 pic.Line (deltax, Y)-(xt, yd) 103 pic.Line (deltax, Y)-(xp, yd) End Sub Public Sub vedothi(I As Byte) 'Lay du lieu tu mang luu de ve thi For j = To 20 xj = Val(mangdulieu(I, j)) j=j+1 yj = (mangdulieu(I, j)) xi = (xj \ 50 + 1) * deltax yi = pic.ScaleHeight - (yj * 20 + 1) * deltay If j = Then x0 = xi y0 = yi End If 'chon mau de ve thi Select Case dem Case pic.Line (x0, y0)-(xi, yi), &HFF00& Case pic.Line (x0, y0)-(xi, yi), &HFF0000 Case pic.Line (x0, y0)-(xi, yi), &HFF& Case pic.Line (x0, y0)-(xi, yi), &HFF00FF Case pic.Line (x0, y0)-(xi, yi), &HFFFF& Case pic.Line (x0, y0)-(xi, yi), &HC0C0FF Case pic.Line (x0, y0)-(xi, yi), &HC0FFC0 Case pic.Line (x0, y0)-(xi, yi), &HFFC0C0 End Select x0 = xi y0 = yi Next j 'Hien thi chu giai Select Case I Case Shape1.Visible = True Label1.Visible = True Label1.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Case Shape2.Visible = True Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 Label2.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label2.Visible = True Case Shape3.Visible = True Label3.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label3.Visible = True Case Shape4.Visible = True Label4.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label4.Visible = True Case Shape5.Visible = True Label5.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label5.Visible = True Case Shape6.Visible = True Label6.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label6.Visible = True Case Shape7.Visible = True Label7.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label7.Visible = True Case Shape8.Visible = True Label8.Caption = mangdulieu(I, 1) + " " + mangdulieu(I, 2) + " " + mangdulieu(I, 3) Label8.Visible = True End Select End Sub 'Mo tep Private Sub isButton1_Click() i1 = j1 = If dem > Then MsgBox "Chi duoc mo toi da la tep !", vbCritical + vbOKOnly, "Thong Bao" Exit Sub Else CD.DialogTitle = "Lua chon tep can mo: " CD.Filter = "(*.TTF)|*.TTF" CD.ShowOpen End If If CD.FileName "" Then Open CD.FileName For Input As #4 104 Do Until EOF(4) Input #4, a mangdulieu(dem, j1) = a j1 = j1 + Loop Close #4 vedothi (dem) dem = dem + End If MsgBox "MS Word chua duoc cai tren may cua ban", vbOKOnly Exit Sub End If 'Luu thi cho vao bao cao SavePicture pic.Image, "C:\WINDOWS\Temp\dothitonghoptaitrong.bmp" With baocao Visible = True Activate WindowState = wdWindowStateNormal Documents.Add noidung baocao End With End Sub End Sub ' Bao Cao Private Sub isButton2_Click() Dim baocao As Word.Application 'Object Set baocao = CreateObject("Word.Application") ' Neu MS Word chua duoc cai tren may thi se bao loi If baocao Is Nothing Then 'Thoat Private Sub isButton3_Click() Unload Me End Sub Module chương trình Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 105 Option Explicit Public a, B As String Public mangdulieu(1 To 8, To 20) As String Public i1, j1, dem As Byte Public pIndex, I, j, m As Integer Public deltax, deltay, x0, y0, X, Y, xt, xp, yt, yd, xi, yi, xj, yj, k As Single Public logic As Boolean Public Sub khoitao() Set Modau.Skinner1.SkinPicture = LoadPicture(App.Path & "\skin\anhnen.bmp") Open App.Path & "\skin\T.txt" For Input As #1 Modau.Text1.Text = Input$(LOF(1), #1) Close #1 Open App.Path & "\skin\TT.txt" For Input As #1 Modau.Text2.Text = Input$(LOF(1), #1) Close #1 Call Modau.ctrl_ListObject.AddItem("Gioi Thieu") Call Modau.ctrl_ListObject.AddItem("Van Toc") Call Modau.ctrl_ListObject.AddItem("Tai Trong") Call Modau.ctrl_ListObject.AddItem("Y = f (v)") Call Modau.ctrl_ListObject.AddItem("Y = f (p)") Call Modau.ctrl_ListObject.AddItem("Thoat") End Sub Public Sub Menu() With Modau.SmartMenuXP1.MenuItems ' Menu Gioi Thieu Add 0, "keyGioithieu", , "Gioi Thieu" Add "keyGioithieu", "keyVeChuongTrinh", , "Ve Chuong Trinh" Add "keyGioithieu", "keyVeTacGia", , "Ve Tac Gia" Add "keyGioithieu", , smiSeparator Add "keyGioithieu", "keyThoat", , "Thoat" ' Menu Chuong Trinh Add 0, "keyThiNghiem", , "Thi Nghiem" Add "keyThiNghiem", "keyDoTheoVanToc", , "Do Theo Van Toc" Add "keyThiNghiem", "keyDoTheoTaiTrong", , "Do Theo Tai Trong" ' Menu Tong Hop Add 0, "keyTongHop", , "Tong Hop" Add "keyTongHop", "keyTongHopTheoVanToc", , "Tong Hop Theo Van Toc" Add "keyTongHop", "keyTongHopTheoTaiTrong", , "Tong Hop Theo Tai Trong" End With Modau.SmartMenuXP1.Font.Name = "Ms Sans Serif" Modau.SmartMenuXP1.Font.Size = End Sub Public Sub huongdan(m_Index As Integer) Select Case m_Index Case 0: Open App.Path & "\skin\T6.txt" For Input As #1 Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 106 Modau.Text1.Text = Input$(LOF(1), #1) Close #1 Case 1: Unload frmtt Unload frmthvt Unload frmthtt Unload frmdothivantoc Unload frmdothitaitrong frmvt.Show Case 2: Unload frmvt Unload frmthvt Unload frmthtt Unload frmdothivantoc Unload frmdothitaitrong frmtt.Show Case 3: Unload frmvt Unload frmtt Unload frmthtt Unload frmdothivantoc Unload frmdothitaitrong frmthvt.Show Case 4: Unload frmvt Unload frmthvt Unload frmtt Unload frmdothivantoc Unload frmdothitaitrong frmthtt.Show Case 5: End End Select End Sub Đặng Thái Việt-Luận văn Thạc sỹ khoa học -2007 107 ... nghiên cứu thiết kế, chế tạo mơ hình máy đo ma sát MS 2007 cho việc xác định tính ma sát cặp vật liệu II TÍNH CẤP THIẾT CỦA ĐỀ TÀI Trong việc xác định hệ số ma sát với lý thuyết ma sát phân tử viện... nghiệm đo hệ số ma sát nằm chương trình giảng dạy môn Ma sát học môn Máy ma sát học Do chọn đề tài luận văn khoa học là: ? ?Thiết kế chế tạo hệ thống đo điện tử cho việc xác định tính ma sát vật liệu. .. Quan hệ hệ số ma sát với thơng số ma sát khác Khi máy làm việc bình thường, hệ số ma sát định thông số ma sát như: Vật liệu công nghệ chế tạo chúng, kích thước cặp lắp ghép, kiểu tính chất vật liệu

Ngày đăng: 15/02/2021, 22:37

TÀI LIỆU CÙNG NGƯỜI DÙNG

TÀI LIỆU LIÊN QUAN

w