交通规划多路径分配计算机程序代码Word格式.docx

交通规划多路径分配计算机程序代码Word格式.docx

《交通规划多路径分配计算机程序代码Word格式.docx》由会员分享，可在线阅读，更多相关《交通规划多路径分配计算机程序代码Word格式.docx（24页珍藏版）》请在冰豆网上搜索。

d=50

Text3.Text=d

PrivateSubCommand3_Click（）

Text4（0）.Text=Text1（0）/Text3*60

Text4

（1）.Text=Text1

（1）/Text3*60

Text4

（2）.Text=Text1

（2）/Text3*60

Text4（3）.Text=Text1（3）/Text3*60

Text4（4）.Text=Text1（4）/Text3*60

Text4（5）.Text=Text1（5）/Text3*60

Text5（0）.Text=Text2（0）/Text3*60

Text5

（1）.Text=Text2

（1）/Text3*60

Text5

（2）.Text=Text2（4）/Text3*60

Text5（3）.Text=Text2（5）/Text3*60

Text5（4）.Text=Text2

（2）/Text3*60

Text5（5）.Text=Text2（3）/Text3*60

PrivateSubCommand4_Click（）

e=600

Text6=e

PrivateSubCommand5_Click（）

Text7

（1）.Text=200

Text7

（2）.Text=200

Text7（3）.Text=500

Text7（4）.Text=200

Text7（6）.Text=500

Text7（7）.Text=100

Text7（8）.Text=200

Text7（9）.Text=500

Text7（11）.Text=250

Text7（12）.Text=500

Text7（13）.Text=100

Text7（14）.Text=250

PrivateSubCommand6_Click（）

Form2.Hide

Form3.Show

PrivateSubForm_Load（）

FORM3

Publici,j

Form3.Hide

Form4.Show

i=0

j=0

i=i+1

Ifi=1Then

Command2.Caption="

分配A—B后的交通量"

Command1.Caption="

求分配A—B后的阻抗"

Text3（0）.Text=155

Text3

（1）.Text=0

Text3

（2）.Text=168

Text3（3）.Text=0

Text3（4）.Text=0

Text3（5）.Text=45

Text3（6）.Text=13

Text3（7）.Text=0

Text3（8）.Text=32

Text3（9）.Text=0

Text3（10）.Text=45

Text3（11）.Text=0

Text3（12）.Text=32

Text3（13）.Text=0

Text3（14）.Text=0

Text3（15）.Text=0

Text3（16）.Text=0

Text3（17）.Text=0

Text3（18）.Text=0

Text3（19）.Text=0

Text3（20）.Text=0

Text3（21）.Text=0

Text3（22）.Text=0

Text3（23）.Text=0

ElseIfi=2Then

分配B—A后的交通量"

求分配B—A后的阻抗"

Text3

（1）.Text=168

Text3（3）.Text=155

Text3（4）.Text=32

Text3（6）.Text=26

Text3（9）.Text=45

Text3（11）.Text=32

Text3（13）.Text=45

Text3（14）.Text=0

Text3（15）.Text=0

Text3（16）.Text=0

Text3（17）.Text=0

Text3（18）.Text=0

Text3（19）.Text=0

Text3（20）.Text=0

Text3（21）.Text=0

Text3（22）.Text=0

Text3（23）.Text=0

ElseIfi=3Then

分配A—C后的交通量"

求分配A—C后的阻抗"

Text3（0）.Text=155

Text3

（1）.Text=168

Text3

（2）.Text=168

Text3（3）.Text=155

Text3（4）.Text=32

Text3（5）.Text=245

Text3（6）.Text=26

Text3（7）.Text=0

Text3（8）.Text=32

Text3（9）.Text=45

Text3（10）.Text=45

Text3（11）.Text=32

Text3（12）.Text=32

Text3（15）.Text=200

ElseIfi=4Then

分配C—A后的交通量"

求分配C—A后的阻抗"

Text3（4）.Text=232

Text3（14）.Text=200

ElseIfi=5Then

分配A—D后的交通量"

求分配A—D后的阻抗"

