игра "Pass the Pigs" в Visual Basic

@Розалина · Регистрация: 25.04.2013

Author24 — интернет-сервис помощи студентам

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

Код

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

@Розалина · 28.04.2013, 23:29 **[ТС]**

посмотрите пожалуйста мой код
вроде работает все но не могу сообразить как написать правильно когда выпадает ситуация "Oinker"
это моя первая программа помогите пожалуйста

Код

Public Class Form1
  
    Dim intRollScore As Integer
    Private intTurnScore As Integer
    Private intTotalScore1 As Integer
    Private intTotalScore2 As Integer
    Private intTurn As Integer
    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnRoll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
       
        PictureBox1.Visible = True
        PictureBox2.Visible = True

        Dim Roll(1) As Integer
        Dim intRoll1 As Integer
        Dim intRoll2 As Integer


   
        For intX As Integer = 0 To 1
            Roll(intX) = Int(Rnd() * 1000) + 1
        Next intX
        For intX As Integer = 0 To 1
            Select Case Roll(intX)
                Case 1 To 349
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Pink.png")
                        intRoll1 = 1
                    Else

                        PictureBox2.Image = Image.FromFile("Pink.png")
                        intRoll2 = 1
                    End If
                Case 350 To 649
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Dot.png")
                        intRoll1 = 2
                    Else
                        PictureBox2.Image = Image.FromFile("Dot.png")
                        intRoll2 = 2
                    End If
                Case 650 To 849
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Razorback.png")
                        intRoll1 = 3
                    Else
                        PictureBox2.Image = Image.FromFile("Razorback.png")
                        intRoll2 = 3
                    End If
                Case 850 To 949
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Trotter.png")
                        intRoll1 = 4
                    Else
                        PictureBox2.Image = Image.FromFile("Trotter.png")
                        intRoll2 = 4
                    End If
                Case 950 To 989
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Snouter.png")
                        intRoll1 = 5
                    Else
                        PictureBox2.Image = Image.FromFile("Snouter.png")
                        intRoll2 = 5
                    End If
                Case 990 To 996
                    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
                Case 997 To 1000
                    lblOin.Text = "Oinker"
                    PictureBox1.Image = Image.FromFile("oinker1.png")
                    PictureBox2.Image = Image.FromFile("oinker2.png")
                    intRollScore = 0
                    intTurnScore = 0
                    If lblTurn.Text = "Player 1" Then
                        intTotalScore1 = 0
                    Else
                        intTotalScore2 = 0
                    End If


            End Select
        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 = intTurnScore + intRollScore

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

    Private Sub btnPass_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPass.Click
        lblOin.Text = String.Empty
        intTurn = Not (intTurn)
        btnRoll.Enabled = True

        If intTurn Then
            lblTurn.Text = "Player 2"
            intTotalScore1 += intTurnScore
            lblTotal1.Text = intTotalScore1.ToString("N0")
            txtTurnSc1.Text = txtTurnSc1.Text &
                intTurnScore.ToString("N0") & ControlChars.NewLine

        Else
            lblTurn.Text = "Player 1"
            intTotalScore2 += intTurnScore
            lblTotal2.Text = intTotalScore2.ToString("N0")
            txtTurnSc2.Text = txtTurnSc2.Text &
               intTurnScore.ToString("N0") & ControlChars.NewLine
        End If
        intRollScore = 0
        intTurnScore = 0
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        If intTotalScore1 >= 100 Then
            MessageBox.Show("Player 1 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        ElseIf intTotalScore2 >= 100 Then

            MessageBox.Show("Player 2 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        End If

    End Sub

    Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
        intTotalScore1 = 0
        intTotalScore2 = 0
        intTurnScore = 0
        lblTurn.Text = "Player 1"
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        lblTotal1.Text = String.Empty
        lblTotal2.Text = String.Empty
        txtTurnSc1.Text = String.Empty
        txtTurnSc2.Text = String.Empty
        PictureBox1.Visible = False
        PictureBox2.Visible = False
    End Sub
End Class

~~Release~~ · 29.04.2013, 08:00

Сообщение от Розалина

когда выпадает ситуация "Oinker"

Думаешь все знают такую ситуацию? Помочь не кто не может, потому что не знаю эту игру, опиши задачу так, чтобы ее поняли.

@Розалина · 29.04.2013, 23:51 **[ТС]**

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

Думаешь все знают такую ситуацию? Помочь не кто не может, потому что не знаю эту игру, опиши задачу так, чтобы ее поняли.

извиняюсь что не понятно объяснила игру, я сама если честно эту игру впервые вижу, наверно учитель спецально выбрал ее чтоб готовый код не нашли...
суть игры: кидаешь 2х хрюшек и в зависимости от того как они лягут начисляются очки: хрюшка может упасть на бок(чистый или с черной точкой) 0 очков, на спину5 очков, на ноги 5 очков, на колено 10, на ухо 15, тк хрюшек 2 шт и падают они по разному, то если обе упали на спину то 20 очков, на ноги 20 очков, на колено 40, на ухо 60, если упали по разному то очки просто суммируются (например на спину и на колени 5+10)если обе упали на одинаковый бок, например чистый то 1 очко, если на разные бока то это Pig-Out очки за ход сгорают и ход передается др игроку,
более наглядно здесь http://passpigs.tripod.com/rules.html
играют 2 игрока, выигрывает тот кто первый наберет 100 очков или больше.
игрок может кидать хрюшек сколько хочет раз, очки за каждый бросок суммируются, но могут сгореть если выпадет "Pig-Out"(сгорают очки за ход) и ход переходить к следующему игроку, если хрюшки задевают друг друга то это "Oinker" тогда все очки набранные за игру сгорают и ход переходит к др игроку. Кидать хрюшек за ход можно сколько угодно раз, пока не решишь передать ход или не выпадет Pig-Out или "Oinker" если ход передаешь сам то очки сохраняются ес-но
ну вот надеюсь счас более понятно
но я уже вроде докумекала сама как решить свою проблемку

~~Release~~ · 30.04.2013, 07:28

Сообщение от Розалина

но я уже вроде докумекала сама как решить свою проблемку

Молодец!

@Розалина · 30.04.2013, 22:26 **[ТС]**

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

Молодец!

спасибо

а вообще приятное чуство когда игра которую ты написала сама работает так как нужно

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

Код

Public Class Form1
    
    Dim intRollScore As Integer
    Private intTurnScore As Integer
    Private intTotalScore1 As Integer
    Private intTotalScore2 As Integer
    Private intTurn As Boolean
    Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnRoll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRoll.Click
        
        PictureBox1.Visible = True
        PictureBox2.Visible = True
        lblOin.Visible = True
        Dim Roll(1) As Integer
        Dim intRoll1 As Integer
        Dim intRoll2 As Integer


       
        For intX As Integer = 0 To 1
            Randomize()
            Roll(intX) = Int(Rnd() * 1000) + 1
        Next intX
        For intX As Integer = 0 To 1
            Select Case Roll(intX)
                Case 1 To 349
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Pink.png")
                        intRoll1 = 1
                    Else

                        PictureBox2.Image = Image.FromFile("Pink.png")
                        intRoll2 = 1
                    End If
                Case 350 To 649
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Dot.png")
                        intRoll1 = 2
                    Else
                        PictureBox2.Image = Image.FromFile("Dot.png")
                        intRoll2 = 2
                    End If
                Case 650 To 849
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Razorback.png")
                        intRoll1 = 3
                    Else
                        PictureBox2.Image = Image.FromFile("Razorback.png")
                        intRoll2 = 3
                    End If
                Case 850 To 949
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Trotter.png")
                        intRoll1 = 4
                    Else
                        PictureBox2.Image = Image.FromFile("Trotter.png")
                        intRoll2 = 4
                    End If
                Case 950 To 989
                    If intX = 0 Then
                        PictureBox1.Image = Image.FromFile("Snouter.png")
                        intRoll1 = 5
                    Else
                        PictureBox2.Image = Image.FromFile("Snouter.png")
                        intRoll2 = 5
                    End If
                Case 990 To 996
                    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
                Case 997 To 1000
                    If intX = 0 Then
                        intRoll1 = 7
                    Else
                        intRoll2 = 7
                    End If

            End Select

        Next intX

       
        If intRoll1 = 1 AndAlso intRoll2 = 1 OrElse intRoll1 = 2 AndAlso intRoll2 = 2 Then
            intRollScore = 1
            lblOin.Text = "Double Sides"
        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
            lblOin.Text = "Mixed"
        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
            lblOin.Text = "Mixed"
        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
            lblOin.Text = "Mixed"
        ElseIf intRoll1 = 3 AndAlso intRoll2 = 3 Then
            intRollScore = 20
            lblOin.Text = "Double Razorback"
        ElseIf intRoll1 = 4 AndAlso intRoll2 = 4 Then
            intRollScore = 20
            lblOin.Text = "Double Trotter"
        ElseIf 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
            lblOin.Text = "Mixed"
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 6 OrElse intRoll1 = 6 AndAlso intRoll2 = 5 Then
            intRollScore = 25
            lblOin.Text = "Mixed"
        ElseIf intRoll1 = 5 AndAlso intRoll2 = 5 Then
            intRollScore = 40
            lblOin.Text = "Double Snouter"
        ElseIf intRoll1 = 6 AndAlso intRoll2 = 6 Then
            intRollScore = 60
            lblOin.Text = "Double Leaning Jowler"
        ElseIf intRoll1 = 7 OrElse intRoll2 = 7 Then
            lblOin.Text = "Oinker"
            PictureBox1.Image = Image.FromFile("oinker1.png")
            PictureBox2.Image = Image.FromFile("oinker2.png")
            intRollScore = 0
            intTurnScore = 0
            If lblTurn.Text = "Player 1" Then
                intTotalScore1 = 0
            Else
                intTotalScore2 = 0
            End If
        Else
            intRollScore = 0
            lblOin.Text = "Pig-out"
        End If

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

        Else

            intTurnScore = intTurnScore + intRollScore

        End If
        lblRollScore.Text = intRollScore.ToString("N0")
        lblTurnScore.Text = intTurnScore.ToString("N0")
    End Sub
    Private Sub btnPass_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPass.Click
        lblOin.Text = String.Empty
        intTurn = Not (intTurn)
        btnRoll.Enabled = True

        If intTurn Then
            lblTurn.Text = "Player 2"
            intTotalScore1 += intTurnScore
            lblTotal1.Text = intTotalScore1.ToString("N0")
            txtTurnSc1.Text = txtTurnSc1.Text &
                intTurnScore.ToString("N0") & ControlChars.NewLine

        Else
            lblTurn.Text = "Player 1"
            intTotalScore2 += intTurnScore
            lblTotal2.Text = intTotalScore2.ToString("N0")
            txtTurnSc2.Text = txtTurnSc2.Text &
               intTurnScore.ToString("N0") & ControlChars.NewLine
        End If
        intRollScore = 0
        intTurnScore = 0
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        If intTotalScore1 >= 100 Then
            MessageBox.Show("Player 1 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        ElseIf intTotalScore2 >= 100 Then

            MessageBox.Show("Player 2 won the Game!",
                            "Game over",
                            MessageBoxButtons.OK,
                            MessageBoxIcon.Information)
        End If

    End Sub
   
    Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click
        intTotalScore1 = 0
        intTotalScore2 = 0
        intTurnScore = 0
        lblTurn.Text = "Player 1"
        btnRoll.Enabled = True
        lblRollScore.Text = String.Empty
        lblTurnScore.Text = String.Empty
        lblTotal1.Text = String.Empty
        lblTotal2.Text = String.Empty
        txtTurnSc1.Text = String.Empty
        txtTurnSc2.Text = String.Empty
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        intTurn = False
        lblOin.Text = String.Empty
        lblOin.Visible = False
    End Sub

    
End Class

@edward_freedom · 30.04.2013, 22:45

Розалина, Кинь исходник, аж интересно стало

@Розалина · 30.04.2013, 22:55 **[ТС]**

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

Розалина, Кинь исходник, аж интересно стало

исходник это что?

могу интерфейс показать, правила игры выше писала

@Розалина · 30.04.2013, 23:04 **[ТС]**

вот интерфейс

@Розалина · 30.04.2013, 23:29 **[ТС]**

а у меня вопрос
в форме над картинками у меня есть надпись в окошечке, а можно как то это окошечко сделать не видимым так чтоб только надпись была видна?

Добавлено через 2 минуты

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

Розалина, Кинь исходник, аж интересно стало

помоему я поняла про что вы

а как его кинуть? я что то не соображу

@edward_freedom · 30.04.2013, 23:39

Розалина, попробуй так

VB.NET

1 2	Label1.BackColor = Color.Transparent Label1.Parent = PictureBox1

Добавлено через 25 секунд

Сообщение от Розалина

а как его кинуть?

winrarom заархивируй

@Розалина · 01.05.2013, 00:43 **[ТС]**

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

Розалина, попробуй так

VB.NET

1 2	Label1.BackColor = Color.Transparent Label1.Parent = PictureBox1

сработало

спасибо!!
правда в моем случае это выглядит так
lblOin.BackColor = Color.Transparent
lblOin.Parent = PictureBox3

Добавлено через 51 минуту

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

winrarom заархивируй

что то не получается, а тут личные сообщения можно где то писать? что то не найду

@Розалина · 01.05.2013, 00:55 **[ТС]**

Pass the Pigs final1.rar

@Розалина · 01.05.2013, 16:01 **[ТС]**

edward_freedom, получилось протестировать?

@edward_freedom · 01.05.2013, 16:51

Розалина, Да

Только я не понял, что там делать надо

Хрюшки появляються какието

@Розалина · 01.05.2013, 17:11 **[ТС]**

хех

так это же игра такая))) я же писала хрюшек "кидаешь" и в зависимости как упадут начисляются очки выигрывает тот кто первый 100 очков наберет...
игра простенькая но я же писала это мой самый первый класс по программированию, ну что мы там за пол года прошли то, фактически за 12 уроков, азы только)))

