投稿者 モウヘイ  (高校生) 投稿日時 2009/3/25 03:44:49
はじめまして。高校で簡単なゲームを作成する課題があり、スロットゲームを作成しています。プログラムがシンプルになる「配列」を使ってプログラムを作成したいのですが、どういう風にすれば良いのかよくわかりません。同じような処理内容の部分に使えると聞いてのですが・・・
アドバイスよろしくお願いします(vb2008 express edition)

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = False
        
        If Timer2.Enabled = False And Timer3.Enabled = False Then
            Button4.Enabled = True
            If x = y And y = z Then
                TextBox1.Text = "的中!"
                m = m + 50
                TextBox2.Text = m
            Else
                TextBox1.Text = "残念"
            End If
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        
        Timer2.Enabled = False
        
        If Timer1.Enabled = False And Timer3.Enabled = False Then
            Button4.Enabled = True
            If x = y And y = z Then
                TextBox1.Text = "的中!"
                m = m + 50
                TextBox2.Text = m
            Else
                TextBox1.Text = "残念"
            End If
        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        
        Timer3.Enabled = False
        
        If Timer1.Enabled = False And Timer2.Enabled = False Then
            Button4.Enabled = True
            If x = y And y = z Then
                TextBox1.Text = "的中!"
                m = m + 50
                TextBox2.Text = m
            Else
                TextBox1.Text = "残念"
            End If
        End If

    End Sub