คนเก่ง vb6 ช่วยหน่อยคับ

โปรแกรมหาเส้นทางที่สั้นที่สุด โดยใช้vb6 อะคับด่วนมากเลยช่วยหน่อยนะครับ เอาดาต้าฮาร์โคดไปเลยอะครับ wanwan044

:wanwan031:ช่วยหน่อยนะคับ
ช่วยแนะนำในเมล์ก้อได้คับ [email protected]

Option Explicit

Private Sub Form_Load()
Dim s() As Double
Dim complete As Boolean
Dim sel As Integer
Dim d As Integer
Dim a1(96, 4) As Double
Dim a2() As Double
Dim a3() As Double
Dim i As Integer
Dim j As Integer
Dim t As Integer
Dim ts As Integer
Dim tc As Integer
Dim Y As Integer
Dim N As Integer
Dim selflag As Boolean
Dim sourcebuffer As String

a1(0, 0) = 1
a1(1, 0) = 2
a1(2, 0) = 3
a1(3, 0) = 3
a1(4, 0) = 4
a1(5, 0) = 4
a1(6, 0) = 5
a1(7, 0) = 5
a1(8, 0) = 5
a1(9, 0) = 6
a1(10, 0) = 6
a1(11, 0) = 7
a1(12, 0) = 7
a1(13, 0) = 7
a1(14, 0) = 7
a1(15, 0) = 8
a1(16, 0) = 9
a1(17, 0) = 9
a1(18, 0) = 10
a1(19, 0) = 10
a1(20, 0) = 11
a1(21, 0) = 11
a1(22, 0) = 12
a1(23, 0) = 12
a1(24, 0) = 13
a1(25, 0) = 13
a1(26, 0) = 14
a1(27, 0) = 14
a1(28, 0) = 14
a1(29, 0) = 15
a1(30, 0) = 15
a1(31, 0) = 16
a1(32, 0) = 16
a1(33, 0) = 16
a1(34, 0) = 17
a1(35, 0) = 17
a1(36, 0) = 18
a1(37, 0) = 18
a1(38, 0) = 19
a1(39, 0) = 19
a1(40, 0) = 19
a1(41, 0) = 20
a1(42, 0) = 21
a1(43, 0) = 21
a1(44, 0) = 22
a1(45, 0) = 22
a1(46, 0) = 23
a1(47, 0) = 23
a1(48, 0) = 23
a1(49, 0) = 24
a1(50, 0) = 24
a1(51, 0) = 25
a1(52, 0) = 25
a1(53, 0) = 25
a1(54, 0) = 26
a1(55, 0) = 27
a1(56, 0) = 27
a1(57, 0) = 28
a1(58, 0) = 29
a1(59, 0) = 29
a1(60, 0) = 29
a1(61, 0) = 30
a1(62, 0) = 30
a1(63, 0) = 30
a1(64, 0) = 31
a1(65, 0) = 31
a1(66, 0) = 32
a1(67, 0) = 32
a1(68, 0) = 33
a1(69, 0) = 33
a1(70, 0) = 34
a1(71, 0) = 34
a1(72, 0) = 35
a1(73, 0) = 35
a1(74, 0) = 36
a1(75, 0) = 36
a1(76, 0) = 37
a1(77, 0) = 37
a1(78, 0) = 38
a1(79, 0) = 38
a1(80, 0) = 39
a1(81, 0) = 39
a1(82, 0) = 40
a1(83, 0) = 40
a1(84, 0) = 41
a1(85, 0) = 41
a1(86, 0) = 41
a1(87, 0) = 42
a1(88, 0) = 42
a1(89, 0) = 42
a1(90, 0) = 42
a1(91, 0) = 43
a1(92, 0) = 45
a1(93, 0) = 45
a1(94, 0) = 46
a1(95, 0) = 47