~~Release~~ · 01.05.2013, 17:20

Розалина, Да вроде ничего

Добавлено через 1 минуту
Розалина, Только нужно было все элементы прозрачные сделать, чтоб красивый смотрелось.

@Розалина · 01.05.2013, 17:40 **[ТС]**

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

Розалина, Да вроде ничего

Добавлено через 1 минуту
Розалина, Только нужно было все элементы прозрачные сделать, чтоб красивый смотрелось.

спасибо

я думала об этом но почемуто они прозрачными становяться только когда я кнопку "Roll" нажимаю хотела поставить вне процесса этой кнопки но программа просит за дикларировать а я не пойму что диклорировать то

я счас еще хочу хрюкание какойнибудь добавить если получится...

~~Release~~ · 01.05.2013, 17:47

Сообщение от Розалина

я думала об этом но почемуто они прозрачными становяться только когда я кнопку "Roll" нажимаю хотела поставить вне процесса этой кнопки но программа просит за дикларировать а я не пойму что диклорировать то

Попробуй в конструкторе формы выставить эти свойства. Тыкаешь по нужному контролу, в свойствах ищешь BackColor тыкаешь по нему и в вкладке Интернет выбираешь Transperent

Сообщение от Розалина

я счас еще хочу хрюкание какойнибудь добавить если получится...

