ゲームの効率的な作り方について

(削除されました)

(削除されました)

(削除されました)

単純にまとめました。

Case 0



Timer1.Enabled = True

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Timer5.Enabled = False



Case 1



Timer1.Enabled = True

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Timer5.Enabled = False



Case 2



Timer1.Enabled = True

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Timer5.Enabled = False

Case0-2は、.Interval の値だけしか違いませんね。
関数でまとめられます。

If dx < 600 Then

'省略  

ElseIf dx >= 600 Then

'省略  

End If

省略の中は、dxとdyの値が違うだけです。
ここも引数を与えるだけで、関数化できます。

ここのスレッドも一読しておくといいかもしれません。
http://rucio.groupsite.jp/commu/ThreadDetail.aspx?ThreadId=9048

すごいなぁ～
ほんとにつくったんですか＾＾
トスとかレシーブとかボールと手の接触範囲数とかあるんでしょうか？
魔球スマッシュとか・・
sin,
cos
で。
暇でしたら、ちょっと書いてみてください。（＾～＾）
ぼくも作りたいなぁ。

(削除されました)

(削除されました)

挑戦自体はすごいですよ。
バレーボールやサッカーゲームは、ものすごく難しいものです。
トスボタンとか、アタックボタン等とか
あと、手のどの部分にボールが当たるとジャストミートするのか。とか。
これは、難しい～
サーブルーチンくらいしか、僕はつくれそうにないけど。
レシーブとかむずかしいなぁ～＾＾

ありゃ、なんかシーンとしちゃいましたが。。
皮肉とかではなくて、本当に難しいんですよ。
例えば、サーブを打つルーチンにしても...
方程式で落下地点を制御するのか、データリードによる落下地点場所のルートを20種類用意するとか、
これでも2つの方法があるわけですけど。
フロチャート的には1番最初に作るルーチンですね。
次がコム側、あるいは対戦プレイヤー側のレシーブ及びトス等のルーチンです。
6人居ますからねぇ、バレーボールわ。
このルーチンは難しいね＾＾

単純にまとめるとこんな感じかな。

Dim g As Graphics

Dim gb As Graphics

Dim bitmap As Image

Dim flag As Boolean = True

Dim x = 450, y = 0

Dim dx = 0, dy = 100

Dim olddx, olddy As Integer



Dim maru As New Bitmap("maru.gif")   'ボウル(影が右から左にある) 

Dim maru2 As New Bitmap("maru2.gif") 'ボウル(影が左から右にある) 

Dim netto As New bitmap("netto.gif") 'ネット 

Dim n1, n2, n3, n4, n5, n6 As Integer



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    g = PictureBox1.CreateGraphics

    gb = PictureBox1.CreateGraphics

    gb.DrawImage(netto, x, y, netto.Width, 450)



    Timer1.Enabled = True

    Timer2.Enabled = False

    Timer3.Enabled = False

    Timer4.Enabled = False

    Timer5.Enabled = False



    Randomize()

    n1 = Int(Rnd() * 3)



    If n1 = 0 Then

        Timer6.Interval = 30

    ElseIf n1 = 1 Then

        Timer1.Interval = 80

    ElseIf n1 = 2 Then

        Timer1.Interval = 40

    End If



End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    g.FillRectangle(Brushes.White, olddx, olddy, maru.Width, maru.Height)

    g.FillRectangle(Brushes.White, olddx, olddy, maru2.Width, maru2.Height)

    gb = PictureBox1.CreateGraphics

    gb.DrawImage(netto, x, y, netto.Width, 450)



    olddx = dx

    olddy = dy



    If dx < 600 Then

        dx = dx + 15

        dy = dy

    Else

        dx = dx + 10

        dy = dy + 10

    End If



    If dy > 350 Then

        Timer1.Enabled = False

        SoundFileName = """kk.wav"""

        mciSendString("Play " & SoundFileName, vbNull, 0, 0) 'BGMを鳴らす 

        'BGMが鳴ったら得点 

    End If



    flag = Not flag 'ボールを回転させる 



    If flag = True Then

        Dim destRect As New Rectangle(dx, dy, maru.Width, maru.Height)

        Dim srcRect As New Rectangle(0, 0, maru.Width, maru.Height)



        g.DrawImage(maru, destRect, srcRect, GraphicsUnit.Pixel)

    Else

        Dim destRect As New Rectangle(dx, dy, maru2.Width, maru2.Height)

        Dim srcRect As New Rectangle(0, 0, maru2.Width, maru2.Height)



        g.DrawImage(maru2, destRect, srcRect, GraphicsUnit.Pixel)

    End If

End Sub

タイマーコンポーネントが6個あるのは？とか
部分的なんで検証できないけど＾＾
でも動いてるですよね？
ちょっと、ぼくも作ろうかなぁ＾＾

ん～ラキシスさんのプログラムを検証しょうとしてますけど。
ＪＰＧのネットファイルはＧＩＦになってますが＾＾

タイマーイベントも全部コツコツ掲載してみてください。

名前を間違えました。すいません。
たぶん、でフォルトさんは他の言語では相当にデキルんですよね？
バレーボールゲームは、かなり難しいです。
個人的にはプヨプヨとか、テトリスより上のランクですよ。
ｖｂに関しては、かなり、まだまだ始めたばかりですよね？
テニスか卓球にした方がいいように思いますが。