Игра про хрюшек в Visual Studio

[Rozalina]

нам задали написать код для настольной игры "Pass the Pigs" в Visual Basic
суть игры: кидаешь 2х хрюшек и в зависимости от того как они лягут начисляются очки.
мне нужна помощь с кодом, я совсем новичек и это мой первый класс по программированию, буду рада любым советам
если кто пожелает помочь то напишу все подробно.
Спасибо

[Rozalina]

ну наверно сразу напишу
правила простые играют 2 игрока, выигрывает тот кто первый наберет 100 очков или больше.
игрок может кидать хрюшек сколько хочет раз, очки за каждый бросок суммируются, но могут сгореть если выпадет "Pig-Out"(сгорают очки за ход) и ход переходить к следующему игроку или первый игрок может передать ход сам тогда очки набранные за ход сохраняются, хотя они тоже могут сгореть если выпадет "Oinker"
я написала код чтобы картинки и очки за бросок выводились в интерфейс , но не знаю как передавать ход.
это правила игры http://passpigs.tripod.com/rules.html

[Rozalina]

это мой код

Private Sub btnRoll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        Dim Roll(1) As Integer
        Dim intRoll1 As Integer
        Dim intRoll2 As Integer
        Dim intTotalscore As Integer
        Dim intRollScore As Integer
        Dim intTurnScore As Integer

        intTurnScore = 0
        intTotalscore = 0


        For intX As Integer = 0 To 1
            Roll(intX) = Int(Rnd() * 100) + 1
        Next intX
        For intX As Integer = 0 To 1
            If Roll(intX) >= 0 AndAlso Roll(intX) <= 34 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Pink.png")
                    intRoll1 = 1
                Else

                    PictureBox2.Image = Image.FromFile("Pink.png")
                    intRoll2 = 1
                End If
            ElseIf Roll(intX) >= 35 AndAlso Roll(intX) <= 64 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Dot.png")
                    intRoll1 = 2
                Else
                    PictureBox2.Image = Image.FromFile("Dot.png")
                    intRoll2 = 2
                End If
            ElseIf Roll(intX) >= 65 AndAlso Roll(intX) <= 84 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Razorback.png")
                    intRoll1 = 3
                Else
                    PictureBox2.Image = Image.FromFile("Razorback.png")
                    intRoll2 = 3
                End If

            ElseIf Roll(intX) >= 85 AndAlso Roll(intX) <= 94 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Trotter.png")
                    intRoll1 = 4
                Else
                    PictureBox2.Image = Image.FromFile("Trotter.png")
                    intRoll2 = 4
                End If

            ElseIf Roll(intX) >= 95 AndAlso Roll(intX) <= 98 Then
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Snouter.png")
                    intRoll1 = 5
                Else
                    PictureBox2.Image = Image.FromFile("Snouter.png")
                    intRoll2 = 5
                End If

            Else
                If intX = 0 Then
                    PictureBox1.Image = Image.FromFile("Leaning Jowler.png")
                    intRoll1 = 6
                Else
                    PictureBox2.Image = Image.FromFile("Leaning Jowler.png")
                    intRoll2 = 6
                End If

            End If
        Next intX


        If intRoll1 = 1 AndAlso intRoll2 = 1 OrElse intRoll1 = 2 AndAlso intRoll2 = 2 Then
            intRollScore = 1
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 3 OrElse intRoll1 = 1 AndAlso intRoll2 = 4 OrElse intRoll1 = 2 AndAlso intRoll2 = 3 OrElse
            intRoll1 = 2 AndAlso intRoll2 = 4 OrElse intRoll1 = 3 AndAlso intRoll2 = 1 OrElse intRoll1 = 4 AndAlso intRoll2 = 1 OrElse intRoll1 = 3 AndAlso
            intRoll2 = 2 OrElse intRoll1 = 4 AndAlso intRoll2 = 2 Then
            intRollScore = 5
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 1 OrElse intRoll1 = 2 AndAlso intRoll2 = 5 OrElse
            intRoll1 = 5 AndAlso intRoll2 = 2 OrElse intRoll1 = 3 AndAlso intRoll2 = 4 OrElse intRoll1 = 4 AndAlso intRoll2 = 3 Then
            intRollScore = 10
        ElseIf intRoll1 = 1 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 1 OrElse intRoll1 = 2 AndAlso
            intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 2 OrElse intRoll1 = 3 AndAlso intRoll2 = 5 OrElse
            intRoll1 = 5 AndAlso intRoll2 = 3 OrElse intRoll1 = 4 AndAlso intRoll2 = 5 OrElse intRoll1 = 5 AndAlso intRoll2 = 4 Then
            intRollScore = 15
        ElseIf intRoll1 = 3 AndAlso intRoll2 = 3 OrElse intRoll1 = 4 AndAlso intRoll2 = 4 OrElse intRoll1 = 4 AndAlso
            intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 4 OrElse intRoll1 = 3 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 3 Then
            intRollScore = 20
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 5 Then
            intRollScore = 25
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 5 Then
            intRollScore = 40
        ElseIf intRoll1 = 6 AndAlso intRoll2 = 6 Then
            intRollScore = 60
        Else
            intRollScore = 0
        End If

        
        If intRollScore = 0 Then
            intTurnScore = 0
            btnRoll.Enabled = False
        Else
            intTurnScore = +intRollScore

        End If
        lblRollScore.Text = intRollScore.ToString("N0")
        lblTurnScore.Text = intTurnScore.ToString("N0")
    End Sub

    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

