画像の周囲に残像が残る (ID:142738)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 稚拙なボウリングゲームのコードです。 ２つのレーンがあり、2人で対戦することもできます。 また、自分の写真を読み込むことやピンが倒れたときの カキーンという効果音やストライクのときには歓声を挿入しました。 Dim x, y As Integer Dim flag As Boolean = True Dim kekka As Integer'結果パターン１（倒れたピンと立っているピンの数） Dim kekka2 As Integer’ Dim kekka3 As Integer Dim kekka4 As Integer Dim kekka5 As Integer Dim kekka6 As Integer Dim kekka7 As Integer Dim kekka8 As Integer Dim kekka9 As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label15.Text = "" End Sub ’ストライクがでたらミュージックが流れる Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Dim SoundFileName As String Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim g As Graphics g = PictureBox1.CreateGraphics() If PictureBox1.Left > 0 Then PictureBox1.Left = PictureBox1.Left - 8 End If ’玉をころがす flag = Not flag If flag = True Then g.DrawImage(PBa.Image, x, y, PictureBox1.Width, PictureBox1.Height) Else g.DrawImage(PBb.Image, x, y, PictureBox1.Width, PictureBox1.Height) End If Randomize() kekka4 = Int(6 * Rnd() + 1) If PictureBox1.Left < 320 Then PictureBox1.Left = PictureBox1.Left - 5 Select Case kekka Case 0 PB10.Visible = False '立っているピンの画像(PB○） PB10a.Visible = True '倒れているピンの画像（ＰＢ○ａ） PB9.Visible = False PB9a.Visible = True PB8.Visible = False PB8a.Visible = True Case 1 PB7.Visible = False PB7a.Visible = True PB6.Visible = False PB6a.Visible = True PB5.Visible = False PB5a.Visible = True PB4.Visible = False PB4a.Visible = True Case 2 PB3.Visible = False PB3a.Visible = True PB3.Visible = False PB2a.Visible = True PB2.Visible = False PB1a.Visible = True PB1.Visible = False End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If If PictureBox1.Left <= 320 Then PictureBox1.Left = PictureBox1.Left - 5 Select Case kekka Case 0 PB10.Visible = False PB10a.Visible = True Case 1 PB9.Visible = False PB9a.Visible = True Case 2 PB8.Visible = False PB8a.Visible = True Case 3 PB10.Visible = False PB10a.Visible = True PB9.Visible = False PB9a.Visible = True PB8.Visible = False PB8a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If kekka2 = Int(10 * Rnd() + 1) If PictureBox1.Left <= 240 Then PictureBox1.Left = PictureBox1.Left - 5 Select Case kekka2 Case 0 PB5.Visible = False PB5a.Visible = True Case 1 PB6.Visible = False PB6a.Visible = True Case 2 PB7.Visible = False PB7a.Visible = True Case 3 PB5.Visible = False PB5a.Visible = True PB6.Visible = False PB6a.Visible = True PB7.Visible = False PB7a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If If PictureBox1.Left <= 160 Then PictureBox1.Left = PictureBox1.Left - 5 kekka3 = Int(8 * Rnd() + 1) Select Case kekka3 Case 0 PB1.Visible = False PB1a.Visible = True Case 1 PB2.Visible = False PB2a.Visible = True Case 2 PB3.Visible = False PB3a.Visible = True Case 3 PB1.Visible = False PB1a.Visible = True PB2.Visible = False PB2a.Visible = True PB3.Visible = False PB3a.Visible = True PB4.Visible = False PB4a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If If PictureBox1.Left <= 20 Then PictureBox1.Left = 20 flag = False Timer1.Enabled = False End If If PB10a.Visible And PB9a.Visible And PB8a.Visible And PB7a.Visible And PB6a.Visible And PB5a.Visible _ And PB4a.Visible And PB3a.Visible And PB2a.Visible And PB1a.Visible = True Then SoundFileName = """app.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) PictureBox6.Visible = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button6.Visible = False Button7.Visible = False Timer1.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox6.Visible = False TextBox1.Text = "" TextBox23.Text = "" If PictureBox1.Left <= 20 Then PictureBox1.Left = 688 End If PB1.Visible = True PB2.Visible = True PB3.Visible = True PB4.Visible = True PB5.Visible = True PB6.Visible = True PB7.Visible = True PB8.Visible = True PB9.Visible = True PB10.Visible = True PB1a.Visible = False PB2a.Visible = False PB3a.Visible = False PB4a.Visible = False PB5a.Visible = False PB6a.Visible = False PB7a.Visible = False PB8a.Visible = False PB9a.Visible = False PB10a.Visible = False Label15.Text = Label15.Text & TextBox16.Text & vbLf TextBox16.Text = Nothing End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim g As Graphics g = PictureBox3.CreateGraphics() If PictureBox3.Left > 0 Then PictureBox3.Left = PictureBox3.Left - 8 End If flag = Not flag If flag = True Then g.DrawImage(PBa.Image, x, y, PictureBox1.Width, PictureBox1.Height) Else g.DrawImage(PBb.Image, x, y, PictureBox1.Width, PictureBox1.Height) End If Randomize() kekka5 = Int(7 * Rnd() + 1) If PictureBox3.Left < 288 Then PictureBox3.Left = PictureBox3.Left - 5 Select Case kekka5 Case 0 PBz10.Visible = False PBz10a.Visible = True PBz8.Visible = False PBz8a.Visible = True Case 1 PBz7.Visible = False PBz7a.Visible = True PBz6.Visible = False PBz6a.Visible = True PBz4.Visible = False PBz4a.Visible = True Case 2 PBz3.Visible = False PBz3a.Visible = True PBz3.Visible = False PBz2a.Visible = True PBz2.Visible = False End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If kekka6 = Int(6 * Rnd() + 1) If PictureBox3.Left < 288 Then PictureBox3.Left = PictureBox3.Left - 5 Select Case kekka6 Case 0 PBz10.Visible = False PBz10a.Visible = True Case 1 PBz9.Visible = False PBz9a.Visible = True PBz10.Visible = False PBz10a.Visible = True Case 2 PBz8.Visible = False PBz8a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If kekka7 = Int(6 * Rnd() + 1) If PictureBox3.Left <= 208 Then PictureBox3.Left = PictureBox3.Left - 5 Select Case kekka7 Case 0 PBz7.Visible = False PBz7a.Visible = True Case 1 PBz6.Visible = False PBz6a.Visible = True Case 2 PBz5.Visible = False PBz5a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If kekka8 = Int(6 * Rnd() + 1) If PictureBox3.Left <= 240 Then PictureBox3.Left = PictureBox3.Left - 8 Select Case kekka8 Case 0 PBz3.Visible = False PBz3a.Visible = True Case 1 PBz2.Visible = False PBz2a.Visible = True PBz1.Visible = False PBz1a.Visible = True Case 2 PBz3.Visible = False PBz3a.Visible = True Case 3 PBz2.Visible = False PBz2a.Visible = True PBz3.Visible = False PBz3a.Visible = True PBz4.Visible = False PBz4a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If If PictureBox3.Left <= 168 Then PictureBox3.Left = PictureBox3.Left - 8 kekka9 = Int(8 * Rnd() + 1) Select Case kekka9 Case 0 PBz1.Visible = False PBz1a.Visible = True PBz3.Visible = False PBz3a.Visible = True Case 1 PBz2.Visible = False PBz1.Visible = False PBz1a.Visible = True PBz2a.Visible = True Case 2 PBz3.Visible = False PBz3a.Visible = True PBz1.Visible = False PBz1a.Visible = True Case 3 PBz1.Visible = False PBz1a.Visible = True PBz2.Visible = False PBz2a.Visible = True PBz3.Visible = False PBz3a.Visible = True End Select SoundFileName = """metal.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) End If If PictureBox3.Left <= 20 Then PictureBox3.Left = 20 flag = False Timer2.Enabled = False End If If PBz10a.Visible And PBz9a.Visible And PBz8a.Visible And PBz7a.Visible And PBz6a.Visible And PBz5a.Visible _ And PBz4a.Visible And PBz3a.Visible And PBz2a.Visible And PBz1a.Visible = True Then SoundFileName = """app.wav""" mciSendString("Play " & SoundFileName, vbNull, 0, 0) PictureBox7.Visible = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer2.Enabled = True Button6.Visible = False Button7.Visible = False End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click PictureBox7.Visible = False TextBox1.Text = "" TextBox24.Text = "" If PictureBox3.Left <= 20 Then PictureBox3.Left = 688 End If PBz1.Visible = True PBz2.Visible = True PBz3.Visible = True PBz4.Visible = True PBz5.Visible = True PBz6.Visible = True PBz7.Visible = True PBz8.Visible = True PBz9.Visible = True PBz10.Visible = True PBz1a.Visible = False PBz2a.Visible = False PBz3a.Visible = False PBz4a.Visible = False PBz5a.Visible = False PBz6a.Visible = False PBz7a.Visible = False PBz8a.Visible = False PBz9a.Visible = False PBz10a.Visible = False End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Label15.Text = Nothing End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If OpenFileDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub End If PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click If OpenFileDialog2.ShowDialog() = DialogResult.Cancel Then Exit Sub End If PictureBox4.Image = Image.FromFile(OpenFileDialog2.FileName) End Sub End Class