Nghiên cứu lựa chọn CNKT và tối ưu hóa các thông số của HTKT cho các vỉa dầy trung bình dốc đứng tại các mỏ than hầm lò khu vực uông bí quảng ninh

1 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT ĐÀO TRỌNG CƯỜNG NGHIÊN CỨU LỰA CHỌN CƠNG NGHỆ KHAI THÁC VÀ TỐI ƯU HĨA CÁC THÔNG SỐ CỦA HỆ THỐNG KHAI THÁC CHO CÁC VỈA DẦY TRUNG BÌNH DỐC ĐỨNG TẠI CÁC MỎ THAN HẦM LỊ KHU VỰC NG BÍ - QUẢNG NINH LUẬN ÁN TIẾN SĨ KỸ THUẬT HÀ NỘI - 2017 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT ĐÀO TRỌNG CƯỜNG NGHIÊN CỨU LỰA CHỌN CÔNG NGHỆ KHAI THÁC VÀ TỐI ƯU HĨA CÁC THƠNG SỐ CỦA HỆ THỐNG KHAI THÁC CHO CÁC VỈA DẦY TRUNG BÌNH DỐC ĐỨNG TẠI CÁC MỎ THAN HẦM LÒ KHU VỰC NG BÍ - QUẢNG NINH Ngành: Khai thác mỏ Mã số: 9520603 LUẬN ÁN TIẾN SĨ KỸ THUẬT NGƯỜI HƯỚNG DẪN KHOA HỌC PGS.TS Đỗ Mạnh Phong TS Trương Đức Dư HÀ NỘI - 2017 i LỜI CAM ĐOAN Tơi xin cam đoan cơng trình nghiên cứu riêng tơi Các kết nghiên cứu trình bày Luận án trung thực chưa cơng bố cơng trình khác Hà Nội, ngày tháng năm 2017 Tác giả Đào Trọng Cường ii LỜI CẢM ƠN Tác giả xin bày tỏ lòng biết ơn sâu sắc tới Ban Giám hiệu Trường Đại học Mỏ - Địa chất, Ban lãnh đạo khoa Mỏ, phòng Đại học sau đại học, tập thể thầy giáo mơn Khai thác hầm lò PGS.TS Đỗ Mạnh Phong TS Trương Đức Dư giành nhiều công sức tâm huyết hướng dẫn tơi hồn thành luận án Tơi xin chân thành cảm ơn Ban lãnh đạo cơng ty hầm lò, đơn vị nghiên cứu, tư vấn, Tập đồn Cơng nghiệp Than Khống sản Việt Nam bạn đồng nghiệp tạo điều kiện thuận lợi cho trình thực luận án Tác giả iii MỤC LỤC Trang Lời cam đoan i Lời cảm ơn ii Mục lục iii Danh mục chữ viết tắt vii Danh mục bảng viii Danh mục hình x MỞ ĐẦU Chương 1: TỔNG QUAN VỀ CÁC HỆ THỐNG KHAI THÁC VÀ CÔNG NGHỆ KHAI THÁC CÁC VỈA THAN DÀY TRUNG BÌNH DỐC ĐỨNG VÀ CƠNG TÁC NGHIÊN CỨU TỐI ƯU HĨA CÁC THƠNG SỐ CỦA HỆ THỐNG KHAI THÁC 1.1 Tổng quan HTKT vỉa dày trung bình, dốc đứng giới 1.1.1.HTKT giàn chống 1.1.2 HTKT giàn chống, CGH đồng sử dụng tổ hợp giàn chống tự hành kết hợp máy bào than 1.1.3 HTKT cột dài theo phương, CGH đồng sử dụng tổ hợp giàn chống tự hành kết hợp máy bào combai khấu than 10 1.1.4 HTKT dạng buồng sử dụng lỗ khoan dài, đường kính lớn 12 1.1.5 Các CNKT khấu than máy cưa than 13 1.1.6 CNKT sức nước 15 1.2 Tổng quan HTKT vỉa dày trung bình, dốc đứng nước 17 1.2.1 Các HTKT dạng buồng 17 1.2.2 HTKT lò dọc vỉa phân tầng 20 1.2.3 HTKT giàn chống mỏ Vàng Danh, Mạo Khê 23 1.2.4 HTKT cột dài theo phương, gương lò chợ xiên chéo, chống giữ giàn chống mềm mỏ Vàng Danh 25 iv 1.2.5 HTKT cột dài theo phương, gương lò chợ chia bậc chân khay, điều khiển vách chèn lò kiểu Kakuchi mỏ Mạo Khê 26 1.2.6 HTKT giàn chống, CGH đồng sử dụng tổ hợp 2ANSH 28 1.2.7 HTKT cột dài theo phương, gương lò chợ xiên chéo, chống giữ giàn mềm loại ZRY 31 1.3 Tổng quan công tác nghiên cứu tối ưu hóa thơng số hệ thống khai thác vỉa dày trung bình, dốc đứng 37 1.3.1 Tổng quan phương pháp tối ưu hóa ngành mỏ 37 1.3.2 Tổng quan kết nghiên cứu tối ưu hóa thơng số hệ thống khai thác vỉa dày trung bình, dốc đứng 45 1.4 Kết luận chương 48 Chương 2: NGHIÊN CỨU LỰA CHỌN HỆ THỐNG KHAI THÁC VÀ CÔNG NGHỆ KHAI THÁC HỢP LÝ CHO CÁC VỈA THAN DÀY TRUNG BÌNH, DỐC ĐỨNG VÙNG NG BÍ - QUẢNG NINH 51 2.1 Đánh giá đặc điểm địa chất - kỹ thuật mỏ tổng hợp trữ lượng vỉa than dày trung bình, dốc đứng vùng ng Bí 51 2.1.1 Đặc điểm địa tầng 51 2.1.2 Đặc điểm địa chất cơng trình 52 2.1.3 Đặc điểm địa chất thủy văn 54 2.1.4 Đặc điểm khí mỏ, cháy nội sinh 54 2.1.5 Tổng hợp trữ lượng vỉa than dày trung bình, dốc đứng vùng ng Bí 55 2.2 Nghiên cứu xây dựng điều kiện áp dụng HTKT CNKT cho vỉa dày trung bình, dốc đứng 57 2.2.1 Các yếu tố ảnh hưởng đến việc lựa chọn CNKT hợp lý 57 2.2.2 Xây dựng điều kiện áp dụng loại hình CNKT vỉa dày trung bình, dốc đứng 59 v 2.3 Phân tích, đánh giá lựa chọn HTKT CNKT phù hợp cho vỉa dày trung bình, dốc đứng vùng ng Bí 64 2.4 Kết luận chương 69 Chương 3: TỐI ƯU HỐ CÁC THƠNG SỐ CỦA HỆ THỐNG KHAI THÁC LÒ CHỢ XIÊN CHÉO CHỐNG GIỮ BẰNG GIÀN MỀM ZRY CHO CÁC VỈA THAN DÀY TRUNG BÌNH, DỐC ĐỨNG 71 3.1 Lựa chọn thơng số cần tối ưu hóa HTKT vỉa dày trung bình, dốc đứng 71 3.1.1 Các thông số HTKT vỉa dày trung bình, dốc đứng vùng ng Bí - Quảng Ninh 71 3.1.2 Lựa chọn CNKT cần tối ưu hóa thơng số HTKT 80 3.1.3 Lựa chọn thông số cần tối ưu hóa củaHTKT cột dài theo phương CNKT lò chợ xiên chéo, chống giữ giàn mềm ZRY 81 3.2 Nghiên cứu phương pháp tối ưu hóa thơng số HTKT lò chợ xiên chéo, chống giữ giàn mềm ZRY 84 3.2.1 Lựa chọn phương pháp tối ưu hóa 84 3.2.2 Xây dựng mơ hình tốn - kinh tế tối ưu hóa thơng số HTKT cột dài theo phương, lò chợ xiên chéo, sử dụng giàn mềm ZRY 86 3.3 Tối ưu hóa thơng số HTKT cột dài theo phương, lò chợ xiên chéo, chống giữ giàn mềm ZRY 102 3.3.1 Tổng hợp số đơn giá định mức, giá thành công đoạn sản xuất phục vụ tính tốn 102 3.3.2 Tối ưu hóa chiều cao tầng biết trước chiều dài cột khai thác 104 3.3.3 Tối ưu hóa chiều dài cột khai thác biết trước chiều cao tầng 107 3.3.4 Tối ưu hóa thơng số HTKT lò chợ xiên chéo sử dụng giàn mềm loại ZRY theo tiêu chí giá thành sản xuất nhỏ 110 3.4 Kết luận chương 112 vi CHƯƠNG THIẾT KẾ HỆ THỐNG KHAI THÁC LÒ CHỢ XIÊN CHÉO, CHỐNG GIỮ BẰNG GIÀN MỀM ZRY CHO ĐIỀU KIỆN VỈA 9B KHU TRÀNG KHÊ, CÔNG TY THAN HỒNG THÁI 114 4.1 Đặc điểm điều kiện địa chất - kỹ thuật mỏ vỉa 9b khu Tràng Khê, mỏ Hồng Thái 114 4.1.1 Tóm tắt đặc điểm địa chất khu vực 114 4.1.2 Đặc điểm vỉa than 9b khu Tràng Khê 116 4.1.3 Hiện trạng công tác khai thông, chuẩn bị, khai thác 117 4.1.4 Kích thước khai trường tổng hợp trữ lượng khu vực 118 4.2.Hệ thống khai thác áp dụng cho vỉa 9B với thông số tối ưu 119 4.2.1 Khai thông, chuẩn bị khai trường 119 4.2.2 Phương pháp khấu than, thiết bị chống giữ lò chợ đồng 120 4.2.3 Tính tốn hộ chiếu chống giữ lò chợ 120 4.3 Đánh giá hiệu kinh tế hệ thống khai thác lò chợ xiên chéo, chống giữ giàn mềm ZRY 121 4.3.1 Tính tốn số tiêu KTKT lò chợ 121 4.3.2 Tính tốn giá thành phân xưởng, giá thành sản xuất trực tiếp 123 4.4 Kết luận chương 124 KẾT LUẬN VÀ KIẾN NGHỊ 125 DANH MỤC CÁC CƠNG TRÌNH CƠNG BỐ CỦA TÁC GIẢ TÀI LIỆU THAM KHẢO PHỤ LỤC vii DANH MỤC CÁC CHỮ VIẾT TẮT Chữ viết tắt Chữ viết đầy đủ 2ANSH Tổ hợp giới hóa khai thác 2ANSH CGH Cơ giới hóa CNKT Cơng nghệ khai thác CTLĐ Cột thủy lực đơn DVPT Dọc vỉa phân tầng DVTG Dọc vỉa thơng gió DVVT Dọc vỉa vận tải HTKT Hệ thống khai thác KTKT Kinh tế - kỹ thuật NSLĐ Năng suất lao động TLDĐ Thủy lực di động TKV Tập đồn Cơng nghiệp Than - Khống sản Việt Nam (Viết tắt tên giao dịch tiếng Việt) VINACOMIN Tập đồn Cơng nghiệp Than - Khống sản Việt Nam (Viết tắt tên giao dịch tiếng Anh) viii DANH MỤC CÁC BẢNG TT Tên bảng Trang Bảng 1.1 Các tiêu KT-KT đạt HTKT giàn chống số mỏ thuộc Liên Xô (cũ) Bảng 1.2 Một số tiêu KTKT đạt HTKT dạng buồng 20 Bảng 1.3 Một số tiêu KT-KT đạt HTKT lò DVPT 22 Bảng 1.4 Một số tiêu KT-KT đạt HTKT giàn chống mỏ Vàng Danh, Mạo Khê 24 Bảng 1.5 Một số tiêu KTKT đạt HTKT giàn chống, CGH đồng sử dụng tổ hợp 2ANSH Mạo Khê, Hồng Thái 29 Bảng 1.6 Một số tiêu KTKT đạt lò chợ ZRY20/30L vỉa 9b khu Tràng Khê II 36 Bảng 2.1.Tính chất lý đá khu vực vỉa dày trung bình, dốc đứng vùng ng Bí - Quảng Ninh 53 Bảng 2.2 Tổng hợp trữ lượng vỉa than dày trung bình, dốc đứng vùng ng Bí 55 Bảng 2.3 Điều kiện áp dụng HTKT dạng buồng 60 Bảng 2.5 Điều kiện áp dụng HTKT giàn chống, CGH đồng sử dụng tổ hợp 2ANSH 62 Bảng 2.6 Điều kiện áp dụng HTKT cột dài theo phương, gương lò chợ xiên chéo, chống giữ giàn mềm loại ZRY 64 Bảng 2.7 Phân tích, so sánh ưu nhược điểm HTKT cho điều kiện vỉa dày trung bình, dốc đứng 65 Bảng 2.8 So sánh số tiêu kinh tế - kỹ thuật HTKT cho điều kiện vỉa dày trung bình, dốc đứng 67 Bảng 3.1 Các thông số HTKT buồng - thượng chéo 73 Bảng 3.2 Các thông số HTKT buồng - thượng 75 TÀI LIỆU THAM KHẢO Bộ Công Thương (2011), Quy chuẩn kỹ thuật quốc gia an tồn khai thác hầm lò QCVN 01:2011/BCT, Hà Nội Chính phủ (2016), Điều chỉnh Quy hoạch phát triển ngành than Việt Nam đến năm 2020, có xét triển vọng đến năm 2030, ban hành theo Quyết định số Quyết định số 403/QĐ-TTg ngày 14/3/2016, Hà Nội Uông Hồng Hải (2008), Nghiên cứu công nghệ khai thác lò chợ dốc kiểu bậc chân khay sử dụng chèn lò theo kiểu Kakuchi Nhật Bản, Báo cáo tổng kết Đề tài cấp TKV, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội Đặng Thanh Hải (2016), Phát triển áp dụng giới hóa đào lò khai thác mỏ hầm lò vùng than Quảng Ninh giai đoạn 2013-2015, lộ trình đến năm 2020, Báo cáo tổng kết Đề tài cấp TKV, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội Trần Xuân Hòa (2011), Nghiên cứu nâng cao mức độ giới hóa đại hóa khai thác than hầm lò định hướng ứng dụng cho mỏ than hầm lò vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp Nhà nước, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội Lê Như Hùng (2002), Tối ưu hóa thiết kế mỏ hầm lò, Bài giảng Cao học khai thác mỏ, Hà Nội Lê Như Hùng (2002), Ứng dụng tin học xác định tham số mỏ hầm lò, Bài giảng Cao học khai thác mỏ,Hà Nội Trần Văn Huỳnh NNK (1998), Mở vỉa khai thác khoáng sàng dạng vỉa, Hà Nội Trần Tuấn Ngạn (2004), Nghiên cứu khả phát triển công nghệ khai thác vỉa than độ dốc lớn theo hướng áp dụng dàn chống (không phân mảng, dàn chống có đế trượt, giá thủy lực di đơng) phương pháp nổ mìn lỗ khoan dài đường kính lớn, Báo cáo tổng kết Đề tài cấp Bộ Công thương, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 10.Trần Tuấn Ngạn (2015), Nghiên cứu áp dụng công nghệ khai thác sử dụng giàn chống vỉa than dày trung bình, độ dốc 35 ÷ 55o mỏ than hầm lò Quảng Ninh, Báo cáo tổng kết Đề tài trọng điểm cấp Nhà nước, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 11.Ninh Quang Thành (1991), Nghiên cứu công nghệ khai thác vỉa dày, dốc α> 350 mỏ hầm lò vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp Nhà nước, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 12.Nguyễn Anh Tuấn (2006), Nghiên cứu áp dụng công nghệ khai thác chèn lò phục vụ cơng tác điều khiển đá vách bảo vệ đối tượng cơng trình bề mặt điều kiện mỏ hầm lò vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp TKV, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 13 Nguyễn Anh Tuấn (2009), Đánh giá hiệu đề xuất hướng phát triển áp dụng công nghệ giới hóa vỉa dốc mỏng dàn chống tự hành 2ANSH mỏ hầm lò vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp Bộ Công thương, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 14.Nguyễn Anh Tuấn (2009), Nghiên cứu áp dụng số giải pháp kỹ thuật cơng nghệ khai thác gương lò ngắn khai thác vỉa than mỏng, dốc vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp Bộ Công thương, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 15.Nhữ Việt Tuấn (2009), Nghiên cứu giải pháp nâng cao chiều cao phân tầng sơ đồ công nghệ khai thác vỉa dốc mỏ than Hầm lò Vùng Quảng Ninh, Báo cáo tổng kết Đề tài cấp Bộ Công thương, Viện Khoa học Công nghệ Mỏ - Vinacomin, Hà Nội 16.Viện Khoa học Công nghệ Mỏ - Vinacomin (2014), Dự án đầu tư áp dụng thử nghiệm cơng nghệ khai thác lò chợ xiên chéo, chống giữ giàn mềm ZRY Công ty Than Hồng Thái - TKV, Hà Nội 17.Viện Khoa học Công nghệ Mỏ - Vinacomin (2017), Hướng dẫn áp dụng công nghệ khai thác chia lớp ngang nghiêng mỏ hầm lò thuộc Tập đồn Cơng nghiệp Than - Khống sản Việt Nam, Hà Nội 18.Viện Khoa học Cơng nghệ Mỏ - Vinacomin (2017), Hướng dẫn áp dụng công nghệ khai thác lò dọc vỉa phân tầng mỏ hầm lò thuộc Tập đồn Cơng nghiệp Than - Khống sản Việt Nam, Hà Nội 19.Viện Khoa học Cơng nghệ Mỏ - Vinacomin (2017), Hướng dẫn áp dụng công nghệ khai thác buồng - thượng, buồng - thượng chéo mỏ hầm lò thuộc Tập đồn Cơng nghiệp Than - Khoáng sản Việt Nam, Hà Nội 20.ВНИМИ (1965), Методическое пособие по определению основных параметров систем разработки с короткими забоями для пологих пластов Кузбасса, Ленинград 21.Иванов И.Ф (1992), Средства выемки и крепления забоев тонких крутых пластов, Справочное пособие, «Тэхника», Киев 22.Кораблин Н.П., Середенко М.И., Белов В.П., Коровин Д.Р (1966),“Обобщение опыта работы и определение параметров и области применения крепи КТУ-2 на шахтах Кузбасса”,Исследования по вопросам горного дела,(13), КузНИУИ Недра, Москва 23.Лама Р.Д (1994),Вклад в геотехнику, выбросы, газовый и пылевой контроль и оптимизация горного планирования подземных угольных шахт, Дисс д-ра техн наук, Кемерово 24.Малышев Н.Ю (1994),“Механизм разработки рациональных технологических решений”,Горный информационно-аналитический бюллетень,(5), МГГУ, Москва 25.Некрасов В.В (1997), Комплексное обоснование параметров и реализация прогрессивных технологий эффективной и безопасной отработки запасов высокоугленосных месторождений, Автореф дисс докт техн наук., МГГУ, Москва 26.Станченко Н.К.и др (1986), Методология проектирования горных предприятий, Справочник, Недра, Москва 27.Шпайхер Е.Д., Салихов В.А (2002),Геологоразведочные работы и геолого-экономическая оценка месторождений ископаемых, Учебное пособие, СибГИУ, Новокузнецк 28.Чинакал Н.А (1968), Щитоваясистемаразработки, Недра полезных PHỤ LỤC #include #include #include #include #include #Region # ;Tạo GUI $MainGUI = GUICreate("Tối ưu hóa HTKT lò chợ ZRY - NCS Đào Trọng Cường", 444, 410, -1, -1);Tạo GUI ;GUICtrlSetFont(-1, 10, 800, 0, "Arial") ;Chỉnh font ;Tạo Group đặc điểm vỉa than $Input_info = GUICtrlCreateGroup("Đặc điểm vỉa than", 4, 4, 150, 70) $Lb_mv = GUICtrlCreateLabel("- Chiều dày vỉa:", 10, 28, 75, 17) GUICtrlSetColor(-1, 0x0000FF) $Input_mv = GUICtrlCreateInput("", 90, 28, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Lb_mv_dv = GUICtrlCreateLabel("m", 130, 28, 15, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_av = GUICtrlCreateLabel("- Góc dốc vỉa:", 10, 49, 75, 17) GUICtrlSetColor(-1, 0x0000FF) $Input_av = GUICtrlCreateInput("", 90, 49, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Lb_mv_dv = GUICtrlCreateLabel("độ", 130, 49, 15, 17) GUICtrlSetColor(-1, 0x0000FF) ;Tạo Group thông số đầu vào $Input_info = GUICtrlCreateGroup("Thông số tối ưu hóa", 4, 75, 150, 125) $Lb_Ht = GUICtrlCreateLabel("- Chiều cao tầng:", 10, 90, 110, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Ht_Gt = GUICtrlCreateLabel("Cho trước", 10, 105, 50, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Ht_Min = GUICtrlCreateLabel("Min", 70, 105, 50, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Ht_Max = GUICtrlCreateLabel("Max", 110, 105, 30, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Ht_dv = GUICtrlCreateLabel("m", 140, 120, 10, 17) GUICtrlSetColor(-1, 0x0000FF) $Input_Ht = GUICtrlCreateInput("", 15, 120, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Input_Ht_min = GUICtrlCreateInput("", 60, 120, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Input_Ht_max = GUICtrlCreateInput("", 100, 120, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Lb_Lp = GUICtrlCreateLabel("- Chiều dài cột khấu:", 10, 140, 110, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Lp_Gt = GUICtrlCreateLabel("Cho trước", 10, 155, 50, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Lp_Min = GUICtrlCreateLabel("Min", 70, 155, 50, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Lp_Max = GUICtrlCreateLabel("Max", 110, 155, 30, 17) GUICtrlSetColor(-1, 0x0000FF) $Lb_Lp_dv = GUICtrlCreateLabel("m", 140, 175, 10, 17) GUICtrlSetColor(-1, 0x0000FF) $Input_Lp = GUICtrlCreateInput("", 15, 175, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Input_Lp_min = GUICtrlCreateInput("", 60, 175, 35, 18) GUICtrlSetColor(-1, 0x0000FF) $Input_Lp_max = GUICtrlCreateInput("", 100, 175, 35, 18) GUICtrlSetColor(-1, 0x0000FF) ; Tạo Group thông số tối ưu $Toi_uu = GUICtrlCreateGroup("Kết tối ưu hóa thơng số HTKT", 160, 4, 280, 108) $Lb_Ht_TU = GUICtrlCreateLabel("- Chiều cao phân tầng tối ưu:", 165, 20, 140, 17) $Display_Ht_TU = GUICtrlCreateLabel("", 310, 20, 35, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_Ht_TU_dv = GUICtrlCreateLabel("m", 350, 20, 10, 17) $Lb_Lp_TU = GUICtrlCreateLabel("- Chiều dài cột khấu tối ưu:", 165, 38, 140, 17) $Display_Lp_TU = GUICtrlCreateLabel("", 310, 38, 35, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_Lp_TU_dv = GUICtrlCreateLabel("m", 350, 38, 10, 17) $Lb_Lc_TU = GUICtrlCreateLabel("- Chiều dài lò chợ tối ưu:", 165, 56, 140, 17) $Display_Lc_TU = GUICtrlCreateLabel("", 310, 56, 35, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_Lc_TU_dv = GUICtrlCreateLabel("m", 350, 56, 10, 17) $Lb_C_sx = GUICtrlCreateLabel("- Chi phí trực tiếp sản xuất than:", 165, 74, 180, 17) $Display_C_sx = GUICtrlCreateLabel("", 350, 74, 60, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_C_sx_dv = GUICtrlCreateLabel("đ", 415, 74, 10, 17) $Lb_GTPX = GUICtrlCreateLabel("- Giá thành phân xưởng:", 165, 92, 180, 17) $Display_GTPX = GUICtrlCreateLabel("", 350, 92, 60, 17) $Lb_GTPX_dv = GUICtrlCreateLabel("đ", 415, 92, 10, 17) ; Tạo Group tiêu KTKT $ChitieuKTKT = GUICtrlCreateGroup("Các tiêu kinh tế - kỹ thuật", 160, 115, 280, 290) $Lb_ndan = GUICtrlCreateLabel("- Số lượng giá ZRY (0% dự phòng):", 165, 133, 205, 17) $Display_ndan = GUICtrlCreateLabel("", 345, 133, 45, 17) $Lb_ndan_dv = GUICtrlCreateLabel("dàn", 391, 133, 43, 17) $Lb_nca_ck = GUICtrlCreateLabel("- Số ca hoàn thành chu kỳ:", 165, 151, 205, 17) $Display_nca_ck = GUICtrlCreateLabel("", 345, 151, 45, 17) $Lb_nca_ck_dv = GUICtrlCreateLabel("ca", 391, 151, 43, 17) $Lb_Qck = GUICtrlCreateLabel("- Sản lượng khai thác chu kỳ:", 165, 169, 205, 17) $Display_Qck = GUICtrlCreateLabel("", 345, 169, 45, 17) $Lb_Qck_dv = GUICtrlCreateLabel("tấn", 391, 169, 43, 17) $Lb_Qngd = GUICtrlCreateLabel("- Sản lượng khai thác ngày đêm:", 165, 187, 205, 17) $Display_Qngd = GUICtrlCreateLabel("", 345, 187, 45, 17) $Lb_Qngd_dv = GUICtrlCreateLabel("tấn", 391, 187, 43, 17) $Lb_Qthang = GUICtrlCreateLabel("- Sản lượng khai thác tháng:", 165, 205, 205, 17) $Display_Qthang = GUICtrlCreateLabel("", 345, 205, 45, 17) $Lb_Qthang_dv = GUICtrlCreateLabel("tấn", 391, 205, 43, 17) $Lb_vk = GUICtrlCreateLabel("- Tốc độ tiến gương:", 165, 223, 205, 17) $Display_vk = GUICtrlCreateLabel("", 345, 223, 45, 17) $Lb_vk_dv = GUICtrlCreateLabel("m/tháng", 391, 223, 43, 17) $Lb_kcd = GUICtrlCreateLabel("- Hệ số chuyển diện:", 165, 241, 205, 17) $Display_kcd = GUICtrlCreateLabel("", 345, 241, 45, 17) $Lb_Qnam = GUICtrlCreateLabel("- Cơng suất lò chợ:", 165, 259, 205, 17) $Display_Qnam = GUICtrlCreateLabel("", 345, 259, 45, 17) $Lb_Qnam_dv = GUICtrlCreateLabel("tấn/năm", 391, 259, 43, 17) $Lb_NSLD = GUICtrlCreateLabel("- Năng suất lao động:", 165, 277, 205, 17) $Display_NSLD = GUICtrlCreateLabel("", 345, 277, 45, 17) $Lb_NSLD_dv = GUICtrlCreateLabel("tấn/công", 391, 277, 43, 17) $Lb_Llo_1000 = GUICtrlCreateLabel("- Chi phí mét lò chuẩn bị cho 1000T:", 165, 295, 205, 17) $Display_Llo_1000 = GUICtrlCreateLabel("", 345, 295, 45, 17) $Lb_Llo_1000_dv = GUICtrlCreateLabel("m", 391, 295, 43, 17) $Lb_Vdau_1000 = GUICtrlCreateLabel("- Chi phí dầu nhũ hóa cho 1000T:", 165, 313, 205, 17) $Display_Vdau_1000 = GUICtrlCreateLabel("", 345, 313, 45, 17) $Lb_Vdau_1000_dv = GUICtrlCreateLabel("kg", 391, 313, 43, 17) $Lb_TN_1000 = GUICtrlCreateLabel("- Chi phí thuốc nổ cho 1000T:", 165, 331, 205, 17) $Display_TN_1000 = GUICtrlCreateLabel("", 345, 331, 45, 17) $Lb_TN_1000_dv = GUICtrlCreateLabel("kg", 391, 331, 43, 17) $Lb_Kipno_1000 = GUICtrlCreateLabel("- Chi phí kíp nổ cho 1000T:", 165, 349, 205, 17) $Display_Kipno_1000 = GUICtrlCreateLabel("", 345, 349, 45, 17) $Lb_Kipno_1000_dv = GUICtrlCreateLabel("kíp", 391, 349, 43, 17) $Lb_Luoithep_1000 = GUICtrlCreateLabel("- Chi phí lưới thép cho 1000T:", 165, 367, 205, 17) $Display_Luoithep_1000 = GUICtrlCreateLabel("", 345, 367, 45, 17) $Lb_Luoithep_1000_dv = GUICtrlCreateLabel("kg", 391, 367, 43, 17) $Lb_Ton_that = GUICtrlCreateLabel("- Tổn thất than theo công nghệ:", 165, 385, 205, 17) $Display_Ton_that = GUICtrlCreateLabel("", 345, 385, 45, 17) $Lb_Ton_that_dv = GUICtrlCreateLabel("%", 391, 385, 43, 17) ;Tạo nút tắt bật $Button_Start = GUICtrlCreateButton("START", 30, 290, 40, 25) $Button_Exit = GUICtrlCreateButton("EXIT", 80, 290, 40, 25) ;Đếm bước tính tốn $Lb_i = GUICtrlCreateLabel("Số bước tính:", 4, 205, 72, 17) $Display_i = GUICtrlCreateLabel("0", 75, 205, 50, 17) Dim $MainGUI_AccelTable[2][2] = [["{Enter}", $Button_Exit]] GUISetAccelerators($MainGUI_AccelTable) GUICtrlSetOnEvent($Button_Start, "_Start") GUICtrlSetOnEvent($Button_Exit, "_Exit") GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ; Set chế độ theo dõi GUI Opt("GUIOnEventMode", 1) $pi = 3.14159265358979 $Button_Start],["{End}", Dim $start Dim $mv,$av,$than = 1.72,$N_cn = 63 Dim $Ht,$Lp,$Ht_min,$Ht_max,$Lp_min,$Lp_max Dim $Htbv,$Lc,$nca_ck,$ndan,$Qck,$Qngd,$Qthang,$Rp,$Vkhau,$Tkt_cot,$N_chuyen dien,$Kcd,$Qnam,$NSLD,$Thuocno_1000,$Kipno_1000,$Lo_1000,$Dau_1000,$ Luoithep_1000,$TLhuydong,$Qkhaithac,$Qdaolo,$Qkt_cot,$Ton_that Dim $Dg_daolo = 13860200,$Dg_vantai = 8.6,$Dg_thonggio = $Dg_thoatnuoc = 14045 16500, Dim $TM_Thietbi,$Tb_Dan,$Tb_CTLD,$Tb_Trambom,$Tb_Dien,$Tb_khac Dim $Cthuocno,$Ckip,$Cdayno,$Cgo,$Cmuikhoan,$Cchoongkhoan,$Ccaumang,$Cxich mang,$Cdenlo,$Cdaunhu,$Cluoithep,$Csuachua Dim $Vattu,$Dongluc,$Tienluong,$Baohiem,$Khauhao,$Khac,$GTPX Dim $C_sanxuat,$C_daolo,$C_khaithac,$C_vantai,$C_thonggio,$C_thoatnuoc,$C_xenl o,$C_chung,$C_cdien Dim $mk1,$Lc1,$Lp1,$CPSX,$i,$N1=0.0704,$N2=0.1556,$C_vtai_chung = 30434,$Lo_nam $start = False While If $start = True Then _GetInfo() If $mv < 1.5 Then MsgBox (0 ,"Lỗi" ,"Chiều dày vỉa không nhỏ 1.5m") $start = False ElseIf $mv >3.5 Then MsgBox (0 ,"Lỗi" ,"Chiều dày vỉa không lớn 3.5m") $start = False ElseIf $av 90 Then MsgBox (0 ,"Lỗi" ,"Góc dốc vỉa khơng lớn 90 độ") $start = False ElseIf ($Ht=0 And $Ht_max0 And $Lp