[Rozalina]

а мне никто не хочет помогать

[Abstraction]

а мне никто не хочет помогать

Видимо потому, что не так много людей пишут на Visual Basic .NET.

Я бы советовал вынести код вычисления intRollScore в отдельную функцию, принимающую только intRoll1 и intRoll2. Также стоит сделать функцию, принимающую PictureBox и возвращающую Integer - функцию "осуществления броска"; она вызывается два раза - один раз с аргументом PictureBox1 и возвращаемый результата записывается в intRoll1, второй раз с аргументом PictureBox2 и результат записывается в intRoll2.
После чего стоит убедиться, что всё работает точно так же, как и сейчас (такое преобразование кода, которое не меняет его наблюдаемого поведения, называется рефакторингом).

Затем (если я правильно понимаю правила игры) можно ввести понятие "текущего игрока". Нажатие на кнопку "передать ход" меняет текущего игрока, нажатие на кнопку "сделать бросок" вызывает только одну функцию "осуществления броска", соответствующую текущему игроку.

[was3110]

Как передается ход?
поскольку игроков всего два, то достаточно ввести одну логическую переменную модуля и переключать ее при каждом ходе. Значение этой переменной использовать в условиях... (кому начислять очки и т.д.)

[Rozalina]

спасибо за ответ
я думала чтоб вынести в отдельную функцию, правда для вычисления intTurnScore, что то не получилось, попробую как вы советуете
пошла осмысливать))

[Rozalina]

Сообщение от was3110

Как передается ход?
поскольку игроков всего два, то достаточно ввести одну логическую переменную модуля и переключать ее при каждом ходе. Значение этой переменной использовать в условиях... (кому начислять очки и т.д.)

что то вроде этого?

Private intTurn As Integer
intTurn=+1
If intTurn Mod 2 = 1 
 то игрок 1
Else
игрок 2

а где счетчик написать?

[was3110]

Private intTurn As Boolean // описание в разделе модуля, выше всех процедур

//в процедуре очередного хода
intTurn=Not (intTurn)
If intTurn то игрок 1
Else игрок 2

[Rozalina]

Сообщение от was3110

Private intTurn As Boolean // описание в разделе модуля, выше всех процедур

//в процедуре очередного хода
intTurn=Not (intTurn)
If intTurn то игрок 1
Else игрок 2

спасибо