a1(0, 1) = 3
a1(1, 1) = 4
a1(2, 1) = 1
a1(3, 1) = 5
a1(4, 1) = 2
a1(5, 1) = 7
a1(6, 1) = 3
a1(7, 1) = 6
a1(8, 1) = 9
a1(9, 1) = 7
a1(10, 1) = 5
a1(11, 1) = 8
a1(12, 1) = 8
a1(13, 1) = 6
a1(14, 1) = 4
a1(15, 1) = 10
a1(16, 1) = 5
a1(17, 1) = 11
a1(18, 1) = 8
a1(19, 1) = 12
a1(20, 1) = 9
a1(21, 1) = 13
a1(22, 1) = 10
a1(23, 1) = 14
a1(24, 1) = 11
a1(25, 1) = 16
a1(26, 1) = 12
a1(27, 1) = 18
a1(28, 1) = 15
a1(29, 1) = 16
a1(30, 1) = 14
a1(31, 1) = 13
a1(32, 1) = 17
a1(33, 1) = 15
a1(34, 1) = 16
a1(35, 1) = 19
a1(36, 1) = 14
a1(37, 1) = 21
a1(38, 1) = 23
a1(39, 1) = 17
a1(40, 1) = 20
a1(41, 1) = 19
a1(42, 1) = 22
a1(43, 1) = 18
a1(44, 1) = 23
a1(45, 1) = 21
a1(46, 1) = 22
a1(47, 1) = 24
a1(48, 1) = 19
a1(49, 1) = 23
a1(50, 1) = 25
a1(51, 1) = 27
a1(52, 1) = 24
a1(53, 1) = 26
a1(54, 1) = 25
a1(55, 1) = 25
a1(56, 1) = 29
a1(57, 1) = 29
a1(58, 1) = 27
a1(59, 1) = 28
a1(60, 1) = 30
a1(61, 1) = 29
a1(62, 1) = 32
a1(63, 1) = 31
a1(64, 1) = 33
a1(65, 1) = 30
a1(66, 1) = 30
a1(67, 1) = 34
a1(68, 1) = 31
a1(69, 1) = 35
a1(70, 1) = 36
a1(71, 1) = 32
a1(72, 1) = 33
a1(73, 1) = 37
a1(74, 1) = 34
a1(75, 1) = 39
a1(76, 1) = 35
a1(77, 1) = 38
a1(78, 1) = 40
a1(79, 1) = 37
a1(80, 1) = 42
a1(81, 1) = 36
a1(82, 1) = 41
a1(83, 1) = 38
a1(84, 1) = 40
a1(85, 1) = 42
a1(86, 1) = 46
a1(87, 1) = 44
a1(88, 1) = 43
a1(89, 1) = 39
a1(90, 1) = 41
a1(91, 1) = 42
a1(92, 1) = 47
a1(93, 1) = 43
a1(94, 1) = 41
a1(95, 1) = 45

a1(0, 3) = 50
a1(1, 3) = 96
a1(2, 3) = 57
a1(3, 3) = 14
a1(4, 3) = 169
a1(5, 3) = 96
a1(6, 3) = 8
a1(7, 3) = 260
a1(8, 3) = 76
a1(9, 3) = 78
a1(10, 3) = 58
a1(11, 3) = 96
a1(12, 3) = 240
a1(13, 3) = 58
a1(14, 3) = 240
a1(15, 3) = 74
a1(16, 3) = 69
a1(17, 3) = 83
a1(18, 3) = 55
a1(19, 3) = 87
a1(20, 3) = 96
a1(21, 3) = 78
a1(22, 3) = 96
a1(23, 3) = 87
a1(24, 3) = 96
a1(25, 3) = 89
a1(26, 3) = 96
a1(27, 3) = 55
a1(28, 3) = 85
a1(29, 3) = 58
a1(30, 3) = 74
a1(31, 3) = 58
a1(32, 3) = 78
a1(33, 3) = 55
a1(34, 3) = 58
a1(35, 3) = 22
a1(36, 3) = 85
a1(37, 3) = 56
a1(38, 3) = 62
a1(39, 3) = 85
a1(40, 3) = 76
a1(41, 3) = 69
a1(42, 3) = 133
a1(43, 3) = 96
a1(44, 3) = 62
a1(45, 3) = 96
a1(46, 3) = 96
a1(47, 3) = 55
a1(48, 3) = 69
a1(49, 3) = 96
a1(50, 3) = 51
a1(51, 3) = 51
a1(52, 3) = 74
a1(53, 3) = 231
a1(54, 3) = 47
a1(55, 3) = 74
a1(56, 3) = 51
a1(57, 3) = 74
a1(58, 3) = 74
a1(59, 3) = 15
a1(60, 3) = 56
a1(61, 3) = 74
a1(62, 3) = 65
a1(63, 3) = 69
a1(64, 3) = 99
a1(65, 3) = 36
a1(66, 3) = 52
a1(67, 3) = 69
a1(68, 3) = 63
a1(69, 3) = 95
a1(70, 3) = 95
a1(71, 3) = 63
a1(72, 3) = 63
a1(73, 3) = 102
a1(74, 3) = 63
a1(75, 3) = 111
a1(76, 3) = 63
a1(77, 3) = 103
a1(78, 3) = 55
a1(79, 3) = 63
a1(80, 3) = 56
a1(81, 3) = 63
a1(82, 3) = 99
a1(83, 3) = 36
a1(84, 3) = 58
a1(85, 3) = 96
a1(86, 3) = 55
a1(87, 3) = 58
a1(88, 3) = 42
a1(89, 3) = 47
a1(90, 3) = 58
a1(91, 3) = 42
a1(92, 3) = 90
a1(93, 3) = 47
a1(94, 3) = 85
a1(95, 3) = 85

complete.Enabled = False
Source buffer.Enabled = s()
Source buffer.Enabled = s(s)
selflag.Enabled = False
sel.Enabled = s
t.Enabled = 0
ts.Enabled = 0
tc.Enabled = 0

If complete = True Then
   sel = d
   While complete = False
   For j = 1 To Length
   While sourcebuffer(j) = s()
   For i = 1 To UBound(s()) - Row
   If selflag = False Then
   If sourcebuffer(j) = a1(i, 1) Then
   .Add a2()
   i = i + 1
   Else
   i = i + 1
   End If
   j = j + 1
   End If
   Next i
   Loop
   Next j
   Loop
End If
.Add a3()
Update selflag = True
Update sel = s + 1
Reset i, j = 1
Update complete = True

End Sub