Xây dựng mô hình tối ưu hóa thời gian – chi phí – nhân lực cho dự án xây dựng (ứng dụng thuật giải GA PSO và lý thuyết mờ)

I H C QU C GIA TP.HCM I H C BÁCH KHOA …………o0o………… C KHÁNH XÂY D NG MƠ HÌNH T TH I GIAN – CHI PHÍ – NHÂN L C CHO D ÁN XÂY D NG ( NG D NG THU T GI I GA-PSO VÀ LÝ THUY T M ) Chuyên ngành : CÔNG NGH VÀ QU N LÝ XÂY D NG Mã s : 60.58.90 LU Thành ph H Chí Minh, tháng 02 CƠNG TRÌNH C HOÀN THÀNH T I I H C BÁCH KHOA I H C QU C GIA TP.HCM Cán b ng d n khoa h c: PGS.TS Ph ng Luân Cán b ch m nh n xét 1: PGS.TS ng Cán b ch m nh n xét 2: TS Công T nh Lu cb ov t i ngày 15 tháng 02 iH 2014 Thành ph n H m: c Long ng nh PGS.TS Ph ng Luân CH T CH H NG C LONG NG KHOA K THU T XÂY D NG IH C NG HÒA XÃ H I CH I H C BÁCH KHOA T NAM c l p - T - H nh phúc NHI M V LU H tên h c viên: 10080284 C KHÁNH – 02 – 1986 Chuyên ngành: Công ngh qu I ng Nam ng : 60.58.90 TÀI: Xây d i gian – chi phí – nhân l c cho d án xây d ng ( ng d ng thu t gi i GA-PSO Lý thuy ) II NHI M V VÀ N I DUNG: ng d ng thu t gi i k t h p GAhình t tm c tiêu th i gian – chi phí – d ng m t mơ c cho d n s không ch c ch n chi phí c a d án xu t v i nh ng nghiên c ng mơ hình thành m quy t toán ti s d gi i c th III NGÀY GIAO NHI M V : 24/06/2013 IV NGÀY HOÀN THÀNH NHI M V : 22/11/2013 V CÁN B CÁN B NG D N: PGS.TS PH M H NG LUÂN NG D N CH NHI M B PGS.TS PH M H NG LUÂN O C LONG NG KHOA K THU T XÂY D NG L IC Lu cu i th hi n nh ng n h c viên su c c g ng c a c t p nghiên c u v n tồn th Thi cơng Qu ng – i h c Bách Khoa thành ph H Chí y truy viên theo h c t t kinh nghi c ng Nh ng ki n th c, kinh nghi ng n n t c nghiên c u sau Xin g ic n PSG.TS Ph t n h c viên su Nh i th c hi n c a th y góp ph ng vào thành cơng c Và cu viên, c Xin c ic ng tr h c viên su tc ct i! TP H i th c hi TÓM T T LU Th u t quan tr ng c n ph d t i i nhu n, nhà th u c n ph i c g ng gi m thi th i th i gian chi phí d án Ngồi ra, v công tác ph ng n vi c t n ph Trong nh u nghiên c quy i th i gian – chi phí hay t c Tuy nhiên, nghiên c u nhi c ti gi i i gian – chi phí – t u t n t i nh ng h n ch t thu t gi i k t h p gi a thu t gi i di truy n (GA) thu t gi i t n th tiêu th i gian – chi phí – cs d gi i quy t tốn t c d kh ng t xu ng th i th i gian – chi phí; ng v i t nh cách th c th c hi n d m b o m c bi p nh h p s khơng ch c ch tích ng g p chi phí c a d hình b ng cách áp d tm ng vào mô ng chi phí d án c vi t b ng ngơn ng c ti n hàn ng, hai ví d so sánh hi u qu c t qu ch r nhi c ng h p C KHÁNH - xu t so v i nh xu t t t ABSTRACT ruction – - -cost- – cost – C KHÁNH - L c Khánh, xin cam k t r ng trình th c hi " ng mơ hình t i gian – chi phí – ( ng d ng thu t gi i GAnghiên c c cho d t m )" s ng u tính tốn k t qu c th hi n hoàn toàn trung th c công b b tk nghiên c u khác (ngo i tr báo c a tác gi ) Tơi xin ch u trách nhi m hồn tồn v nghiên c u c a i th c hi c Khánh C KHÁNH - M CL C M U tv M c tiêu nghiên c u Ph m vi nghiên c u ki n c a nghiên c u 1.4.1 V m t h c thu t 1.4.2 V m t th c t T _ ng 2.1.1 2.1.2 m Các nghiên c u v toán t ng 2.2.1 2.2.2 11 2.2.3 13 2.2.3.1 Thu - 14 2.2.3.2 Thu - 2.2.3.3 Thu 2.2.3.4 Thu 20 - 23 th 24 Các nghiên c u v toán t 2.3.1 Thu c tiêu - 2.3.2 Thu 27 - 32 2.3.3 38 C KHÁNH - Trang i Các nghiên c u ng Lý thuy t m t ng 38 Các nghiên c u v toán t ng t i Vi t Nam LÝ THUY T Thu t gi m 3.1.1 Thu 49 3.1.2 m Lý thuy 3.2.1 49 m ng m 50 50 3.2.1.1 Th m 50 3.2.1.2 3.2.2 51 m 52 3.2.2.1 52 3.2.2.2 3.2.3 th 53 m 55 3.2.3.1 3.2.3.2 55 u ch m c 56 Lý thuy t thu t gi 3.3.1 3.3.2 u 56 th a thu 58 3.3.2.1 58 3.3.2.2 59 3.3.2.3 59 3.3.2.4 61 3.3.2.5 62 Thu t gi 3.4.1 -II a thu 3.4.2 Thu tr C KHÁNH - 64 - 65 Trang ii 3.4.3 67 3.4.4 c ch 68 Lý thuy t thu t gi i t 3.5.1 n th 68 3.5.2 th a thu Thu t gi i t 70 n th Logic m 73 3.7.1 u 73 3.7.2 T 73 3.7.3 tm 3.7.3.1 75 75 3.7.3.2 t - 75 3.7.3.3 T 75 3.7.3.4 T 75 3.7.3.5 m 76 3.7.3.6 77 3.7.3.7 Lu t m 77 3.7.4 78 3.7.4.1 78 3.7.4.2 H 78 3.7.4.3 Bù c a t 3.7.5 – tc at 79 79 3.7.6 m 80 3.7.7 81 tv 4.1.1 D 4.1.2 MƠ HÌNH T C TIÊU 83 toán 83 83 u 83 C KHÁNH - Trang iii 'Ch n qu n th i chéo Randomize() For i = To UBound(QTchon, 1) p1 = Rnd() If p1 < Pc Then Mark(i) = k1 = k1 + Else Mark(i) = k2 = k2 + End If Next soCTlai = k1 soCTkhonglai = k2 If soCTlai Mod = Then If soCTkhonglai > Then Dim r As Integer Do r = Rnd() * UBound(QTchon, 1) Loop Until Mark(r) = Mark(r) = soCTlai = soCTlai + soCTkhonglai = soCTkhonglai - Else Dim r As Integer Randomize() r = Rnd() * UBound(QTchon, 1) Mark(r) = soCTlai = soCTlai - soCTkhonglai = soCTkhonglai + End If End If TaocatheconNhancong(IndexPA, QTchon, Mark, soCTlai) End Sub Public Sub TaocatheconNhancong(ByVal IndexPA As Integer, ByRef QTchon(,) As Integer, ByRef Mark() As Integer, ByVal soCTlai As Integer) If soCTlai > Then Dim cha1, cha2, vitriLai, max, As Integer max = UBound(QTchon, 2) - = If soCTlai >= Then Do Do Randomize() cha1 = Rnd() * UBound(QTchon, 1) Loop Until Mark(cha1) = Do Randomize() cha2 = Rnd() * UBound(QTchon, 1) Loop Until Mark(cha2) = And cha2 cha1 Randomize() vitriLai = Rnd() * (max - min) + Traodoicheo(QTchon, cha1, cha2, vitriLai) Mark(cha1) = Mark(cha2) = soCTlai = soCTlai - Loop Until soCTlai = C KHÁNH - Trang 21 'Còn l i cá th Tim2CatheCanlai(QTchon, Mark, cha1, cha2) Randomize() vitriLai = Rnd() * (max - min) + TraodoicheoGenNhancong(IndexPA,QTchon,cha1,cha2,vitriLai) Mark(cha1) = Mark(cha2) = Else Tim2CatheCanlai(QTchon, Mark, cha1, cha2) Randomize() vitriLai = Rnd() * (max - min) + TraodoicheoGenNhancong(IndexPA,QTchon,cha1,cha2,vitriLai) Mark(cha1) = Mark(cha2) = End If End If End Sub Public Sub TraodoicheoGenNhancong(ByVal IndexPA As Integer, ByRef QTchon(,) As Integer, ByVal cha1 As Integer, ByVal cha2 As Integer, ByVal vitriLai As Integer) Dim Cathecon(1, UBound(QTchon, 2)) As Integer For j = To vitriLai Cathecon(0, j) = QTchon(cha1, j) Cathecon(1, j) = QTchon(cha2, j) Next For j = vitriLai + To UBound(QTchon, 2) - Cathecon(0, j) = QTchon(cha2, j) Cathecon(1, j) = QTchon(cha1, j) Next 'Copy Cá th v Qu n th c ch n Lai ghép For j = To UBound(QTchon, 2) - QTchon(cha1, j) = Cathecon(0, j) QTchon(cha2, j) = Cathecon(1, j) Next End Sub Public Sub DotbienNhancong(ByVal IndexPA As Integer, ByRef QTnhancongChon(,) As Integer) Dim p2 As Single Dim r, Somnhat, Trenhat, temp As Integer For i = To UBound(QTnhancongChon, 1) For j = To UBound(QTnhancongChon, 2) - Randomize() p2 = Rnd() If p2 < Pm Then If Quanthe(IndexPA, j).Khoisom Quanthe(IndexPA, j).Khoimuon Then Somnhat = Quanthe(IndexPA, j).Khoisom Trenhat = Quanthe(IndexPA, j).Khoimuon 'Tính Somnhat For soCTT=0 To UBound(mangCongtac(j.Congtactruoc) For k = To j - If StrComp(mangCongtac(k).Kyhieu, mangCongtac(j).Congtactruoc(soCTT), CompareMethod.Text) = Then temp = QTnhancongChon(i, k) + Quanthe(IndexPA, k).Thoigian If temp > Somnhat Then C KHÁNH - Trang 22 Somnhat = temp End If End If Next Next If Somnhat Trenhat Then Do Randomize() r = Rnd() * (Trenhat - Somnhat) + Somnhat Loop Until r QTnhancongChon(i, j) QTnhancongChon(i, j) = r Else QTnhancongChon(i, j) = Somnhat End If End If End If Next Next End Sub Public Sub CopyQTNCdautoHochua(ByVal QT(,) As Thoidiem, ByVal fn() As FitnessNhancong, ByRef QTtaptrung(,) As Thoidiem, ByRef fntaptrung() As FitnessNhancong) For i = To UBound(QT, 1) For j = To UBound(QT, 2) QTtaptrung(i, j) = QT(i, j) Next Next For i = To UBound(fn) fntaptrung(i) = fn(i) Next End Sub Public Sub CopyQTNCchontoHochua(ByVal IndexPA As Integer, ByVal QTchon(,) As Integer, ByRef QTtaptrung(,) As Thoidiem, ByRef fntaptrung() As FitnessNhancong) Dim last As Integer last = UBound(QuantheNhancong) + For i = To UBound(QTchon, 1) For j = To UBound(QTchon, 2) QTtaptrung(i + last, j).Batdau = QTchon(i, j) QTtaptrung(i + last, j).Ketthuc = QTtaptrung(i + last,_ j).Batdau + Quanthe(IndexPA, j).Thoigian Next Next For i = To UBound(QTchon, 1) TinhHmtNhancong(IndexPA, QTtaptrung, i + last, _ fntaptrung(i + last).Z3, fntaptrung(i + last).Rmax) Next End Sub Public Sub CapnhapVitriNhancong(ByVal IndexPA As Integer, ByRef QT(,) As Thoidiem) Dim w, r2 As Single Dim Vantoc(UBound(QT, 1), UBound(QT, 2)) As Single Dim Gbest(UBound(QT, 2)) As Integer 'Phát sinh v n t u Randomize() For i = To UBound(Vantoc, 1) C KHÁNH - Trang 23 For j = To UBound(Vantoc, 2) - Dim sopa, Vmax, Vmin As Integer If Quanthe(IndexPA, j).Khoisom Quanthe(IndexPA, j).Khoimuon Then sopa = Quanthe(IndexPA, j).Khoimuon Quanthe(IndexPA, j).Khoisom Vmax = sopa Vmin = -sopa Vantoc(i, j) = Rnd() * (Vmax - Vmin) + Vmin End If Next Next 'Tinh Gbest For j = To UBound(Gbest) Gbest(j) = QT(0, j).Batdau Next 'C p nh p V n t c – V trí w = wmax - (wmax - wmin) * VonglapNhancongHienhanh / SovonglapNhancong For i = To UBound(QT, 1) Randomize() r2 = Rnd() For j = To UBound(QT, 2) - If Quanthe(IndexPA, j).Khoisom Quanthe(IndexPA, j).Khoimuon Then Vantoc(i, j) = w * Vantoc(i, j) + C2 * r2 * (Gbest(j) - QT(i, j).Batdau) QT(i, j).Batdau = Round(QT(i, j).Batdau + Vantoc(i, j), 0) End If Next Next End Sub Public Sub CopyQTNCsauPSOtoHochua(ByVal IndexPA As Integer, ByVal QT(,) As Thoidiem, ByRef QTtaptrung(,) As Thoidiem, ByRef fntaptrung() As FitnessNhancong) Dim last As Integer last = (UBound(QuantheNhancong) + 1) + (UBound(QuantheChon)) + For i = To UBound(QT, 1) For j = To UBound(QT, 2) QTtaptrung(i + last, j).Batdau = QT(i, j).Batdau QTtaptrung(i + last, j).Ketthuc = QTtaptrung(i + last,_ j).Batdau + Quanthe(IndexPA, j).Thoigian Next Next For i = To UBound(QT, 1) TinhHmtNhancong(IndexPA, QTtaptrung, i + last, _ fntaptrung(i + last).Z3, fntaptrung(i + last).Rmax) Next End Sub Public Sub KiemtraStartday(ByVal IndexPA As Integer, ByRef QTtaptrung(,) As Thoidiem, ByRef fnTaptrung() As FitnessNhancong) Dim Somnhat, Trenhat, temp As Integer For i = UBound(QuantheNhancong, 1) + To UBound(QTtaptrung, 1) For j = To UBound(QTtaptrung, 2) - If Quanthe(IndexPA, j).Khoisom Quanthe(IndexPA, j).Khoimuon Then C KHÁNH - Trang 24 Somnhat = Quanthe(IndexPA, j).Khoisom Trenhat = Quanthe(IndexPA, j).Khoimuon 'Tính Somnhat For soCTT = To UBound(mangCongtac(j).Congtactruoc) For k = To j - If StrComp(mangCongtac(k).Kyhieu, mangCongtac(j).Congtactruoc(soCTT), CompareMethod.Text) = Then temp = QTtaptrung(i, k).Batdau + Quanthe(IndexPA, k).Thoigian If temp > Somnhat Then Somnhat = temp End If End If Next Next If QTtaptrung(i, j).Batdau > Trenhat Then QTtaptrung(i, j).Batdau = Trenhat QTtaptrung(i, j).Ketthuc = QTtaptrung(i,j).Batdau + Quanthe(IndexPA, j).Thoigian ElseIf QTtaptrung(i, j).Batdau < Somnhat Then QTtaptrung(i, j).Batdau = Somnhat QTtaptrung(i, j).Ketthuc = QTtaptrung(i, j).Batdau + Quanthe(IndexPA, j).Thoigian End If End If Next Next 'Tính l i Hàm m c tiêu For i = UBound(QuantheNhancong, 1) + To UBound(QTtaptrung, 1) TinhHmtNhancong(IndexPA, QTtaptrung, i, _ fnTaptrung(i).Z3, fnTaptrung(i).Rmax) Next End Sub Public Sub SapxepResource(ByRef QT(,) As Thoidiem, ByRef fn() As FitnessNhancong) If UBound(QT, 1) >= Then Dim TempQT(UBound(QT, 2)) As Thoidiem Dim Temfn As FitnessNhancong Dim i, j, k, As Integer For i = To (UBound(QT, 1) - 1) = i For j = i + To UBound(QT, 1) If fn(j).Z3 < fn(min).Z3 Then = j End If Next If i Then For k = To UBound(QT, 2) TempQT(k) = QT(i, k) QT(i, k) = QT(min, k) QT(min, k) = TempQT(k) Next Temfn = fn(i) fn(i) = fn(min) fn(min) = Temfn End If Next C KHÁNH - Trang 25 End If End Sub Public Sub ChonNphuonganNhancong(ByRef QTtaptrung(,) As Thoidiem, ByRef fnTaptrung() As FitnessNhancong, ByRef QT(,) As Thoidiem, ByRef fn() As FitnessNhancong) SapxepResource(QTtaptrung, fnTaptrung) Dim i, k, soPAconlai As Integer u If fnTaptrung(0).Rmax = UBound(Quanthe, 1) Then For i = To UBound(Quanthe, 1) EditDataRow2(frmOutput.ds2.DauraTongthe,i,Fits) Next For i = UBound(Quanthe, 1) + To sodong - frmOutput.ds2.DauraTongthe.Rows(i).Delete() C KHÁNH - Trang 30 Next Else 'S a d li u có) If sodong > Then For i = To sodong - EditDataRow2(frmOutput.ds2.DauraTongthe, _i, Fits) Next End If 'Thêm d li u m i vào For i = sodong To UBound(Quanthe, 1) InsertDataRow2(frmOutput.ds2.DauraTongthe,i,Fits) Next End If End If End If Catch ex As Exception If txtAlpha.Text.ToString = "" Or txtSovonglap.Text.ToString _= "" Or txtSocathe.Text.ToString = "" Then MsgBox("B thơng s cho mơ hình!") Else MsgBox(ex.Message) End If End Try End Sub Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click Try Dim frmOutput As New Form2 frmOutput.Show() frmOutput.cn2.ConnectionString = cn1.ConnectionString frmOutput.cn3.ConnectionString = cn1.ConnectionString frmOutput.da2.Fill(frmOutput.ds2) frmOutput.da3.Fill(frmOutput.ds3) If IsArrayEmtpy(mangCongtac) = True Then frmOutput.btnResource.Enabled = False frmOutput.btnShowPA.Enabled = False frmOutput.btnSelectAll.Enabled = False frmOutput.btnDeselectAll.Enabled = False frmOutput.SaveToolStripButton.Enabled = False frmOutput.SaveasToolStripButton.Enabled = False frmOutput.dgv2.ReadOnly = True frmOutput.dgv3.ReadOnly = True Else frmOutput.txtSocatheNC.Text = UBound(Quanthe, 1) + frmOutput.txtKhongtroi.Text = UBound(TapKhongtroi) + End If Catch ex As Exception MsgBox(ex.Message, , "L i") End Try End Sub End Class 2.6.2 t qu Imports System.Data.OleDb Public Class Form2 C KHÁNH - Trang 31 Public dongHienhanh As Integer Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click Me.Close() End Sub Private Sub dgv2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv2.CellClick dongHienhanh = e.RowIndex End Sub Private Sub dgv2_CellEnter(ByVal sender As System.Object, ByVal e As _System.Windows.Forms.DataGridViewCellEventArgs) Handles _dgv2.CellEnter dongHienhanh = e.RowIndex End Sub Private Sub btnResource_Click(ByVal sender As System.Object, ByVal e _As System.EventArgs) Handles btnResource.Click Try If txtRmax.Text.ToString = "" Then MsgBox("B p Rmax", , "Thông báo") Else Dim KichthuocquantheNhancong As Integer KichthuocquantheNhancong = CInt(txtSocatheNC.Text) ReDim QuantheNhancong(KichthuocquantheNhancong - 1, _UBound(mangCongtac)) ReDim FitsNhancong(UBound(QuantheNhancong, 1)) ReDim HochuaNhancong(3 * UBound(QuantheNhancong, 1) + 2, _UBound(QuantheNhancong, 2)) ReDim FitsHochuaNhancong(UBound(HochuaNhancong, 1)) ReDim QuantheChon(UBound(QuantheNhancong, 1), _UBound(QuantheNhancong, 2)) Dim IndexPA As Integer maxR = CInt(txtRmax.Text) For i = To dgv2.RowCount - If dgv2.Rows(i).Cells(7).Value = True Then IndexPA = i 'Kh i t o Qu n th Nhân công SovonglapNhancong = dgv2.Rows(i).Cells(8).Value TaoQuantheNhancong(IndexPA, QuantheNhancong, _FitsNhancong) SapxepResource(QuantheNhancong, FitsNhancong) 'Vòng l p ProgressBar2.Minimum = ProgressBar2.Maximum = SovonglapNhancong VonglapNhancongHienhanh = Dim Gbest As Integer Gbest = FitsNhancong(0).Z3 Dim SovonglapNCkhongdoi As Integer SovonglapNCkhongdoi = Do u vào H ch a CopyQTNCdautoHochua(QuantheNhancong, _FitsNhancong, HochuaNhancong, FitsHochuaNhancong) 'GA QT Nhân công C KHÁNH - Trang 32 TourmamentSelectionGenNhancong(QuantheNhancon _g , FitsNhancong, QuantheChon) Laighep1diemGenNhancong(IndexPA, QuantheChon) DotbienNhancong(IndexPA, QuantheChon) CopyQTNCchontoHochua(IndexPA, QuantheChon, _HochuaNhancong, FitsHochuaNhancong) 'PSO QT Nhân công CapnhapVitriNhancong(IndexPA, _QuantheNhancong) CopyQTNCsauPSOtoHochua(IndexPA, _QuantheNhancong, HochuaNhancong, FitsHochuaNhancong) 'Ch t nh t KiemtraStartday(IndexPA, HochuaNhancong, _FitsHochuaNhancong) ChonNphuonganNhancong(HochuaNhancong, _FitsHochuaNhancong, QuantheNhancong, FitsNhancong) 'So sánh cá th t t nh t c a vòng l If FitsNhancong(0).Z3 = Gbest Then SovonglapNCkhongdoi = _SovonglapNCkhongdoi + Else SovonglapNCkhongdoi = Gbest = FitsNhancong(0).Z3 End If c 'Sang vòng l p ti p theo VonglapNhancongHienhanh = _VonglapNhancongHienhanh + ProgressBar2.Value = VonglapNhancongHienhanh Loop Until VonglapNhancongHienhanh = _SovonglapNhancong Or SovonglapNCkhongdoi = 100 'Xu t DL vào Table DauvaoTongthe ds2.DauraTongthe.Rows(i)(5) = FitsNhancong(0).Z3 ds2.DauraTongthe.Rows(i)(6) = _FitsNhancong(0).Rmax 'Xu t DL vào qu n th For j = To UBound(Quanthe, 2) Quanthe(IndexPA, j).Batdau = _QuantheNhancong(0, j).Batdau Next End If Next 'Thơng báo hồn thành MsgBox("Complete!" & vbCrLf & _VonglapNhancongHienhanh & " vịng", , "Thơng báo") ProgressBar2.Value = End If Catch ex As Exception If ex.Message = "Conversion from type 'DBNull' to type _'Integer' is not valid." Then MsgBox("B thơng s cho mơ hình", , "L i") Else C KHÁNH - Trang 33 MsgBox(ex.Message, , "L i") End If End Try End Sub Private Sub btnShowPA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowPA.Click Try Label2.Text = "CHI TI & dongHienhanh + 'Xu t DL sang DataGridView3 ds3.DauraChitiet.Clear() Dim PAChon As Integer PAChon = dongHienhanh da3.Fill(ds3) Dim sodong As Integer sodong = ds3.DauraChitiet.Rows.Count If sodong - >= UBound(mangCongtac) Then For j = To UBound(mangCongtac) EditDataRow3(ds3.DauraChitiet, j, Quanthe, PAChon) Next For j = UBound(mangCongtac) + To sodong - ds3.DauraChitiet.Rows(j).Delete() Next ElseIf sodong < UBound(mangCongtac) Then 'S a d li u có) If sodong > Then For j = To sodong - EditDataRow3(ds3.DauraChitiet, j, Quanthe, _PAChon) Next End If 'Thêm d li u m i vào For j = sodong To UBound(mangCongtac) InsertDataRow3(ds3.DauraChitiet, j, Quanthe, PAChon) Next End If txtGang.Clear() For j = To UBound(Quanthe, 2) - If Quanthe(PAChon, j).Dutru = Then txtGang.Text = txtGang.Text & _Quanthe(PAChon, j).Kyhieu & " , " End If Next txtGang.Text = txtGang.Text & _Quanthe(PAChon, UBound(Quanthe, 2)).Kyhieu Catch ex As Exception MsgBox(ex.Message, , "L i") End Try End Sub End Class C KHÁNH - Trang 34 LÝ L H tên : Ngày sinh : C KHÁNH 04 – 02 – 1986 : a ch n tho i c : c – Duy Xuyên – 205/39/10 – Tr ng Nam – – – : : 2004 – ng – i h c Ki 2010 – : H c viên cao h c chuyên ngành Công ngh qu i h c Bách Khoa – ih 2009 – 2010 : Công ty TNHH XD2010 – 2012 : Công ty C ph C KHÁNH - - - ng – ... th i gian – chi phí n tính th i gian – chi phí th i gian – chi phí r i r c th i gian – chi phí phi n nguyên n nhi thu t gi i NSGAtr i a kho ng cách t a thu t gi i PSO t gi a t i t t p rõ v chi. .. 10080284 C KHÁNH – 02 – 1986 Chuyên ngành: Công ngh qu I ng Nam ng : 60.58.90 TÀI: Xây d i gian – chi phí – nhân l c cho d án xây d ng ( ng d ng thu t gi i GA- PSO Lý thuy ) II NHI M V VÀ N I DUNG:... ch th c hi n d án cho phù h p nh t u nghiên c u v v t i th i gian – mơ hình t c – cost – c tiêu th i gian – chi phí – c , – cost : tìm ki m ch tốn h c hay thu t gi i di truy n ( - GA) , thu t gi