С озвучкой куда более лучше будет!

@Розалина · 01.05.2013, 18:16 **[ТС]**

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

Попробуй в конструкторе формы выставить эти свойства. Тыкаешь по нужному контролу, в свойствах ищешь BackColor тыкаешь по нему и в вкладке Интернет выбираешь Transperent

сделала но кнопки все равно видны впринципе метод как предлагал мне edward_freedom для надписи над картинками работает и тут но только после нажатия кнопки ролл а если выносить за пределы кнопки то просит задикларировать..

С озвучкой куда более лучше будет!

попробовала таже история просит задиклорировать
мы добавляли аудио файл только однажды там тарелка с НЛО летела вверх и пока этот цикл шел соответствующие звуки издавались, в моем случае цикла как такого нету значит если я правильно поняла аудио файл нужно добавлять вне кнопок, но программа просит задикларировать а я не пойму что

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	01.05.2013, 16:01 [ТС]	14
	edward_freedom, получилось протестировать? 0

~~Release~~ Заблокирован
	01.05.2013, 17:47	19
	Сообщение от Розалина я думала об этом но почемуто они прозрачными становяться только когда я кнопку "Roll" нажимаю хотела поставить вне процесса этой кнопки но программа просит за дикларировать а я не пойму что диклорировать то Попробуй в конструкторе формы выставить эти свойства. Тыкаешь по нужному контролу, в свойствах ищешь BackColor тыкаешь по нему и в вкладке Интернет выбираешь Transperent Сообщение от Розалина я счас еще хочу хрюкание какойнибудь добавить если получится... С озвучкой куда более лучше будет! 1

