Đề tài Thành lập lưới khống chế thi công trong xây dựng công trình công nghiệp

Mục lục Chương 1. Giới thiệu chung3 1.1. ý nghĩa và nội dung công tác trắc địa khi thành lập lưới khống chế thi công công trình công nghiệp3 1.2. Các chỉ tiêu kỹ thuật công tác trắc địa trong thành lập lưới khống chế thi công công trình công nghiệp8 1.3. Trình tự lập bản thiết kế lưới khống chế thi công công trình công nghiệp15 Chương 2. Thiết kế lưới khống chế mặt bằng và độ cao trong thi công công trình công nghiệp18 2.1. Xác định độ chính xác thành lập lưới khống chế thi công công trình công nghiệp18 2.2. Phương pháp thành lập và thiết kế sơ đồ lưới19 2.3. Ước tính độ chính xác thành lập lưới31 2.4. Tổ chức đo đạc các mạng lưới41 2.5. Xử lý số liệu đo đạc lưới khống chế thi công52 2.6. Thành lập lưới khống chế độ cao thi công57 Chương 3. Thực nghiệm thiết kế lưới khống chế thi công công trình công nghiệp 3.1. Đặc điểm công trình và các yêu cầu kỹ thuật cơ bản62 3.2. Thiết kế các phương án thành lập lưới64 3.3. Ước tính độ chính xác67 3.4. Tổ chức đo đạc và xử lý số liệu75 3.5. Lập dự toán kinh phí77 Kết luận79 Tài liệu tham khảo80 Phụ lục 181 Phụ lục 2110

