Разработка программы «Лабиринт»

            Ход()

            st = s

            sr = r

            st = s

            mas(r, c) = 1

            mas(rn, cn) = 0

            r = rn

            c = cn

            Проверка()

            s = s + 1

        End If

        If mas(rn, cn) = 1 And ((r = rn And Math.Abs(c - cn) = 1) Or (c = cn And Math.Abs(r - rn) = 1)) And ((mask(rn, cn) = 1 And KA = 1) Or (mask(rn, cn) = 2 And KB = 1) Or (mask(rn, cn) = 3 And KC = 1) Or (mask(rn, cn) = 4 And KD = 1) Or (mask(rn, cn) = 5 And KE = 1) Or (mask(rn, cn) = 6 And KF = 1) Or (mask(rn, cn) = 7 And KG = 1)) Then

            Ход()

            st = s

            sr = r

            st = s

            mas(r, c) = 1

            mas(rn, cn) = 0

            r = rn

            c = cn

            Проверка()

            s = s + 1

        End If

       Label2.Text = s

        If mas(7, 7) = 0 And KG = 1 Then

            Label2.Text = ("КОНЕЦ ИГРЫ!!! ПОЗДРАВЛЯЕМ!!!") 

        End If

2:      Me.Refresh() 

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles L.Paint

        Dim i, j As Byte

        For i = 1 To 7

            For j = 1 To 7

                If mas(i, j) = 0 Then e.Graphics.DrawImage(IL.Images(0), (j - 1) * p + 7, (i - 1) * p + 7)

            Next j

        Next i

    End Sub 

    Private Sub НазадToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НазадToolStripMenuItem.Click

        'Здесь мы описываем команду назад

        For i = 1 To 13

            For j = 1 To 15

                mas(i, j) = smas(i, j)

            Next

        Next

        c = sc

        r = sr

        Label2.Text = st

        s = st

        KA = sKA

        KB = sKB

        KC = sKC

        KD = sKD

        KE = sKE

        KF = sKF

        KG = sKG

        Label3.Text = "   Ключ А-" + KA + "   Ключ B-" + KB + "   Ключ C-" + KC + "   Ключ D-" + KD + "   Ключ E-" + KE + "   Ключ F-" + KF + "   Ключ G-" + KG

        Me.Refresh()

    End Sub

    Sub Ход()

        'Здесь мы описываем как будет сохрянться наш бывший ход

        For i = 1 To 13

            For j = 1 To 15

                smas(i, j) = mas(i, j)

            Next

        Next 

    End Sub

    Sub Проверка()

        sKA = KA

        sKB = KB

        sKC = KC

        sKD = KD

        sKE = KE

        sKF = KF

        sKG = KG

        If mask(r, c) = 8 Then

            KA = 1

        End If

        If mask(r, c) = 9 Then

            KB = 1

        End If

        If mask(r, c) = 10 Then

            KC = 1

        End If

        If mask(r, c) = 11 Then

            KD = 1

        End If

        If mask(r, c) = 12 Then

            KE = 1

        End If

        If mask(r, c) = 13 Then

            KF = 1

        End If

        If mask(r, c) = 14 Then

            KG = 1

        End If

        Label3.Text = "   Ключ А-" + KA + "   Ключ B-" + KB + "   Ключ C-" + KC + "   Ключ D-" + KD + "   Ключ E-" + KE + "   Ключ F-" + KF + "   Ключ G-" + KG

    End Sub 

    Private Sub ПравилаИгрыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПравилаИгрыToolStripMenuItem.Click

        MsgBox("Каземат, расположенный в подвале замка средневекового феодала, состоит из 49 комнат. В семи камерах, обозначенных на плане подземелья буквами A,B,C,D,E,F,G, есть по одной двери, открывающейся только ключом. Причем ключ от двери А находится в камере a, ключи от двери B,C,D,E,F,G находятся в b,c,d,e,f,g  соответственно. Остальные двери открываются простым нажимом на ручку , но ручка находится только с одной стороны двери, и дверь, после того как оно пройдена,  автоматически захлопывается. На плане подземелья показано, в какую сторону можно пройти через каждую дверь, открывающуюся без ключа. Двери, запертые на ключ, отмечены на плане жирными полосками. Через одну и ту же дверь разрешается проходить любое число раз соблюдая условия, при которых она открывается. Узник находится в камере, отмеченной на плане знаком «*». Нужно узнать ему путь на свободу.", MsgBoxStyle.OkOnly, "Правила игры ''лабиринт''")

    End Sub 

    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

        If MsgBox("Вы действительно хотите  выйти?", MsgBoxStyle.YesNo, "Выход") = MsgBoxResult.Yes Then Me.Close() 

    End Sub

   

    Private Sub ОбИгреToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОбИгреToolStripMenuItem.Click

        MsgBox("Программа разработана студентом группы Прикладная информатика в экономике СибАДИ Названов П. А. в качестве выполнения практической части курсовой работы по вычислительной математике и программированию", MsgBoxStyle.OkOnly, "Об игре ''лабиринт''")

    End Sub 

    Private Sub НоваяИграToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НоваяИграToolStripMenuItem.Click

        newgame()

    End Sub

End Class