ant.frm

智能搜索-寻路演示

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H0000C000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   6165
   ClientLeft      =   75
   ClientTop       =   360
   ClientWidth     =   9360
   FillColor       =   &H000040C0&
   ForeColor       =   &H000000FF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   411
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   624
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text5 
      Height          =   270
      Left            =   8280
      TabIndex        =   7
      Text            =   "9"
      Top             =   2280
      Width           =   375
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   375
      Left            =   0
      Max             =   300
      TabIndex        =   6
      Top             =   5880
      Value           =   100
      Width           =   7335
   End
   Begin VB.CommandButton Command2 
      Caption         =   "设置"
      Height          =   405
      Left            =   7680
      TabIndex        =   5
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   330
      Left            =   8280
      TabIndex        =   4
      Text            =   "30"
      Top             =   840
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   330
      Left            =   8280
      TabIndex        =   1
      Text            =   "30"
      Top             =   360
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始"
      Enabled         =   0   'False
      Height          =   450
      Left            =   7740
      TabIndex        =   0
      Top             =   4350
      Width           =   1005
   End
   Begin VB.Label Label5 
      Caption         =   "斜走和直走所经过的格子是一样多的      演示 速度  (注意目标有8个方向可以移动)"
      Height          =   255
      Left            =   360
      TabIndex        =   11
      Top             =   5640
      Width           =   6855
   End
   Begin VB.Label Label4 
      Caption         =   "慢"
      Height          =   255
      Left            =   7320
      TabIndex        =   10
      Top             =   5640
      Width           =   255
   End
   Begin VB.Label Label3 
      Caption         =   "快"
      Height          =   255
      Left            =   0
      TabIndex        =   9
      Top             =   5640
      Width           =   255
   End
   Begin VB.Label Label2 
      Caption         =   "小块宽度   9--30"
      Height          =   375
      Left            =   7440
      TabIndex        =   8
      Top             =   2280
      Width           =   735
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "列数："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   1
      Left            =   7560
      TabIndex        =   3
      Top             =   840
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "行数："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   7560
      TabIndex        =   2
      Top             =   420
      Width           =   630
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub Command1_Click()
'开始－暂停－继续
Dim i As Integer
   Call main



End Sub

Private Sub Command2_Click()
'重设按钮
Init_Form
Command1.Enabled = True
End Sub



Private Sub Form_Load()
Init_Form
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer, j As Integer

If X <= (Col_Num * a + 31) And Y <= (Row_Num * a + 31) Then
If Button = 1 Then
If Map((X - 30) \ a, (Y - 30) \ a) = 0 Then
Map((X - 30) \ a, (Y - 30) \ a) = 1
Else
Map((X - 30) \ a, (Y - 30) \ a) = 0
End If
For i = 0 To Col_Num + 1
For j = 0 To Row_Num + 1
If Map(i, j) = 1 Then Call draw_dead_ant(i, j)
If Map(i, j) = 0 Then Call Clear_deadant(i, j)
Form1.Line (30 + xst * a + 2, 30 + yst * a + 2)-Step(a - 4, a - 4), vbCyan, BF
Form1.Line (30 + xds * a + 2, 30 + yds * a + 2)-Step(a - 4, a - 4), vbMagenta, BF

'DoEvents
Next
Next
ElseIf Button = 2 Then
If Qsd = False Then
Form1.Line (30 + xst * a + 2, 30 + yst * a + 2)-Step(a - 4, a - 4), Form1.BackColor, BF
xst = (X - 30) \ a: yst = (Y - 30) \ a
Form1.Line (30 + xst * a + 2, 30 + yst * a + 2)-Step(a - 4, a - 4), vbCyan, BF

Else
Form1.Line (30 + xds * a + 2, 30 + yds * a + 2)-Step(a - 4, a - 4), Form1.BackColor, BF

xds = (X - 30) \ a: yds = (Y - 30) \ a
Form1.Line (30 + xds * a + 2, 30 + yds * a + 2)-Step(a - 4, a - 4), vbMagenta, BF
End If
Qsd = Not Qsd
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer, j As Integer
If Button = 1 Then
If X <= (Col_Num * a + 31) And Y <= (Row_Num * a + 31) Then
Map((X - 30) \ a, (Y - 30) \ a) = 1
For i = 0 To Col_Num + 1
For j = 0 To Row_Num + 1
If Map(i, j) = 1 Then Call draw_dead_ant(i, j)
'DoEvents

Next
Next
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Run = False
End
End Sub




Private Sub HScroll1_Change()
SleepTimes = HScroll1.Value
End Sub