pdf124 trang | Chia sẻ: banmai | Lượt xem: 1889 | Lượt tải: 0download
Bạn đang xem trước 20 trang tài liệu Đề tài Thành lập lưới khống chế thi công trong xây dựng công trình công nghiệp, để xem tài liệu hoàn chỉnh bạn click vào nút DOWNLOAD ở trên
2 | BS20 | BS19 | | 33 | BS20 | BS19 | BS12 | | 34 | BS12 | GPS06| BS20 | | 35 | GPS06| BS20 | BS12 | | 36 | BS20 | BS12 | GPS06| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 96 - | 37 | BS12 | BS11 | GPS06| | 38 | BS11 | GPS06| BS12 | | 39 | GPS06| BS12 | BS11 | | 40 | BS13 | BS11 | BS12 | | 41 | BS11 | BS12 | BS13 | | 42 | BS12 | BS13 | BS11 | | 43 | BS13 | BS09 | BS11 | | 44 | BS09 | BS11 | BS13 | | 45 | BS11 | BS13 | BS09 | | 46 | BS14 | BS09 | BS13 | | 47 | BS09 | BS13 | BS04 | | 48 | BS13 | BS14 | BS09 | | 49 | BS14 | BS07 | BS09 | | 50 | BS07 | BS09 | BS14 | | 51 | BS09 | BS14 | BS07 | | 52 | BS15 | BS07 | BS14 | | 53 | BS07 | BS14 | BS15 | | 54 | BS14 | BS15 | BS07 | | 55 | BS15 | BS05 | BS07 | | 56 | BS05 | BS07 | BS15 | | 57 | BS07 | BS15 | BS05 | | 58 | BS02 | BS05 | BS15 | | 59 | BS05 | BS15 | BS02 | | 60 | BS15 | BS02 | BS05 | | 61 | BS02 | BS03 | BS05 | | 62 | BS03 | BS05 | BS02 | | 63 | BS05 | BS02 | BS03 | | 64 | BS01 | BS03 | BS02 | | 65 | BS03 | BS02 | BS01 | | 66 | BS02 | BS01 | BS03 | | 67 | BS01 | GPS03| BS03 | | 68 | GPS03| BS03 | BS01 | | 69 | BS03 | BS01 | GPS03| | 70 | GPS03| GPS04| BS03 | | 71 | GPS04| BS03 | GPS03| | 72 | BS03 | GPS03| GPS04| | 73 | BS03 | GPS04| BS04 | | 74 | GPS04| BS04 | BS03 | | 75 | BS04 | BS03 | GPS04| | 76 | BS03 | BS04 | BS05 | | 77 | BS04 | BS05 | BS03 | | 78 | BS05 | BS03 | BS04 | | 79 | BS05 | BS04 | BS06 | | 80 | BS04 | BS06 | BS05 | | 81 | BS06 | BS05 | BS04 | | 82 | BS05 | BS06 | BS07 | | 83 | BS06 | BS07 | BS05 | | 84 | BS07 | BS05 | BS06 | | 85 | BS07 | BS06 | BS08 | | 86 | BS06 | BS08 | BS07 | | 87 | BS08 | BS07 | BS06 | | 88 | BS07 | BS08 | BS09 | | 89 | BS08 | BS09 | BS07 | Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 97 - | 90 | BS09 | BS07 | BS08 | | 91 | BS09 | BS08 | BS10 | | 92 | BS08 | BS10 | BS09 | | 93 | BS10 | BS09 | BS08 | | 94 | BS09 | BS10 | BS11 | | 95 | BS10 | BS11 | BS09 | | 96 | BS11 | BS09 | BS10 | | 97 | BS11 | BS10 | GPS05| | 98 | BS10 | GPS05| BS11 | | 99 | GPS05| BS11 | BS10 | | 100 | BS11 | GPS05| GPS06| | 101 | GPS05| GPS06| BS11 | | 102 | GPS06| BS11 | GPS05| +==========================================+ V. TRI DO CANH --------------- +=============================+ | STT | Diem dau | Diem cuoi | +=============================+ | 1 | BS01 | GPS01| | 2 | BS01 | BS02 | | 3 | BS01 | BS03 | | 4 | BS01 | GPS03| | 5 | BS02 | GPS01| | 6 | BS02 | GPS02| | 7 | BS02 | BS05 | | 8 | BS02 | BS03 | | 9 | BS03 | GPS03| | 10 | BS03 | BS05 | | 11 | BS03 | BS04 | | 12 | BS03 | GPS04| | 13 | BS04 | BS05 | | 14 | BS04 | GPS04| | 15 | BS04 | BS06 | | 16 | BS05 | BS06 | | 17 | BS05 | BS07 | | 18 | BS05 | BS15 | | 19 | BS06 | BS07 | | 20 | BS06 | BS08 | | 21 | BS07 | BS15 | | 22 | BS07 | BS14 | | 23 | BS07 | BS09 | | 24 | BS07 | BS08 | | 25 | BS08 | BS09 | | 26 | BS08 | BS10 | | 27 | BS09 | BS14 | | 28 | BS09 | BS13 | | 29 | BS09 | BS11 | | 30 | BS09 | BS10 | | 31 | BS10 | BS11 | | 32 | BS10 | GPS05| | 33 | BS11 | GPS05| | 34 | BS11 | GPS06| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 98 - | 35 | BS11 | BS12 | | 36 | BS11 | BS13 | | 37 | BS12 | GPS06| | 38 | BS12 | BS20 | | 39 | BS12 | BS19 | | 40 | BS12 | BS18 | | 41 | BS12 | BS13 | | 42 | BS13 | BS18 | | 43 | BS13 | BS17 | | 44 | BS13 | BS14 | | 45 | BS14 | BS17 | | 46 | BS14 | BS16 | | 47 | BS14 | BS15 | | 48 | BS15 | BS16 | | 49 | BS15 | BS02 | | 50 | BS15 | GPS02| | 51 | BS16 | BS17 | | 52 | BS17 | BS18 | | 53 | BS18 | BS19 | | 54 | BS19 | BS20 | | 55 | BS20 | GPS06| | 56 | GPS02| BS16 | +=============================+ VI. KET QUA UOC TINH DO CHINH XAC -------------------------------- 1. Sai so trung phuong trong so don vi muy = 5 2. Sai so trung phuong vi tri diem +=====================================================+ | STT | Ten diem | mX(mm) | mY(mm) | mP(mm) | +=====================================================+ | 1 | BS01 | 1.729| 1.788| 2.487| | 2 | BS02 | 1.355| 1.426| 1.967| | 3 | BS03 | 1.287| 1.432| 1.925| | 4 | BS04 | 1.897| 1.791| 2.609| | 5 | BS05 | 1.588| 1.618| 2.267| | 6 | BS06 | 2.262| 2.216| 3.167| | 7 | BS07 | 1.851| 1.738| 2.539| | 8 | BS08 | 2.399| 2.264| 3.299| | 9 | BS09 | 1.846| 1.735| 2.534| | 10 | BS10 | 2.270| 1.980| 3.013| | 11 | BS11 | 1.633| 1.524| 2.234| | 12 | BS12 | 1.661| 1.849| 2.486| | 13 | BS13 | 1.851| 1.802| 2.584| | 14 | BS14 | 1.903| 1.692| 2.546| | 15 | BS15 | 1.567| 1.547| 2.202| | 16 | BS16 | 2.180| 1.853| 2.862| | 17 | BS17 | 2.397| 2.276| 3.306| | 18 | BS18 | 2.318| 2.735| 3.585| | 19 | BS19 | 2.465| 3.343| 4.154| | 20 | BS20 | 2.368| 2.309| 3.307| +=====================================================+ Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 99 - 3. Sai so trung phuong tuong ho +=================================================================================+ | STT | Diem dau | Diem cuoi | S(m) | mS(mm)| mS/S | mAnpha('')| mth(mm) | +=================================================================================+ | 1 | BS01 | GPS01| 151.756| 1.716|1/ 88449| 2.448| 2.487| | 2 | BS01 | BS02 | 208.152| 1.849|1/ 112548| 1.997| 2.735| | 3 | BS01 | BS03 | 232.389| 1.847|1/ 125848| 1.870| 2.802| | 4 | BS01 | GPS03| 182.617| 1.728|1/ 105651| 2.020| 2.487| | 5 | BS02 | GPS01| 214.047| 1.371|1/ 156125| 1.359| 1.967| | 6 | BS02 | GPS02| 174.142| 1.382|1/ 126051| 1.659| 1.967| | 7 | BS02 | BS05 | 179.330| 1.580|1/ 113481| 2.013| 2.358| | 8 | BS02 | BS03 | 179.663| 1.526|1/ 117719| 1.867| 2.230| | 9 | BS03 | GPS03| 148.511| 1.430|1/ 103823| 1.790| 1.925| | 10 | BS03 | BS05 | 138.657| 1.566|1/ 88540| 2.236| 2.171| | 11 | BS03 | BS04 | 166.760| 1.718|1/ 97056| 2.284| 2.522| | 12 | BS03 | GPS04| 183.026| 1.272|1/ 143930| 1.629| 1.925| | 13 | BS04 | BS05 | 174.051| 1.719|1/ 101251| 2.195| 2.527| | 14 | BS04 | GPS04| 152.621| 1.793|1/ 85138| 2.562| 2.609| | 15 | BS04 | BS06 | 159.544| 2.055|1/ 77621| 2.972| 3.084| | 16 | BS05 | BS06 | 192.363| 1.872|1/ 102748| 2.254| 2.815| | 17 | BS05 | BS07 | 182.603| 1.665|1/ 109657| 2.007| 2.435| | 18 | BS05 | BS15 | 189.683| 1.620|1/ 117094| 1.890| 2.376| | 19 | BS06 | BS07 | 202.670| 1.900|1/ 106641| 2.152| 2.843| | 20 | BS06 | BS08 | 178.241| 2.187|1/ 81498| 2.858| 3.299| | 21 | BS07 | BS15 | 180.917| 1.584|1/ 114226| 2.012| 2.371| | 22 | BS07 | BS14 | 170.200| 1.607|1/ 105882| 2.118| 2.374| | 23 | BS07 | BS09 | 145.195| 1.624|1/ 89382| 2.226| 2.257| | 24 | BS07 | BS08 | 204.635| 1.888|1/ 108379| 2.175| 2.867| | 25 | BS08 | BS09 | 206.456| 1.900|1/ 108686| 2.155| 2.874| | 26 | BS08 | BS10 | 173.737| 2.205|1/ 78810| 2.881| 3.279| | 27 | BS09 | BS14 | 173.361| 1.644|1/ 105425| 2.057| 2.386| | 28 | BS09 | BS13 | 174.294| 1.618|1/ 107720| 2.060| 2.377| | 29 | BS09 | BS11 | 144.083| 1.614|1/ 89246| 2.191| 2.224| | 30 | BS09 | BS10 | 224.201| 1.885|1/ 118942| 2.028| 2.900| | 31 | BS10 | BS11 | 206.510| 1.972|1/ 104723| 2.013| 2.819| | 32 | BS10 | GPS05| 209.046| 1.982|1/ 105479| 2.239| 3.013| | 33 | BS11 | GPS05| 267.722| 1.462|1/ 183131| 1.301| 2.234| | 34 | BS11 | GPS06| 175.970| 1.541|1/ 114220| 1.896| 2.234| | 35 | BS11 | BS12 | 159.078| 1.578|1/ 100816| 2.263| 2.353| | 36 | BS11 | BS13 | 154.864| 1.486|1/ 104235| 2.276| 2.265| | 37 | BS12 | GPS06| 175.834| 1.586|1/ 110889| 2.246| 2.486| | 38 | BS12 | BS20 | 170.576| 1.914|1/ 89127| 2.931| 3.088| | 39 | BS12 | BS19 | 190.346| 1.902|1/ 100073| 2.987| 3.349| | 40 | BS12 | BS18 | 185.712| 1.763|1/ 105342| 2.507| 2.864| | 41 | BS12 | BS13 | 123.153| 1.582|1/ 77847| 2.457| 2.157| | 42 | BS13 | BS18 | 188.157| 1.804|1/ 104294| 2.473| 2.889| | 43 | BS13 | BS17 | 194.874| 1.819|1/ 107158| 2.257| 2.802| | 44 | BS13 | BS14 | 170.936| 1.632|1/ 104747| 2.125| 2.401| | 45 | BS14 | BS17 | 184.332| 1.850|1/ 99625| 2.289| 2.758| | 46 | BS14 | BS16 | 177.688| 1.747|1/ 101700| 2.258| 2.614| | 47 | BS14 | BS15 | 147.137| 1.590|1/ 92537| 2.234| 2.251| | 48 | BS15 | BS16 | 181.149| 1.810|1/ 100103| 2.244| 2.676| | 49 | BS15 | BS02 | 169.236| 1.636|1/ 103457| 2.080| 2.364| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 100 - | 50 | BS15 | GPS02| 184.103| 1.466|1/ 125607| 1.842| 2.202| | 51 | BS16 | BS17 | 143.546| 2.114|1/ 67904| 3.113| 3.027| | 52 | BS17 | BS18 | 161.104| 2.285|1/ 70513| 3.012| 3.279| | 53 | BS18 | BS19 | 132.028| 2.327|1/ 56747| 3.625| 3.286| | 54 | BS19 | BS20 | 199.974| 2.339|1/ 85496| 3.168| 3.861| | 55 | BS20 | GPS06| 151.294| 2.237|1/ 67632| 3.321| 3.307| | 56 | GPS02| BS16 | 172.773| 1.860|1/ 92877| 2.596| 2.862| +=================================================================================+ VII.KET LUAN ----------- 1. Chieu dai canh trung binh cua luoi: 177.947 (m) 2. SSTP vi tri diem yeu nhat: Diem BS19 : mP = 4.154 (mm) 3. SSTP tuong doi canh yeu nhat:( Canh BS18 - BS19 ) : mS/S = 1/ 56747 4. SSTP phuong vi canh yeu nhat:( Canh BS18 - BS19 ) : mAnpha = 3.625" 5. SSTP tuong ho yeu nhat: ( BS19 - BS20 ) : mth = 3.861 (mm) Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 101 - 2. L­íi tam gi¸c ®o c¹nh File kÕt qu¶ KET QUA UOC TINH DO CHINH XAC LUOI TAM GIAC CAP 2 DO CANH ==============================***============================== I. THONG SO CUA LUOI -------------------- 1. Tong so diem trong luoi: 26 2. So diem goc: 6 3. So diem moi: 20 4. So canh do: 56 5. Sai so do canh du kien: acanh = 3 mm, bcanh = 2 ppm II. TOA DO DIEM GOC ------------------- +======================================+ | | TOA DO | | Ten diem |---------------------------| | | X(m) | Y(m) | +======================================+ | GPS01| 626.800| 314.600| | GPS02| 633.400| 535.600| | GPS03| 303.800| 254.500| | GPS04| 143.300| 318.400| | GPS05| 142.200| 1190.600| | GPS06| 353.400| 1188.000| +======================================+ III. TOA DO THIET KE -------------------- +=============================================+ | | | TOA DO | | STT | Ten diem |---------------------------| | | | X(m) | Y(m) | +=============================================+ | 1 | BS01 | 486.400| 257.000| | 2 | BS02 | 474.300| 464.800| | 3 | BS03 | 305.600| 403.000| | 4 | BS04 | 153.200| 470.700| | 5 | BS05 | 312.200| 541.500| | 6 | BS06 | 141.300| 629.800| | 7 | BS07 | 320.800| 723.900| | 8 | BS08 | 134.200| 807.900| | 9 | BS09 | 331.500| 868.700| | 10 | BS10 | 137.800| 981.600| | 11 | BS11 | 342.000| 1012.400| | 12 | BS12 | 488.200| 1075.100| | 13 | BS13 | 484.600| 952.000| | 14 | BS14 | 481.100| 781.100| | 15 | BS15 | 477.800| 634.000| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 102 - | 16 | BS16 | 643.100| 708.100| | 17 | BS17 | 651.500| 851.400| | 18 | BS18 | 662.900| 1012.100| | 19 | BS19 | 665.600| 1144.100| | 20 | BS20 | 493.300| 1245.600| +=============================================+ IV. TRI DO CANH --------------- +=============================+ | STT | Diem dau | Diem cuoi | +=============================+ | 1 | BS01 | GPS01| | 2 | BS01 | BS02 | | 3 | BS01 | BS03 | | 4 | BS01 | GPS03| | 5 | BS02 | GPS01| | 6 | BS02 | GPS02| | 7 | BS02 | BS05 | | 8 | BS02 | BS03 | | 9 | BS03 | GPS03| | 10 | BS03 | BS05 | | 11 | BS03 | BS04 | | 12 | BS03 | GPS04| | 13 | BS04 | BS05 | | 14 | BS04 | GPS04| | 15 | BS04 | BS06 | | 16 | BS05 | BS06 | | 17 | BS05 | BS07 | | 18 | BS05 | BS15 | | 19 | BS06 | BS07 | | 20 | BS06 | BS08 | | 21 | BS07 | BS15 | | 22 | BS07 | BS14 | | 23 | BS07 | BS09 | | 24 | BS07 | BS08 | | 25 | BS08 | BS09 | | 26 | BS08 | BS10 | | 27 | BS09 | BS14 | | 28 | BS09 | BS13 | | 29 | BS09 | BS11 | | 30 | BS09 | BS10 | | 31 | BS10 | BS11 | | 32 | BS10 | GPS05| | 33 | BS11 | GPS05| | 34 | BS11 | GPS06| | 35 | BS11 | BS12 | | 36 | BS11 | BS13 | | 37 | BS12 | GPS06| | 38 | BS12 | BS20 | | 39 | BS12 | BS19 | | 40 | BS12 | BS18 | | 41 | BS12 | BS13 | | 42 | BS13 | BS18 | Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 103 - | 43 | BS13 | BS17 | | 44 | BS13 | BS14 | | 45 | BS14 | BS17 | | 46 | BS14 | BS16 | | 47 | BS14 | BS15 | | 48 | BS15 | BS16 | | 49 | BS15 | BS02 | | 50 | BS15 | GPS02| | 51 | BS16 | BS17 | | 52 | BS17 | BS18 | | 53 | BS18 | BS19 | | 54 | BS19 | BS20 | | 55 | BS20 | GPS06| | 56 | GPS02| BS16 | +=============================+ V. KET QUA UOC TINH DO CHINH XAC -------------------------------- 1. Sai so trung phuong trong so don vi muy = 1 2. Sai so trung phuong vi tri diem +=====================================================+ | STT | Ten diem | mX(mm) | mY(mm) | mP(mm) | +=====================================================+ | 1 | BS01 | 2.271| 3.502| 4.174| | 2 | BS02 | 2.345| 2.653| 3.541| | 3 | BS03 | 2.552| 2.399| 3.503| | 4 | BS04 | 3.573| 2.693| 4.474| | 5 | BS05 | 3.083| 2.783| 4.153| | 6 | BS06 | 4.044| 3.204| 5.160| | 7 | BS07 | 3.588| 2.924| 4.629| | 8 | BS08 | 4.240| 3.269| 5.354| | 9 | BS09 | 3.811| 2.831| 4.748| | 10 | BS10 | 4.097| 2.792| 4.958| | 11 | BS11 | 3.245| 2.439| 4.059| | 12 | BS12 | 3.137| 3.204| 4.485| | 13 | BS13 | 3.653| 3.130| 4.811| | 14 | BS14 | 3.769| 3.012| 4.825| | 15 | BS15 | 2.999| 2.744| 4.065| | 16 | BS16 | 4.021| 2.797| 4.898| | 17 | BS17 | 4.311| 3.563| 5.592| | 18 | BS18 | 3.924| 4.354| 5.861| | 19 | BS19 | 3.916| 5.145| 6.466| | 20 | BS20 | 3.469| 4.153| 5.412| +=====================================================+ 3. Sai so trung phuong tuong ho +=================================================================================+ | STT | Diem dau | Diem cuoi | S(m) | mS(mm)| mS/S | mAnpha('')| mth(mm) | +=================================================================================+ | 1 | BS01 | GPS01| 151.756| 2.419|1/ 62738| 4.623| 4.174| | 2 | BS01 | BS02 | 208.152| 3.023|1/ 68852| 3.066| 4.326| | 3 | BS01 | BS03 | 232.389| 2.839|1/ 81865| 3.196| 4.585| | 4 | BS01 | GPS03| 182.617| 2.268|1/ 80505| 3.957| 4.174| | 5 | BS02 | GPS01| 214.047| 2.474|1/ 86505| 2.441| 3.541| | 6 | BS02 | GPS02| 174.142| 2.420|1/ 71958| 3.062| 3.541| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 104 - | 7 | BS02 | BS05 | 179.330| 2.766|1/ 64840| 3.818| 4.321| | 8 | BS02 | BS03 | 179.663| 2.578|1/ 69684| 3.485| 3.982| | 9 | BS03 | GPS03| 148.511| 2.395|1/ 62011| 3.550| 3.503| | 10 | BS03 | BS05 | 138.657| 2.681|1/ 51715| 4.739| 4.164| | 11 | BS03 | BS04 | 166.760| 2.939|1/ 56738| 4.116| 4.440| | 12 | BS03 | GPS04| 183.026| 2.373|1/ 77121| 2.903| 3.503| | 13 | BS04 | BS05 | 174.051| 2.930|1/ 59402| 4.084| 4.523| | 14 | BS04 | GPS04| 152.621| 2.689|1/ 56761| 4.833| 4.474| | 15 | BS04 | BS06 | 159.544| 2.813|1/ 56721| 5.725| 5.246| | 16 | BS05 | BS06 | 192.363| 3.028|1/ 63519| 4.016| 4.816| | 17 | BS05 | BS07 | 182.603| 2.808|1/ 65020| 3.941| 4.479| | 18 | BS05 | BS15 | 189.683| 2.806|1/ 67600| 3.584| 4.329| | 19 | BS06 | BS07 | 202.670| 3.086|1/ 65680| 3.764| 4.816| | 20 | BS06 | BS08 | 178.241| 2.899|1/ 61480| 5.148| 5.310| | 21 | BS07 | BS15 | 180.917| 2.760|1/ 65542| 3.851| 4.362| | 22 | BS07 | BS14 | 170.200| 2.780|1/ 61215| 4.135| 4.401| | 23 | BS07 | BS09 | 145.195| 2.745|1/ 52899| 4.643| 4.268| | 24 | BS07 | BS08 | 204.635| 2.979|1/ 68702| 3.830| 4.828| | 25 | BS08 | BS09 | 206.456| 3.027|1/ 68203| 3.712| 4.793| | 26 | BS08 | BS10 | 173.737| 2.888|1/ 60154| 5.098| 5.175| | 27 | BS09 | BS14 | 173.361| 2.774|1/ 62501| 4.073| 4.406| | 28 | BS09 | BS13 | 174.294| 2.788|1/ 62515| 4.106| 4.451| | 29 | BS09 | BS11 | 144.083| 2.683|1/ 53696| 4.626| 4.200| | 30 | BS09 | BS10 | 224.201| 2.945|1/ 76121| 3.474| 4.789| | 31 | BS10 | BS11 | 206.510| 3.036|1/ 68014| 3.383| 4.549| | 32 | BS10 | GPS05| 209.046| 2.805|1/ 74523| 4.033| 4.958| | 33 | BS11 | GPS05| 267.722| 2.573|1/ 104045| 2.419| 4.059| | 34 | BS11 | GPS06| 175.970| 2.492|1/ 70604| 3.756| 4.059| | 35 | BS11 | BS12 | 159.078| 2.766|1/ 57508| 4.473| 4.422| | 36 | BS11 | BS13 | 154.864| 2.699|1/ 57370| 4.516| 4.334| | 37 | BS12 | GPS06| 175.834| 2.822|1/ 62312| 4.089| 4.485| | 38 | BS12 | BS20 | 170.576| 3.197|1/ 53348| 5.036| 5.251| | 39 | BS12 | BS19 | 190.346| 3.206|1/ 59365| 4.969| 5.596| | 40 | BS12 | BS18 | 185.712| 2.998|1/ 61945| 4.436| 4.994| | 41 | BS12 | BS13 | 123.153| 2.758|1/ 44651| 5.424| 4.254| | 42 | BS13 | BS18 | 188.157| 2.974|1/ 63271| 4.504| 5.072| | 43 | BS13 | BS17 | 194.874| 3.044|1/ 64026| 3.987| 4.843| | 44 | BS13 | BS14 | 170.936| 2.838|1/ 60229| 4.056| 4.399| | 45 | BS14 | BS17 | 184.332| 3.039|1/ 60655| 4.218| 4.842| | 46 | BS14 | BS16 | 177.688| 2.989|1/ 59442| 4.073| 4.610| | 47 | BS14 | BS15 | 147.137| 2.776|1/ 52996| 4.573| 4.284| | 48 | BS15 | BS16 | 181.149| 2.952|1/ 61357| 4.053| 4.624| | 49 | BS15 | BS02 | 169.236| 2.753|1/ 61471| 4.068| 4.326| | 50 | BS15 | GPS02| 184.103| 2.654|1/ 69364| 3.449| 4.065| | 51 | BS16 | BS17 | 143.546| 2.961|1/ 48479| 6.172| 5.217| | 52 | BS17 | BS18 | 161.104| 3.110|1/ 51798| 5.583| 5.356| | 53 | BS18 | BS19 | 132.028| 3.138|1/ 42080| 6.956| 5.447| | 54 | BS19 | BS20 | 199.974| 3.200|1/ 62495| 5.106| 5.894| | 55 | BS20 | GPS06| 151.294| 3.134|1/ 48271| 6.014| 5.412| | 56 | GPS02| BS16 | 172.773| 2.809|1/ 61500| 4.791| 4.898| +=================================================================================+ Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 105 - VI.KET LUAN ----------- 1. Chieu dai canh trung binh cua luoi: 177.947 (m) 2. SSTP vi tri diem yeu nhat: Diem BS19 : mP = 6.466 (mm) 3. SSTP tuong doi canh yeu nhat:( Canh BS18 - BS19 ) : mS/S = 1/ 42080 4. SSTP phuong vi canh yeu nhat:( Canh BS18 - BS19 ) : mAnpha = 6.956" 5. SSTP tuong ho yeu nhat: ( BS19 - BS20 ) : mth = 5.894 (mm) Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 106 - 3. L­íi ®­êng chuyÒn File kÕt qu¶ KET QUA UOC TINH DO CHINH XAC LUOI DUONG CHUYEN CAP 2 ==============================***============================== I. THONG SO CUA LUOI -------------------- 1. Tong so diem trong luoi: 26 2. Tong so goc trong luoi: 38 3. Tong so canh trong luoi: 28 4. So diem goc: 6 5. So diem moi: 20 6. So goc do: 38 7. So canh do: 28 8. Sai so do du kien: mgoc = 5 " acanh = 3 mm, bcanh = 2 ppm II. TOA DO DIEM GOC ------------------- +======================================+ | | TOA DO | | Ten diem |---------------------------| | | X(m) | Y(m) | +======================================+ | GPS01| 626.800| 314.600| | GPS02| 633.400| 535.600| | GPS03| 303.800| 254.500| | GPS04| 143.300| 318.400| | GPS05| 142.200| 1190.600| | GPS06| 353.400| 1188.000| +======================================+ III. TOA DO THIET KE -------------------- +=============================================+ | | | TOA DO | | STT | Ten diem |---------------------------| | | | X(m) | Y(m) | +=============================================+ | 1 | BS01 | 486.400| 257.000| | 2 | BS02 | 474.300| 464.800| | 3 | BS03 | 305.600| 403.000| | 4 | BS04 | 153.200| 470.700| | 5 | BS05 | 312.200| 541.500| | 6 | BS06 | 141.300| 629.800| | 7 | BS07 | 320.800| 723.900| | 8 | BS08 | 134.200| 807.900| | 9 | BS09 | 331.500| 868.700| | 10 | BS10 | 137.800| 981.600| | 11 | BS11 | 342.000| 1012.400| | 12 | BS12 | 488.200| 1075.100| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 107 - | 13 | BS13 | 484.600| 952.000| | 14 | BS14 | 481.100| 781.100| | 15 | BS15 | 477.800| 634.000| | 16 | BS16 | 643.100| 708.100| | 17 | BS17 | 651.500| 851.400| | 18 | BS18 | 662.900| 1012.100| | 19 | BS19 | 665.600| 1144.100| | 20 | BS20 | 493.300| 1245.600| +=============================================+ IV. TRI DO GOC -------------- +==========================================+ | STT | Diem trai | Diem giua | Diem phai | +==========================================+ | 1 | GPS02| GPS01| BS01 | | 2 | BS16 | GPS02| GPS01| | 3 | BS17 | BS16 | GPS02| | 4 | BS14 | BS17 | BS16 | | 5 | BS18 | BS17 | BS14 | | 6 | BS19 | BS18 | BS17 | | 7 | BS20 | BS19 | BS18 | | 8 | GPS06| BS20 | BS19 | | 9 | GPS06| BS12 | BS13 | | 10 | BS12 | BS13 | BS14 | | 11 | BS13 | BS14 | BS07 | | 12 | BS17 | BS14 | BS13 | | 13 | BS15 | BS14 | BS17 | | 14 | BS07 | BS14 | BS15 | | 15 | BS14 | BS15 | BS02 | | 16 | BS15 | BS02 | BS01 | | 17 | BS02 | BS01 | GPS03| | 18 | GPS01| BS01 | BS02 | | 19 | BS01 | GPS03| BS03 | | 20 | BS03 | GPS03| GPS04| | 21 | GPS03| BS03 | BS05 | | 22 | BS03 | BS05 | BS07 | | 23 | BS05 | BS07 | BS14 | | 24 | BS08 | BS07 | BS05 | | 25 | BS09 | BS07 | BS08 | | 26 | BS14 | BS07 | BS09 | | 27 | BS11 | BS09 | BS07 | | 28 | GPS06| BS11 | BS09 | | 29 | GPS05| GPS06| BS20 | | 30 | GPS05| GPS06| BS12 | | 31 | GPS05| GPS06| BS11 | | 32 | BS10 | GPS05| GPS06| | 33 | BS08 | BS10 | GPS05| | 34 | BS09 | BS08 | BS10 | | 35 | BS06 | BS08 | BS07 | | 36 | BS04 | BS06 | BS08 | | 37 | GPS04| BS04 | BS06 | | 38 | GPS03| GPS04| BS04 | +==========================================+ Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 108 - V. TRI DO CANH --------------- +=============================+ | STT | Diem dau | Diem cuoi | +=============================+ | 1 | GPS04| BS04 | | 2 | BS04 | BS06 | | 3 | BS06 | BS08 | | 4 | BS08 | BS10 | | 5 | BS10 | GPS05| | 6 | GPS06| BS11 | | 7 | BS11 | BS09 | | 8 | BS09 | BS07 | | 9 | BS07 | BS08 | | 10 | BS07 | BS14 | | 11 | BS07 | BS05 | | 12 | BS05 | BS03 | | 13 | BS03 | GPS03| | 14 | GPS03| BS01 | | 15 | BS01 | BS02 | | 16 | BS02 | BS15 | | 17 | BS15 | BS14 | | 18 | BS14 | BS17 | | 19 | BS14 | BS13 | | 20 | BS13 | BS12 | | 21 | BS12 | GPS06| | 22 | GPS06| BS20 | | 23 | BS20 | BS19 | | 24 | BS19 | BS18 | | 25 | BS18 | BS17 | | 26 | BS17 | BS16 | | 27 | BS16 | GPS02| | 28 | BS01 | GPS01| +=============================+ VI. KET QUA UOC TINH DO CHINH XAC -------------------------------- 1. Sai so trung phuong trong so don vi muy = 5 2. Sai so trung phuong vi tri diem +=====================================================+ | STT | Ten diem | mX(mm) | mY(mm) | mP(mm) | +=====================================================+ | 1 | BS01 | 2.301| 1.994| 3.045| | 2 | BS02 | 2.789| 3.219| 4.259| | 3 | BS03 | 1.967| 2.817| 3.435| | 4 | BS04 | 2.327| 2.851| 3.681| | 5 | BS05 | 2.874| 3.163| 4.274| | 6 | BS06 | 3.339| 3.263| 4.669| | 7 | BS07 | 2.953| 2.447| 3.835| | 8 | BS08 | 3.917| 2.734| 4.777| | 9 | BS09 | 2.858| 2.977| 4.127| | 10 | BS10 | 2.812| 2.766| 3.945| | 11 | BS11 | 2.364| 2.792| 3.659| | 12 | BS12 | 2.621| 2.878| 3.893| Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 109 - | 13 | BS13 | 2.933| 3.179| 4.325| | 14 | BS14 | 2.923| 2.478| 3.832| | 15 | BS15 | 3.023| 3.296| 4.472| | 16 | BS16 | 2.386| 2.757| 3.646| | 17 | BS17 | 3.322| 2.878| 4.396| | 18 | BS18 | 3.531| 3.855| 5.228| | 19 | BS19 | 3.737| 4.221| 5.638| | 20 | BS20 | 3.226| 2.453| 4.053| +=====================================================+ 3. Sai so trung phuong tuong ho +=================================================================================+ | STT | Diem dau | Diem cuoi | S(m) | mS(mm)| mS/S | mAnpha('')| mth(mm) | +=================================================================================+ | 1 | GPS04| BS04 | 152.621| 2.848|1/ 53596| 3.152| 3.681| | 2 | BS04 | BS06 | 159.544| 2.863|1/ 55722| 2.959| 3.665| | 3 | BS06 | BS08 | 178.241| 2.881|1/ 61866| 3.246| 4.021| | 4 | BS08 | BS10 | 173.737| 2.741|1/ 63384| 3.217| 3.854| | 5 | BS10 | GPS05| 209.046| 2.769|1/ 75483| 2.771| 3.945| | 6 | GPS06| BS11 | 175.970| 2.802|1/ 62804| 2.758| 3.659| | 7 | BS11 | BS09 | 144.083| 2.771|1/ 51988| 2.803| 3.393| | 8 | BS09 | BS07 | 145.195| 2.647|1/ 54858| 2.805| 3.302| | 9 | BS07 | BS08 | 204.635| 3.090|1/ 66222| 2.665| 4.067| | 10 | BS07 | BS14 | 170.200| 2.812|1/ 60533| 2.457| 3.466| | 11 | BS07 | BS05 | 182.603| 2.853|1/ 64000| 2.460| 3.589| | 12 | BS05 | BS03 | 138.657| 2.807|1/ 49405| 2.960| 3.440| | 13 | BS03 | GPS03| 148.511| 2.817|1/ 52719| 2.731| 3.435| | 14 | GPS03| BS01 | 182.617| 2.303|1/ 79282| 2.249| 3.045| | 15 | BS01 | BS02 | 208.152| 2.945|1/ 70689| 2.542| 3.905| | 16 | BS02 | BS15 | 169.236| 2.903|1/ 58299| 2.862| 3.734| | 17 | BS15 | BS14 | 147.137| 2.877|1/ 51148| 2.795| 3.500| | 18 | BS14 | BS17 | 184.332| 2.912|1/ 63311| 2.595| 3.722| | 19 | BS14 | BS13 | 170.936| 2.842|1/ 60147| 2.685| 3.609| | 20 | BS13 | BS12 | 123.153| 2.791|1/ 44117| 3.194| 3.381| | 21 | BS12 | GPS06| 175.834| 2.887|1/ 60904| 3.063| 3.893| | 22 | GPS06| BS20 | 151.294| 3.164|1/ 47824| 3.454| 4.053| | 23 | BS20 | BS19 | 199.974| 3.114|1/ 64212| 3.365| 4.510| | 24 | BS19 | BS18 | 132.028| 3.011|1/ 43855| 3.586| 3.786| | 25 | BS18 | BS17 | 161.104| 3.062|1/ 52608| 3.330| 4.018| | 26 | BS17 | BS16 | 143.546| 2.742|1/ 52352| 3.184| 3.525| | 27 | BS16 | GPS02| 172.773| 2.768|1/ 62415| 2.833| 3.646| | 28 | BS01 | GPS01| 151.756| 2.314|1/ 65585| 2.690| 3.045| +=================================================================================+ VI.KET LUAN ----------- 1. Chieu dai canh trung binh cua luoi: 166.318 (m) 2. SSTP vi tri diem yeu nhat: Diem BS19 : mP = 5.638 (mm) 3. SSTP tuong doi canh yeu nhat:( Canh BS19 - BS18 ) : mS/S = 1/ 43855 4. SSTP phuong vi canh yeu nhat:( Canh BS19 - BS18 ) : mAnpha = 3.586" 5. SSTP tuong ho yeu nhat: ( BS20 - BS19 ) : mth = 4.510 (mm) Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 110 - Phô lôc 2 Mét sè modul cña ch­¬ng tr×nh ­íc tÝnh ®é chÝnh x¸c l­íi khèng chÕ thi c«ng Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 111 - A. modul ch­¬ng tr×nh ­íc tÝnh ®é chÝnh x¸c l­íi gps Option Explicit Dim Tendiem() As String * 5, X() As Double, Y() As Double, _ Tendiemdau() As String * 5, Tendiemcuoi() As String * 5,Id() As Long, Ic() As Long, SLD() As Long,DentaX() As Double, DentaY() As Double, S() As Double Dim i As Long, j As Long, k As Long, ntong As Long, ngoc As Long, j1 As Long, _ nmoi As Long, ncanh As Long, npvi As Long, ndo As Long, _ acanh As Double, bcanh As Double, apvi As Double, bpvi As Double, ro As Double, pi As Double Private Sub cmdut_Click() On Error GoTo Loiut 'Khai bao de nhap so lieu pi = 3.141592654 ro = 180# * 3600# / pi ntong = txtntong.Text ngoc = txtngoc.Text nmoi = txtnmoi.Text ncanh = txtncanh.Text npvi = txtnpvi.Text ndo = ncanh + npvi acanh = txtacanh.Text bcanh = txtbcanh.Text apvi = txtapvi.Text bpvi = txtbpvi.Text '================================================================================== 'Tao ma tran ReDim Tendiem(1 To ntong), X(1 To ntong), Y(1 To ntong), STT(1 To ntong), _ Tendiemdau(1 To ncanh), Tendiemcuoi(1 To ncanh), SLD(1 To ncanh), _ Id(1 To ncanh), Ic(1 To ncanh) For i = 1 To nmoi Tendiem(i) = vsgrid2.TextMatrix(i, 1) X(i) = vsgrid2.TextMatrix(i, 2) Y(i) = vsgrid2.TextMatrix(i, 3) Next For i = (1 + nmoi) To ntong Tendiem(i) = vsgrid1.TextMatrix((i - nmoi), 1) X(i) = vsgrid1.TextMatrix((i - nmoi), 2) Y(i) = vsgrid1.TextMatrix((i - nmoi), 3) Next ReDim Id(1 To ncanh), Ic(1 To ncanh), SLD(1 To ncanh), _ Tendiemdau(1 To ncanh), Tendiemcuoi(1 To ncanh) For i = 1 To ncanh Tendiemdau(i) = vsgrid3.TextMatrix(i, 1) Tendiemcuoi(i) = vsgrid3.TextMatrix(i, 2) SLD(i) = vsgrid3.TextMatrix(i, 3) For j = 1 To ntong If Tendiemdau(i) = Tendiem(j) Then Id(i) = j End If If Tendiemcuoi(i) = Tendiem(j) Then Ic(i) = j End If Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 112 - Next Next ReDim DentaX(1 To ncanh), DentaY(1 To ncanh), S(1 To ncanh) For i = 1 To ncanh DentaX(i) = (X(Ic(i)) - X(Id(i))) * 1000 DentaY(i) = (Y(Ic(i)) - Y(Id(i))) * 1000 S(i) = Sqr(((DentaX(i) ^ 2) + (DentaY(i) ^ 2))) Next '================================================================================= 'Lap phuong trinh so hieu chinh Dim mtA() As Double ReDim mtA(1 To ncanh + npvi, 1 To 2 * ntong) For i = 1 To ncanh mtA(i, Id(i) * 2 - 1) = -DentaX(i) / (S(i)) mtA(i, Id(i) * 2) = -DentaY(i) / (S(i)) mtA(i, Ic(i) * 2 - 1) = DentaX(i) / (S(i)) mtA(i, Ic(i) * 2) = DentaY(i) / (S(i)) Next For i = (1 + ncanh) To (ncanh + npvi) mtA(i, Id(i - ncanh) * 2 - 1) = (ro * DentaY(i - ncanh)) / S(i - ncanh) ^ 2 mtA(i, Id(i - ncanh) * 2) = -(ro * DentaX(i - ncanh)) / S(i - ncanh) ^ 2 mtA(i, Ic(i - ncanh) * 2 - 1) = -(ro * DentaY(i - ncanh)) / S(i - ncanh) ^ 2 mtA(i, Ic(i - ncanh) * 2) = (ro * DentaX(i - ncanh)) / S(i - ncanh) ^ 2 Next '================================================================================== 'Lap ma tran trong so dao Dim mSdo() As Double, mAnpha() As Double, mtP() As Double, mS1() As Double, j2 As Double ReDim mSdo(1 To ncanh), mAnpha(1 To ncanh), mtP(1 To ndo, 1 To ndo), mS1(1 To ncanh) For i = 1 To ncanh If Optcap1.Value = True And Optcap2.Value = False And Optcap3.Value = False Then j2 = S(i) / 1000000# mS1(i) = Sqr(acanh ^ 2 + (bcanh * j2) ^ 2) mSdo(i) = mS1(i) / (Sqr(SLD(i))) mAnpha(i) = Sqr(apvi ^ 2 + (bpvi / j2) ^ 2) / Sqr(SLD(i)) ElseIf Optcap1.Value = False And Optcap2.Value = True And Optcap3.Value = False Then j2 = S(i) / 1000000# mS1(i) = (acanh + bcanh * j2) mSdo(i) = mS1(i) / Sqr(SLD(i)) mAnpha(i) = ((mS1(i) / S(i)) * ro) / Sqr(SLD(i)) ElseIf Optcap1.Value = False And Optcap2.Value = False And Optcap3.Value = True Then j2 = S(i) / 1000000# mS1(i) = Sqr(acanh ^ 2 + (bcanh * j2) ^ 2) mSdo(i) = mS1(i) / Sqr(SLD(i)) mAnpha(i) = ((mS1(i) / S(i)) * ro) / Sqr(SLD(i)) ElseIf Optcap1.Value = False And Optcap2.Value = False And Optcap3.Value = False Then GoTo Loichontrongso End If Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 113 - Next For i = 1 To ncanh For j = 1 To ncanh If i = j Then mtP(i, j) = 1 / mSdo(i) ^ 2 ElseIf i j Then mtP(i, j) = 0 End If Next Next For i = 1 + ncanh To ndo For j = 1 + ncanh To ndo If i = j Then mtP(i, j) = 1 / mAnpha(i - ncanh) ^ 2 ElseIf i j Then mtP(i, j) = 0 End If Next Next Dim mtAt() As Double ReDim mtAt(1 To 2 * ntong, 1 To ndo) Call Ma_tran_chuyen_vi(mtA(), mtAt(), 2 * nmoi, ndo) '================================================================================== 'Nhan ma tran Dim mtAtP() As Double, mtN() As Double ReDim mtAtP(1 To 2 * nmoi, 1 To ndo), mtN(1 To 2 * nmoi, 1 To 2 * nmoi) Call Nhan_ma_tran(mtAt(), mtP(), mtAtP(), 2 * nmoi, ndo, ndo) Call Nhan_ma_tran(mtAtP(), mtA(), mtN(), 2 * nmoi, ndo, 2 * nmoi) 'Nghich dao ma tran Dim mtQ() As Double ReDim mtQ(1 To 2 * nmoi, 1 To 2 * nmoi) Call Nghich_dao_ma_tran(mtN(), mtQ(), 2 * nmoi, 2 * nmoi) '================================================================================== 'Sai so trung phuong vi tri diem Dim mX() As Double, mY() As Double, mP() As Double ReDim mX(1 To nmoi), mY(1 To nmoi), mP(1 To nmoi) For i = 1 To nmoi mX(i) = Sqr(mtQ(i * 2 - 1, i * 2 - 1)) mY(i) = Sqr(mtQ(i * 2, i * 2)) mP(i) = Sqr(mX(i) ^ 2 + mY(i) ^ 2) Next Dim vtdmax As Double, tenvtdmax As String vtdmax = mP(1) tenvtdmax = Tendiem(1) For i = 2 To nmoi If vtdmax < mP(i) Then vtdmax = mP(i) tenvtdmax = Tendiem(i) End If Next '================================================================================== 'Sai so trung phuong chieu dai canh Dim FS() As Double, FSt() As Double, mtQs() As Double, mtFStQ() As Double, _ Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 114 - FStQFS() As Double, f1() As Double, Qs() As Double, mS() As Double ReDim FS(4, 1), FSt(1, 4), mtQs(4, 4), mtFStQ(1, 4), f1(4, ncanh), FStQFS(1, 1), _ Qs(1 To ncanh), mS(1 To ncanh) For j1 = 1 To ncanh f1(1, j1) = -DentaX(j1) / S(j1) f1(2, j1) = -DentaY(j1) / S(j1) f1(3, j1) = DentaX(j1) / S(j1) f1(4, j1) = DentaY(j1) / S(j1) Next For j1 = 1 To ncanh For k = 1 To 4 FS(k, 1) = f1(k, j1) Next If Id(j1) > nmoi And Ic(j1) <= nmoi Then mtQs(1, 1) = 0 mtQs(1, 2) = 0 mtQs(1, 3) = 0 mtQs(1, 4) = 0 mtQs(2, 1) = 0 mtQs(2, 2) = 0 mtQs(2, 3) = 0 mtQs(2, 4) = 0 mtQs(3, 1) = 0 mtQs(3, 2) = 0 mtQs(3, 3) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQs(3, 4) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2) mtQs(4, 1) = 0 mtQs(4, 2) = 0 mtQs(4, 3) = mtQ(Ic(j1) * 2, Ic(j1) * 2 - 1) mtQs(4, 4) = mtQ(Ic(j1) * 2, Ic(j1) * 2) ElseIf Ic(j1) > nmoi And Id(j1) <= nmoi Then mtQs(1, 1) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2 - 1) mtQs(1, 2) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2) mtQs(1, 3) = 0 mtQs(1, 4) = 0 mtQs(2, 1) = mtQ(Id(j1) * 2, Id(j1) * 2 - 1) mtQs(2, 2) = mtQ(Id(j1) * 2, Id(j1) * 2) mtQs(2, 3) = 0 mtQs(2, 4) = 0 mtQs(3, 1) = 0 mtQs(3, 2) = 0 mtQs(3, 3) = 0 mtQs(3, 4) = 0 mtQs(4, 1) = 0 mtQs(4, 2) = 0 mtQs(4, 3) = 0 mtQs(4, 4) = 0 ElseIf Id(j1) > nmoi And Ic(j1) > nmoi Then For k = 1 To 4 For i = 1 To 4 mtQs(k, i) = 0 Next Next Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 115 - ElseIf Id(j1) <= nmoi And Ic(j1) <= nmoi Then mtQs(1, 1) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2 - 1) mtQs(1, 2) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2) mtQs(1, 3) = mtQ(Id(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQs(1, 4) = mtQ(Id(j1) * 2 - 1, Ic(j1) * 2) mtQs(2, 1) = mtQ(Id(j1) * 2, Id(j1) * 2 - 1) mtQs(2, 2) = mtQ(Id(j1) * 2, Id(j1) * 2) mtQs(2, 3) = mtQ(Id(j1) * 2, Ic(j1) * 2 - 1) mtQs(2, 4) = mtQ(Id(j1) * 2, Ic(j1) * 2) mtQs(3, 1) = mtQ(Ic(j1) * 2 - 1, Id(j1) * 2 - 1) mtQs(3, 2) = mtQ(Ic(j1) * 2 - 1, Id(j1) * 2) mtQs(3, 3) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQs(3, 4) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2) mtQs(4, 1) = mtQ(Ic(j1) * 2, Id(j1) * 2 - 1) mtQs(4, 2) = mtQ(Ic(j1) * 2, Id(j1) * 2) mtQs(4, 3) = mtQ(Ic(j1) * 2, Ic(j1) * 2 - 1) mtQs(4, 4) = mtQ(Ic(j1) * 2, Ic(j1) * 2) End If Call Ma_tran_chuyen_vi(FS(), FSt(), 1, 4) Call Nhan_ma_tran(FSt(), mtQs(), mtFStQ(), 1, 4, 4) Call Nhan_ma_tran(mtFStQ(), FS(), FStQFS(), 1, 4, 1) Qs(j1) = FStQFS(1, 1) mS(j1) = Sqr(Qs(j1)) Next For i = 1 To ncanh If Id(i) > nmoi And Ic(i) > nmoi Then mS(i) = mSdo(i) Else mS(i) = mS(i) End If Next Dim msmax As Double, tenmsmax As String msmax = mS(1) tenmsmax = Tendiemdau(1) & " - " & Tendiemcuoi(1) For i = 2 To ncanh If msmax < mS(i) Then msmax = mS(i) tenmsmax = Tendiemdau(i) & " - " & Tendiemcuoi(i) End If Next '================================================================================== 'Sai so trung phuong phuong vi Dim Fa() As Double, Fat() As Double, mtQa() As Double, mtFatQ() As Double, _ FatQFa() As Double, fanpha() As Double, Qa() As Double, mafa() As Double ReDim Fa(4, 1), Fat(1, 4), mtQa(4, 4), mtFatQ(1, 4), fanpha(4, ncanh), FatQFa(1, 1), Qa(1 To ncanh), mafa(1 To ncanh) For j1 = 1 To ncanh fanpha(1, j1) = (ro * DentaY(j1)) / S(j1) ^ 2 fanpha(2, j1) = -(ro * DentaX(j1)) / S(j1) ^ 2 fanpha(3, j1) = -(ro * DentaY(j1)) / S(j1) ^ 2 fanpha(4, j1) = (ro * DentaX(j1)) / S(j1) ^ 2 Next For j1 = 1 To ncanh Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 116 - For k = 1 To 4 Fa(k, 1) = fanpha(k, j1) Next If Id(j1) > nmoi And Ic(j1) <= nmoi Then mtQa(1, 1) = 0 mtQa(1, 2) = 0 mtQa(1, 3) = 0 mtQa(1, 4) = 0 mtQa(2, 1) = 0 mtQa(2, 2) = 0 mtQa(2, 3) = 0 mtQa(2, 4) = 0 mtQa(3, 1) = 0 mtQa(3, 2) = 0 mtQa(3, 3) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQa(3, 4) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2) mtQa(4, 1) = 0 mtQa(4, 2) = 0 mtQa(4, 3) = mtQ(Ic(j1) * 2, Ic(j1) * 2 - 1) mtQa(4, 4) = mtQ(Ic(j1) * 2, Ic(j1) * 2) ElseIf Ic(j1) > nmoi And Id(j1) <= nmoi Then mtQa(1, 1) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2 - 1) mtQa(1, 2) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2) mtQa(1, 3) = 0 mtQa(1, 4) = 0 mtQa(2, 1) = mtQ(Id(j1) * 2, Id(j1) * 2 - 1) mtQa(2, 2) = mtQ(Id(j1) * 2, Id(j1) * 2) mtQa(2, 3) = 0 mtQa(2, 4) = 0 mtQa(3, 1) = 0 mtQa(3, 2) = 0 mtQa(3, 3) = 0 mtQa(3, 4) = 0 mtQa(4, 1) = 0 mtQa(4, 2) = 0 mtQa(4, 3) = 0 mtQa(4, 4) = 0 ElseIf Id(j1) > nmoi And Ic(j1) > nmoi Then For k = 1 To 4 For i = 1 To 4 mtQa(k, i) = 0 Next Next ElseIf Id(j1) <= nmoi And Ic(j1) <= nmoi Then mtQa(1, 1) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2 - 1) mtQa(1, 2) = mtQ(Id(j1) * 2 - 1, Id(j1) * 2) mtQa(1, 3) = mtQ(Id(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQa(1, 4) = mtQ(Id(j1) * 2 - 1, Ic(j1) * 2) mtQa(2, 1) = mtQ(Id(j1) * 2, Id(j1) * 2 - 1) mtQa(2, 2) = mtQ(Id(j1) * 2, Id(j1) * 2) mtQa(2, 3) = mtQ(Id(j1) * 2, Ic(j1) * 2 - 1) mtQa(2, 4) = mtQ(Id(j1) * 2, Ic(j1) * 2) mtQa(3, 1) = mtQ(Ic(j1) * 2 - 1, Id(j1) * 2 - 1) Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 117 - mtQa(3, 2) = mtQ(Ic(j1) * 2 - 1, Id(j1) * 2) mtQa(3, 3) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2 - 1) mtQa(3, 4) = mtQ(Ic(j1) * 2 - 1, Ic(j1) * 2) mtQa(4, 1) = mtQ(Ic(j1) * 2, Id(j1) * 2 - 1) mtQa(4, 2) = mtQ(Ic(j1) * 2, Id(j1) * 2) mtQa(4, 3) = mtQ(Ic(j1) * 2, Ic(j1) * 2 - 1) mtQa(4, 4) = mtQ(Ic(j1) * 2, Ic(j1) * 2) End If Call Ma_tran_chuyen_vi(Fa(), Fat(), 1, 4) Call Nhan_ma_tran(Fat(), mtQa(), mtFatQ(), 1, 4, 4) Call Nhan_ma_tran(mtFatQ(), Fa(), FatQFa(), 1, 4, 1) Qa(j1) = FatQFa(1, 1) mafa(j1) = Sqr(Qa(j1)) Next For i = 1 To ncanh If Id(i) > nmoi And Ic(i) > nmoi Then mafa(i) = mAnpha(i) Else mafa(i) = mafa(i) End If Next Dim mafamax As Double, tenmafamax As String mafamax = mafa(1) tenmafamax = Tendiemdau(1) & " - " & Tendiemcuoi(1) For i = 2 To ncanh If mafamax < mafa(i) Then mafamax = mafa(i) tenmafamax = Tendiemdau(i) & " - " & Tendiemcuoi(i) End If Next '================================================================================== 'Sai so tuong ho vi tri diem Dim mth() As Double, mthmax As Double, tenmthmax As String ReDim mth(1 To ncanh) For i = 1 To ncanh mth(i) = Sqr((mS(i) ^ 2) + ((mafa(i) / ro) * (S(i))) ^ 2) Next mthmax = mth(1) tenmthmax = Tendiemdau(1) & " - " & Tendiemcuoi(1) For i = 2 To ncanh If mthmax < mth(i) Then mthmax = mth(i) tenmthmax = Tendiemdau(i) & " - " & Tendiemcuoi(i) End If Next '================================================================================== 'Sai so trung phuong tuong doi Dim mtptd() As Long ReDim mtptd(1 To ncanh) For i = 1 To ncanh If Id(i) > nmoi And Ic(i) > nmoi Then mS(i) = mSdo(i) Else Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 118 - mS(i) = mS(i) End If mtptd(i) = S(i) / mS(i) Next Dim mtptdmin As Double, tenmtptdmin As String mtptdmin = mtptd(1) tenmtptdmin = Tendiemdau(1) & " - " & Tendiemcuoi(1) For i = 2 To ncanh If mtptdmin > mtptd(i) Then mtptdmin = mtptd(i) tenmtptdmin = Tendiemdau(i) & " - " & Tendiemcuoi(i) End If Next '================================================================================== 'In file ket qua On Error GoTo loisave1 Dim FileName As String, Tenct As String With CommonDialog1 .DialogTitle = "Tªn file kÕt qu¶" .InitDir = "D:\" .CancelError = True .Filter = "File text (*.kq)|*.kq|All files (*.*)|*.*" .ShowSave End With FileName = CommonDialog1.FileName Dim FileNum As Long FileNum = FreeFile Tenct = txttenct.Text Open FileName For Output As FileNum Print #FileNum, " " Print #FileNum, "KET QUA UOC TINH DO CHINH XAC " Print #FileNum, " "; Tenct Print #FileNum, " =========================***========================= " If Optcap1.Value = True And Optcap2.Value = False And Optcap3.Value = False Then Print #FileNum, " Tinh trong so theo cap cong thuc (2-49) " End If If Optcap1.Value = False And Optcap2.Value = True And Optcap3.Value = False Then Print #FileNum, " Tinh trong so theo cap cong thuc (2-50) " End If If Optcap1.Value = False And Optcap2.Value = False And Optcap3.Value = True Then Print #FileNum, " Tinh trong so theo cap cong thuc (2-51) " End If Print #FileNum, " " Print #FileNum, " I. THONG SO CUA LUOI" Print #FileNum, " --------------------" Print #FileNum, " 1. Tong so diem trong luoi:"; ntong Print #FileNum, " 2. So diem goc:"; ngoc Print #FileNum, " 3. So diem moi:"; nmoi Print #FileNum, " 4. So canh do:"; ncanh Print #FileNum, " 5. So phuong vi do:"; npvi Print #FileNum, " 6. Sai so do du kien:" Print #FileNum, " acanh ="; acanh; "mm"; ", bcanh ="; bcanh; "ppm" Print #FileNum, " apvi ="; apvi; """"; ", bpvi ="; bpvi; """" Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 119 - Print #FileNum, " " Print #FileNum, " II. TOA DO DIEM GOC" Print #FileNum, " -------------------" Print #FileNum, " +======================================+" Print #FileNum, " | | TOA DO |" Print #FileNum, " | Ten diem |---------------------------|" Print #FileNum, " | | X(m) | Y(m) |" Print #FileNum, " +======================================+" For i = (1 + nmoi) To ntong Print #FileNum, " |" & FormatNumber(Tendiem(i), 10, 0, False, False, False) _ & "|" & FormatNumber(X(i), 13, 3, False, False, False) & "|" & FormatNumber(Y(i), 13, 3, False, False, False) & "|" Next Print #FileNum, " +======================================+" Print #FileNum, " " Print #FileNum, " III. TOA DO THIET KE" Print #FileNum, " --------------------" Print #FileNum, " ==============================================+" Print #FileNum, | | | TOA DO |" Print #FileNum, " | STT | Ten diem |---------------------------|" Print #FileNum, " | | | X(m) | Y(m) |" Print #FileNum, " +=============================================+" For i = 1 To nmoi Print #FileNum, " |" & FormatNumber(i, 4, 0, False, False, False) _ & " |" & FormatNumber(Tendiem(i), 10, 0, False, False, False) _ & "|" & FormatNumber(X(i), 13, 3, False, False, False) _ & "|" & FormatNumber(Y(i), 13, 3, False, False, False) & "|" Next Print #FileNum, " +=============================================+" Print #FileNum, " " Print #FileNum, " IV. TRI DO CANH VA PHUONG VI" Print #FileNum, " ----------------------------" Print #FileNum, " +==========================================+" Print #FileNum, " | STT | Diem dau | Diem cuoi | So lan do |" Print #FileNum, " +==========================================+" For i = 1 To ncanh Print #FileNum, " |" & FormatNumber(i, 4, 0, False, False, False) _ & " |" & FormatNumber(Tendiemdau(i), 10, 0, False, False, False) _ & "|" & FormatNumber(Tendiemcuoi(i), 11, 0, False, False, False) _ & "|" & FormatNumber(SLD(i), 7, 0, False, False, False) & " |" Next Print #FileNum, " +==========================================+" Print #FileNum, " " Print #FileNum, " V. KET QUA UOC TINH DO CHINH XAC " Print #FileNum, " --------------------------------" Print #FileNum, " 1. Sai so trung phuong trong so don vi muy ="; 1 Print #FileNum, " 2. Sai so trung phuong vi tri diem" Print #FileNum, " +=====================================================+" Print #FileNum, " | STT | Ten diem | mX(mm) | mY(mm) | mP(mm) |" Print #FileNum, " +=====================================================+" For i = 1 To nmoi Print #FileNum, " |" & FormatNumber(i, 4, 0, False, False, False) _ Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 120 - & " |" & FormatNumber(Tendiem(i), 10, 0, False, False, False) _ & "|" & FormatNumber(mX(i), 11, 3, False, False, False) _ & "|" & FormatNumber(mY(i), 11, 3, False, False, False) _ & "|" & FormatNumber(mP(i), 11, 3, False, False, False) & "|" Next Print #FileNum, " +=====================================================+" Print #FileNum, " 3. Sai so trung phuong tuong ho" Print #FileNum, "+===============================================================================+" Print #FileNum, " | STT | Diem dau | Diem cuoi | S(m) | mS(mm) | mS/S | mAnpha('') | mth(mm) |" Print #FileNum, " +================================================================================+" For i = 1 To ncanh Print #FileNum, " |" & FormatNumber(i, 4, 0, False, False, False) _ & " |" & FormatNumber(Tendiemdau(i), 10, 0, False, False, False) _ & "|" & FormatNumber(Tendiemcuoi(i), 11, 0, False, False, False) _ & "|" & FormatNumber((S(i) / 1000), 13, 3, False, False, False) _ & "|" & FormatNumber(mS(i), 10, 3, False, False, False) _ & "|" & "1/" & FormatNumber(mtptd(i), 12, 0, False, False, False) _ & "|" & FormatNumber(mafa(i), 14, 3, False, False, False) _ & "|" & FormatNumber(mth(i), 13, 3, False, False, False) & "|" Next Print #FileNum, " +================================================================================+" Print #FileNum, " " Print #FileNum, " VI.KET LUAN" Print #FileNum, " -----------" Print #FileNum, " 1. SSTP vi tri diem yeu nhat: Diem "; tenvtdmax _ ; ": mP = " & FormatNumber(vtdmax, 5, 3, False, False, False) & " (mm)" Print #FileNum, " 2. SSTP tuong doi canh yeu nhat:( Canh "; tenmtptdmin _ ; ") : mS/S = 1/" & FormatNumber(mtptdmin, 5, 0, False, False, False) Print #FileNum, " 3. SSTP phuong vi canh yeu nhat:( Canh "; tenmafamax _ ; ") : mAnpha = " & FormatNumber(mafamax, 5, 3, False, False, False) & """" Print #FileNum, " 4. SSTP tuong ho yeu nhat: ( "; tenmthmax _ ; ") : mth = " & FormatNumber(mthmax, 5, 3, False, False, False) & " (mm)" Print #FileNum, " " Print #FileNum, " " Print #FileNum, " --------------- Created by Vu Hong Son ---------------" Print #FileNum, " -------- Lop Trac Dia B_K48_DH Mo-Dia chat HN ----------" Close FileNum Exit Sub Loichontrongso: MsgBox "Chua chon cach tinh trong so" Exit Sub loisave1: MsgBox "Phai save de xem ket qua uoc tinh" Exit Sub Loiut: MsgBox "Kiem tra lai so lieu " End Sub Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 121 - b. modul c¸c phÐp to¸n víi ma trËn Public Function Cong_ma_tran(S0() As Double, S1() As Double, S2() As Double, _ ihang As Long, icot As Long) Dim i As Long, j As Long For i = 1 To ihang For j = 1 To icot S2(i, j) = S0(i, j) + S1(i, j) Next Next End Function Public Function Ma_tran_chuyen_vi(S3() As Double, S4() As Double, _ ihang As Long, icot As Long) Dim i As Long, j As Long For i = 1 To ihang For j = 1 To icot S4(i, j) = S3(j, i) Next Next End Function Public Function Nhan_ma_tran(S5() As Double, S6() As Double, S7() As Double, _ ihang As Long, icot As Long, jcot As Long) Dim i As Long, j As Long, k As Long For i = 1 To ihang For j = 1 To jcot S7(i, j) = 0 For k = 1 To icot S7(i, j) = S7(i, j) + S5(i, k) * S6(k, j) Next Next Next End Function Public Function Nghich_dao_ma_tran(S8() As Double, S9() As Double, _ ihang As Long, icot As Long) Dim i As Long, j As Long, k As Long, h As Long, h1 As Long, _ i2 As Double, j2 As Double For i = 1 To ihang For j = 1 To ihang If i = j Then S9(i, j) = 1 If i j Then S9(i, j) = 0 Next Next For i = 1 To ihang For j = 1 To ihang If i = j Then S9(i, j) = 1 If i j Then S9(i, j) = 0 Next Next For i = 1 To ihang If S8(i, i) = 0 Then For h = i + 1 To ihang If S8(h, i) 0 Then Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 122 - For j = 1 To ihang j2 = S8(i, j) S8(i, j) = S8(h, j) S8(h, j) = j2 j2 = S9(i, j) S9(i, j) = S9(h, j) S9(h, j) = j2 Next End If Next End If If S8(i, i) 0 Then i2 = S8(i, i) For j = 1 To icot S8(i, j) = S8(i, j) / i2 S9(i, j) = S9(i, j) / i2 Next End If For k = 1 To ihang If k i Then j2 = S8(k, i) For j = 1 To icot S8(k, j) = S8(k, j) - S8(i, j) * j2 S9(k, j) = S9(k, j) - S9(i, j) * j2 Next End If Next Next End Function Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 123 - c. mét sè nót lÖnh 1. Nót Open Private Sub mnuopen_Click() Dim FileName As String On Error GoTo Loiopen With CommonDialog1 .DialogTitle = "Chän file sè liÖu ®Ó më" .InitDir = "D:\" .CancelError = True .Filter = "File text (*.sl)|*.sl|All files (*.*)|*.*" .ShowOpen End With FileName = CommonDialog1.FileName Dim FileNum As Long FileNum = FreeFile Open FileName For Input As FileNum Input #FileNum, Tenct txttenct.Text = Tenct Input #FileNum, ntong, ngoc, nmoi, Tonggoc, Tongcanh txtntong.Text = ntong txttonggoc.Text = Tonggoc txttongcanh.Text = Tongcanh txtngoc.Text = ngoc txtnmoi.Text = nmoi Input #FileNum, ngocs, ncanh txtngocs.Text = ngocs txtncanh.Text = ncanh ReDim Tentrai(1 To ngocs), Tengiua(1 To ngocs), Tenphai(1 To ngocs), _ Tendaucanh(1 To ncanh), Tencuoicanh(1 To ncanh) ReDim STT(1 To ntong), Tendiem(1 To ntong) ReDim It(1 To ngocs), Ig(1 To ngocs), Ip(1 To ngocs) ReDim Idc(1 To ncanh), Icc(1 To ncanh) ReDim X(1 To ntong), Y(1 To ntong) Input #FileNum, mgoc, acanh, bcanh txtacanh.Text = acanh txtbcanh.Text = bcanh txtgoc.Text = mgoc For i = 1 To ntong Input #FileNum, STT(i), Tendiem(i) Next For i = 1 To nmoi Input #FileNum, X(i), Y(i) vsgrid5.TextMatrix(i, 2) = X(i) vsgrid5.TextMatrix(i, 3) = Y(i) Next For i = (1 + nmoi) To ntong Input #FileNum, X(i), Y(i) vsgrid1.TextMatrix((i - nmoi), 2) = X(i) vsgrid1.TextMatrix((i - nmoi), 3) = Y(i) Next For i = 1 To ngocs Bé m«n Tr¾c ®Þa c«ng tr×nh §å ¸n tèt nghiÖp Vò Hång S¬n Líp: Tr¾c ®Þa B_K48- 124 - Input #FileNum, It(i), Ig(i), Ip(i) Next For i = 1 To ncanh Input #FileNum, Idc(i), Icc(i) Next Close FileNum For i = (1 + nmoi) To ntong vsgrid1.TextMatrix((i - nmoi), 1) = Tendiem(i) Next For i = 1 To nmoi vsgrid5.TextMatrix(i, 1) = Tendiem(i) Next For i = 1 To ngocs For j = 1 To ntong If It(i) = j Then Tentrai(i) = Tendiem(j) End If If Ip(i) = j Then Tenphai(i) = Tendiem(j) End If If Ig(i) = j Then Tengiua(i) = Tendiem(j) End If Next vsgrid2.TextMatrix(i, 1) = Tentrai(i) vsgrid2.TextMatrix(i, 2) = Tengiua(i) vsgrid2.TextMatrix(i, 3) = Tenphai(i) Next For i = 1 To ncanh For j = 1 To ntong If Idc(i) = j Then Tendaucanh(i) = Tendiem(j) End If If Icc(i) = j Then Tencuoicanh(i) = Tendiem(j) End If Next vsgrid3.TextMatrix(i, 1) = Tendaucanh(i) vsgrid3.TextMatrix(i, 2) = Tencuoicanh(i) Next Exit Sub Loiopen: MsgBox "Phai chon file so lieu de mo hoac nhap so lieu truc tiep tu ban phim" End Sub 2. Nót Tho¸t Private Sub mnuthoat_Click() End End Sub

Các file đính kèm theo tài liệu này:

  • pdf1 26.pdf
Tài liệu liên quan