Sub Command2_Click()
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (-9, 7), 0.45, vbRed
x = -9
y = 7
Time = 15
MsgBox "Ó âàñ 15 ñåêóíä äëÿ ïðîõîæäåíèÿ ëàáèðèíòà"
Time.Visible = True
End Sub
Private Sub Command3_Click()
Picture1.Cls
Command1_Click
If Sqr((12 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) - 8) ^ 2) + Sqr((12 - x) ^ 2 + (8 - (y + 1)) ^ 2) _
Or Sqr((-6 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) - 6) ^ 2) + Sqr((-6 - x) ^ 2 + (6 - (y + 1)) ^ 2) _
Or Sqr((1 + 4) ^ 2 + (0) ^ 2) = Sqr((x + 4) ^ 2 + ((y + 1) - 6) ^ 2) + Sqr((1 - x) ^ 2 + (6 - (y + 1)) ^ 2) _
Or Sqr((6 - 3) ^ 2 + (0) ^ 2) = Sqr((x - 3) ^ 2 + ((y + 1) - 6) ^ 2) + Sqr((6 - x) ^ 2 + (6 - (y + 1)) ^ 2) _
Or Sqr((10 - 8) ^ 2 + (0) ^ 2) = Sqr((x - 8) ^ 2 + ((y + 1) - 6) ^ 2) + Sqr((10 - x) ^ 2 + (6 - (y + 1)) ^ 2) _
Or Sqr((-6 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) - 4) ^ 2) + Sqr((-6 - x) ^ 2 + (4 - (y + 1)) ^ 2) _
Or Sqr((1 + 2) ^ 2 + (0) ^ 2) = Sqr((x + 2) ^ 2 + ((y + 1) - 4) ^ 2) + Sqr((1 - x) ^ 2 + (4 - (y + 1)) ^ 2) _
Or Sqr((-4 + 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y + 1) - 2) ^ 2) + Sqr((-4 - x) ^ 2 + (2 - (y + 1)) ^ 2) _
Or Sqr((3 + 2) ^ 2 + (0) ^ 2) = Sqr((x + 2) ^ 2 + ((y + 1) - 2) ^ 2) + Sqr((3 - x) ^ 2 + (2 - (y + 1)) ^ 2) _
Or Sqr((4 + 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y + 1) - 0) ^ 2) + Sqr((4 - x) ^ 2 + (0 - (y + 1)) ^ 2) _
Or Sqr((-2 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) + 2) ^ 2) + Sqr((-2 - x) ^ 2 + (-2 - (y + 1)) ^ 2) _
Or Sqr((2 - 0) ^ 2 + (0) ^ 2) = Sqr((x - 0) ^ 2 + ((y + 1) + 2) ^ 2) + Sqr((2 - x) ^ 2 + (-2 - (y + 1)) ^ 2) _
Or Sqr((-2 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) + 4) ^ 2) + Sqr((-2 - x) ^ 2 + (-4 - (y + 1)) ^ 2) _
Or Sqr((0 - 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y + 1) + 6) ^ 2) + Sqr((0 - x) ^ 2 + (-6 - (y + 1)) ^ 2) _
Or Sqr((2 - 4) ^ 2 + (0) ^ 2) = Sqr((x - 4) ^ 2 + ((y + 1) + 6) ^ 2) + Sqr((2 - x) ^ 2 + (-6 - (y + 1)) ^ 2) _
Or Sqr((8 - 6) ^ 2 + (0) ^ 2) = Sqr((x - 6) ^ 2 + ((y + 1) + 6) ^ 2) + Sqr((8 - x) ^ 2 + (-6 - (y + 1)) ^ 2) _
Or Sqr((12 - 10) ^ 2 + (0) ^ 2) = Sqr((x - 10) ^ 2 + ((y + 1) + 6) ^ 2) + Sqr((12 - x) ^ 2 + (-6 - (y + 1)) ^ 2) _
Or Sqr((12 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y + 1) + 8) ^ 2) + Sqr((12 - x) ^ 2 + (-8 - (y + 1)) ^ 2) Then
MsgBox "Ââåðõó òóïèê"
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, y), 0.45, vbRed
Else
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, (y + 1)), 0.45, vbRed
y = y + 1
End If
End Sub
Private Sub Command4_Click()
Picture1.Cls
Command1_Click
If Sqr((-6 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) - 6) ^ 2) + Sqr((-6 - x) ^ 2 + (6 - (y - 1)) ^ 2) _
Or Sqr((12 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) - 8) ^ 2) + Sqr((12 - x) ^ 2 + (8 - (y - 1)) ^ 2) _
Or Sqr((1 + 4) ^ 2 + (0) ^ 2) = Sqr((x + 4) ^ 2 + ((y - 1) - 6) ^ 2) + Sqr((1 - x) ^ 2 + (6 - (y - 1)) ^ 2) _
Or Sqr((6 - 3) ^ 2 + (0) ^ 2) = Sqr((x - 3) ^ 2 + ((y - 1) - 6) ^ 2) + Sqr((6 - x) ^ 2 + (6 - (y - 1)) ^ 2) _
Or Sqr((10 - 8) ^ 2 + (0) ^ 2) = Sqr((x - 8) ^ 2 + ((y - 1) - 6) ^ 2) + Sqr((10 - x) ^ 2 + (6 - (y - 1)) ^ 2) _
Or Sqr((-6 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) - 4) ^ 2) + Sqr((-6 - x) ^ 2 + (4 - (y - 1)) ^ 2) _
Or Sqr((1 + 2) ^ 2 + (0) ^ 2) = Sqr((x + 2) ^ 2 + ((y - 1) - 4) ^ 2) + Sqr((1 - x) ^ 2 + (4 - (y - 1)) ^ 2) _
Or Sqr((-4 + 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y - 1) - 2) ^ 2) + Sqr((-4 - x) ^ 2 + (2 - (y - 1)) ^ 2) _
Or Sqr((3 + 2) ^ 2 + (0) ^ 2) = Sqr((x + 2) ^ 2 + ((y - 1) - 2) ^ 2) + Sqr((3 - x) ^ 2 + (2 - (y - 1)) ^ 2) _
Or Sqr((4 + 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y - 1) - 0) ^ 2) + Sqr((4 - x) ^ 2 + (0 - (y - 1)) ^ 2) _
Or Sqr((-2 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) + 2) ^ 2) + Sqr((-2 - x) ^ 2 + (-2 - (y - 1)) ^ 2) _
Or Sqr((2 - 0) ^ 2 + (0) ^ 2) = Sqr((x - 0) ^ 2 + ((y - 1) + 2) ^ 2) + Sqr((2 - x) ^ 2 + (-2 - (y - 1)) ^ 2) _
Or Sqr((-2 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) + 4) ^ 2) + Sqr((-2 - x) ^ 2 + (-4 - (y - 1)) ^ 2) _
Or Sqr((0 - 8) ^ 2 + (0) ^ 2) = Sqr((x + 8) ^ 2 + ((y - 1) + 6) ^ 2) + Sqr((0 - x) ^ 2 + (-6 - (y - 1)) ^ 2) _
Or Sqr((2 - 4) ^ 2 + (0) ^ 2) = Sqr((x - 4) ^ 2 + ((y - 1) + 6) ^ 2) + Sqr((2 - x) ^ 2 + (-6 - (y - 1)) ^ 2) _
Or Sqr((8 - 6) ^ 2 + (0) ^ 2) = Sqr((x - 6) ^ 2 + ((y - 1) + 6) ^ 2) + Sqr((8 - x) ^ 2 + (-6 - (y - 1)) ^ 2) _
Or Sqr((12 - 10) ^ 2 + (0) ^ 2) = Sqr((x - 10) ^ 2 + ((y - 1) + 6) ^ 2) + Sqr((12 - x) ^ 2 + (-6 - (y - 1)) ^ 2) _
Or Sqr((12 + 10) ^ 2 + (0) ^ 2) = Sqr((x + 10) ^ 2 + ((y - 1) + 8) ^ 2) + Sqr((12 - x) ^ 2 + (-8 - (y - 1)) ^ 2) Then
MsgBox "Âíèçó òóïèê"
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, y), 0.45, vbRed
Else
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, (y - 1)), 0.45, vbRed
y = y - 1
End If
End Sub
Private Sub Command5_Click()
Picture1.Cls
Command1_Click
If Sqr((12 - 12) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x + 1) - 12) ^ 2 + (y - 8) ^ 2) + Sqr((12 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x + 1) - 10) ^ 2 + (y - 6) ^ 2) + Sqr((10 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x + 1) - 8) ^ 2 + (y - 6) ^ 2) + Sqr((8 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x + 1) - 12) ^ 2 + (y - 8) ^ 2) + Sqr((12 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x + 1) - 6) ^ 2 + (y - 6) ^ 2) + Sqr((6 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 0) ^ 2) = Sqr(((x + 1) - 4) ^ 2 + (y - 0) ^ 2) + Sqr((4 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (2 - 6) ^ 2) = Sqr(((x + 1) - 3) ^ 2 + (y - 6) ^ 2) + Sqr((3 - (x + 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 + 2) ^ 2) = Sqr(((x + 1) - 2) ^ 2 + (y + 2) ^ 2) + Sqr((2 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 6) ^ 2) = Sqr(((x + 1) - 1) ^ 2 + (y - 6) ^ 2) + Sqr((1 - (x + 1)) ^ 2 + (4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 + 2) ^ 2) = Sqr(((x + 1) - 0) ^ 2 + (y + 2) ^ 2) + Sqr((0 - (x + 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-4 + 2) ^ 2) = Sqr(((x + 1) + 2) ^ 2 + (y + 2) ^ 2) + Sqr((-2 - (x + 1)) ^ 2 + (-4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x + 1) + 2) ^ 2 + (y - 4) ^ 2) + Sqr((-2 - (x + 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (2 - 6) ^ 2) = Sqr(((x + 1) + 4) ^ 2 + (y - 6) ^ 2) + Sqr((-4 - (x + 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 6) ^ 2) = Sqr(((x + 1) + 6) ^ 2 + (y - 6) ^ 2) + Sqr((-6 - (x + 1)) ^ 2 + (4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (0 - 2) ^ 2) = Sqr(((x + 1) + 8) ^ 2 + (y - 2) ^ 2) + Sqr((-8 - (x + 1)) ^ 2 + (0 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-8 + 4) ^ 2) = Sqr(((x + 1) + 10) ^ 2 + (y + 4) ^ 2) + Sqr((-10 - (x + 1)) ^ 2 + (-8 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 2) ^ 2) = Sqr(((x + 1) + 2) ^ 2 + (y - 4) ^ 2) + Sqr((-2 - (x + 1)) ^ 2 + (y - 2) ^ 2) _
Or Sqr((0) ^ 2 + (-2 - 4) ^ 2) = Sqr(((x + 1) + 10) ^ 2 + (y - 4) ^ 2) + Sqr((-10 - (x + 1)) ^ 2 + (-2 - y) ^ 2) Then
MsgBox "Âïðàâî òóïèê "
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, y), 0.45, vbRed
Else:
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle ((x + 1), y), 0.45, vbRed
x = x + 1
End If
End Sub
Private Sub Command6_Click()
Picture1.Cls
Command1_Click
If Sqr((12 - 12) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x - 1) - 12) ^ 2 + (y - 8) ^ 2) + Sqr((12 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x - 1) - 10) ^ 2 + (y - 6) ^ 2) + Sqr((10 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x - 1) - 8) ^ 2 + (y - 6) ^ 2) + Sqr((8 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x + 1) - 12) ^ 2 + (y - 8) ^ 2) + Sqr((12 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 6) ^ 2) = Sqr(((x - 1) - 6) ^ 2 + (y - 6) ^ 2) + Sqr((6 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 0) ^ 2) = Sqr(((x - 1) - 4) ^ 2 + (y - 0) ^ 2) + Sqr((4 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (2 - 6) ^ 2) = Sqr(((x - 1) - 3) ^ 2 + (y - 6) ^ 2) + Sqr((3 - (x - 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 + 2) ^ 2) = Sqr(((x - 1) - 2) ^ 2 + (y + 2) ^ 2) + Sqr((2 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 6) ^ 2) = Sqr(((x - 1) - 1) ^ 2 + (y - 6) ^ 2) + Sqr((1 - (x - 1)) ^ 2 + (4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 + 2) ^ 2) = Sqr(((x - 1) - 0) ^ 2 + (y + 2) ^ 2) + Sqr((0 - (x - 1)) ^ 2 + (-6 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-4 + 2) ^ 2) = Sqr(((x - 1) + 2) ^ 2 + (y + 2) ^ 2) + Sqr((-2 - (x - 1)) ^ 2 + (-4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-6 - 8) ^ 2) = Sqr(((x - 1) + 2) ^ 2 + (y - 4) ^ 2) + Sqr((-2 - (x - 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (2 - 6) ^ 2) = Sqr(((x - 1) + 4) ^ 2 + (y - 6) ^ 2) + Sqr((-4 - (x - 1)) ^ 2 + (2 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 6) ^ 2) = Sqr(((x - 1) + 6) ^ 2 + (y - 6) ^ 2) + Sqr((-6 - (x - 1)) ^ 2 + (4 - y) ^ 2) _
Or Sqr((0) ^ 2 + (0 - 2) ^ 2) = Sqr(((x - 1) + 8) ^ 2 + (y - 2) ^ 2) + Sqr((-8 - (x - 1)) ^ 2 + (0 - y) ^ 2) _
Or Sqr((0) ^ 2 + (-8 + 4) ^ 2) = Sqr(((x - 1) + 10) ^ 2 + (y + 4) ^ 2) + Sqr((-10 - (x - 1)) ^ 2 + (-8 - y) ^ 2) _
Or Sqr((0) ^ 2 + (4 - 2) ^ 2) = Sqr(((x - 1) + 2) ^ 2 + (y - 4) ^ 2) + Sqr((-2 - (x - 1)) ^ 2 + (y - 2) ^ 2) _
Or Sqr((0) ^ 2 + (-2 - 4) ^ 2) = Sqr(((x - 1) + 10) ^ 2 + (y - 4) ^ 2) + Sqr((-10 - (x - 1)) ^ 2 + (-2 - y) ^ 2) Then
MsgBox "Âëåâî òóïèê "
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle (x, y), 0.45, vbRed
Else:
Picture1.FillStyle = Solid
Picture1.FillColor = vbRed
Picture1.Circle ((x - 1), y), 0.45, vbRed
x = x - 1
End If
End Sub
Private Sub Command7_Click()
Form4.Show
End Sub
Private Sub Command8_Click()
Form3.Show
End Sub
Private Sub Timer1_Timer()
Time = Val(Time) - 1
If x = 11 And y = -7 Then
MsgBox "Âû ïîáåäèëè"
K = MsgBox("Ïåðåéòè âî-âòîðîé ýòàï ???", 36)
If K = 6 Then
Time.Visible = False
Time = -1
x = 0
Form2.Show
Else
Picture1.Cls
Command1_Click
Command2_Click
End If
End If
If Time = 0 Then
MsgBox "Âàøå âðåìÿ èñòåêëî"
K = MsgBox("Õîòèòå ïîïðîáîâàòü åù¸ ðàç ?", 36)
If K = 6 Then
Command1_Click
Command2_Click
Else: End
End If
End If
End Sub