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

TRƢỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI KHOA ĐIỆN BỘ MƠN TỰ ĐỘNG HỐ XNCN ====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 : TS Trần Trọng Minh Giáo viên hƣớng dẫn : PGS.TS Nguyễn Hồng Quang Sinh viên thực : Nguyễn Văn Tuyển Lớp : CN-ĐK-TĐH 01 K57 MSSV : 20125846 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ế dƣới hƣớng dẫn thầy giáo PGS-TS Nguyễn Hồng Quang Các kết thu đƣợc hoàn toàn thực tế Để hoàn thành đồ án em sử dụng tài liệu đƣợc 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 Tuyển MỤC LỤC DANH MỤC HÌNH VẼ i DANH MỤC BẢNG SỐ LIỆU i LỜI NÓI ĐẦU i i CHƢƠNG 1: TỔNG QUAN VỀ BÊ TÔNGVÀ TRẠM TRỘN BÊ TÔNG 1.1 Tổng quan bê tông 1.1.1 Khái niệm bê tông 1.1.2 Thành phần cấu tạo bê tông 1.1.3 Các đặc tính bê tơng 1.2 Trạm trộn bê tông 1.2.1 Giới thiệu chung 1.2.2 Quy trình cơng nghệ 1.2.3 Bài toán điều khiển trahm trộn CHƢƠNG 2: GIỚI THIỆU PLC S7-300 VÀ CÁC THIẾT BỊ LIÊN QUAN .8 2.1 Giới thiệu PLC S7-300 siemens .8 2.1.1 PLC gì? 2.1.2 Cấu trúc, nguyên lý hoạt động PLC .8 2.2 Ứng dụng PLC 2.2.1 Thiết bị điều khiển logic khả trình S7-300 siemens 10 2.2.2 Vịng qt chương trình .14 2.2.3.Cấu trúc chƣơng trình S7-300 16 2.2.4 CÁc lệnh sử dụng chƣơng trình 17 2.3 Giới thiệu loadcell 21 2.3.1.Lý thuyết loadcell .21 2.3.2 Một số Loadcell thực tế 26 2.4 Thiết bị khí nén .28 2.4.1 Xylanh khí 28 2.4.2 Van điều khiển .29 2.5 Một số thiết bị khác 30 2.5.1 Đông 30 2.5.2 Nút nhấn đèn báo 30 CHƢƠNG 3: GIỚI THIỆU VỀ PHẦN MỀM WINCC …………………………… 31 3.1 Tổng quan phần mềm thiết kế WinCC 31 3.1.1 Giới thiệu chung 31 3.1.2 Các đặc điểm 33 3.1.3 WinCC nhƣ phần tử hệ thống tự động hóa tích hợp tốfn diện 34 3.1.4 Các bƣớc lập trình WinCC .34 CHƢƠNG : XÂY DỰNG MƠ HÌNH TRẠM TRỘN BÊ TÔNG ASPHA……… 39 4.1 Bản vẽ ý tƣởng mơ hình trạm trộn bê tơng nhựa Asphalt 39 4.2 Dựng mơ hình 3D phần mềm Soliworks 41 4.3 Sơ đồ mạch lực 42 4.4 Phân cổng vào 43 4.5 Lƣu đồ thuật toán 44 4.6 Xử lý tín hiệu đầu cân 47 4.7 Cấu hình phần cứng cho PLC S7-300 48 4.8 Chƣơng trình điều khiển 52 4.9 Giao diện HMI 52 CHƢƠNG 60 KIỂM NGHIỆM ĐÁNH GIÁ HỆ THỐNG 60 5.1 Kết đạt đƣợc 60 5.2 Phƣơng hƣớng phát triển 65 TÀI LIỆU THAM KHẢO 67 Phụ lục 68 Danh mục hình vẽ DANH MỤC HÌNH VẼ Hình 1.1 Trạm trộn bê tơng cơng suất nhỏ .4 Hình 1.2 Trạm trộn bê tông cƣỡng dạng tháp Hình 1.3 Quy trình hoạt động trạm trộn bê tông xi măng Hình 2.1 Mơ hình PLC S7-300 lắp đặt rack Hình 2.2 PLC S7-300 với Module 10 Hình 2.3 Vịng qt chƣơng trình 10 Hình 2.4 Lập trình tuyến tính 11 Hình 2.5 Các khối chƣơng trình PLC 12 Hình 2.6 Ký hiệu cơng tắc LAD FBD 13 Hình 2.7 Các định thời 14 Hình 2.8 Ký hiệu đếm LAD FBD 15 Hình 2.9 Ký hiệu lệnh đọc giá trị analog từ loadcell LAD 16 Hình 2.10 Các dạng nối dây loadcell 17 Hình 2.11 Xylanh CDJ2D10-50-B SMC 17 Hình 2.12 Van điện từ 4V110-06 18 Hình 2.13 Bảng nút ấn điều khiển 21 Hình 3.1 Đặc tính mở phần mềm WinCC .22 Hình 3.2 Màn hình giao diện WinCC………………………………… 23 Hình 3.3 Bản chất q trình truyền thơng WinCC 23 Hình 3.4 Kết nối truyền thơng .24 Hình 4.1 Bản vẽ ý tƣởng trạm trộn Asphalt… 24 Hình 4.2 Mơ hình 3D 26 Hình 4.3 Sơ đồ mạch lực .27 Hình 4.4 Lƣu đồ thuật tốn 27 Hình 4.5 Phƣơng pháp nội suy tuyến tính 28 Hình 4.6 Màn hình cấu hình phần cứng 29 Hình 4.7 Đặt địa cho module vào/ra… 31 Hình 4.8.Module analog… 31 Hình 4.9.Đặt địa cho đầu vào Module analog…… .32 i Danh mục hình vẽ Hình 4.10 Cấu hình kiểu đầu vào dải đầu vào cho module analog… 31 Hình 4.11 Cài đặt vùng nhớ Load Memory… 32 Hình 4.12 Màn hình chính…… 32 Hình 4.13 Màn hình điều khiển 31 Hình 4.14 tải mác bê tơng lƣu sẵn sở liệu… 32 Hình 4.15 Lƣu mác bê tơng vào sở liệu 32 Hình 4.16 Cửa sổ viết chƣơng trình Vbs…… 32 Hình 4.17 Màn hình đăng nhập 31 Hình 4.18 cửa sổ tạo tài khoản ngƣời dùng… 32 Hình 4.19 Màn hình hiệu chỉnh cân… 32 Hình 4.20 Màn hình xuất báo cáo…… 32 Hình 5.1 Quá trình cấp đá 1, phụ gia nhựa 62 Hình 5.2 Wincc trình cấp đá 1, phụ gia nhựa 62 Hình 5.3 Quá trình xả đá …… .63 Hình 5.4 Wincc trình xả đá 63 Hình 5.5 Quá trình xả phụ gia 64 Hình 5.6 Wincc trình xả phụ gia …… 64 Hình 5.7 Quá trình xả thảm.… .65 Hình 5.8 Wincc trình xả thảm 65 ii Danh mục hình vẽ DANH MỤC BẢNG SỐ LIỆU Bảng 1.1 Bảng thời gian vận chuyển cho phép bê tông (Khơng có phụ gia) Bảng 2.1 Địa thời gian trễ định thời .19 Bảng 4.1 Phân cổng vào 42 i Danh mục bảng số liệu ii Danh mục bảng số liệu iii LỜI NÓI ĐẦU Ngày với tiến khoa học kỹ thuật, đặc biệt ngành Kỹ thuật Điện tử, đời sống xã hội ngày phát triển dựa ứng dụng khoa học vào đời sống Vì mà cơng nghệ điện tử mang tính tự động hóa ngày đƣợc ứng dụng rộng rãi, công nghiệp sản xuất, xây dựng Cùng với nhịp độ phát triển đất nƣớc mặt kinh tế - xã hội, hạ tầng sở kinh tế nƣớc ta không ngừng đƣợc cố phát triển Do yêu cầu chất lƣợng bê tơng cơng trình phải đƣợc đặt lên hàng đầu Từ yêu cầu thực tế ấy, chúng em chọn đề tài :” Xây dựng mơ hình trạm trộn bê tơng nhựa nóng asphalt” Mục đích đề tài thiết kế đƣợc chƣơng trình điều khiển sử dung PLC cho trạm trộn bê tông với tính tự động hóa độ xác cao Mặc dù cố gắng nhƣng thiếu kinh nghiệm nên viết khó tránh khỏi sai sót, chúng em mong đƣợc hƣớng dẫn bảo thêm thầy cô! Em xin cảm ơn giúp đỡ GS TS Nguyễn Hồng Quang giúp chúng em hoàn thành đồ án này! Hà Nội, ngày tháng năm 2018 Sinh viên thực Nguyễn Văn Tuyển Phụ lục 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") 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 104 Phụ lục 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 105 Phụ lục 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 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") 106 Phụ lục 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 107 Phụ lục Set SystemSecond=HMIRuntime.Tags("second") SystemSecond.Read ActivateDBHandling() 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,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_kho,Thoi_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 108 Phụ lục '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&")") If Trangthai = Then rsLich_su_hoat_dong(2).Value = "Done" rsLich_su_hoat_dong(4).Value = So_me_hoan_thanh.Value Else 109 Phụ lục 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 110 Phụ lục 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") 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_d at,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 111 Phụ lục 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 112 Phụ lục 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 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") 113 Phụ lục 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 = PC\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() 114 \\TUAN- 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,thoi_ gian_tron_uot,thoi_gian_tron_kho,thoi_gian_xa_tham FROM 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 115 mac_be_tong Phụ lục 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") 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 116 Phụ lục 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,thoi_ 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,thoi_ 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 117 Phụ lục MsgBox "Không lƣu đƣợc",vbOKOnly, "" End If gocn.close End Sub 118 ... Hiện thị trƣờng có loại trạm trộn bê tông thƣờng gặp: Trạm trộn bê tơng nhựa nóng trạm trộn bê tơng xi măng - Trạm trộn bê tơng nhựa nóng: Dừng để sản xuất bê tơng từ hỗn hợp nhựa đƣờng (hắc ín ),... đƣợc thiết lập Tag Management CHƢƠNG XÂY DỰNG MƠ HÌNH TRẠM TRỘN BÊ TƠNG ASPHALT 39 Chƣơng : TỔNG QUAN VỀ BÊ TÔNG VÀ TRẠM TRỘN BÊ TƠNG 4.1 Bản vẽ ý tƣởng mơ hình trạm trộn bê tơng nhựa asphalt Hình. .. mục hình vẽ DANH MỤC HÌNH VẼ Hình 1.1 Trạm trộn bê tơng cơng suất nhỏ .4 Hình 1.2 Trạm trộn bê tông cƣỡng dạng tháp Hình 1.3 Quy trình hoạt động trạm trộn bê tơng xi măng Hình