|
■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
|