ỨNG DỤNG VI XỬ LÝ –VÍTME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC NÔNG LÂM THÀNH PHỐ HỒ CHÍ MINH KHĨA LUẬN TỐT NGHIỆP ỨNG DỤNG VI XỬ LÝ –VÍTME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU Họ tên sinh viên: NGUYỄN MẠNH THI Ngành: ĐIỀU KHIỂN TỰ ĐỘNG Niên khóa: 2008 – 2012 Tháng 06 năm 2012 ỨNG DỤNG VI XỬ LÝ – VITME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU Tác giả NGUYỄN MẠNH THI Khóa luận trình để đáp ứng yêu cầu cấp kỹ sư ngành ĐIỀU KHIỂN TỰ ĐỘNG Giáo viên hướng dẫn: Ths TRƯƠNG QUANG TRƯỜNG Ths LÊ VĂN BẠN Tháng 06 năm 2012 i LỜI CẢM ƠN! Trong thời gian thực luận văn tốt nghiệp, nhận giúp đỡ ân cần thầy Ths TRƯƠNG QUANG TRƯỜNG thầy Ths LÊ VĂN BẠN lời động viên, nhắc nhỡ q thầy khoa Cơ khí & Công nghệ trường Đại Học Nông Lâm TPHCM giúp đỡ bạn lớp, trường Với lịng q báu giúp tơi có niềm tin, nghị lực để hồn thành tốt đề tài Trước tiên em xin chân thành cảm ơn đến Ban Giám Hiệu, cảm ơn quý thầy cô Trường Đại Học Nông Lâm, đặc biệt qúy thầy cô khoa Cơ khí & Cơng nghệ dạy truyền đạt kiến thức cho em suốt thời gian học tập trường Em trân trọng gửi lời cảm ơn đến quý thầy cô môn Điền khiển tự động, nhắc nhỡ giúp đỡ em trình thực đề tài Em gửi lời cảm ơn sâu sắc đến thầy: Ths TRƯƠNG QUANG TRƯỜNG Ths LÊ VĂN BẠN người nhiệt tình giúp đỡ em việc hướng dẫn thực đề tài Tôi cảm ơn bạn lớp, khoa trường giúp đỡ động viên tinh thần cho để đạt kết ngày hôm Tp.HCM tháng 06 năm 2012 Sinh viên thực hiện: Nguyễn Mạnh Thi     ii   TĨM TẮT ĐỀ TÀI: ỨNG DỤNG VI XỬ LÝ–VÍTME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU Để đánh giá tính vật liệu phải biết tính chịu lực tính biến dạng vật liệu Trong thực tế có nhiều loại thiết bị để đo lực biến dạng vật liệu, thiết bị hầu hết phải nhập ngoại đắc tiền Đa số thiết bị dụng cụ hiển thị dạng cơ, quang, thủy lực… Trong kinh tế hội nhập ngày nay, xuất máy móc đại ngày  nhiều có máy đo Ngày thiết bị đo lường kỹ thuật số, kết nối máy tính, kỹ thuật vi xử lý vi điều khiển với tốc độ phát triển nhanh mang đến thay đổi to lớn khoa học công nghệ đời sống hàng ngày, trở nên thơng dụng nhiều tính ưu việt như: dể đọc, xác, giá trị đo thời điểm lưu lại… Trong khuôn khổ luận văn đề tài thực cơng việc tính tốn thiết kế chọn vitme bi chế tạo ngàm kẹp dạng côn máy thử sức bền kéo nén vật liệu, kết nối với máy tính nhằm mục đích vừa nghiên cứu vấn đề vừa ứng dụng thực tế để làm dụng cụ thực tập đo lường sức bền vật liệu sau Những vấn đề đề tài giải tính tốn – thiết kế – chế tạo máy thử sức bền vật liệu bao gồm: Tính tốn chọn vitme bi ngàm kẹp chi tiết khí Chọn cảm biến lực Tính tốn, thiết kế, chế tạo mạch khuếch đại tín hiệu Tính tốn, thiết kế, chế tạo mạch chuyển đổi tín hiệu tương tự sang số Tính tốn, thiết kế, chế tạo mạch cơng suất điều khiển động bước Chọn – thiết kế - chế tạo mạch giao tiếp với máy tính iii Thực viết chương trình phần mềm kết nối giao tiếp máy tính Kết nối thiết bị thử nghiệm toàn hệ thống máy Các kết đạt được: - Máy thử sức bền vật liệu đưa vào hoạt động với lực đo lớn 10kN - Bộ phận cảm biến lực hoạt động tốt, độ xác cảm biến lực khoảng 0.02% - Bộ phận khuếch đại tín hiệu hoạt động tốt, độ xác khoảng 1% tùy vào giá trị điện áp đầu vào - Bộ phận điều khiển chuyển đổi ADC điều khiển Động Cơ Bước hoạt động tốt, mức nhiễu thấp (khoảng15 Vp-p), dòng ngõ vào thấp không làm sụt áp phận cảm biến khuếch đại - Bộ phận giao tiếp với máy tính tốt, có khả chống nhiễu cao, tốc độ cao đáp ứng yêu cầu lấy số liệu - Phần mềm hoạt động ổn định Do thời gian thực đề tài ngắn thực cho trường hợp thử kéo vật liệu Nếu muốn thử nén, uốn, xoắn, cắt phải chế tạo thêm đồ gá mẫu thử   SVTH: GVHD: Nguyễn Mạnh Thi Ths TRƯƠNG QUANG TRƯỜNG Ths LÊ VĂN BẠN             iv     MỤC LỤC Trang Trang tựa i Lời cảm ơn .ii Tóm tắt iii Mục lục v Danh sách hình .vii Danh sách bảng ix CHƯƠNG MỞ ĐẦU 1.1 Đặt vấn đề 1.2 Tầm quan trọng đề tài 1.3 Mục đích 1.3.1 Mục đích chung 1.3.2 Mục đích cụ thể 1.3.3 Giới hạn CHƯƠNG TỔNG QUAN - TRA CỨU TÀI TIỆU 2.1 MỘT SỐ MẪU MÁY THỬ SỨC BỀN VẬT LIỆU 2.2 Tra cứu phương pháp đo lực biến dạng 2.2.1 Đo biến dạng nhỏ điện trở (strain-gage) 2.2.2 Xác định lực cảm biến lực loại áp điện 2.2.3 Xác định lực cảm biến lực loại áp điện 2.3 Tra cứu lý thuyết sức bền vật liệu 2.3.1 Mẫu thí nghiệm 2.3.2 Đồ thị thí nghiệm đặc trưng học kéo vật liệu 2.3.3 Lý thuyết tính tốn thiết kế mẫu thử sức bền vật liệu 2.4 Tra cứu lý thuyết vítme bi 2.5 Tra cứu tài liệu động bước 12 v 2.6 Tra cứu hộp giảm tốc 14 2.7 Tra cứu phương pháp giao tiếp máy tính máy đo 14 2.7.1 Các phương pháp giao tiếp máy tính máy đo 14 2.7.2 Giao tiếp qua cổng RS-232 (cổng COM) 14 2.8 Tra cứu linh kiện điện tử 15 2.8.1 Vi xử lý (ATMega 16) 15 2.8.2 Chip khuếch đại tín hiệu 18 2.8.3 Mạch khuếch đại tín hiệu dùng LM358 OP07 19 2.8.4 IC công suất L298 20 2.9 Tra cứu ngôn ngữ viết phần mềm 20 2.9.1 Tìm hiểu phần mềm BASCOM – AVR lập trình cho vi điều khiển 21 CHƯƠNG PHƯƠNG PHÁP VÀ PHƯƠNG TIỆN THỰC HIỆN ĐỀ TÀI 22 3.1 Phương pháp thực đề tài 22 3.1.1 Phương pháp thực phần khí 22 3.1.2 Phương pháp thực phần điện tử 22 3.2 Địa điểm thời gian thực 23 3.2.1 Địa điểm 23 3.2.2 Thời gian thực 23 CHƯƠNG THỰC HIỆN ĐỀ TÀI 24 4.1 Tính tốn thiết kế phần khí 24 4.1.1 Mơ hình máy 24 4.1.2 Tính tốn chọn chi tiết máy 26 4.2 Tính tốn thiết kế phần cứng điện tử 30 4.2.1 Chọn sơ đồ khối hệ thống máy đo 30 4.2.2 Thiết kế mạch nguồn cung cấp cho mạch 31 4.2.3 Mạch xử lý tín hiệu 32 4.2.4 Mạch cơng suất động có cách ly 32 4.2.5 Mạch khuếch đại dùng chip tích hợp INA-128 33 4.2.6 LCD hiển thị 34 4.2.7 Mạch giao tiếp máy tính 34 4.2.8 Kết nối thành mạch 34 vi 4.3 Thực phần mềm 36 4.3.1 Lưu đồ khối phần mềm 36 4.3.2 Lưu đồ xử lý máy tính thơng báo kết hình, xuất liệu sang phần mềm khác 37 4.3.3 Viết chương trình 37 CHƯƠNG 5. KẾT QUẢ - THẢO LUẬN 39 5.1 Kiểm tra, chạy thử hoàn thiện hệ thống 39 5.2 Thử nghiệm máy 39 5.3 Kết - thảo luận 39 5.3.1 Giao diện hiển thị 39 5.3.2 Kết mạch điều khiển sau hoàn thành 43 5.3.3 Mơ hình máy sau hoàn thành 44 5.3.4 Khảo nghiệm mơ hình khơng tải 45 5.3.5 Bảng số liệu ghi nhận kết đo lực biến dạng mẫu thử 45 CHƯƠNG 6. KẾT LUẬN - ĐỀ NGHỊ 50 6.1 Kết luận 50 6.2 Đề nghị 50    Danh sách hình: vii Hình 2.1: Máy WE-600B Hình 2.2: Máy RGM-4300 Hình 2.3: Cầu Wheatstone Hình 2.4: Cầu Wheatstone điện trở giống Hình 2.5: Hộp đo lực (loadcell) Hình 2.6: Cấu tạo mẫu thử kéo Hình 2.7: Biểu đồ kéo vật liệu dẻo Hình 2.8: Biểu đồ kéo vật liệu dòn Hình 2.9: Mặt cắt ngang hình chữ nhật Hình 2.10: Cấu tạo vitme bi Hình 2.11: Cấu tạo mặt cắt ngang vitme bi Hình 2.12: Một số kích thước vitme bi 10 vii Hình 2.13: Sơ đồ xác định l 12 Hình 2.14: Động bước 12 Hình 2.15: Cấu tạo động bước 13 Hình 2.16: Sơ đồ dây quấn động bước đơn cực 13 Hình 2.17: Hộp giảm tốc trục vít bánh vít cấp 14 Hình 2.18: Cổng RS – 232 (COM) 15 Hình 2.19: ATMega 16 16 Hình 2.20: Sơ đồ chân ATMega 16 16 Hình 2.21: Cấu tạo ATMega 16 16 Hình 2.22: Chip INA-128 18 Hình 2.23: Sơ đồ chân INA-128 18 Hình 2.24: Cấu tạo INA-128 18 Hình 2.25: Mạch khuếch đại dùng LM 358 19 Hình 2.26: : Mạch khuếch đại dùng OP07 19 Hình 2.27: IC cơng suất L-298 20 Hình 2.28: Sơ đồ chân L-298 20 Hình 2.29: Cấu tạo L-298 20 Hình 2.30: Giao diện Bascom-ARM 21 Hình 4.1: Cấu tạo máy thử sức bền vật liệu 24 Hình 4.2: Cấu tạo sơ mẫu thử kéo 26 Hình 4.3: Ngàm kẹp dạng nêm 27 Hình 4.4: Ngàm kẹp dùng cho vải sợi 27 Hình 4.5: Ngàm kẹp dạng vít 27 Hình 4.6: Ngàm kẹp sử dụng mơ hình 28 Hình 4.7: Vitme bi 28 Hình 4.8: Cấu tạo hộp giảm tốc sử dụng đề tài 29 Hình 4.9: Sơ đồ khối hệ thống máy đo 30 Hình 4.10: Cấu tạo nguyên lý phần mạch cung cấp điện áp 31 Hình 4.11: Mạch xử lý tín hiệu hiển thị 32 Hình 4.12: Mạch cơng suất động 32 Hình 4.13: INA -128 sơ đồ chân 33 viii Hình 4.14: Lcd hiển thị sơ đồ đấu dây với vi điều khiển 34 Hình 4.15: Mạch giao tiếp máy tính 34 Hình 4.16: Cấu tạo nguyên lý board mạch điều khiển máy đo sức bền vật liệu 35 Hình 4.17: Chương trình cho vi điều khiển 38 Hình 4.18: Chương trình cho máy vi tính 38 Hình 4.19: Giao diện hiển thị ban đầu hệ thống qua lcd 39-40 Hình 4.20: Giao diện hiển thị máy tính 40 Hình 4.21: Hộp thoại thơng báo lưu liệu xuất 41 Hình 4.22: Hộp thoại thơng báo đường dẫn đến vị trí lưu liệu 41 Hình 4.23: Hộp thoại mở tập tin Excel 42 Hình 4.24: Hộp thoại thơng báo chương trình 42 Hình 4.25: Mạch điều khiển sau hoàn tất 43 Hình 4.26: Mơ hình máy sau hoàn tất 44 Hình 4.27: Biểu đồ kéo vật liệu dùng làm mẫu 01 (vẽ phần mềm Excel) 46 Hình 4.28: Biểu đồ kéo vật liệu dùng làm mẫu 02 (vẽ phần mềm Excel) 47 Hình 4.29: Biểu đồ kéo vật liệu dùng làm mẫu 03(vẽ phần mềm Excel) 48 Danh sách bảng: ix Bảng 1: Thông số kỹ thật máy WE-600B Bảng 2: Thông số kỹ thuật máy RGM-4300 Bảng 3: Kích thước vitme bi 10 Bảng 4: Bảng chi tiết chân cổng giao tiếp RS – 232 15 Bảng 5: Bảng hệ số khuếch đại (Gain) điện trở (R ) tương ứng 18 Bảng 6: Thông số mô hình máy 25 Bảng 7: Thông số kỹ thuật ngàm kẹp dùng mơ hình máy 28 Bảng 8: Thông số kỹ thuật hộp giảm tốc 30 Bảng 9: Bảng kết đo 42 Bảng 10: Bảng kết đo mẫu 01 46 ix Hình 5: Hộp điều khiển Hình 4: Phần đế máy Hình 6: Mạchđiều khiển Hinh 7: Mạch nạp 53 Hình 8: Mẫu thử trước sau thử kéo Phụ lục 2: Chương trình điều khiển cho vi điều khiển ATMega 16 Chương trình điều khiển $regfile = "m16def.dat" ' specify the used micro $crystal = 8000000 $baud = 9600 Config Com1 = Dummy , Synchrone = , Parity = None , Stopbits = , Databits = , Clockpol = Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.3 Config Lcd = 16 * Config Adc = Single , Prescaler = Auto Cursor Off Noblink Config Timer1 = Pwm , Pwm = , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = Config Timer0 = Timer , Prescale = 64 Enable Interrupts On Timer0 Ngat Enable Urxc 54 On Urxc Ngat1 Timer0 = Ddra = Ddrb = 255 Ddrd = 255 Porta = 28 Portd = Portb = Pwm1a = Pwm1b = Dim Chay As Byte Dim L1(32) As Integer , L2(32) As Integer Dim Gt As Word Dim Luc1 As Single Dim Thuan As Byte Dim Nghich As Byte Dim Dem As Long Dim Luc As Word Dim Luc2 As Single Dim Kt As Bit Dim Bd As Long Dim Kc As Single Dim I As Integer Dim Tong As Long Dim Tb As Single Dim S As String * 10 Dim K As String * 20 Dim H As Byte , N As Byte Dim Xung As String * Dim B As Byte , Ch As Byte 55 Dim Tx As String * , A As Byte , Cd As Byte , Indx As Byte Dim L As String * 10 , R As Byte , Chd As String * Dim T As Byte Dim Rx_buffer As Byte Dim Z As String * 10 Dim Len1 As Byte Dim Xuong As Byte Dim Temp As Byte , Temp1 As Byte ' -' - Chuong trinh chinh -L1(1) = : L1(2) = 51 : L1(3) = 97 : L1(4) = 143 : L1(5) = 182 : L1(6) = 213 L1(7) = 236 : L1(8) = 251 : L1(9) = 255 : L1(10) = 251 : L1(11) = 236 L1(12) = 213 : L1(13) = 182 : L1(14) = 143 : L1(15) = 97 : L1(16) = 51 : L1(17) = L1(18) = -51 : L1(19) = -97 : L1(20) = -143 : L1(21) = -182 : L1(22) = -213 L1(23) = -236 : L1(24) = -251 : L1(25) = -255 : L1(26) = -251 : L1(27) = -236 L1(28) = -213 : L1(29) = -182 : L1(30) = -143 : L1(31) = -97 : L1(32) = -51 L2(1) = -255 : L2(2) = -251 : L2(3) = -236 : L2(4) = -213 : L2(5) = -182 : L2(6) = 143 L2(7) = -97 : L2(8) = -51 : L2(9) = : L2(10) = 51 : L2(11) = 97 : L2(12) = 143 L2(13) = 182 : L2(14) = 213 : L2(15) = 236 : L2(16) = 251 : L2(17) = 255 : L2(18) = 251 L2(19) = 236 : L2(20) = 213 : L2(21) = 182 : L2(22) = 143 : L2(23) = 97 L2(24) = 51 : L2(25) = : L2(26) = -51 : L2(27) = -97 : L2(28) = -143 L2(29) = -182 : L2(30) = -213 : L2(31) = -236 : L2(32) = -255 Cls Lcd " 'clear the LCD display De Tai" Locate , Lcd "Tot Nghiep" Wait Cls 56 Lcd "THIET KE MAY THU" Waitms 10 Locate , Lcd "SUC BEN VAT LIEU" Wait Cls Lcd "GVHD:" Waitms 10 Locate , Lcd "Ths DO HUU TOAN" Wait Cls Lcd "Va Ths.TRUONG" Waitms 10 Locate , Lcd " QUANG TRUONG" Wait Cls Lcd "Thuc hien:" Waitms 100 Locate2 , Lcd "NGUYEN MANH THI" Wait Cls Waitms 10 Lcd "Luc Do:" 'display this at the top line Waitms 10 Locate , 15 'set cursor position Lcd "kG" 'display this Waitms 10 Start Adc 57 Chay = Thuan = Nghich = Dem = Tong = Kt = I=1 Len1 = Xuong = 'Ddrd.0 = 'Ddrd.1 = Do Tong = For I = To 1000 Gt = Getadc(0) Tong = Tong + Gt Next I Tb = Tong / 1000 Waitms 10 Luc1 = Tb * 1000 Luc2 = Luc1 / 1023 Luc = Round(luc2) Waitms 10 Locate , Lcd " " Locate , Lcd Luc S = Str(luc) Cd = Len(s) Wait 58 If Temp1 = Then Printbin 65 For Indx = To Cd Tx = Mid(s , Indx , 1) A = Asc(tx) Printbin A Waitms 10 Next Indx Printbin 13 End If If Pina.2 = Then Thuan = Nghich = Temp = Enable Timer0 Start Timer0 End If If Pina.3 = Then Thuan = Nghich = Temp = Enable Timer0 Start Timer0 End If If Pina.4 = Then Thuan = Nghich = Temp = Disable Timer0 Stop Timer0 Pwm1a = 59 Pwm1b = Portb = Dem = End If If Luc > 50 Then Kt = If Kt = And Luc < 10 Then Disable Timer0 Stop Timer0 Pwm1a = Pwm1b = Kt = Temp1 = End If If Temp1 = Then Bd = Dem * Kc = Bd / 192000 Waitms 1100 L = Fusing(kc , "#.###") Ch = Len(l) Printbin 67 For R = To L Chd = Mid(l , R , 1) T = Asc(chd) Printbin T Waitms 10 Next R Printbin 13 End If Loop End 60 Ngat: Timer0 = If Thuan = And Nghich = Then Incr Chay If Temp = Then Incr Dem If Chay > 32 Then Chay = End If If Thuan = And Nghich = Then Decr Chay If Chay < Then Chay = 32 End If If Thuan = Or Nghich = Then If L1(chay) >= Then Portb.5 = Portb.4 = Pwm1a = L1(chay) Else Portb.4 = Portb.5 = Pwm1a = -l1(chay) End If If L2(chay) >= Then Portb.7 = Portb.6 = Pwm1b = L2(chay) Else Portb.6 = Portb.7 = Pwm1b = -l2(chay) End If End If 61 Return Ngat1: Rx_buffer = Inkey() If Rx_buffer = "A" Then Thuan = Nghich = Temp = Temp1 = Enable Timer0 Start Timer0 End If If Rx_buffer = "B" Then Thuan = Nghich = Dem = Temp = Disable Timer0 Stop Timer0 Portb = Pwm1a = Pwm1b = End If If Rx_buffer = "C" Then Enable Timer0 Start Timer0 Thuan = Nghich = Temp = End If If Rx_buffer = "D" Then Thuan = 62 Nghich = Temp = Enable Timer0 Start Timer0 End If Return Phụ lục 3: Chương trình điều khiển máy tính Chương trình điều khiển Imports System.IO.Ports  PublicClasschay_thu  Dim SP1 AsByte  Dim finish_receive  Dim rx_data  Dim a, lb  Dim lenh, l  Dim luc, k  Dim xung, h, bd  Dim start  Dim rx_buffer  Dim kt  PrivateSub but_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles but_1.Click          start = 1          com.Write(Chr(65))  If com.IsOpen = FalseThen              com.Open()  EndIf  ' If rx_data > 3 Then kt = 1  'If kt = 1 And rx_data = 0 Then  'com.Close()  'End If  EndSub  PrivateSub but_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles but_2.Click  If MsgBox("Ban muon thoat ko?", vbYesNo) = vbYes Then  End  EndIf  EndSub    63   PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)  HandlesMyBase.Load  With com()              .PortName = "COM2"              .BaudRate = 9600              .Parity = IO.Ports.Parity.None              .DataBits = 8              .StopBits = IO.Ports.StopBits.One              .Handshake = Handshake.None  EndWith  Try              com.Open()  Catch ex AsException  MessageBox.Show(ex.Message)  EndTry  EndSub  PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Button1.Click          start = 0  If com.IsOpen = TrueThen              com.Write(Chr(66))  EndIf  EndSub  PrivateSub com_DataReceived(ByVal sender AsObject, ByVal e As  System.IO.Ports.SerialDataReceivedEventArgs) Handles com.DataReceived  If start = 1 Then              rx_data = com.ReadTo(Chr(13))              finish_receive = 1  EndIf  EndSub  PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Timer1.Tick  If finish_receive = 1 Then              lenh = Mid(rx_data, 1, 1)  If lenh = "A"Then                  l = Len(rx_data)                  luc = Mid(rx_data, 2, l)                  lst_1.Items.Add(luc)  EndIf  'If lenh = "B" Then  64 'k = Len(rx_data)  ' xung = Mid(rx_data, 2, k)  'lst_2.Items.Add(xung)  'End If  If lenh = "C"Then                  h = Len(rx_data)                  bd = Mid(rx_data, 2, h)                  lst_3.Items.Add(bd)  EndIf              finish_receive = 0  EndIf  EndSub  PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Button2.Click  If com.IsOpen = FalseThen              com.Open()  EndIf          com.Write(Chr(67))  EndSub  PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Button3.Click          lst_1.Items.Clear()          lst_3.Items.Clear()    EndSub  PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Button5.Click  Dim oExcel AsObject  Dim oBook AsObject  Dim oSheet AsObject  'Start a new workbook in Excel          oExcel = CreateObject("Excel.Application")          oBook = oExcel.Workbooks.Add  'Add data to cells of the first worksheet in the new workbook          oSheet = oBook.Worksheets(1)  Dim r  Dim k  Dim data  Dim data1  For r = 0 To lst_1.Items.Count ‐ 1              data = lst_1.Items.Item(r)  65             oExcel.ActiveSheet.Cells(r + 1, 1).Value = data  Next r  For k = 0 To lst_3.Items.Count ‐ 1              data1 = lst_3.Items.Item(k)              oExcel.ActiveSheet.Cells(k + 1, 2).Value = data1  Next k          oExcel.Quit()  EndSub  PrivateSub Excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Excel.Click          OpenFileDialog1.ShowDialog()          FilepathLabel.Text = OpenFileDialog1.FileName  Process.Start("Excel", FilepathLabel.Text)  EndSub  PrivateSub Chay_len_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Chay_len.Click          com.Write(Chr(68))  EndSub  EndClass  Phụ lục 3: Một số kết đo tiến hành thử máy - Bảng kết đo xuất sang phần mềm Excel: Ngày đo: 14/06/12 Địa điểm: Phòng thực tập điều khiển tự động ĐH Nông Lâm Người đo: Nguyễn Mạnh Thi 66 STT 1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  Lực( kG) 0  48  50  53  57  61  67  71  77  82  87  92  98  105  114  122  131  139  149  159  169  178  188  198  205  190  Biến dạng (mm) STT 0.004 0.051 0.099 0.147 0.195 0.242 0.29 0.338 0.385 0.433 0.481 0.529 0.576 0.624 0.672 0.72 0.767 0.815 0.863 0.911 0.959 1.007 1.055 1.103 1.151 Lực (kG) 10 11 12 13 14 15 16 17 18 0  53  64  74  82  90  100  108  119  130  141  153  165  177  188  196  202  202  Biến dạng (mm) 0.043 0.087 0.132 0.176 0.221 0.266 0.31 0.355 0.4 0.444 0.489 0.533 0.578 0.623 0.668 0.712 0.757 Bảng 12: Kết đo mẫu 03 Bảng 11: Kết đo mẫu 02 67 ... TÀI: ỨNG DỤNG VI XỬ LÝ–VÍTME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU Để đánh giá tính vật liệu phải bi? ??t tính chịu lực tính bi? ??n dạng vật liệu Trong thực tế có nhiều loại thiết. . .ỨNG DỤNG VI XỬ LÝ – VITME BI VÀ ĐỘNG CƠ BƯỚC THIẾT KẾ MÁY KIỂM TRA SỨC BỀN VẬT LIỆU Tác giả NGUYỄN MẠNH THI Khóa luận trình để đáp ứng yêu cầu cấp kỹ sư ngành ĐIỀU KHIỂN TỰ ĐỘNG Giáo vi? ?n... nhiệm khoa Cơ Khí – Cơng Nghệ hơm tiến hành thực đề tài: ? ?Ứng dụng vi xử lý - vitme bi động bước thiết kế máy đo sức bền vật liệu? ?? 1.2 Tầm quan trọng đề tài Vi? ??c ứng dụng máy tính vào kỹ thuật