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

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

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

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
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"
это моя первая программа помогите пожалуйста

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
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

Молодец!

спасибо

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

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
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 для надписи над картинками работает и тут но только после нажатия кнопки ролл а если выносить за пределы кнопки то просит задикларировать..

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

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

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

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

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

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

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

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

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

Release 1652 / 715 / 47 Регистрация: 11.03.2012 Сообщений: 1,855 Записей в блоге: 1
	01.05.2013, 17:20
	Розалина, Да вроде ничего Добавлено через 1 минуту Розалина, Только нужно было все элементы прозрачные сделать, чтоб красивый смотрелось. 1

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

Решение