~~Release~~ Заблокирован
	29.04.2013, 08:00	3
	Сообщение от Розалина когда выпадает ситуация "Oinker" Думаешь все знают такую ситуацию? Помочь не кто не может, потому что не знаю эту игру, опиши задачу так, чтобы ее поняли. 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	29.04.2013, 23:51 [ТС]	4
	Сообщение от Release Думаешь все знают такую ситуацию? Помочь не кто не может, потому что не знаю эту игру, опиши задачу так, чтобы ее поняли. извиняюсь что не понятно объяснила игру, я сама если честно эту игру впервые вижу, наверно учитель спецально выбрал ее чтоб готовый код не нашли... суть игры: кидаешь 2х хрюшек и в зависимости от того как они лягут начисляются очки: хрюшка может упасть на бок(чистый или с черной точкой) 0 очков, на спину5 очков, на ноги 5 очков, на колено 10, на ухо 15, тк хрюшек 2 шт и падают они по разному, то если обе упали на спину то 20 очков, на ноги 20 очков, на колено 40, на ухо 60, если упали по разному то очки просто суммируются (например на спину и на колени 5+10)если обе упали на одинаковый бок, например чистый то 1 очко, если на разные бока то это Pig-Out очки за ход сгорают и ход передается др игроку, более наглядно здесь http://passpigs.tripod.com/rules.html играют 2 игрока, выигрывает тот кто первый наберет 100 очков или больше. игрок может кидать хрюшек сколько хочет раз, очки за каждый бросок суммируются, но могут сгореть если выпадет "Pig-Out"(сгорают очки за ход) и ход переходить к следующему игроку, если хрюшки задевают друг друга то это "Oinker" тогда все очки набранные за игру сгорают и ход переходит к др игроку. Кидать хрюшек за ход можно сколько угодно раз, пока не решишь передать ход или не выпадет Pig-Out или "Oinker" если ход передаешь сам то очки сохраняются ес-но ну вот надеюсь счас более понятно но я уже вроде докумекала сама как решить свою проблемку 0

