form4.frm

我用VB做的一个校园导游系统！界面友好

VERSION 5.00
Begin VB.Form Form4 
   BackColor       =   &H00FFFF00&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "路径查询"
   ClientHeight    =   3120
   ClientLeft      =   7035
   ClientTop       =   5940
   ClientWidth     =   6375
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   6375
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command3 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4320
      Picture         =   "Form4.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2040
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H0080FF80&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3015
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Top             =   0
      Width           =   3975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "最佳路径"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4320
      Picture         =   "Form4.frx":44C4
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1200
      Width           =   1695
   End
   Begin VB.CommandButton Command1 
      Caption         =   "所有路径"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4320
      Picture         =   "Form4.frx":8988
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   360
      Width           =   1695
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Dim p(1 To 12) As Integer
Dim s(1 To 12) As Integer
Dim a(1 To 12, 1 To 12) As Integer
Dim w As Integer
Dim c(1 To 100) As Integer
Dim k As Integer
Dim h As Integer
Dim q As Integer
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
Dim dis As Integer


Const MAX = 999

Private Sub Command1_Click()
Text1.Text = "欢迎您使用路径查询系统！" & Chr(13) + Chr(10) + Chr(13) + Chr(10)
k = 1
dis = 0
For i = 1 To 12
  p(i) = 0
  Next i
  For i = 1 To 12
  For j = 1 To 12
    a(i, j) = 0
  Next j
Next i

For i = 1 To 100
   c(i) = 0
   Next i
a(1, 2) = 5
a(2, 1) = 5
a(1, 6) = 4
a(6, 1) = 4
a(1, 7) = 3
a(7, 1) = 3
a(2, 3) = 2
a(3, 2) = 2
a(3, 4) = 2
a(4, 3) = 2
a(3, 5) = 4
a(5, 3) = 4
a(5, 10) = 6
a(10, 5) = 6
a(6, 7) = 5
a(7, 6) = 5
a(6, 8) = 3
a(8, 6) = 3
a(7, 8) = 4
a(8, 7) = 4
a(7, 11) = 2
a(11, 7) = 2
a(7, 12) = 2
a(12, 7) = 2
a(8, 9) = 3
a(9, 8) = 3
a(9, 10) = 3
a(10, 9) = 3
a(10, 11) = 1
a(11, 10) = 1


  Select Case Form1.Text2.Text
    Case Is = "大门"
      n = 1
    Case Is = "食堂"
      n = 2
    Case Is = "图书馆"
      n = 3
    Case Is = "滨河公园"
      n = 4
    Case Is = "宿舍楼"
      n = 5
    Case Is = "报告厅"
      n = 6
    Case Is = "喷泉"
      n = 7
    Case Is = "教学楼"
      n = 8
    Case Is = "商店"
      n = 9
    Case Is = "运动场"
      n = 10
    Case Is = "实验楼"
      n = 11
    Case Is = "物理实验楼"
      n = 12
  End Select
  
  Select Case Form1.Text3.Text
    Case Is = "大门"
      m = 1
    Case Is = "食堂"
      m = 2
    Case Is = "图书馆"
      m = 3
    Case Is = "滨河公园"
      m = 4
    Case Is = "宿舍楼"
      m = 5
    Case Is = "报告厅"
      m = 6
    Case Is = "喷泉"
      m = 7
    Case Is = "教学楼"
      m = 8
    Case Is = "商店"
      m = 9
    Case Is = "运动场"
      m = 10
    Case Is = "实验楼"
      m = 11
    Case Is = "物理实验楼"
      m = 12
  End Select
c(1) = n

Call zuiduan(n, m)

End Sub

Sub zuiduan(n, m)

For i = 1 To 12
  For j = 1 To 12
  a(i, j) = 0
  Next j
Next i
a(1, 2) = 5
a(2, 1) = 5
a(1, 6) = 4
a(6, 1) = 4
a(1, 7) = 3
a(7, 1) = 3
a(2, 3) = 2
a(3, 2) = 2
a(3, 4) = 2
a(4, 3) = 2
a(3, 5) = 4
a(5, 3) = 4
a(5, 10) = 6
a(10, 5) = 6
a(6, 7) = 5
a(7, 6) = 5
a(6, 8) = 3
a(8, 6) = 3
a(7, 8) = 4
a(8, 7) = 4
a(7, 11) = 2
a(11, 7) = 2
a(7, 12) = 2
a(12, 7) = 2
a(8, 9) = 3
a(9, 8) = 3
a(9, 10) = 3
a(10, 9) = 3
a(10, 11) = 1
a(11, 10) = 1


 For q = 1 To 12
loop1:
If q = 13 Then
Exit For
End If
 p(n) = 1
If a(n, q) > 0 And p(q) = 0 Then
  k = k + 1
  p(q) = 1
  c(k) = q

  If q = m Then
   Text1.Text = Text1.Text & "" & Form1.Text2.Text
   dis = 0
   
     For h = 2 To 12
        If c(h) <> 0 Then
        dis = dis + a(c(h - 1), c(h))
          Select Case c(h)
      Case Is = 1
        Text1.Text = Text1.Text & "-->" & "大门"
   
      Case Is = 2
        Text1.Text = Text1.Text & "-->" & "食堂"
  
      Case Is = 3
        Text1.Text = Text1.Text & "-->" & "图书馆"
        
       
      Case Is = 4
        Text1.Text = Text1.Text & "-->" & "滨河公园"
     
      Case Is = 5
        Text1.Text = Text1.Text & "-->" & "宿舍楼"
      
      Case Is = 6
        Text1.Text = Text1.Text & "-->" & "报告厅"
       
      Case Is = 7
        Text1.Text = Text1.Text & "-->" & "喷泉"
       
      Case Is = 8
        Text1.Text = Text1.Text & "-->" & "教学楼"
         
      Case Is = 9
        Text1.Text = Text1.Text & "-->" & "商店"
         
      Case Is = 10
        Text1.Text = Text1.Text & "-->" & "运动场"
         
      Case Is = 11
        Text1.Text = Text1.Text & "-->" & "实验楼"
       
      Case Is = 12
        Text1.Text = Text1.Text & "-->" & "物理实验楼"
      
        
        
           
    End Select
    
       End If
       
      
           
        Next h
        
    Text1.Text = Text1.Text & Chr(13) + Chr(10)
    Text1.Text = Text1.Text & "总路程=" & Val(dis) * 40 & " 米 "
    Text1.Text = Text1.Text & Chr(13) + Chr(10) + Chr(13) + Chr(10)
     dis = 0
     p(m) = 0
     c(k) = 0
     
     q = m + 1
     k = k - 1
     GoTo loop1
  Else: y = q
  
  Call zuiduan(y, m)
   End If
End If
Next q
 If k > 1 Then
 p(n) = 0
 q = c(k) + 1
 c(k) = 0
 
 n = c(k - 1)

k = k - 1
 GoTo loop1
 End If
End Sub

Private Sub Command2_Click()
 Dim s(15) As Integer
 Dim min_dist As Integer
 Dim dis As Integer
 Dim j As Integer
 Dim dist(12) As Integer
 Dim p() As Integer
 Dim i, k As Integer
 Dim n As Integer
 Dim m As Integer
 Dim u As Integer
 Dim pre As Integer
 Dim drawline(20) As Integer
 Dim js As Integer
 
 '初始化画线计数数组
 For js = 1 To 20
   drawline(js) = 0