交通規(guī)劃多路徑分配計(jì)算機(jī)程序代碼

1、form1private sub command1_click()form1.hideform2.showend subform2private sub command1_click()a = 4.2b = 3.93c = 1.96text1(0).text = atext1(1).text = atext1(2).text = ctext1(3).text = ctext1(4).text = atext1(5).text = atext2(0).text = atext2(1).text = atext2(2).text = atext2(3).text = atext2(4).text

2、= btext2(5).text = bend subprivate sub command2_click()d = 50text3.text = dend subprivate sub command3_click()text4(0).text = text1(0) / text3 * 60text4(1).text = text1(1) / text3 * 60text4(2).text = text1(2) / text3 * 60text4(3).text = text1(3) / text3 * 60text4(4).text = text1(4) / text3 * 60text4

3、(5).text = text1(5) / text3 * 60text5(0).text = text2(0) / text3 * 60text5(1).text = text2(1) / text3 * 60text5(2).text = text2(4) / text3 * 60text5(3).text = text2(5) / text3 * 60text5(4).text = text2(2) / text3 * 60text5(5).text = text2(3) / text3 * 60end subprivate sub command4_click()e = 600text

4、6 = eend subprivate sub command5_click()text7(1).text = 200text7(2).text = 200text7(3).text = 500text7(4).text = 200text7(6).text = 500text7(7).text = 100text7(8).text = 200text7(9).text = 500text7(11).text = 250text7(12).text = 500text7(13).text = 100text7(14).text = 250end subprivate sub command6_

5、click()form2.hideform3.showend subprivate sub form_load()end subform3public i, jprivate sub command3_click()form3.hideform2.showend subprivate sub command4_click()form3.hideform4.showend subprivate sub form_load()i = 0j = 0end subprivate sub command2_click()i = i + 1if i = 1 thencommand2.caption = &

6、quot;分配ab后的交通量"command1.caption = "求分配ab后的阻抗" 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).tex

7、t = 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 elseif i = 2 thencommand2.caption = "分配ba后的交通量"command1.caption = "求分

8、配ba后的阻抗" text3(0).text = 155 text3(1).text = 168 text3(2).text = 168 text3(3).text = 155 text3(4).text = 32 text3(5).text = 45 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 = 32text3(13).text = 45text3(14).text

9、= 0text3(15).text = 0text3(16).text = 0text3(17).text = 0text3(18).text = 0text3(19).text = 0text3(20).text = 0text3(21).text = 0text3(22).text = 0text3(23).text = 0 elseif i = 3 thencommand2.caption = "分配ac后的交通量"command1.caption = "求分配ac后的阻抗"text3(0).text = 155text3(1).text = 16

10、8text3(2).text = 168text3(3).text = 155text3(4).text = 32text3(5).text = 245text3(6).text = 26text3(7).text = 0text3(8).text = 32text3(9).text = 45text3(10).text = 45text3(11).text = 32text3(12).text = 32text3(13).text = 45text3(14).text = 0text3(15).text = 200text3(16).text = 0text3(17).text = 0tex

11、t3(18).text = 0text3(19).text = 0text3(20).text = 0text3(21).text = 0text3(22).text = 0text3(23).text = 0 elseif i = 4 thencommand2.caption = "分配ca后的交通量"command1.caption = "求分配ca后的阻抗"text3(0).text = 155text3(1).text = 168text3(2).text = 168text3(3).text = 155text3(4).text = 232te

12、xt3(5).text = 245text3(6).text = 26text3(7).text = 0text3(8).text = 32text3(9).text = 45text3(10).text = 45text3(11).text = 32text3(12).text = 32text3(13).text = 45text3(14).text = 200text3(15).text = 200text3(16).text = 0text3(17).text = 0text3(18).text = 0text3(19).text = 0text3(20).text = 0text3(

13、21).text = 0text3(22).text = 0text3(23).text = 0 elseif i = 5 thencommand2.caption = "分配ad后的交通量"command1.caption = "求分配ad后的阻抗"text3(0).text = 345text3(1).text = 168text3(2).text = 230text3(3).text = 155text3(4).text = 232text3(5).text = 555text3(6).text = 26text3(7).text = 128tex

14、t3(8).text = 32text3(9).text = 107text3(10).text = 355text3(11).text = 32text3(12).text = 344text3(13).text = 45text3(14).text = 200text3(15).text = 200text3(16).text = 0text3(17).text = 126text3(18).text = 0text3(19).text = 374text3(20).text = 0text3(21).text = 0text3(22).text = 126text3(23).text =

