THIẾT KẾ MÔ HÌNH TRẠM TRỘN BÊ TÔNG NHỰA NÓNG ASPHALT (Vol. 1)

TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI VIỆN ĐIỆN BỘ MƠN TỰ ĐỘNG HỐ CƠNG NGHIỆP ====o0o==== ĐỒ ÁN TỐT NGHIỆP Hà nội, 6-2018 TRƯỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI VIỆN ĐIỆN BỘ MƠN TỰ ĐỘNG HỐ CƠNG NGHIỆP ====o0o==== ĐỒ ÁN TỐT NGHIỆP ĐỀ TÀI: THIẾT KẾ MÔ HÌNH TRẠM TRỘN BÊ TƠNG NHỰA NĨNG ASPHALT Trưởng môn Giáo viên hướng dẫn Sinh viên thực Lớp MSSV Giáo viên duyệt : PGS.TS Trần Trọng Minh : PGS.TS Nguyễn Hồng Quang : Nghiêm Văn Tuấn : TĐH03 - K58 : 20134280 : Hà nội, 6-2018 LỜI CAM ĐOAN Em xin cam đoan đồ án tốt nghiệp : “Thiết kế mơ hình trạm trộn bê tơng nhựa nóng asphalt” em tự thiết kế hướng dẫn thầy giáo PGS-TS Nguyễn Hồng Quang Các kết thu hoàn toàn thực tế Để hoàn thành đồ án em sử dụng tài liệu ghi danh mục tài liệu tham khảo không chép hay sử dụng tài liệu khác Nếu phát có chép em xin chịu hoàn toàn trách nhiệm Hà Nội, ngày tháng…năm 2018 Sinh viên thực Nghiêm Văn Tuấn MỤC LỤC DANH MỤC HÌNH VẼ i DANH MỤC BẢNG SỐ LIỆU iv LỜI NÓI ĐẦU CHƯƠNG TỔNG QUAN VỀ TRẠM TRỘN BÊ TƠNG NHỰA NĨNG ASPHALT 1.1.Khái niệm chung 1.2 Phân loại bê tông nhựa 1.2.1 Theo độ rỗng dư 1.2.2 Theo kích cỡ hạt lớn danh định bê tông nhựa chặt 1.2.3 Theo kích cỡ hạt lớn danh định với bê tông nhựa rỗng 1.3 Phân loại trạm trộn bê tơng nhựa nóng 1.4 Nguyên lý hoạt động loại trạm 1.4.1 Trạm trộn loại I – trộn cưỡng theo mẻ , sấy nóng gián tiếp 1.4.2 Trạm trộn loại II – trộn cưỡng theo mẻ , sấy nóng trực tiếp 1.4.3 Trạm trộn loại III – trộn không cưỡng liên tục sấy nóng trực tiếp 1.5 Ưu nhược điểm loại trạm trộn bê tông nhựa 1.5.1 Trạm trộn loại I 1.5.2 Trạm trộn loại II 1.5.3 Trạm trộn loại III 1.6 Cấu tạo trạm trộn bê tơng nhựa nóng asphalt 1.6.1 Phễu cấp liệu nguội 1.6.2 Băng tải cao su nằm ngang 10 1.6.3 Băng tải cao su nghiêng 10 1.6.4 Tang sấy vật liệu 11 1.6.5 Băng gầu nóng 12 1.6.6 Băng gầu vận chuyển phụ gia 12 1.6.7 Vít xoắn vận chuyển phụ gia 13 1.6.8 Sàng rung 13 1.6.9 Khối tháp phễu phía 14 1.6.10 Khối tháp trộn 14 1.6.11 Hệ thống lọc bụi ướt 15 1.6.12 Hệ thống khí nén 16 1.6.13 Hệ thống nhiên liệu 17 1.6.14 Hệ thống nấu nhựa gián tiếp 17 1.6.15 Cabin điều khiển 18 1.6.16 Hệ thống điều khiển tự động 18 1.6.17 Các thiết bị điện hệ thống điều khiển tự động 18 1.6.18 Hệ thống chống sét 19 CHƯƠNG 20 XÂY DỰNG MƠ HÌNH TRẠM TRỘN BÊ TƠNG NHỰA NĨNG ASPHALT 20 2.1 Mục tiêu 20 2.2 Cấu tạo mơ hình trạm trộn bê tơng nhựa nóng asphalt 20 2.3 Quy trình hoạt động mơ hình 22 2.4 Thiết kế phần cứng mô hình phần mềm Solidworks 23 2.5 Lựa chọn thiết bị 24 2.5.1 Động DC giảm tốc 5V 24 2.5.2 Xi lanh SMC đường kính 10mm hành trình 50mm 25 2.5.3 Van điện từ khí nén ( Van khí nén 5/2 ) 26 2.5.4 Van điện nước 27 2.5.5 Loadcell 27 2.5.6 Bộ khuếch đại 30 2.5.7 PLC S7 300 32 2.5.8 Khối relay 34 2.5.9 Khối nguồn 35 2.6 Mơ hình thực tế 37 CHƯƠNG 40 THIẾT KẾ HỆ THỐNG ĐIỀU KHIỂN MƠ HÌNH TRẠM TRỘN BÊ TƠNG NHỰA NÓNG ASPHALT 40 3.1 Phân cổng vào 40 3.2 Lưu đồ điều khiển 41 3.3 Mạch lực điều khiển 46 3.4 Xử lý tín hiệu đầu cân 48 3.5 Cấu hình phần cứng cho PLC S7 300 49 3.6 Chương trình điều khiển 52 3.7 Thiết kế giao diện HMI 53 3.7.1 Màn hình 55 3.7.2 Màn hình điều khiển 56 3.7.3 Màn hình đăng nhập 59 3.7.4 Màn hình hiệu chỉnh đầu cân 60 3.7.5 Màn hình in xuất báo cáo 60 CHƯƠNG 62 KIỂM NGHIỆM ĐÁNH GIÁ HỆ THỐNG 62 4.1 Kết đạt 62 4.2 Phương hướng phát triển 66 KẾT LUẬN 67 TÀI LIỆU THAM KHẢO 68 PHỤ LỤC 69 Danh mục hình ảnh DANH MỤC HÌNH VẼ Hình 1.1 Sơ đồ cơng nghệ trạm trộn bê tơng nhựa loại I – trộn cưỡng theo mẻ sấy nóng gián tiếp Hình 1.2 Sơ đồ công nghệ trạm trộn loại II Hình 1.3 Sơ đồ công nghệ trạm trộn loại III Hình 1.4 Phễu cấp liệu nguội Hình 1.5 Băng tải cao su nằm ngang 10 Hình 1.6 Băng tải cao su nằm nghiêng 10 Hình 1.7 Tang sấy vật liệu 11 Hình 1.8 Băng gầu nóng 12 Hình 1.9 Sàng rung 13 Hình 1.10 Khối tháp phễu phía 14 Hình 1.11 Khối tháp trộn 15 Hình 1.12 Hệ thống lọc bụi 16 Hình 1.13 Hệ thống khí nén 17 Hình 1.14 Hệ thống nấu nhựa gián tiếp 17 Hình 1.15 Cabin điều khiển 18 Hình 2.1 Bản vẽ ý tưởng xây dựng mơ hình trạm trộn bê tơng nhựa nóng 21 Hình 2.2 Quy trình hoạt động mơ hình 22 Hình 2.3 Thiết kế 3D Phễu cân cốt liệu…………………………………………… 23 Hình 2.4 Thiết kế 3D Phễu xả cốt liệu có loadcel 23 Hình 2.5 Hình ảnh 3D mơ hình phần mềm SolidWorks 24 Hình 2.6 Động giảm tốc 5V… 24 Hình 2.7 Xi lanh CDJ2B10 – 50B 26 Hình 2.8 Van điện từ khí nén airtac 4V110-06 27 Hình 2.9 Van điện từ nước 24V 27 Hình 2.10 Loadcell 28 Hình 2.11 Loadcell HL-8 5kg 29 Hình 2.12 Sơ đồ nguyên lý cấu tạo INA128… 31 Hình 2.13 Sơ đồ nguyên lý mạch khuếch đại… 31 Hình 2.14 PCB 3D mạch khuếch đại…… 32 Hình 2.15 Module PLC S700 315 2DP module mở rộng 34 i Danh mục hình ảnh Hình 2.16 Relay 24V10A SRD-24VDC-SL-C… 35 Hình 2.17 Sơ đồ nguyên lý mạch nguồn ±12VDC, +5VDC … 36 Hình 2.18 PCB 3D mạch nguồn ±12VDC , +5VDC … 36 Hình 2.19 Phễu cấp liệu…… 37 Hình 2.20 Cân sử dụng Loadcell 5kg 37 Hình 2.21 Van điện từ nước điều khiển cấp nước (thay cho nhựa)… 38 Hình 2.22 Bảng điều khiển …… 38 Hình 2.23 Khung phần cứng mơ hình sau hồn thiện 39 Hình 3.1 Lưu đồ thuật toán………… 42 Hình 3.2 Sơ đồ mạch động lực…… 46 Hình 3.3 Sơ đồ mạch lực điều khiển…… 47 Hình 3.4 Phương pháp nội suy tuyến tính.… 48 Hình 3.5 Màn hình cấu hình phần cứng 49 Hình 3.6 Đặt địa cho module vào/ra 50 Hình 3.7 Module analog …… 50 Hình 3.8 Đặt địa cho đầu vào module analog … 51 Hình 3.9 Cấu hình kiểu đầu vào dải đầu vào module analog … 51 Hình 3.10 Cài đặt vùng nhớ Load Memory……… 52 Hình 3.11 Xây dựng bảng Tags kết nối với PLC …… 53 Hình 3.12 Xây dựng bảng Tags kết nối với PLC …… 54 Hình 3.13 Cửa số thiết kế đồ họa …… 55 Hình 3.14 Màn hình chính…… 55 Hình 3.15 Tạo menu lựa chọn người dùng 56 Hình 3.16 Giao diện hình điều khiển 56 Hình 3.17 Tải mác bê tơng lưu sẵn sở liệu …… 57 Hình 3.18 Lưu mác bê tơng vào sở liệu …… 58 Hình 3.19 Cửa sổ viết chương trình Vbs………… 58 Hình 3.20 Màn hình đăng nhập……… 59 Hình 3.21 Cửa sổ tạo tài khoản người dùng 59 Hình 3.22 Màn hình hiệu chỉnh cân 60 Hình 3.23 Màn hình in xuất báo cáo……… 61 Hình 4.1 Quá trình cấp đá 1, phụ gia nhựa 62 Hình 4.2 Wincc trình cấp đá 1, phụ gia nhựa 62 ii Danh mục hình ảnh Hình 4.3 Quá trình xả đá …… 63 Hình 4.4 Wincc trình xả đá 63 Hình 4.5 Quá trình xả phụ gia 64 Hình 4.6 Wincc trình xả phụ gia …… 64 Hình 4.7 Quá trình xả thảm.… 65 Hình 4.8 Wincc trình xả thảm 65 iii Danh mục bảng số liệu DANH MỤC BẢNG SỐ LIỆU Bảng 2.1 Thông số kĩ thuật động giảm tốc 5V 25 Bảng 2.2 Thông số kĩ thuật xi lanh CDJ2B10 – 50B 25 Bảng 2.3 Thông số kĩ thuật van điện từ khí nén airtac 4V110-06…………………….26 Bảng 2.4 Ý nghĩa thơng số kĩ thuật loadcell 28 Bảng 2.5 Thông số kĩ thuật Loadcell HL-8 5kg 29 Bảng 2.6 Bảng thông số kĩ thuật INA 128 30 Bảng 2.7 Thông số kĩ thuật Relay 24V10A SRD-24VDC-SL-C 35 Bảng 2.8 Thông số kĩ thuật IC LM2576 36 Bảng 3.1 Phân cổng vào 40 iv Phụ lục 97 Phụ lục 98 Phụ lục 99 Phụ lục Khối dùng biến nhớ tác động đầu 100 Phụ lục 101 Phụ lục Khối tạo thời gian điểm ngược hiển thị Wincc 102 Phụ lục Chương trình Wincc : Chương trình xuất file excel viết phần Global Script phần mềm Wincc Sub Export_Excel() Dim trang_thai Dim Ngay_tron Dim Gio_tron Dim So_me_dat Dim So_me_hoan_thanh Dim KL_da_1 Dim KL_da_2 Dim KL_PG Dim KL_nhua Dim TG_tron_kho Dim TG_tron_uot Dim TG_xa_tham Dim Duong_dan_file Dim KL_da_1_thuc_te Dim KL_da_2_thuc_te Dim KL_PG_thuc_te Dim KL_nhua_thuc_te Set trang_thai = HMIRuntime.Tags ("E_Trang_thai") Set Ngay_tron = HMIRuntime.Tags ("E_ngay_tron") Set Gio_tron = HMIRuntime.Tags ("E_Gio_tron") Set So_me_dat = HMIRuntime.Tags ("E_So_me_dat") Set So_me_hoan_thanh = HMIRuntime.Tags ("E_So_me_hoan_thanh") Set KL_da_1 = HMIRuntime.Tags ("E_KL_da_1") Set KL_da_2 = HMIRuntime.Tags ("E_KL_da_2") Set KL_PG = HMIRuntime.Tags ("E_KL_pg") Set KL_nhua = HMIRuntime.Tags ("E_KL_nhua") Set TG_tron_kho = HMIRuntime.Tags ("E_Thoi_gian_tron_kho") Set TG_tron_uot = HMIRuntime.Tags ("E_Thoi_gian_tron_uot") Set TG_xa_tham = HMIRuntime.Tags ("E_Thoi_gian_xa_tham") Set Duong_dan_file = HMIRuntime.Tags ("E_duong_dan") Set KL_da_1_thuc_te = HMIRuntime.Tags ("E_KL_da_1_thuc_te") Set KL_da_2_thuc_te = HMIRuntime.Tags ("E_KL_da_2_thuc_te") 103 Phụ lục Set KL_PG_thuc_te = HMIRuntime.Tags ("E_KL_phu_gia_thuc_te") Set KL_nhua_thuc_te = HMIRuntime.Tags ("E_KL_nhua_thuc_te") Ngay_tron.Read Gio_tron.Read trang_thai.Read So_me_dat.Read So_me_hoan_thanh.Read KL_da_1.Read KL_da_2.Read KL_PG.Read KL_nhua.Read TG_tron_kho.Read TG_tron_uot.Read TG_xa_tham.Read Duong_dan_file.Read KL_da_1_thuc_te.Read KL_da_2_thuc_te.Read KL_PG_thuc_te.Read KL_nhua_thuc_te.Read Set a = CreateObject ("Excel.Application") a.Visible = True a.Workbooks.Open "C:\Users\tuan\Desktop\Wincc\DATN\dong_thoi_gian.xls" a.Cells(1, 2).Value = trang_thai.Value a.Cells(2, 2).Value = Ngay_tron.Value a.Cells(3, 2).Value = Gio_tron.Value a.Cells(4, 2).Value = So_me_dat.Value a.Cells(5, 2).Value = So_me_hoan_thanh.Value a.Cells(6, 2).Value = KL_da_1.Value a.Cells(7, 2).Value = KL_da_2.Value a.Cells(8, 2).Value = KL_PG.Value a.Cells(9, 2).Value = KL_nhua.Value a.Cells(10, 2).Value = TG_tron_kho.Value a.Cells(11, 2).Value = TG_tron_uot.Value a.Cells(12, 2).Value = TG_xa_tham.Value a.Cells(13, 2).Value = KL_da_1_thuc_te.Value a.Cells(14, 2).Value = KL_da_2_thuc_te.Value a.Cells(15, 2).Value = KL_PG_thuc_te.Value a.Cells(16, 2).Value = KL_nhua_thuc_te.Value a.ActiveWorkbook.SaveAs ("C:\Users\tuan\Desktop\Wincc\file_hoat_dong_he_thong"& Duong_dan_file.Value &".xls") Set a = Nothing End Sub Chương trình lưu lịch sử hoạt động Sub Save_History(Byval Trangthai) Dim trang_thai 104 Phụ lục Dim So_me_dat Dim So_me_hoan_thanh Dim KL_da_1 Dim KL_da_2 Dim KL_PG Dim KL_nhua Dim TG_tron_kho Dim TG_tron_uot Dim TG_xa_tham Dim KL_da_1_thuc_te Dim KL_da_2_thuc_te Dim KL_PG_thuc_te Dim KL_nhua_thuc_te Set So_me_dat = HMIRuntime.Tags ("Wincc_SET_SO_ME") Set So_me_hoan_thanh = HMIRuntime.Tags ("bn_so_me") Set KL_da_1 = HMIRuntime.Tags ("Wicc_SET_DA_1") Set KL_da_2 = HMIRuntime.Tags ("Wicc_SET_DA_2") Set KL_PG = HMIRuntime.Tags ("Wincc_SET_PG") Set KL_nhua = HMIRuntime.Tags ("Wincc_SET_nhua") Set TG_tron_kho = HMIRuntime.Tags ("Wincc_tg_tron_kho") Set TG_tron_uot = HMIRuntime.Tags ("Wincc_tg_tron_uot") Set TG_xa_tham = HMIRuntime.Tags ("Wincc_tg_xa_tham") Set KL_da_1_thuc_te = HMIRuntime.Tags ("wincc_gt_TT_da1") Set KL_da_2_thuc_te = HMIRuntime.Tags ("wincc_gt_TT_da2") Set KL_PG_thuc_te = HMIRuntime.Tags ("wincc_gt_TT_pg") Set KL_nhua_thuc_te = HMIRuntime.Tags ("wincc_gt_TT_nhua") Dim SystemDay Dim SystemMonth Dim SystemYear Dim SystemHour Dim SystemMinute Dim SystemSecond Set SystemDay=HMIRuntime.Tags("day") SystemDay.Read Set SystemMonth=HMIRuntime.Tags("month") SystemMonth.Read Set SystemYear=HMIRuntime.Tags("year") SystemYear.Read Set SystemHour=HMIRuntime.Tags("hour") SystemHour.Read Set SystemMinute=HMIRuntime.Tags("minute") SystemMinute.Read Set SystemSecond=HMIRuntime.Tags("second") SystemSecond.Read ActivateDBHandling() 105 Phụ lục connectDB() So_me_dat.Read So_me_hoan_thanh.Read KL_da_1.Read KL_da_2.Read KL_PG.Read KL_nhua.Read TG_tron_kho.Read TG_tron_uot.Read TG_xa_tham.Read KL_da_1_thuc_te.Read KL_da_2_thuc_te.Read KL_PG_thuc_te.Read KL_nhua_thuc_te.Read rsLich_su_hoat_dong.open "SELECT Ngay_thang_nam,Gio_phut_giay,Trang_thai,So_me_dat,So_me_hoan_thanh,K L_da_1_dat,KL_da_2_dat,KL_phu_gia_dat,KL_nhua_dat,KL_da_1_thuc_te,K L_da_2_thuc_te,KL_phu_gia_thuc_te,KL_nhua_thuc_te,Thoi_gian_tron_kho,T hoi_gian_tron_uot,Thoi_gian_xa_tham,Gio_phut_giay_Ngay_thang_nam FROM lich_su_hoat_dong",gocn,1,3 rsLich_su_hoat_dong.Addnew If Not rsLich_su_hoat_dong.eof Then 'rsLich_su_hoat_dong(0) = (SystemDay.Value &"/"& SystemMonth.Value &"/"& SystemYear.Value)'Attention for the Format in the system rsLich_su_hoat_dong(0) = (SystemDay.Value &"/"& SystemMonth.Value &"/"& SystemYear.Value)'Attention for the Format in the system rsLich_su_hoat_dong(1) = (SystemHour.Value &"."& SystemMinute.Value &"."& SystemSecond.Value)'Attention for the Format in teh system rsLich_su_hoat_dong(3).Value = So_me_dat.Value rsLich_su_hoat_dong(5).Value = KL_da_1.Value rsLich_su_hoat_dong(6).Value = KL_da_2.Value rsLich_su_hoat_dong(7).Value = KL_PG.Value rsLich_su_hoat_dong(8).Value = KL_nhua.Value rsLich_su_hoat_dong(9).Value = KL_da_1_thuc_te.Value rsLich_su_hoat_dong(10).Value = KL_da_2_thuc_te.Value rsLich_su_hoat_dong(11).Value = KL_PG_thuc_te.Value rsLich_su_hoat_dong(12).Value = KL_nhua_thuc_te.Value rsLich_su_hoat_dong(13).Value = TG_tron_kho.Value rsLich_su_hoat_dong(14).Value = TG_tron_uot.Value rsLich_su_hoat_dong(15).Value = TG_xa_tham.Value rsLich_su_hoat_dong(16).Value = (SystemDay.Value &"-"& SystemMonth.Value &"-"& SystemYear.Value&" ("&SystemHour.Value &"h "& SystemMinute.Value &"."& SystemSecond.Value&")") 106 Phụ lục If Trangthai = Then rsLich_su_hoat_dong(2).Value = "Done" rsLich_su_hoat_dong(4).Value = So_me_hoan_thanh.Value Else rsLich_su_hoat_dong(2).Value = "Reset" rsLich_su_hoat_dong(4).Value = So_me_hoan_thanh.Value End If rsLich_su_hoat_dong.update rsLich_su_hoat_dong.close Else MsgBox "Không lưu được",vbOKOnly, "" End If gocn.close End Sub Chương trình đưa liệu từ sở liệu lên hình hiển thị Sub Export_History(Byval TG_Tron) Msgbox"bắt đầu Tải lịch sử " Dim trang_thai Dim Ngay_tron Dim Gio_tron Dim So_me_dat Dim So_me_hoan_thanh Dim KL_da_1 Dim KL_da_2 Dim KL_PG Dim KL_nhua Dim TG_tron_kho Dim TG_tron_uot Dim TG_xa_tham Dim Duong_dan_file Set trang_thai = HMIRuntime.Tags ("E_Trang_thai") Set Ngay_tron = HMIRuntime.Tags ("E_ngay_tron") Set Gio_tron = HMIRuntime.Tags ("E_Gio_tron") Set So_me_dat = HMIRuntime.Tags ("E_So_me_dat") Set So_me_hoan_thanh = HMIRuntime.Tags ("E_So_me_hoan_thanh") Set KL_da_1 = HMIRuntime.Tags ("E_KL_da_1") Set KL_da_2 = HMIRuntime.Tags ("E_KL_da_2") Set KL_PG = HMIRuntime.Tags ("E_KL_pg") Set KL_nhua = HMIRuntime.Tags ("E_KL_nhua") Set TG_tron_kho = HMIRuntime.Tags ("E_Thoi_gian_tron_kho") Set TG_tron_uot = HMIRuntime.Tags ("E_Thoi_gian_tron_uot") Set TG_xa_tham = HMIRuntime.Tags ("E_Thoi_gian_xa_tham") 107 Phụ lục Set Duong_dan_file = HMIRuntime.Tags ("E_duong_dan") Set KL_da_1_thuc_te = HMIRuntime.Tags ("E_KL_da_1_thuc_te") Set KL_da_2_thuc_te = HMIRuntime.Tags ("E_KL_da_2_thuc_te") Set KL_PG_thuc_te = HMIRuntime.Tags ("E_KL_phu_gia_thuc_te") Set KL_nhua_thuc_te = HMIRuntime.Tags ("E_KL_nhua_thuc_te") ActivateDBHandling() connectDB() rsLich_su_hoat_dong.open "SELECT Ngay_thang_nam,Gio_phut_giay,Trang_thai,So_me_dat,So_me_hoan_thanh,KL_da_ 1_dat,KL_da_2_dat,KL_phu_gia_dat,KL_nhua_dat,KL_da_1_thuc_te,KL_da_2_thuc _te,KL_phu_gia_thuc_te,KL_nhua_thuc_te,Thoi_gian_tron_uot,Thoi_gian_tron_kho, Thoi_gian_xa_tham,Gio_phut_giay_Ngay_thang_nam FROM lich_su_hoat_dong WHERE((Gio_phut_giay_Ngay_thang_nam = '"& TG_Tron &"')) ORDER BY ID",gocn,1,3 If Not rsLich_su_hoat_dong.eof Then Ngay_tron.Value = rsLich_su_hoat_dong(0).Value Gio_tron.Value = rsLich_su_hoat_dong(1).Value trang_thai.Value = rsLich_su_hoat_dong(2).Value So_me_dat.Value = rsLich_su_hoat_dong(3).Value So_me_hoan_thanh.Value = rsLich_su_hoat_dong(4).Value KL_da_1.Value = rsLich_su_hoat_dong(5).Value*So_me_dat.Value 'KL_da_1.Value = rsLich_su_hoat_dong(5).Value KL_da_2.Value = rsLich_su_hoat_dong(6).Value*So_me_dat.Value 'KL_da_2.Value = rsLich_su_hoat_dong(6).Value KL_PG.Value = rsLich_su_hoat_dong(7).Value*So_me_dat.Value 'KL_PG.Value = rsLich_su_hoat_dong(7).Value KL_nhua.Value = rsLich_su_hoat_dong(8).Value*So_me_dat.Value 'KL_nhua.Value = rsLich_su_hoat_dong(8).Value KL_da_1_thuc_te.Value = rsLich_su_hoat_dong(9).Value KL_da_2_thuc_te.Value = rsLich_su_hoat_dong(10).Value KL_PG_thuc_te.Value = rsLich_su_hoat_dong(11).Value KL_nhua_thuc_te.Value = rsLich_su_hoat_dong(12).Value TG_tron_uot.Value = rsLich_su_hoat_dong(13).Value TG_tron_kho.Value = rsLich_su_hoat_dong(14).Value TG_xa_tham.Value = rsLich_su_hoat_dong(15).Value Duong_dan_file.Value = rsLich_su_hoat_dong(16).Value Ngay_tron.Write Gio_tron.Write trang_thai.Write So_me_dat.Write So_me_hoan_thanh.Write KL_da_1.Write KL_da_2.Write KL_PG.Write KL_nhua.Write KL_da_1_thuc_te.Write 108 Phụ lục KL_da_2_thuc_te.Write KL_PG_thuc_te.Write KL_nhua_thuc_te.Write TG_tron_kho.Write TG_tron_uot.Write TG_xa_tham.Write Duong_dan_file.Write rsLich_su_hoat_dong.close Msgbox"Tải lịch sử thành công" End If gocn.Close End Sub Chương trình lưu tải mác bê tơng Sub ActivateDBHandling End Sub Sub ConnectDB Set gocn = CreateObject("ADODB.Connection") Set rsCalib_loadcells = CreateObject("ADODB.Recordset") Set rsLastRecipes = CreateObject("ADODB.Recordset") Set rsList_Recipes = CreateObject("ADODB.Recordset") Set rsRecipes_asphalt = CreateObject("ADODB.Recordset") Set rsLich_su_hoat_dong = CreateObject("ADODB.Recordset") gocn.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \\TUANPC\WinCC_Project_DATN\load_save.mdb; Persist Security Info = False") End Sub Sub Load_mac(Byval RecipeName) Dim vi_tri Dim i Dim KL_da_1 Dim KL_da_2 Dim KL_PG Dim KL_nhua Dim TG_tron_kho Dim TG_tron_uot Dim TG_xa_tham Set KL_da_1=HMIRuntime.Tags ("Wicc_SET_DA_1") Set KL_da_2=HMIRuntime.Tags ("Wicc_SET_DA_2") Set KL_PG=HMIRuntime.Tags ("Wincc_SET_PG") Set KL_nhua=HMIRuntime.Tags ("Wincc_SET_nhua") Set TG_tron_kho=HMIRuntime.Tags ("wincc_thoi_gian_tron_kho") Set TG_tron_uot=HMIRuntime.Tags ("wincc_thoi_gian_tron_uot") Set TG_xa_tham=HMIRuntime.Tags ("wincc_thoi_gian_xa_tham") ActivateDBHandling() 109 Phụ lục connectDB() rsRecipes_asphalt.open "SELECT ten_mac,khoi_luong_da_1,khoi_luong_da_2,khoi_luong_phu_gia,khoi_luong_nhua,th oi_gian_tron_uot,thoi_gian_tron_kho,thoi_gian_xa_tham FROM mac_be_tong WHERE((ten_mac = '"& RecipeName &"')) ORDER BY id",gocn,1,3 If Not rsRecipes_asphalt.eof Then KL_da_1.Value = rsRecipes_asphalt(1).Value KL_da_2.Value = rsRecipes_asphalt(2).Value KL_PG.Value = rsRecipes_asphalt(3).Value KL_nhua.Value = rsRecipes_asphalt(4).Value TG_tron_kho.Value = rsRecipes_asphalt(5).Value TG_tron_uot.Value = rsRecipes_asphalt(6).Value TG_xa_tham.Value = rsRecipes_asphalt(7).Value KL_da_1.Write KL_da_2.Write KL_PG.Write KL_nhua.Write TG_tron_kho.Write TG_tron_uot.Write TG_xa_tham.Write rsRecipes_asphalt.close Else MsgBox "Khơng có liệu trả về",vbOKOnly, "" End If gocn.Close End Sub Chương trình Save mác bê tông Sub Save_mac(Byval RecipeName, Byval Update) Dim vi_tri Dim i Dim KL_da_1 Dim KL_da_2 Dim KL_PG Dim KL_nhua Dim TG_tron_kho Dim TG_tron_uot Dim TG_xa_tham Set KL_da_1=HMIRuntime.Tags ("Wicc_SET_DA_1") Set KL_da_2=HMIRuntime.Tags ("Wicc_SET_DA_2") Set KL_PG=HMIRuntime.Tags ("Wincc_SET_PG") Set KL_nhua=HMIRuntime.Tags ("Wincc_SET_nhua") Set TG_tron_kho=HMIRuntime.Tags ("wincc_thoi_gian_tron_kho") Set TG_tron_uot=HMIRuntime.Tags ("wincc_thoi_gian_tron_uot") 110 Phụ lục Set TG_xa_tham=HMIRuntime.Tags ("wincc_thoi_gian_xa_tham") ActivateDBHandling() connectDB() KL_da_1.Read KL_da_2.Read KL_PG.Read KL_nhua.Read TG_tron_kho.Read TG_tron_uot.Read TG_xa_tham.Read If Update = Then rsRecipes_asphalt.open "SELECT ten_mac,khoi_luong_da_1,khoi_luong_da_2,khoi_luong_phu_gia,khoi_luong_nhua,th oi_gian_tron_uot,thoi_gian_tron_kho,thoi_gian_xa_tham FROM mac_be_tong WHERE((ten_mac = '"& RecipeName &"')) ORDER BY id",gocn,1,3 rsRecipes_asphalt.Addnew End If If Update = Then rsRecipes_asphalt.open "SELECT ten_mac,khoi_luong_da_1,khoi_luong_da_2,khoi_luong_phu_gia,khoi_luong_nhua,th oi_gian_tron_uot,thoi_gian_tron_kho,thoi_gian_xa_tham FROM mac_be_tong WHERE((ten_mac = '"& RecipeName &"')) ORDER BY id",gocn,1,3 End If If Not rsRecipes_asphalt.eof Then rsRecipes_asphalt(0).Value = RecipeName rsRecipes_asphalt(1).Value = KL_da_1.Value rsRecipes_asphalt(2).Value = KL_da_2.Value rsRecipes_asphalt(3).Value = KL_PG.Value rsRecipes_asphalt(4).Value = KL_nhua.Value rsRecipes_asphalt(5).Value = TG_tron_kho.Value rsRecipes_asphalt(6).Value = TG_tron_uot.Value rsRecipes_asphalt(7).Value = TG_xa_tham.Value rsRecipes_asphalt.update rsRecipes_asphalt.close Else MsgBox "Không lưu được",vbOKOnly, "" End If gocn.close End Sub 111 ... Sinh viên thực Lớp MSSV Giáo viên duyệt : PGS.TS Trần Trọng Minh : PGS.TS Nguyễn Hồng Quang : Nghiêm Văn Tuấn : TĐH03 - K58 : 20134280 : Hà nội, 6-2018 LỜI CAM ĐOAN Em xin cam đoan đồ án tốt nghiệp... Nếu phát có chép em xin chịu hồn toàn trách nhiệm Hà Nội, ngày tháng…năm 2018 Sinh viên thực Nghiêm Văn Tuấn MỤC LỤC DANH MỤC HÌNH VẼ i DANH MỤC BẢNG SỐ LIỆU iv LỜI NÓI ĐẦU... đồ án em hoàn thiện Em xin chân thành cảm ơn ! Hà Nội, ngày tháng năm 2018 Sinh viên thực Nghiêm Văn Tuấn Chương : Tổng quan trạm trộn bê tơng nhựa nóng asphalt CHƯƠNG TỔNG QUAN VỀ TRẠM TRỘN