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

---

10(7): 名前は開発中のものです。 [sage] 2010/09/18(土) 14:08:42 ID:A4GUH+kV(1/3) AAS
さてっとおいらが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

---

19(4): 名前は開発中のものです。 [] 2010/09/21(火) 14:10:35 ID:Pi94IK3A(1) AAS
ども　はっぴぃしゅーたーの作者です。

はっぴぃしゅーたーの代わりに、昔作った簡単なシューティングの
ソースをあげました。参考にしてください。
http://homepage1.nifty.com/shifu2/DL/SH.zip

古いプログラムなのでウエイト３万くらいかけないと速すぎて遊べませんよ。
ウエイトに234567と入力すると無敵モードになります。

これはその昔、私がマイコンベーシックマガジンに投稿したものに、
多少手を加えたものです。

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.022s*