TỐI ƯU HÓA CÁC THAM SỐ CỦA MỘT SỐ SƠ ĐỒ CÔNG NGHỆ KHAI THÁC VỈA THAN DÀY, DỐC THOẢI VÙNG CẨM PHẢ- QUẢNG NINH

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT BÙI ĐÌNH THANH TỐI ƯU HĨA CÁC THAM SỐ CỦA MỘT SỐ SƠ ĐỒ CÔNG NGHỆ KHAI THÁC VỈA THAN DÀY, DỐC THOẢI VÙNG CẨM PHẢ- QUẢNG NINH LUẬN ÁN TIẾN SỸ KỸ THUẬT HÀ NỘI - 2016 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT BÙI ĐÌNH THANH TỐI ƯU HĨA CÁC THAM SỐ CỦA MỘT SỐ SƠ ĐỒ CÔNG NGHỆ KHAI THÁC VỈA THAN DÀY, DỐC THOẢI VÙNG CẨM PHẢ- QUẢNG NINH Ngành: Khai thác mỏ Mã số: 62.52.06.03 LUẬN ÁN TIẾN SĨ KỸ THUẬT NGƯỜI HƯỚNG DẪN KHOA HỌC GS.TSKH LÊ NHƯ HÙNG HÀ NỘI - 2016 LỜI CAM ĐOAN Tơi xin cam đoan cơng trình nghiên cứu thân tôi, kết nghiên cứu trình bày luận án trung thực, khách quan chưa công bố cơng trình khác Tác giả luận án Bùi Đình Thanh MỤC LỤC DANH MỤC CÁC KÝ HIỆU, CÁC CHỮ VIẾT TẮT DANH MỤC CÁC BẢNG BIỂU DANH MỤC CÁC HÌNH VẼ, ĐỒ THỊ MỞ ĐẦU CHƯƠNG TỔNG QUAN HIỆN TRẠNG ÁP DỤNG CÔNG NGHỆ KHAI THÁC VỈA THAN DÀY, DỐC THOẢI VÀ CÁC KẾT QUẢ NGHIÊN CỨU TỐI ƯU HÓA CÁC THAM SỐ CỦA SƠ ĐỒ CÔNG NGHỆ KHAI THÁC 1.1 Hiện trạng áp dụng công nghệ khai thác vỉa dày, dốc thoải vùng than quảng ninh 1.2 Kinh nghiệm áp dụng công nghệ khai thác vỉa dày, dốc thoải giới 19 1.3 Tổng quan kết nghiên cứu tối ưu hóa thơng số cơng nghệ khai thác vỉa dày, dốc thoải 22 1.4 Kết luận, mục tiêu nội dung nghiên cứu 32 CHƯƠNG ĐỀ XUẤT CÁC SƠ ĐỒ CÔNG NGHỆ KHAI THÁC PHÙ HỢP ĐIỀU KIỆN CÁC VỈA THAN DÀY, DỐC THOẢI VÙNG CẨM PHẢ - QUẢNG NINH 35 2.1 Đánh giá đặc điểm điều kiện địa chất- kỹ thuật mỏ tổng hợp trữ lượng vỉa dày, dốc thoải vùng cẩm phả- quảng ninh 35 2.2 Đề xuất số công nghệ khai thác phù hợp điều kiện vỉa dày, dốc thoải vùng cẩm phả- quảng ninh 44 2.3 Đề xuất đồng thiết bị giới hóa khai thác vỉa dày thoải 51 2.4 Kết luận 58 CHƯƠNG XÂY DỰNG PHƯƠNG PHÁP TỐI ƯU HÓA CÁC THAM SỐ CỦA SƠ ĐỒ CÔNG NGHỆ KHAI THÁC VỈA THAN DÀY, DỐC THOẢI VÙNG CẨM PHẢ - QUẢNG NINH 60 3.1 Nghiên cứu xác định tham số cần tối ưu hóa sơ đồ cơng nghệ khai thác 60 3.2 Xây dựng phương pháp tổng quát giải tốn tối ưu hóa tham số sơ đồ công nghệ khai thác vỉa dày, dốc thoải 72 3.3 Xây dựng phương pháp tính tốn chi phí sản xuất than dựa tham số sơ đồ công nghệ khai thác 75 3.3 Kết luận 82 CHƯƠNG NGHIÊN CỨU TỐI ƯU HĨA CÁC THƠNG SỐ CỦA SƠ ĐỒ CƠNG NGHỆ CƠ GIỚI HĨA KHAI THÁC VỈA THAN DÀY, DỐC THOẢI TẠI MỎ THAN KHE CHÀM III 84 4.1 Xây dựng điều kiện tính tốn 85 4.2 Tối ưu hóa chiều dài lò chợ biết trước chiều dài cột khai thác chiều cao khấu gương 101 4.3 Tối ưu hóa chiều dài cột khai thác biết trước chiều dài lò chợ chiều cao khấu gương 103 4.4 Xây dựng mối quan hệ chiều cao khấu gương chi phí sản xuất biết trước kích thước lò chợ .106 4.5 Tối ưu hóa tham số lò chợ giới hóa theo yếu tố chi phí sản xuất nhỏ 107 4.6 Kết luận 109 KẾT LUẬN VÀ KIẾN NGHỊ 110 DANH MỤC CƠNG TRÌNH CỦA TÁC GIẢ 112 TÀI LIỆU THAM KHẢO 113 PHỤ LỤC 117 DANH MỤC CÁC KÝ HIỆU, CÁC CHỮ VIẾT TẮT XV Xuyên vỉa TB Tây Bắc ZHF Giá thủy lực di động kiểu ZHF LAC Fast Lagrangian Analyis of Continua UDEC The Universal Distinct Element Code CNKT Công nghệ khai thác CLTĐ Cột thủy lực đơn HDIB Xà kim loại kiểu HDJB GTLDĐ Giá thủy lực di động HDFBC Xà hộp SNG Khối nước thuộc Nga XDY Giá thủy lực di động kiểu XDY VINAALTA Giàn chống tự hành kiểu VINAALTA 2ANSH Giàn chống tự hành kiểu 2ANSH OKU Cột chống pha hỏa kiểu OKU QCVN01:2011/BCT Quy chuẩn kỹ thuật Quốc gia an toàn khai thác than hầm CNKT Công nghệ khai thác HTKTCDTP Hệ thống khai thác cột dài theo phương DANH MỤC CÁC HÌNH VẼ, ĐỒ THỊ Hình 1.1 Hệ thống khai thác cột dài theo phương, khấu lớp trụ hạ trần than Hình 1.2 Mặt cắt gương lò chợ theo loại vật liệu chống giữ Hình 1.3 Giá thủy lực di động XDY-1T2/LY 10 Hình 1.4 Giá thủy lực di động có xích ZH1800/16/24ZL 10 Hình 1.5 Sơ đồ cơng nghệ khai thác giới hóa đồng sử dụng dàn tự hành Vinaalta, khấu than lớp trụ, hạ trần thu hồi than 12 Hình 1.6 Lò chợ giới hóa đồng Cơng ty than Nam Mẫu 13 Hình 1.7 Cơng nghệ khai thác chia lớp nghiêng có lớp đệm nhân tạo 15 Hình 1.8 Hệ thống khai thác chia lớp nghiêng - hạ trần 18 Hình 1.9 Sơ đồ CNKT CGH chia lớp nghiêng, hạ trần thu hồi lớp 20 Hình 1.10 Sơ đồ CNKT chia lớp nghiêng với chèn lò tồn phần 20 Hình 1.11 Sơ đồ CNKT cột dài theo phương, CGH khấu than lớp trụ hạ trần thu hồi than Trung Quốc 21 Hình 2.1 Tỷ lệ phân bố trữ lượng vỉa than dày, dốc thoải mỏ hầm lò vùng Cẩm Phả 42 Hình 2.2 Tỷ lệ phân bố trữ lượng vỉa than dày, dốc thoải có khả áp dụng giới hóa khai thác mỏ hầm lò vùng Cẩm Phả 43 Hình 2.3 Cơng nghệ CGH khai thác hạ trần than 45 Hình 2.4 Cơng nghệ giới hóa khai thác chia lớp nghiêng,hạ trần thu hồi than lớp .49 Hình 2.5 Dàn chống tự hành kiểu “che- chống” có kết cấu thu hồi than sử dụng máng cào 52 Hình 2.6 Dàn chống tự hành kiểu “chống - che” có kết cấu thu hồi than nóc, sử dụng máng cào 54 Hình 3.1 Mối quan hệ chiều dài lò chợ với cơng suất khai thác, giá thành phân xưởng, chi phí sản xuất than 67 Hình 3.2 Mối quan hệ chiều dài cột khai thác theo phương với công suất khai thác, giá thành phân xưởng, chi phí sản xuất than 69 Hình 3.3 Mối quan hệ chiều cao khấu gương với công suất khai thác, giá thành phân xưởng, chi phí sản xuất than 70 Hình 3.4 Giải thuật tổng quát giải tốn tối ưu hóa tham số sơ đồ công nghệ khai thác vỉa than dày, dốc thoải 74 Hình 4.1 Giao diện phần mềm tối ưu hóa thơng số SĐCN giới hóa khai thác vỉa than dày, dốc thoải 100 Hình 4.2 Kết tính tốn tối ưu hóa chiều dài lò chợ biết trước chiều dài cột khai thác chiều cao khấu (trong điều kiện mỏ Khe Chàm III) 102 Hình 4.3 Mối quan hệ chi phí sản xuất với chiều dài lò chợ 103 Hình 4.4 Kết tính tốn tối ưu hóa chiều dài cột khai thác biết trước chiều dài lò chợ chiều cao khấu (trong điều kiện mỏ Khe Chàm III) 104 Hình 4.5 Mối quan hệ chi phí sản xuất với chiều dài cột khấu (trong điều kiện mỏ Khe Chàm III) 105 Hình 4.6 Mối quan hệ chi phí sản xuất với chiều cao khấu gương (trong điều kiện mỏ Khe Chàm III) 106 Hình 4.7 Kết tính tốn tối ưu hóa chiều dài lò chợ, chiều dài cột khai thác theo yếu tố chi phí sản xuất nhỏ (trong điều kiện mỏ Khe Chàm III) 108 DANH MỤC CÁC BẢNG BIỂU Bảng 1.1: Tổng hợp số tiêu KTKT đạt CNKT cột dài theo phương, khấu lớp trụ khoan nổ mìn, hạ trần thu hồi than Bảng 1.2: Tổng hợp tiêu KTKT đạt CNKT CGH đồng sử dụng dàn tự hành Vinaalta, khấu than lớp trụ, hạ trần thu hồi than 13 Bảng 1.3: Tổng hợp tiêu KTKT đạt CNKT chia lớp nghiêng 16 Bảng 2.1: Bảng tính chất lý đá mỏ vùng Cẩm Phả - Quảng Ninh 37 Bảng 2.2: Tổng hợp trữ lượng địa chất vỉa than dày, dốc thoải mỏ hầm lò vùng Cẩm Phả - Quảng Ninh 41 Bảng 2.3: Tổng hợp trữ lượng khu vực vỉa than dày, dốc thoải có khả áp dụng giới hóa khai thác mỏ hầm lò vùng Cẩm Phả 43 Bảng 2.4: Đặc tính kỹ thuật số loại dàn tự hành thu hồi than có kết cấu kiểu “che - chống” sử dụng máng cào 53 Bảng 2.5: Đặc tính kỹ thuật số loại dàn tự hành thu hồi than có kết cấu “chống - che” sử dụng hai máng cào 55 Bảng 2.6: Bảng so sánh ưu, nhược điểm loại dàn chống tự hành 56 Bảng 4.1: Các điều kiện tính tốn tốn tối ưu hóa 99 MỞ ĐẦU Tính cấp thiết đề tài Trong năm qua, sản lượng khai thác than nước tăng trưởng với tốc độ cao Những thành tựu đạt kết trình triển khai áp dụng giải pháp công nghệ nhằm bước nâng cao mức độ giới hóa khâu q trình sản xuất Theo Đ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, sản lượng khai thác tăng nhanh từ 44,1 triệu năm 2014 lên 58,2 triệu năm 2020 đạt khoảng 68,9 triệu vào năm 2030 Trong đó, sản lượng than khai thác hầm lò liên tục tăng cao, từ 20,9 triệu năm 2014 lên 48,6 triệu vào năm 2030, tương ứng tăng khoảng 2,3 lần so với chiếm 70% tổng sản lượng toàn ngành Như vậy, tương lai mỏ hầm lò đơn vị đóng góp sản lượng khai thác than chủ yếu Do đó, để đạt mục tiêu sản lượng theo kế hoạch, thiết cần đổi công nghệ khai thác than hầm lò theo hướng áp dụng loại hình cơng nghệ giới hóa khâu sản xuất, đáp ứng tiêu chí mỏ đại như: cơng suất khai thác lớn; an tồn; trình độ công nghệ thiết bị tiên tiến; giảm thiểu lao động thủ công; giám sát, thông tin liên lạc, điều hành sản xuất tập trung, tự động hóa yêu cầu đòi hỏi triển khai nghiên cứu, phân tích, đề xuất, lựa chọn giải pháp kỹ thuật công nghệ phù hợp, tạo sở định hướng phát triển giới hóa đại hóa mỏ than Một điều kiện vỉa than tương đối phổ biến vùng than Đơng Bắc nói chung, vùng Cẩm Phả nói riêng đối tượng vỉa than dày thoải Hiện nay, để khai thác đối tượng vỉa than dày, góc dốc thoải, cơng nghệ khai thác áp dụng chủ yếu mỏ hầm lò vùng Quảng Ninh là: Công nghệ khai thác cột dài theo phương, khấu lớp trụ khoan nổ mìn thủ 119 $Lb_kck = GUICtrlCreateLabel("- Hệ số hoàn thành chu kỳ:", 10, 269, 215, 17) $Input_kck = GUICtrlCreateInput("0.75", 215, 269, 30, 18) $Lb_Ncn = GUICtrlCreateLabel("- Số công nhân làm việc ngày đêm:", 10, 291, 215, 17) $Lb_Ncn_dv = GUICtrlCreateLabel("người", 247, 291, 30, 17) $Input_Ncn = GUICtrlCreateInput("75", 215, 291, 30, 18) $Lb_Lk = GUICtrlCreateLabel("- Chiều dài khấu tạo khám:", 10, 313, 215, 17) $Lb_Lk_dv = GUICtrlCreateLabel("m", 247, 313, 30, 17) $Input_Lk = GUICtrlCreateInput("35", 215, 313, 30, 18) $Lb_Txlnb = GUICtrlCreateLabel("- Thời gian xử lý ngã ba:", 10, 335, 215, 17) $Lb_Txlnb_dv = GUICtrlCreateLabel("phút", 247, 335, 30, 17) $Input_Txlnb = GUICtrlCreateInput("40", 215, 335, 30, 18) $Lb_Tcct = GUICtrlCreateLabel("- Thời gian di chuyển cầu chuyển tải:", 10, 357, 215, 17) $Lb_Tcct_dv = GUICtrlCreateLabel("phút", 247, 357, 30, 17) $Input_Tcct = GUICtrlCreateInput("30", 215, 357, 30, 18) $Lb_Tgc = GUICtrlCreateLabel("- Thời gian giao ca:", 10, 379, 215, 17) $Lb_Tgc_dv = GUICtrlCreateLabel("phút", 247, 379, 30, 17) $Input_Tgc = GUICtrlCreateInput("30", 215, 379, 30, 18) $Lb_Tbd = GUICtrlCreateLabel("- Thời gian bảo dưỡng thiết bị ca:", 10, 401, 215, 17) $Lb_Tbd_dv = GUICtrlCreateLabel("phút", 247, 401, 30, 17) $Input_Tbd = GUICtrlCreateInput("90", 215, 401, 30, 18) $Lb_Tth = GUICtrlCreateLabel("- Thời gian thu hồi than dàn:", 10, 423, 215, 17) $Lb_Tth_dv = GUICtrlCreateLabel("phút", 247, 423, 30, 17) $Input_Tth = GUICtrlCreateInput("3", 215, 423, 30, 18) $Lb_Ttcd = GUICtrlCreateLabel("- Thời gian lần chuyển diện:", 10, 445, 215, 17) $Lb_Tcd_dv = GUICtrlCreateLabel("tháng", 247, 445, 30, 17) $Input_Tcd = GUICtrlCreateInput("2", 215, 445, 30, 18) $Lb_r = GUICtrlCreateLabel("- Chiều rộng tang khấu:", 10, 467, 215, 17) $Lb_r_dv = GUICtrlCreateLabel("m", 247, 467, 30, 17) $Input_r = GUICtrlCreateInput("0.63", 215, 467, 30, 18) 120 $Lb_vm_kt = GUICtrlCreateLabel("- Vận tốc máy khấu không tải:", 10, 489, 215, 17) $Lb_vm_kt_dv = GUICtrlCreateLabel("m/phút", 247, 489, 33, 17) $Input_vm_kt = GUICtrlCreateInput("4", 215, 489, 30, 18) $Lb_vm_ct = GUICtrlCreateLabel("- Vận tốc máy khấu có tải:", 10, 511, 215, 17) $Lb_vm_ct_dv = GUICtrlCreateLabel("m/phút", 247, 511, 33, 17) $Input_vm_ct = GUICtrlCreateInput("2.5", 215, 511, 30, 18) $Lb_Vnuoc_may = GUICtrlCreateLabel("- Lưu lượng nước làm mát thiết bị:", 10, 533, 215, 17) $Lb_Vnuoc_may_dv = GUICtrlCreateLabel("l/giờ", 247, 533, 33, 17) $Input_Vnuoc_may = GUICtrlCreateInput("1000", 215, 533, 30, 18) $Lb_Vnuoc_bui = GUICtrlCreateLabel("- Tốc độ phun nước dập bụi:", 10, 555, 215, 17) $Lb_Vnuoc_bui_dv = GUICtrlCreateLabel("l/phút", 247, 555, 33, 17) $Input_Vnuoc_bui = GUICtrlCreateInput("3", 215, 555, 30, 18) $Lb_Wdan = GUICtrlCreateLabel("- Chiều rộng dàn:", 10, 577, 215, 17) $Lb_Wdan_dv = GUICtrlCreateLabel("mm", 247, 577, 33, 17) $Input_Wdan = GUICtrlCreateInput("1500", 215, 577, 30, 18) $Lb_Cdd = GUICtrlCreateLabel("- Nồng độ dung dịch dầu nhũ hóa:", 10, 599, 215, 17) $Lb_Cdd_dv = GUICtrlCreateLabel("%", 247, 599, 33, 17) $Input_Cdd = GUICtrlCreateInput("5", 215, 599, 30, 18) $Lb_nkhauhao = GUICtrlCreateLabel("- Thời gian khấu hao thiết bị:", 10, 621, 215, 17) $Lb_nkhauhao_dv = GUICtrlCreateLabel("năm", 247, 621, 33, 17) $Input_nkhauhao = GUICtrlCreateInput("7", 215, 621, 30, 18) $q1 = 52.66; $q2 = 4; $q3 = 180; $Nrang_khau_dm = 8; ; Tạo Group tham số tối ưu $Toi_uu = GUICtrlCreateGroup("Kết tối ưu hóa tham số", 290, 4, 280, 92) $Lb_Lc_TU = GUICtrlCreateLabel("- Chiều dài lò chợ tối ưu:", 296, 20, 140, 17) $Display_Lc_TU = GUICtrlCreateLabel("", 440, 20, 35, 17) 121 GUICtrlSetColor(-1, 0xFF0000) $Lb_Lc_TU_dv = GUICtrlCreateLabel("m", 487, 20, 10, 17) $Lb_Lp_TU = GUICtrlCreateLabel("- Chiều dài cột khấu tối ưu:", 296, 38, 140, 17) $Display_Lp_TU = GUICtrlCreateLabel("", 440, 38, 35, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_Lp_TU_dv = GUICtrlCreateLabel("m", 487, 38, 10, 17) $Lb_mk_TU = GUICtrlCreateLabel("- Chiều cao khấu tối ưu:", 296, 56, 140, 17) $Display_mk_TU = GUICtrlCreateLabel("", 440, 56, 35, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_mv_TU_dv = GUICtrlCreateLabel("m", 487, 56, 10, 17) $Lb_C_sx = GUICtrlCreateLabel("- Chi phí trực tiếp sản xuất than:", 296, 74, 180, 17) $Display_C_sx = GUICtrlCreateLabel("", 480, 74, 60, 17) GUICtrlSetColor(-1, 0xFF0000) $Lb_C_sx_dv = GUICtrlCreateLabel("đ", 540, 74, 10, 17) ; Tạo Group tiêu KTKT $ChitieuKTKT = GUICtrlCreateGroup("Các tiêu kinh tế - kỹ thuật", 290, 97, 280, 308) $Lb_mth = GUICtrlCreateLabel("- Chiều cao thu hồi:", 296, 115, 205, 17) $Display_mth = GUICtrlCreateLabel("", 475, 115, 45, 17) $Lb_mth_dv = GUICtrlCreateLabel("m", 522, 115, 43, 17) $Lb_ndan = GUICtrlCreateLabel("- Số lượng dàn chống:", 296, 133, 205, 17) $Display_ndan = GUICtrlCreateLabel("", 475, 133, 45, 17) $Lb_ndan_dv = GUICtrlCreateLabel("dàn", 522, 133, 43, 17) $Lb_nca_ck = GUICtrlCreateLabel("- Số ca hoàn thành chu kỳ:", 296, 151, 205, 17) $Display_nca_ck = GUICtrlCreateLabel("", 475, 151, 45, 17) $Lb_nca_ck_dv = GUICtrlCreateLabel("ca", 522, 151, 43, 17) $Lb_Ql = GUICtrlCreateLabel("- Sản lượng luồng khai thác:", 296, 169, 205, 17) $Display_Ql = GUICtrlCreateLabel("", 475, 169, 45, 17) $Lb_Ql_dv = GUICtrlCreateLabel("tấn", 522, 169, 43, 17) $Lb_Qck = GUICtrlCreateLabel("- Sản lượng khai thác chu kỳ:", 296, 187, 205, 17) $Display_Qck = GUICtrlCreateLabel("", 475, 187, 45, 17) 122 $Lb_Qck_dv = GUICtrlCreateLabel("tấn", 522, 187, 43, 17) $Lb_Qngd = GUICtrlCreateLabel("- Sản lượng khai thác ngày đêm:", 296, 205, 205, 17) $Display_Qngd = GUICtrlCreateLabel("", 475, 205, 45, 17) $Lb_Qngd_dv = GUICtrlCreateLabel("tấn", 522, 205, 43, 17) $Lb_Qthang = GUICtrlCreateLabel("- Sản lượng khai thác tháng:", 296, 223, 205, 17) $Display_Qthang = GUICtrlCreateLabel("", 475, 223, 45, 17) $Lb_Qthang_dv = GUICtrlCreateLabel("tấn", 522, 223, 43, 17) $Lb_vk = GUICtrlCreateLabel("- Tốc độ tiến gương:", 296, 241, 205, 17) $Display_vk = GUICtrlCreateLabel("", 475, 241, 45, 17) $Lb_vk_dv = GUICtrlCreateLabel("m/tháng", 522, 241, 43, 17) $Lb_kcd = GUICtrlCreateLabel("- Hệ số chuyển diện:", 296, 259, 205, 17) $Display_kcd = GUICtrlCreateLabel("", 475, 259, 45, 17) $Lb_Qnam = GUICtrlCreateLabel("- Công suất khai thác:", 296, 277, 205, 17) $Display_Qnam = GUICtrlCreateLabel("", 475, 277, 45, 17) $Lb_Qnam_dv = GUICtrlCreateLabel("tấn/năm", 522, 277, 43, 17) $Lb_NSLD = GUICtrlCreateLabel("- Năng suất lao động:", 296, 295, 205, 17) $Display_NSLD = GUICtrlCreateLabel("", 475, 295, 45, 17) $Lb_NSLD_dv = GUICtrlCreateLabel("tấn/công", 522, 295, 43, 17) $Lb_Llo_1000 = GUICtrlCreateLabel("- Chi phí mét lò chuẩn bị cho 1000T:", 296, 313, 205, 17) $Display_Llo_1000 = GUICtrlCreateLabel("", 475, 313, 45, 17) $Lb_Llo_1000_dv = GUICtrlCreateLabel("m", 522, 313, 43, 17) $Lb_Vdau_1000 = GUICtrlCreateLabel("- Chi phí dầu nhũ hóa cho 1000T:", 296, 331, 205, 17) $Display_Vdau_1000 = GUICtrlCreateLabel("", 475, 331, 45, 17) $Lb_Vdau_1000_dv = GUICtrlCreateLabel("kg", 522, 331, 43, 17) $Lb_Vnuoc_1000 = GUICtrlCreateLabel("- Chi phí nước cho 1000T:", 296, 349, 205, 17) $Display_Vnuoc_1000 = GUICtrlCreateLabel("", 475, 349, 45, 17) $Lb_Vnuoc_1000_dv = GUICtrlCreateLabel("m3", 522, 349, 43, 17) $Lb_Nrang_khau_1000 = GUICtrlCreateLabel("- Chi phí khấu cho 1000T:", 296, 367, 205, 17) $Display_Nrang_khau_1000 = GUICtrlCreateLabel("", 475, 367, 45, 17) 123 $Lb_Nrang_khau_1000_dv = GUICtrlCreateLabel("cái", 522, 367, 43, 17) $Lb_Ton_that = GUICtrlCreateLabel("- Tổn thất than theo công nghệ:", 296, 385, 205, 17) $Display_Ton_that = GUICtrlCreateLabel("", 475, 385, 45, 17) $Lb_Ton_that_dv = GUICtrlCreateLabel("%", 522, 385, 43, 17) ; Tạo Group GTPX $Giathanhphanxuong = GUICtrlCreateGroup("Giá thành phân xưởng:", 290, 405, 280, 128) $Display_GTPX = GUICtrlCreateLabel("", 410, 405, 45, 17) $Lb_GTPX_dv = GUICtrlCreateLabel("đ", 457, 405, 10, 17) $Lb_Trongdo = GUICtrlCreateLabel("Trong đó:", 296, 423, 50, 17) $Lb_Vattu = GUICtrlCreateLabel("+ Vật tư:", 348, 423, 50, 17) $Display_Vattu = GUICtrlCreateLabel("", 415, 423, 45, 17) $Lb_Vattu_dv = GUICtrlCreateLabel("đ", 457, 423, 10, 17) $Lb_Dongluc = GUICtrlCreateLabel("+ Động lực:", 348, 441, 60, 17) $Display_Dongluc = GUICtrlCreateLabel("", 415, 441, 45, 17) $Lb_Dongluc_dv = GUICtrlCreateLabel("đ", 457, 441, 10, 17) $Lb_Tienluong = GUICtrlCreateLabel("+ Tiền lương:", 348, 459, 62, 17) $Display_Tienluong = GUICtrlCreateLabel("", 415, 459, 45, 17) $Lb_Tienluong_dv = GUICtrlCreateLabel("đ", 457, 459, 10, 17) $Lb_Baohiem = GUICtrlCreateLabel("+ Bảo hiểm:", 348, 477, 62, 17) $Display_Baohiem = GUICtrlCreateLabel("", 415, 477, 45, 17) $Lb_Baohiem_dv = GUICtrlCreateLabel("đ", 457, 477, 10, 17) $Lb_Khauhao = GUICtrlCreateLabel("+ Khấu hao:", 348, 495, 62, 17) $Display_Khauhao = GUICtrlCreateLabel("", 415, 495, 45, 17) $Lb_Khauhao_dv = GUICtrlCreateLabel("đ", 457, 495, 10, 17) $Lb_Khac = GUICtrlCreateLabel("+ Khác:", 348, 513, 62, 17) $Display_Khac = GUICtrlCreateLabel("", 415, 513, 45, 17) $Lb_Khac_dv = GUICtrlCreateLabel("đ", 457, 513, 10, 17) ; Tạo Group Chi phí sản xuất trực tiếp $Chiphisanxuat = GUICtrlCreateGroup("Chi phí sản xuất trực tiếp:", 290, 533, 280, 128) $Display_CPSX = GUICtrlCreateLabel("", 425, 533, 45, 17) $Lb_CPSX_dv = GUICtrlCreateLabel("đ", 473, 533, 10, 17) $Lb_Trongdo = GUICtrlCreateLabel("Trong đó:", 296, 551, 50, 17) 124 $Lb_C_daolo = GUICtrlCreateLabel("+ Chi phí đào lò:", 348, 551, 100, 17) $Display_C_daolo = GUICtrlCreateLabel("", 450, 551, 45, 17) $Lb_C_daolo_dv = GUICtrlCreateLabel("đ", 497, 551, 10, 17) $Lb_C_khaithac = GUICtrlCreateLabel("+ Chi phí khai thác:", 348, 569, 100, 17) $Display_C_khaithac = GUICtrlCreateLabel("", 450, 569, 45, 17) $Lb_C_khaithac_dv = GUICtrlCreateLabel("đ", 497, 569, 10, 17) $Lb_C_vantai = GUICtrlCreateLabel("+ Chi phí vận tải:", 348, 587, 100, 17) $Display_C_vantai = GUICtrlCreateLabel("", 450, 587, 45, 17) $Lb_C_vantai_dv = GUICtrlCreateLabel("đ", 497, 587, 10, 17) $Lb_C_thonggio = GUICtrlCreateLabel("+ Chi phí thơng gió:", 348, 605, 100, 17) $Display_C_thonggio = GUICtrlCreateLabel("", 450, 605, 45, 17) $Lb_C_thonggio_dv = GUICtrlCreateLabel("đ", 497, 605, 10, 17) $Lb_C_thoatnuoc = GUICtrlCreateLabel("+ Chi phí nước:", 348, 623, 100, 17) $Display_C_thoatnuoc = GUICtrlCreateLabel("", 450, 623, 45, 17) $Lb_C_thoatnuoc_dv = GUICtrlCreateLabel("đ", 497, 623, 10, 17) $Lb_C_xenlo = GUICtrlCreateLabel("+ Chi phí xén lò:", 348, 641, 100, 17) $Display_C_xenlo = GUICtrlCreateLabel("", 450, 641, 45, 17) $Lb_C_xenlo_dv = GUICtrlCreateLabel("đ", 497, 641, 10, 17) $Lb_i = GUICtrlCreateLabel("Khối lượng tính tốn thực hiện:", 10, 650, 170, 17) $Display_i = GUICtrlCreateLabel("0", 190, 650, 50, 17) ;Tạo nút tắt bật $Button_Start = GUICtrlCreateButton("START", 240, 14, 40, 25) $Button_Exit = GUICtrlCreateButton("EXIT", 240, 42, 40, 25) Dim $MainGUI_AccelTable[2][2] = [["{Enter}", $Button_Start] , ["{End}", $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 ### 125 ; Set chế độ theo dõi GUI Opt("GUIOnEventMode", 1) Dim $g,$r,$nl,$nca,$Tca,$nt,$kk,$kth,$kck,$Ncn,$Lk,$Txlnb,$Tcct, $Tgc,$Tbd Dim $Tth,$Tcd,$vm_kt,$vm_ct,$Vnuoc_may,$Vnuoc_bui,$Wdan, $Cdd,$nkhauhao Dim $start Dim $Lc,$Lp,$mv,$mk,$Lc_min,$Lc_max,$Lp_min,$Lp_max, $mk_min, $mk_max Dim $Dg_daolo,$Dg_vantai,$Dg_thonggio = 16000, $Dg_thoatnuoc = 17000,$Dg_xenlo Dim $TM_Thietbi,$Tb_Dan,$Tb_Maykhau,$Tb_Mangcao, $Tb_Maynghien, $Tb_Cauchuyentai, $Tb_Khaithackhac, $Tb_Vantai, $Tb_Dien,$Tb_khac Dim $Vt_Dan,$Vt_maynghien,$Vt_cauchuyentai,$Vt_mangcao, $Vt_Dien,$Vt_maykhau Dim $Vt_rangkhau, $Vt_denlo,$Vt_Dau,$Vt_nuoc,$Vt_chuyendien, $Vattu Dim $Dongluc,$Tienluong,$Baohiem,$Khauhao,$Khac,$GTPX Dim $mth,$Tm_ck,$ndan,$Tca_hq,$nca_ck,$nck,$Qk,$Qth,$Ql, $Qck,$Qngd,$Qthang Dim $NSLD,$Ton_that,$vk,$ncd,$kcd,$Qnam,$Llo_nam, $Llo_1000, $Tck Dim $Vdau_nam,$Vdau_1000,$Vnuoc_nam,$Vnuoc_1000, $Nrang_khau_1000 Dim $C_sanxuat,$C_daolo,$C_khaithac,$C_vantai,$C_thonggio, $C_thoatnuoc,$C_xenlo Dim $mk1,$Lc1,$Lp1,$CPSX,$i $start = False While If $start = True Then _GetInfo() $mk_min = $mk_max = $mv If $mv < 3.5 Then MsgBox (0 ,"Lỗi" ,"Chiều dày vỉa không nhỏ 3.5m") $start = False 126 ElseIf ($mk>0 And $mk