なぜVBは扱いが低いのか (200ﾚｽ)
上下前次1-新

---

15: 10 [sage] 2010/09/19(日) 01:04:51 ID:9fB8MUem(1/2) AA×
>>14


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
おっす！見てくれてうれしいぜ 終了判定いれてみた キモは配列に正解を入れておくとこだぜ処理でやってる これで最初のならびに達したかどうかがわかるぜ！ 既にゲームぽいけどもっと進化させるぜ

---

上下前次1-新書関写板覧索設栞歴

---

あと 185 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.022s