~~Release~~ Заблокирован
	30.04.2013, 07:28	5
	Сообщение от Розалина но я уже вроде докумекала сама как решить свою проблемку Молодец! 1

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	30.04.2013, 22:45	7
	Розалина, Кинь исходник, аж интересно стало 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	30.04.2013, 22:55 [ТС]	8
	Сообщение от edward_freedom Розалина, Кинь исходник, аж интересно стало исходник это что? могу интерфейс показать, правила игры выше писала 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	30.04.2013, 23:04 [ТС]	9
	вот интерфейс 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	30.04.2013, 23:29 [ТС]	10
	а у меня вопрос в форме над картинками у меня есть надпись в окошечке, а можно как то это окошечко сделать не видимым так чтоб только надпись была видна? Добавлено через 2 минуты Сообщение от edward_freedom Розалина, Кинь исходник, аж интересно стало помоему я поняла про что вы а как его кинуть? я что то не соображу 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	01.05.2013, 00:55 [ТС]	13
	Сообщение было отмечено как решение Решение Pass the Pigs final1.rar 4

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	01.05.2013, 16:51	15
	Розалина, Да Только я не понял, что там делать надо Хрюшки появляються какието 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	01.05.2013, 17:11 [ТС]	16
	хех так это же игра такая))) я же писала хрюшек "кидаешь" и в зависимости как упадут начисляются очки выигрывает тот кто первый 100 очков наберет... игра простенькая но я же писала это мой самый первый класс по программированию, ну что мы там за пол года прошли то, фактически за 12 уроков, азы только))) 1

	01.05.2013, 18:16

~~Release~~ Заблокирован
	01.05.2013, 17:20	17
	Розалина, Да вроде ничего Добавлено через 1 минуту Розалина, Только нужно было все элементы прозрачные сделать, чтоб красивый смотрелось. 1

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	01.05.2013, 17:40 [ТС]	18
	Сообщение от Release Розалина, Да вроде ничего Добавлено через 1 минуту Розалина, Только нужно было все элементы прозрачные сделать, чтоб красивый смотрелось. спасибо я думала об этом но почемуто они прозрачными становяться только когда я кнопку "Roll" нажимаю хотела поставить вне процесса этой кнопки но программа просит за дикларировать а я не пойму что диклорировать то я счас еще хочу хрюкание какойнибудь добавить если получится... 0

@Розалина 181 / 15 / 1 Регистрация: 25.04.2013 Сообщений: 592
	01.05.2013, 18:16 [ТС]	20
	Сообщение от Release Попробуй в конструкторе формы выставить эти свойства. Тыкаешь по нужному контролу, в свойствах ищешь BackColor тыкаешь по нему и в вкладке Интернет выбираешь Transperent сделала но кнопки все равно видны впринципе метод как предлагал мне edward_freedom для надписи над картинками работает и тут но только после нажатия кнопки ролл а если выносить за пределы кнопки то просит задикларировать.. С озвучкой куда более лучше будет! попробовала таже история просит задиклорировать мы добавляли аудио файл только однажды там тарелка с НЛО летела вверх и пока этот цикл шел соответствующие звуки издавались, в моем случае цикла как такого нету значит если я правильно поняла аудио файл нужно добавлять вне кнопок, но программа просит задикларировать а я не пойму что 0

игра "Pass the Pigs" в Visual Basic

Решение