Text3（0）.Text=345

Text3

（2）.Text=230

Text3（5）.Text=555

Text3（7）.Text=128

Text3（9）.Text=107

Text3（10）.Text=355

Text3（12）.Text=344

Text3（17）.Text=126

Text3（19）.Text=374

Text3（22）.Text=126

ElseIfi=6Then

分配D—A后的交通量"

求分配D—A后的阻抗"

Text3

（1）.Text=294

Text3（6）.Text=152

Text3（11）.Text=344

Text3（13）.Text=354

Text3（14）.Text=262

Text3（16）.Text=129

Text3（18）.Text=309

Text3（21）.Text=62

Text3（23）.Text=191

ElseIfi=7Then

分配C—B后的交通量"

求分配C—B后的阻抗"

Text3

（2）.Text=357

Text3（6）.Text=279

Text3（8）.Text=405

Text3（10）.Text=663

Text3（12）.Text=655

Text3（14）.Text=570

Text3（16）.Text=259

Text3（18）.Text=371

Text3（20）.Text=192

Text3（22）.Text=188

ElseIfi=8Then

分配B—C后的交通量"

求分配B—C后的阻抗"

Text3

（1）.Text=351

Text3（3）.Text=346

Text3（4）.Text=608

Text3（5）.Text=612

Text3（7）.Text=262

Text3（9）.Text=416

Text3（11）.Text=658

Text3（13）.Text=663

Text3（15）.Text=571

Text3（17）.Text=255

Text3（21）.Text=191

ElseIfi=9Then

分配B—D后的交通量"

求分配B—D后的阻抗"

Text3（9）.Text=516

Text3（19）.Text=474

ElseIfi=10Then

分配D—B后的交通量"

求分配D—B后的阻抗"

Text3（8）.Text=505

Text3（18）.Text=471

ElseIfi=11Then

分配D—C后的交通量"

求分配D—C后的阻抗"

Text3（21）.Text=441

Text3（23）.Text=441

ElseIfi=12Then

分配C—D后的交通量"

分配C—D后的阻抗"

Text3（20）.Text=442

Text3（22）.Text=438

Form3.Show

Form2.Hide

EndIf

PrivateSubCommand1_Click（）

Dima（3）AsString

Text1（0）.Text=Form2.Text4（0）

Text1

（1）.Text=Form2.Text4

（1）

Text1

（2）.Text=Form2.Text4

（2）

Text1（3）.Text=Form2.Text4（3）

Text1（4）.Text=Form2.Text4（4）

Text1（5）.Text=Form2.Text4（5）

Text2（0）.Text=Form2.Text5（0）

Text2

（1）.Text=Form2.Text5

（1）

Text2

（2）.Text=Form2.Text5

（2）

Text2（3）.Text=Form2.Text5（3）

Text2（4）.Text=Form2.Text5（4）

Text2（5）.Text=Form2.Text5（5）

j=j+1

Ifj=1Then

Text1（0）.Text=Round（Val（Text1（0）.Text）*（1+0.15*（（Val（Text3（0）.Text）+Val（Text3

（1）.Text））/600）^4）,3）

Text1

（1）.Text=Round（Val（Text1

（1）.Text）*（1+0.15*（（Val（Text3

（2）.Text）+Val（Text3（3）.Text））/600）^4）,3）

Text1

（2）.Text=Round（Val（Text1

（2）.Text）*（1+0.15*（（Val（Text3（10）.Text）+Val（Text3（11）.Text））/600）^4）,3）

Text1（3）.Text=Round（Val（Text1（3）.Text）*（1+0.15*（（Val（Text3（12）.Text）+Val（Text3（13）.Text））/600）^4）,3）

Text1（4）.Text=Round（Val（Text1（4）.Text）*（1+0.15*（（Val（Text3（20）.Text）+Val（Text3（21）.Text））/600）^4）,3）

Text1（5）.Text=Round（Val（Text1（5）.Text）*（1+0.15*（（Val（Text3（22）.Text）+Val（Text3（23）.Text））/600）^4）,3）

Text2