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

VB2008
PictureBoxを左右に往復するループを作成しましたが、★のように速度をランダムに発生させると
右端で反転しなくなりました。どこかにまちがいがあるのでしょうか？


Public Class Form1
    Dim number As Integer = 5　→（★　Dim number As Integer ）
    Dim rn As Random = New Random()

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

        PictureBox1.Top = rn.Next(400)
     →   ★ number = rn.Next(10)


        PictureBox1.Left += number
        If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width - PictureBox1.Width Then
            number *= -1


        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



    End Sub


End Class

■No39496 (へっぽこ さん) に返信
>     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
>         PictureBox1.Top = rn.Next(400)
>      →   ★ number = rn.Next(10)
>         PictureBox1.Left += number
>         If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width - PictureBox1.Width Then
>             number *= -1
>         End If
>     End Sub

★のところで、0〜9 という数値 number が生成されますよね。
その後の If 判定で、それを±0〜9 にしているのだと思います。

では、そうして生成された±0〜9 という値は、その後どこで利用されていますか?

■No39500 (魔界の仮面弁士 さん) に返信
> その後の If 判定で、それを±0〜9 にしているのだと思います。
> 
> では、そうして生成された±0〜9 という値は、その後どこで利用されていますか?

下記の部分だと思いますが
PictureBox1.Left += number
        If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width - PictureBox1.Width Then
            number *= -1
なにがおかしいのか理解不能なのです。(-_-;)

> 下記のコードでは往復ループはできているのですが^^;^^;
> 
> Public Class Form1
>     Dim nember As Integer = 10
>... 
>     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
>         PictureBox1.Left += nember
>         If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width Then
>             nember *= -1
>         End If
>     End Sub
> End Class

これがなぜ正しく動く(動いているように見える)かわかります?
このケースでも PictureBoxの位置を変更したあとでnumberの符号を反転させています。
だから本来なら"正しく動くはずがない"。
けどもうまくいってる(ように見える)。
PictureBoxの位置が範囲外であったときの位置補正が
「次のタイムアウトでこのメソッドに飛び込んだとき」に行われるからです。
次のタイムアウトまでnumberの値が変化しないからうまくいってる(ように見える)わけ。

では、ランダムに変化させるコードではどうでしょうか?
「次のタイムアウトまでnumberの値が変化しない」って条件を壊していますよね。

■No39496 (へっぽこ さん) に返信

ランダムだとわからなくなっちゃうんだったら

> Public Class Form1
>     Dim number As Integer = 5　→（★　Dim number As Integer ）
>     Dim rn As Random = New Random()
>     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
>         PictureBox1.Top = rn.Next(400)
>
>      →   ★ number = rn.Next(10)

ここを、
               number = 5

にして、動かしてみれば？！

へっぽこな奴におつきいいただき感謝申し上げます。m(_ _)m
あらためて下記のように書いてみましたが、反転移動しません。
コードはまちがっていないとは思うのですが（しかし、まちがえてるから思った動きをしてくれないんですよねコンピュータは(^^;)


Public Class Form1
    Dim nember As Integer = 10
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = Not Timer1.Enabled
    End Sub

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

        If PictureBox1.Left = 0 Or PictureBox1.Left = Me.Width Then　 '左右どちらかの端に到達したら移動方向を反転
            nember *= -1
            PictureBox1.Left += nember　 'nember=-1をかけた値を代入
        Else
            PictureBox1.Left += nember 　'nember=10を代入
        End If
    End Sub
End Class

■No39565 (.SHO さん) に返信
>>        If PictureBox1.Left = 0 Or PictureBox1.Left = Me.Width Then　 '左右どちらかの端に到達したら移動方向を反転
> 
> ↑ここが最初のコードと違う。
> 

 If PictureBox1.Left < 0 Or PictureBox1.Left > Me.Width Then

確かにこのコードなら反転はします。
でも
If PictureBox1.Left = 0 Or PictureBox1.Left = Me.Width Then　 も間違いではないような気がして…混乱してます。
私の頭はやはり貝の殻でしょうかね？(-_-;)　わたしは貝になりたくない(>_<)