なぜVBは扱いが低いのか (200ﾚｽ)
なぜVBは扱いが低いのか http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
10: 名前は開発中のものです。 [sage] 2010/09/18(土) 14:08:42 ID:A4GUH+kV さてっとおいらがVBでゲーム作りますよってゲ製なんでゲーム作る話題にしようぜ とりあえず課題スレにある１５パズルから作ろうとおもたけどいきなりは大変なので９パズルに挑戦な んで、下記はピースの動きのコード下にしか動かんけど、いい感じだフォームとピクチャーボックスでいける Sub picDown() Dim nowX As Integer = PictureBox1.Left Dim nowHeight As Integer = PictureBox1.Height Dim newY As Integer = PictureBox1.Top + nowHeight Dim idouY As Integer = nowHeight / 6 For i As Integer = 1 To 6 PictureBox1.Top += idouY Threading.Thread.Sleep(10) Me.Refresh() Next PictureBox1.Top = newY Me.Refresh() End Sub Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If (e.KeyData = Windows.Forms.Keys.Down) Then 'MsgBox("↓", MsgBoxStyle.Information, "Form1_KeyDown") picDown() End If End Sub Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress MsgBox(e.KeyChar, MsgBoxStyle.Information, "Form1_KeyPress") End Sub http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/10
13: 10 [sage] 2010/09/18(土) 20:12:18 ID:A4GUH+kV あぁみっけた http://gmdev.xrea.jp/st/up/125.txt とりあえず、上下移動ができるようになった キモはピクチャーボックスオブジェクトを配列にいれて処理してるとこだな こりゃ楽勝だぜ http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/13
15: 10 [sage] 2010/09/19(日) 01:04:51 ID:9fB8MUem おっす！>>14見てくれてうれしいぜ 終了判定いれてみた 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 既にゲームぽいけどもっと進化させるぜ http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/15
16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem おはよう！オイラ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 http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/16
17: 10 [sage] 2010/09/20(月) 01:23:14 ID:tt0g1Jsk 深夜にオッス！おら10 ちょっといい感じになったのでソースアップ 画像）http://gmdev.xrea.jp/st/up/126.bmp ソース）http://gmdev.xrea.jp/st/up/127.zip TOOLはVS2008のVB2008 起動してそのままでも動くけど、背景を選択してBMP画像選んでくだちい ピース部分だけカラーであとは白黒になります で動かして、元の場所になると全部カラー表示します （背景が小さいとｴﾗｰ起こすのは愛嬌 無駄ゲ処理とかミスとか修正したから結構遊べるお！ キモはほとんどWebから見つけたソースってとこだなｗ 楽勝 http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/17
21: 10 [sage] 2010/09/23(木) 01:35:59 ID:g/9awED0 こんばんわ！10です！ >>19ﾀﾞｳﾝしました！S藤さん、すごいお！こういうのあると触発されちゃう いまVB2008にうｐぐれどしたけど、さすがにそのままじゃ動かん＞＜ ちょっと動くようにしてみる 9pzlは難易度とシャッフルを実装した、後は出来上がりまでの動いた回数記録すればゲームになりそうです http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/21
23: 10 [sage] 2010/09/23(木) 21:44:41 ID:g/9awED0 わんばんこ！10です 9pzl難易度と回数いれて完成！ ttp://gmdev.xrea.jp/st/up/128.zip 実行は上下左右の矢印キーのみ こうやってVBの地位を上げていかんと扱い低いままっしょｗ >>22さん是非是非何かお願いします私は.NETとかあまり意識せずに作ってますのでソースはひどいですが何もしないよりましかなｗ http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/23
29: 10 [sage] 2010/09/25(土) 20:41:05 ID:crViLJs/ うは書き込み増えてると思ったらくだらねぇぇｗｗｗｗｗｗ 何も作れない奴が暴れてるｗｗｗｗ http://mevius.5ch.net/test/read.cgi/gamedev/1284400196/29
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.756s*