15、 0 elseif i = 6 thencommand2.caption = "分配da后的交通量"command1.caption = "求分配da后的阻抗"text3(0).text = 345text3(1).text = 294text3(2).text = 230text3(3).text = 155text3(4).text = 232text3(5).text = 555text3(6).text = 152text3(7).text = 128text3(8).text = 32text3(9).text = 107text3(10).t

16、ext = 355text3(11).text = 344text3(12).text = 344text3(13).text = 354text3(14).text = 262text3(15).text = 200text3(16).text = 129text3(17).text = 126text3(18).text = 309text3(19).text = 374text3(20).text = 0text3(21).text = 62text3(22).text = 126text3(23).text = 191elseif i = 7 thencommand2.caption

17、= "分配cb后的交通量"command1.caption = "求分配cb后的阻抗"text3(0).text = 345text3(1).text = 294text3(2).text = 357text3(3).text = 155text3(4).text = 232text3(5).text = 555text3(6).text = 279text3(7).text = 128text3(8).text = 405text3(9).text = 107text3(10).text = 663text3(11).text = 344text3(1

18、2).text = 655text3(13).text = 354text3(14).text = 570text3(15).text = 200text3(16).text = 259text3(17).text = 126text3(18).text = 371text3(19).text = 374text3(20).text = 192text3(21).text = 62text3(22).text = 188text3(23).text = 191elseif i = 8 thencommand2.caption = "分配bc后的交通量"command1.ca

19、ption = "求分配bc后的阻抗"text3(0).text = 345text3(1).text = 351text3(2).text = 357text3(3).text = 346text3(4).text = 608text3(5).text = 612text3(6).text = 279text3(7).text = 262text3(8).text = 405text3(9).text = 416text3(10).text = 663text3(11).text = 658text3(12).text = 655text3(13).text = 663t

20、ext3(14).text = 570text3(15).text = 571text3(16).text = 259text3(17).text = 255text3(18).text = 371text3(19).text = 374text3(20).text = 192text3(21).text = 191text3(22).text = 188text3(23).text = 191elseif i = 9 thencommand2.caption = "分配bd后的交通量"command1.caption = "求分配bd后的阻抗"text

21、3(0).text = 345text3(1).text = 351text3(2).text = 357text3(3).text = 346text3(4).text = 608text3(5).text = 612text3(6).text = 279text3(7).text = 262text3(8).text = 405text3(9).text = 516text3(10).text = 663text3(11).text = 658text3(12).text = 655text3(13).text = 663text3(14).text = 570text3(15).text

22、 = 571text3(16).text = 259text3(17).text = 255text3(18).text = 371text3(19).text = 474text3(20).text = 192text3(21).text = 191text3(22).text = 188text3(23).text = 191elseif i = 10 thencommand2.caption = "分配db后的交通量"command1.caption = "求分配db后的阻抗"text3(0).text = 345text3(1).text = 3

23、51text3(2).text = 357text3(3).text = 346text3(4).text = 608text3(5).text = 612text3(6).text = 279text3(7).text = 262text3(8).text = 505text3(9).text = 516text3(10).text = 663text3(11).text = 658text3(12).text = 655text3(13).text = 663text3(14).text = 570text3(15).text = 571text3(16).text = 259text3(

24、17).text = 255text3(18).text = 471text3(19).text = 474text3(20).text = 192text3(21).text = 191text3(22).text = 188text3(23).text = 191elseif i = 11 thencommand2.caption = "分配dc后的交通量"command1.caption = "求分配dc后的阻抗"text3(0).text = 345text3(1).text = 351text3(2).text = 357text3(3).te

25、xt = 346text3(4).text = 608text3(5).text = 612text3(6).text = 279text3(7).text = 262text3(8).text = 505text3(9).text = 516text3(10).text = 663text3(11).text = 658text3(12).text = 655text3(13).text = 663text3(14).text = 570text3(15).text = 571text3(16).text = 259text3(17).text = 255text3(18).text = 4

26、71text3(19).text = 474text3(20).text = 192text3(21).text = 441text3(22).text = 188text3(23).text = 441 elseif i = 12 thencommand2.caption = "分配cd后的交通量"command1.caption = "分配cd后的阻抗"text3(0).text = 345text3(1).text = 351text3(2).text = 357text3(3).text = 346text3(4).text = 608text3

27、(5).text = 612text3(6).text = 279text3(7).text = 262text3(8).text = 505text3(9).text = 516text3(10).text = 663text3(11).text = 658text3(12).text = 655text3(13).text = 663text3(14).text = 570text3(15).text = 571text3(16).text = 259text3(17).text = 255text3(18).text = 471text3(19).text = 474text3(20).

