C# と VB.NET の質問掲示板

（１）-------------------------------
　　　　(+Y)
　　　　　｜
　　　　　｜
　　　　　｜
　　A 　　｜     B
　　　　　｜
　　　　　｜
−−−−−＋−−−−−−(+X)
　　　　　｜
　　　　　｜
　　C 　　｜     D
　　　　　｜
　　　　　｜
　　　　　｜

（２)-------------------------------
　　　　(-Y)
　　　　　｜
　　　　　｜
　　　　　｜
　　C 　　｜     D
　　　　　｜
　　　　　｜
−−−−−＋−−−−−−(+X)
　　　　　｜
　　　　　｜
　　A 　　｜     B
　　　　　｜
　　　　　｜
　　　　　｜
　　　　(+Y)


コンピュータの座標系は、B のところ。真ん中の＋のところが(0,0)
だから、X を増加させると下方向に移動するんです。

（１）図の B のような座標系で管理したいなら、(0,0) の位置は、1024 * 768 ドットの画面だと、
(767,0) になります。

>> PictureBox1.Top = PictureBox1.Top + 30
だから、これは、上じゃなくて下方向に30ドット移動って意味になります。

これでどうでしょうか  

    Dim goingup As Boolean


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If goingup = True Then
            PictureBox1.Left = PictureBox1.Left + 5
        End If
        If PictureBox1.Left > 600 Then
            goingup = False
            PictureBox1.Top = PictureBox1.Top + 5
        End If
        If PictureBox1.Top > 300 Then
            PictureBox1.Left = PictureBox1.Left - 5
        End If
        If PictureBox1.Left < 100 Then
            PictureBox1.Top = PictureBox1.Top - 5
        End If
        
        If PictureBox1.Top < 100 Then
            PictureBox1.Left = PictureBox1.Left + 5
        End If
    End Sub




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        goingup = True
        Timer1.Enabled = Not Timer1.Enabled(もう一度クリックすると止まるようにしました）
         If Timer1.Enabled = True Then
            Button1.Text = "止まれ "
        Else
            Button1.Text = "スタート "
        End If
    End Sub

＊ちなみにMe.Size.Width はForm1の幅の最大値です。640×480のサイズならMe.Size.Width =640です。
　　　　　　
　　　

                                           

           （０．０）                                                          
   　　　　　　────────────────────　X                
               │                          　　　→   ＋                       
               │↓                                                            
               │ ＋                                                           
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
               │                                                              
　　　　　　　　Ｙ

■No40786 (Azulean さん) に返信
> 改善するためのヒント：
> ・右に移動する、下に移動する、左に移動する、上に移動するのどの状態なのかを保持できるようにする。
> ・それぞれの状態別のコードで次の状態に遷移する判定を入れる。
> ・それぞれの状態別のコードで実際に Top, Left の値を変更する。
> 

確かにおかしいですね。それに加えてストップを押してからスタートを押すと動きません。
なんともおかしなコードをアップしまして申し訳ないです
私も勉強したいと思います。

2009/09/03(Thu) 20:02:37 編集(投稿者)


■No40786 (Azulean さん) に返信

力技で解決しました。（こういうのはよろしくないと思うのですが）
こういったワザではプログラミングは上達しないでしょうか？もといプログラミングの素養に欠けるのかな？

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer2.Enabled = True
        
        
        If PictureBox1.Left > 600 Then
            Timer2.Enabled = False
            PictureBox1.Top = PictureBox1.Top + 5
        End If
        If PictureBox1.Top > 300 Then
            Timer2.Enabled = False
            PictureBox1.Left = PictureBox1.Left - 5
        End If
        If PictureBox1.Left < 0 Then
            Timer2.Enabled = False
            PictureBox1.Top = PictureBox1.Top - 5
        End If

        If PictureBox1.Top < 0 Then
 　　　　　　Timer2.Enabled = True
        
           
        End If
    End Sub

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


        Timer1.Enabled = Not Timer1.Enabled
        If Timer1.Enabled = True Then
            Button1.Text = "止まれ "
        Else
            Button1.Text = "スタート "

        End If
        



    End Sub




    
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        PictureBox1.Left += 5
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Left = 0
        PictureBox1.Top = 0
    End Sub
End Class

> ■No40786 (Azulean さん) に返信
> 
> 力技で解決しました。（こういうのはよろしくないと思うのですが）
> こういったワザではプログラミングは上達しないでしょうか？もといプログラミングの素養に欠けるのかな？
> 
> Public Class Form1
> 
>     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
>         Timer2.Enabled = True
>         
>         
>         If PictureBox1.Left > 600 Then
>             Timer2.Enabled = False
>             PictureBox1.Top = PictureBox1.Top + 5
>         End If
>         If PictureBox1.Top > 300 Then
>             Timer2.Enabled = False
>             PictureBox1.Left = PictureBox1.Left - 5
>         End If
>         If PictureBox1.Left < 0 Then
>             Timer2.Enabled = False
>             PictureBox1.Top = PictureBox1.Top - 5
>         End If
> 
>         If PictureBox1.Top < 0 Then
>  　　　　　　Timer2.Enabled = True
>         
>            
>         End If
>     End Sub
> 
>     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
> 
> 
>         Timer1.Enabled = Not Timer1.Enabled
>         If Timer1.Enabled = True Then
>             Button1.Text = "止まれ "
>         Else
>             Button1.Text = "スタート "
> 
>         End If
>         
> 
> 
> 
>     End Sub
> 
> 
> 
> 
>     
>     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
>         PictureBox1.Left += 5
>     End Sub
> 
>     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
>         PictureBox1.Left = 0
>         PictureBox1.Top = 0
>     End Sub
> End Class

これもおかしいですね。一度ストップして再度スタートを押すと押した場所によっておかしな挙動をします。
あ〜あ。こんなプログラムもまともに作れない私は　アホ！

goingup というフラグなのに、それが True の時は右に移動するよく分からないロジックであったことに気がついた。orz

■No40794 (よこはいり さん) に返信
> 力技で解決しました。（こういうのはよろしくないと思うのですが）
> こういったワザではプログラミングは上達しないでしょうか？もといプログラミングの素養に欠けるのかな？
Timer を分ける必要はありません。
現在の移動方向を覚えておき、それに基づいて移動処理と次の移動方向に切り替えるかの判定をすれば良いでしょう。

下記に実際に手元で動かしたコードから、一部をコメントに置き換えたものを載せています。
必要に応じて穴埋めして下さい。
ElseIf であれば、どこかに一度入れば、他のブロックは実行されません。

' 今進んでいる方向を表すための列挙値
Private Enum Direction
    Right 
    Down
    Left
    Up
End Enum

' 今進んでいる方向を表すメンバー変数
Private CurrentDirection As Direction = Direction.Right

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ' 今はどちらに進んでいるか
    If CurrentDirection = Direction.Right Then
        ' 右へ
        If ' 右端到達 Then
            ' 次からは下に移動する
            CurrentDirection = Direction.Down
        End If
    ElseIf CurrentDirection = Direction.Down Then
        ' 下へ
        If ' 下端到達 Then
            ' 次からは左に移動する
            CurrentDirection = Direction.Left
        End If
    ElseIf CurrentDirection = Direction.Left Then
        ' 左へ
        If ' 左端到達 Then
            ' 次からは上に移動する
            CurrentDirection = Direction.Up
        End If
    ElseIf CurrentDirection = Direction.Up Then
        ' 上へ
        If ' 上端到達 Then
            ' 次からは右に移動する
            CurrentDirection = Direction.Right
        End If
    End If
End Sub

■No40827 (Azulean さん) に返信

有り難うございます。

Public Class Form1
    Private Enum Direction
        Right
        Down
        Left
        Up
    End Enum

    ' 今進んでいる方向を表すメンバー変数
    Private CurrentDirection As Direction = Direction.Right

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' 今はどちらに進んでいるか
        If CurrentDirection = Direction.Right Then
            ' 右へ
            PictureBox1.Left += 5
            If PictureBox1.Left > 600 Then
                ' 次からは下に移動する
                CurrentDirection = Direction.Down
            End If
        ElseIf CurrentDirection = Direction.Down Then
            ' 下へ
            PictureBox1.Top += 5
            If PictureBox1.Top > 300 Then
                ' 次からは左に移動する
                CurrentDirection = Direction.Left
            End If
        ElseIf CurrentDirection = Direction.Left Then
            ' 左へ
            PictureBox1.Left -= 5
            If PictureBox1.Left < 0 Then
                ' 次からは上に移動する
                CurrentDirection = Direction.Up
            End If
        ElseIf CurrentDirection = Direction.Up Then
            ' 上へ
            PictureBox1.Top -= 5
            If PictureBox1.Top < 0 Then

                CurrentDirection = Direction.Right
            End If
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Timer1.Enabled = Not Timer1.Enabled
        If Timer1.Enabled = True Then
            Button1.Text = "止まれ "
        Else
            Button1.Text = "スタート "

        End If
        Button1.Text = "止まれ "



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Left = 0
        PictureBox1.Top = 0
    End Sub



End Class