Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
配列を使って
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9039#CommentId11041
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
モウヘイ
 (高校生)
投稿日時
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