とりあえずピンの配置（ボウリングゲーム） (ID:142791)

名前

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

本文 > Dim pinpozition As List(Of Point) = New List(Of Point)( ) 'ピンの位置 > Dim pintype As List(Of PictureBox) = New List(Of PictureBox)( ) 'ピンの状態(立っているか、倒れているか） List はコレクションの一種ですが、配列ではありませんよ。 それと、ポジションのスペルは pozition ではなく position です。 また、「立っているかどうか」を保持させるのであれば、それは PictureBox ではなく、Boolean で表した方が良いとおもいます。 「立っている時の画像/倒れている時の画像」を表す情報と、 「立っているのか/倒れているのか」を表す情報は、別物ですから。 > １０本のピンを画面に配置していくのですが、ここではたと思考が止まってしまいました。 ゲーム画面を描画する前に、まずは、ピンの状態を定義しましょう。 ・ピンは何本ありますか? 10本なら、配列なり List なりに “10個分の領域”を準備しておく必要があります。 ・それぞれのピンの座標は決まっていますか? 倒れているかどうかの状態は? 決まっているなら、まずはそれらの状態をセットしておきましょう。 たとえば、Point の配列を 10 個用意する場合には、 Dim x(9) As Point などと記述します。これにより、x(0) 〜 x(9) までの 10 個分の Point が用意されますので、 x(0) = New Point(100, 100) x(1) = New Point(100, 150) x(2) = New Point(100, 200) x(3) = New Point(150, 100) x(4) = New Point(150, 150) x(5) = New Point(150, 200) などとして、それぞれのピンの座標をセットしておきます。 一方、配列の代わりに List(Of Point) を使う場合には、New で器を用意した後、 Dim x As New List(Of Point)() x.Add(New Point(100, 100)) x.Add(New Point(100, 150)) x.Add(New Point(100, 200)) x.Add(New Point(150, 100)) x.Add(New Point(150, 150)) x.Add(New Point(150, 200)) などとして、それぞれの座標をセットします。 次に、それらに併せて画面を描画します。 > Dim bmp As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height) > Dim g As Graphics = Graphics.FromImage(bmp) この「Graphics.FromImage(Bitmap)」で Graphics を得る手法は、 主に背景画面などの動きの無い(動きの少ない)領域のために用いると良いでしょう。 一方、ボールやピンなど、動きのあるデータは Paint イベントの e.Graphics で 得られる Graphics に対して描画した方が良いかと思います。 > img = Image.FromFile("\pin5.gif") ’立っているピンの画像 > img2 = Image.FromFile("\xpin1a.gif") ’倒れているピンの画像 一つの PictureBox に、それぞれのピンを描画していく場合には、 それぞれのピン座標に、上記の画像いずれかを .DrawImage メソッドで 描画していくことになります。 一方、ピンそれぞれに PictureBox を 1 つずつ用意しておき、 それぞれの PictureBox の .Image を切り替えるという手法もあります。