14(1): 名前は開発中のものです。 [sage] 2010/09/19(日) 00:16:04 ID:DdCJ+ie2(1) AAS
VBだからフォームに操作ボタンはりつけるのかと思ったら、
そこまで原始的じゃなかったかｗ

見てくれてうれしいぜ
終了判定いれてみた
Sub EndOfGame()
For i As Integer = 1 To 9
If Not (obPicsWin(i).Name = obPics(i).Name) Then
Label1.Text += ":No"
Exit Sub
End If
Next

Label1.Text += ":End"
End Sub

キモは配列に正解を入れておくとこだぜLOAD処理でやってる
これで最初のならびに達したかどうかがわかるぜ！
ReDim obPics(10), obPicsWin(10)
obPics(1) = PictureBox1
obPics(2) = PictureBox2
obPics(3) = PictureBox3
obPics(4) = PictureBox4
obPics(5) = PictureBox5
obPics(6) = PictureBox6
obPics(7) = PictureBox7
obPics(8) = PictureBox8
obPics(9) = PictureBox9

For i As Integer = 1 To 9
obPicsWin(i) = obPics(i)
Next
既にゲームぽいけどもっと進化させるぜ

---

16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem(2/2) AAS
おはよう！オイラ10
ちょっと工夫して画像を自分で設定できるようにしてる
んで画像読み込んでコピーするまで出来た！フォームとピクチャボックス２つとダイアログ１つで簡単にできる
これ組み込んだら完成だな

次のがコピーのコードだ、結構厄介だったぞ
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim img = New Bitmap(PictureBox1.Image)
'PictureBox1のGraphicsオブジェクトの作成
Dim g As Graphics = PictureBox2.CreateGraphics()

'元の画像の(10,10)-(100,100)の部分を切り取って表示する
'座標(0,0)に表示し、単位をピクセルとする
Dim rect As New Rectangle(PictureBox2.Top, PictureBox2.Left, PictureBox2.Width, PictureBox2.Height)
g.DrawImage(img, 0, 0, rect, GraphicsUnit.Pixel)

Dim newBMP As Bitmap = img.Clone(rect, img.PixelFormat)

PictureBox2.Image = newBMP.Clone

'Graphicsオブジェクトを破棄
g.Dispose()

End Sub

---

17: 10 [sage] 2010/09/20(月) 01:23:14 ID:tt0g1Jsk(1) AAS
深夜にオッス！おら10
ちょっといい感じになったのでソースアップ

画像）画像ﾘﾝｸ

ソース）外部ﾘﾝｸ[zip]:gmdev.xrea.jp
TOOLはVS2008のVB2008

起動してそのままでも動くけど、背景を選択してBMP画像選んでくだちい
ピース部分だけカラーであとは白黒になります
で動かして、元の場所になると全部カラー表示します
（背景が小さいとｴﾗｰ起こすのは愛嬌

無駄ゲ処理とかミスとか修正したから結構遊べるお！
キモはほとんどWebから見つけたソースってとこだなｗ

楽勝

---

18: 名前は開発中のものです。 [] 2010/09/20(月) 21:49:16 ID:NsfXsaz0(1) AAS
>11

11(2): 名前は開発中のものです。 [sage] 2010/09/18(土) 19:25:55 ID:eXol6kqo(1) AAS
SFC・メガドラ・PCエンジンのSTGを語るスレ
2chｽﾚ:gamestg
> 779 名前：名無しさん＠弾いっぱい[] 投稿日：2010/09/15(水) 13:08:43 ID:9cI7/JLI0
> ＰＣＥでもＭＤでもＳＦＣでもないが、それっぽい（昭和っぽい）画面の
> ゲームがある。
> はっぴぃしゅーたーＶＢ６
> 外部ﾘﾝｸ[html]:homepage1.nifty.com
> なんとなくＰＣＥ版究極タイガーやガンヘッドあたりを参考に作ったようだ。
> ＰＣ用だが、試しにやってみるといいかも？

これ、ソースが公開されていればもっと良かったのにとか身勝手な事を言ってみる。
Visual Basic でシューティングとはなかなか頑張ってるね。