28、text = 442text3(21).text = 441text3(22).text = 438text3(23).text = 441 form3.show form2.hide end ifend sub private sub command1_click()dim a(3) as stringtext1(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

29、(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 + 1if j = 1 thentext1(0).text = round(val(text1(0).text) * (1 + 0.15 * (val(text3

30、(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).t

31、ext) * (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)tex

32、t2(0).text = round(val(text2(0).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4), 3)text2(1).text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + val(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text) * (1 + 0.15 * (val(text3(6).text) + val(te

33、xt3(7).text) / 600) 4), 3)text2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0.15 * (val(text3(8).text) + val(text3(9).text) / 600) 4), 3)text2(5).text = round(val(text2(5).text) * (1 + 0.15 *

34、 (val(text3(18).text) + val(text3(19).text) / 600) 4), 3)command2.caption = "根據(jù)初始阻抗求分配ab后的交通量"elseif j = 2 thentext1(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).t

35、ext) + 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

36、) * (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(0).text = round(val(text2(0).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4), 3)text2(1)

37、.text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + val(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text) * (1 + 0.15 * (val(text3(6).text) + val(text3(7).text) / 600) 4), 3)text2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(

38、17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0.15 * (val(text3(8).text) + val(text3(9).text) / 600) 4), 3)text2(5).text = round(val(text2(5).text) * (1 + 0.15 * (val(text3(18).text) + val(text3(19).text) / 600) 4), 3)command2.caption = "根據(jù)分配ab后的阻抗求分配ac后交通量"command

39、1.caption = "分配ab后的阻抗"elseif j = 3 thentext1(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

40、).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)

41、text1(5).text = round(val(text1(5).text) * (1 + 0.15 * (val(text3(22).text) + val(text3(23).text) / 600) 4), 3)text2(0).text = round(val(text2(0).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4), 3)text2(1).text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + va

42、l(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text) * (1 + 0.15 * (val(text3(6).text) + val(text3(7).text) / 600) 4), 3)text2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0

43、.15 * (val(text3(8).text) + val(text3(9).text) / 600) 4), 3)text2(5).text = round(val(text2(5).text) * (1 + 0.15 * (val(text3(18).text) + val(text3(19).text) / 600) 4), 3)command2.caption = "根據(jù)分配ac后的阻抗求分配ad后交通量"command1.caption = "分配ac后的阻抗"elseif j = 4 thentext1(0).text = round(v

44、al(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)

45、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).te

46、xt) + val(text3(23).text) / 600) 4), 3)text2(0).text = round(val(text2(0).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4), 3)text2(1).text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + val(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text)

47、* (1 + 0.15 * (val(text3(6).text) + val(text3(7).text) / 600) 4), 3)text2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0.15 * (val(text3(8).text) + val(text3(9).text) / 600) 4), 3)text2(5).tex

48、t = round(val(text2(5).text) * (1 + 0.15 * (val(text3(18).text) + val(text3(19).text) / 600) 4), 3)command2.caption = "根據(jù)分配ad后的阻抗求分配ba后交通量"command1.caption = "分配ad后的阻抗"elseif j = 5 thentext1(0).text = round(val(text1(0).text) * (1 + 0.15 * (val(text3(0).text) + val(text3(1).text)

49、 / 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(

50、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(0).text = round(val(text2(0

51、).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4), 3)text2(1).text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + val(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text) * (1 + 0.15 * (val(text3(6).text) + val(text3(7).text) / 600) 4), 3)text

52、2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0.15 * (val(text3(8).text) + val(text3(9).text) / 600) 4), 3)text2(5).text = round(val(text2(5).text) * (1 + 0.15 * (val(text3(18).text) + val(te

53、xt3(19).text) / 600) 4), 3)command2.caption = "根據(jù)分配ba后的阻抗分配bc后交通量"command1.caption = "分配ba后的阻抗"elseif j = 6 thentext1(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

54、(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(te

55、xt1(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(0).text = round(val(text2(0).text) * (1 + 0.15 * (val(text3(4).text) + val(text3(5).text) / 600) 4),

56、 3)text2(1).text = round(val(text2(1).text) * (1 + 0.15 * (val(text3(14).text) + val(text3(15).text) / 600) 4), 3)text2(2).text = round(val(text2(2).text) * (1 + 0.15 * (val(text3(6).text) + val(text3(7).text) / 600) 4), 3)text2(3).text = round(val(text2(3).text) * (1 + 0.15 * (val(text3(16).text) + val(text3(17).text) / 600) 4), 3)text2(4).text = round(val(text2(4).text) * (1 + 0.15 * (val(text3(8).text) + val(text3