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

> いろいろと不快な思いをさせたことをお詫びします。

僕は不快とは感じませんでしたよ。

「人の話を聞けー!」みたいなとこはあったけども ^^;
というのも、いろんな方々が有用なアドバイスを寄せてくれたんだけど、
それが伝わって(コードに反映されて)なかった。

で、再度書く。

1. 現在の方向を維持したまま、大きさがデタラメの"移動量"を生成する。
2. 可動範囲を超えるようなら"移動量"の方向を反転する
3. "移動量"分だけ移動する。

要は「たったこれだけ」ですわね。

[1] に相当する部分が、僕が示した↓コレ。
If idouryou > 0 Then
  idouryou = rn.Next(10)
Else
  idouryou = -rn.Next(10)
EndIf

[2][3] はどってことないね。

■No39761 (επιστημη さん) に返信
 
> 僕は不快とは感じませんでしたよ。

そういっていただくとホッとしました。('_')

> 「人の話を聞けー!」みたいなとこはあったけども ^^;

そうでしたか。やはり自分のもっている性格は伝わるものなのですね。(^^;)

> 
> 1. 現在の方向を維持したまま、大きさがデタラメの"移動量"を生成する。
> 2. 可動範囲を超えるようなら"移動量"の方向を反転する
> 3. "移動量"分だけ移動する。
> 
> 要は「たったこれだけ」ですわね。

ありがとうございます。再度チャレンジしてみます。
これでできなかったら、適性がないものとあきらめます。
努力も肝心、されど引き際も潔く　と思ってます。(^_^)/

■No39770 (επιστημη さん) に返信
> 「考え抜いた質問」であることが文面に表れてなければ
> 「おしえて君」呼ばわりされても仕方ないでしょうね。

仰るとおりですね。
 
> 質問が巧くなれば習得も楽になります。

日本語も勉強しなきゃだめですね。というかプログラミングは国語力がその源でしたね。
国語力の不足している私には敷居が高いのかもしれません。(-_-;)
（国語力をつけるために数年前から週に1回は、某新聞の読者の声に投稿しています。これまでに4回掲載されたことは
あるのですが…　あ、余計なことでした^^;）
 
> # 解決マークつけときますが、「蒸し返し」大歓迎
有り難うございます。頑張ります(^_^)v
 

■No39782 (επιστημη さん) に返信
 
> 　本掲示板にご回答をお寄せくださる皆様、ご多忙のところ
> 　誠に恐れ入りますが、下記の問題に対しそのままコンパイル
> 　し実行できるプログラムを示していただければ幸甚と存じます。
> 
> なんて書いても「おしえて君」には違いない。てことでしょ。

わかりました。通訳していただきありがとうございます。
ところで早速、修正して作ってみました。
思った通りの動きをしているのですが、いかがなものでしょうか？（これも教えて君になるかな？）


Dim idouryou As Integer = 10      '移動量
    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) 'y座標をランダムに生成



        PictureBox1.Left += idouryou 　'移動量10ずつ右へ進む

        If PictureBox1.Left > Me.Width - PictureBox1.Width Then 　'もし右端を越えたら

            idouryou = -rn.Next(10) 　　　'負の数の移動量を生成し
            PictureBox1.Left += idouryou 　'生成した移動量で左へ進む

        End If

        If PictureBox1.Left < 0 Then 　　'もし左端を越えたら
            idouryou = rn.Next(10) 　　　'正の数の移動量をランダムに生成し
            PictureBox1.Left += idouryou '生成した移動量で右へ進む
        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

■No39788 (επιστημη さん) に返信
 
> 「思った通りの動きをしている」んならいぃんじゃないすか。
 

おしえていただいたデバッグもやってみました。

おかげさまで何とか完成しました。いろいろとご指導いただき有り難うございます。
今後ともよろしくお願いします。m(_ _)m