タイムラグについて

解決

岩田 2009-03-22 19:04:22 No: 141710

VB2008です
１から１０までの数を入力して,
あっていれば「当たり」はずれたときは「残念」と表示する
プログラムです。
文字を入力し、Xの値が出てから2秒くらいたったから「当たり」などの
表示をさせたいのですが、それらが同時にでてしまいます。
どのようにしたらタイムラグを発生させることができるのかな？

Randomize()
Dim X As Integer

X = Int(Rnd() * 10) + 1

        Dim pn As Integer
        pn = InputBox("1〜10までの数を入力してください")

        Select pn
            Case Is < 0
                MessageBox.Show("1〜10までの数を入力してください")
            Case Is > 10
                MessageBox.Show("1〜10までの数を入力してください")
            Case Is = X

                Label1.Text = X.ToString()
                Label2.Text = pn.ToString()
                Threading.Thread.Sleep(3000)

MessageBox.Show("当たり")
Case Else

                Label1.Text = X.ToString()
                Label2.Text = pn.ToString()
                Threading.Thread.Sleep(3000)

MessageBox.Show("残念")
End Select

魔界の仮面弁士 2009-03-22 19:47:33 No: 141711

> 文字を入力し、Xの値が出てから2秒くらいたったから「当たり」などの
> 表示をさせたいのですが、それらが同時にでてしまいます。

一覧の処理を、ひとつの Sub プロシージャの中で行っているからかと。

「入力させる処理」と「表示させる処理」とは、別のタイミングで
行わせたい処理なのですから、それらは 2 つの処理に分けてください。

> どのようにしたらタイムラグを発生させることができるのかな？

Timer コントロールを使ってみてください。

「文字を入力させる処理」を行った後、Timer を起動するようにします。
そして、Timer の Tick イベントの処理では、当たりなどの表示を
行った後、その Timer を停止させてやれば OK です。

Timer の使い方については、下記を参考にしてみてください。
http://www.microsoft.com/Japan/msdn/archive/student/challenge/chap4_vb/default.aspx

岩田 2009-03-22 21:46:08 No: 141712

う〜ん。これではおかしなことになってしまうのですが

Dim X As Integer

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

X = Int(Rnd() * 10) + 1

                Label1.Text = pn.ToString()


                Timer1.Start()

Case Else

Label1.Text = pn.ToString()

                Timer2.Start()

End Select

End Sub

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

Label2.Text = X.ToString()

        MessageBox.Show("当たり")
        Timer1.Stop()
    End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label2.Text = X.ToString()

MessageBox.Show("残念")
Timer2.Stop()

End Sub
End Class

岩田 2009-03-22 22:23:20 No: 141713

Public Class Form1
Dim X As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
こんな感じでいいのでしょうか？

X = Int(Rnd() * 10) + 1

Label1.Text = pn.ToString()

Timer1.Start()

Case Else

Label1.Text = pn.ToString()

Timer2.Start()

End Select

End Sub

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

Threading.Thread.Sleep(1000)

Timer1.Stop()
Label2.Text = X.ToString()

MessageBox.Show("当たり")

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Threading.Thread.Sleep(1000)

Timer2.Stop()

Label2.Text = X.ToString()

        MessageBox.Show("残念")

    End Sub
End Class

岩田 2009-03-22 22:39:03 No: 141714

何度もすみません。これでいいのでしょうか。
いちおう考えた通りの動きはしていますが

Public Class Form1
Dim X As Integer

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

X = Int(Rnd() * 10) + 1

        Dim pn As Integer
        Label1.Text = ""
        Label2.Text = ""

        pn = InputBox("1〜10までの数を入力してください")

        Select pn
            Case Is < 0
                MessageBox.Show("1〜10までの数を入力してください")
            Case Is > 10
                MessageBox.Show("1〜10までの数を入力してください")
            Case Is = X

Label1.Text = pn.ToString()

Timer1.Start()

Case Else

Label1.Text = pn.ToString()
Timer2.Start()

End Select

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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

        Threading.Thread.Sleep(1000)
        Timer1.Stop()
        Label2.Text = X.ToString()
        MessageBox.Show("当たり")

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Threading.Thread.Sleep(1000)
        Timer2.Stop()
        Label2.Text = X.ToString()
        MessageBox.Show("残念")

    End Sub
End Class

魔界の仮面弁士 2009-03-22 23:52:35 No: 141715

大前提として、こういうときに「Sleep を使ってはいけません」。

Sleep の発動中は、あらゆる処理が完全に停止します。画面の再描画も
行われませんし、マウスやキーボードからの操作も受け付けなくなります。

OS からのメッセージも処理できなくなり、いわゆる「応答なし」の
状態となってしまうため、たとえ短時間であっても、メインスレッドから
Thread.Sleep() を呼ぶ事は避けるべきです。

今回の場合、Timer 自体が遅延実行の役目を果たしますから、
そこに Sleep を加える必要はありません。Timer だけで十分かと。

たとえば、こんな感じですね。

Private X, pn As Integer

Sub Form1_Load(…
Timer1.Interval = 2000 '2秒間
End Sub

Sub Button1_Click(…
  '乱数をセット
  Dim R As New Random()
  X = R.Next(1, 11)  '1 以上 11 未満の整数を返す。

  ' 画面の初期化
  Label1.Text = ""
  Label2.Text = ""

  ' 値を入力してもらう
  Dim pn As Integer
  Dim S As String = InputBox("1〜10までの数を入力してください")
  If S = "" Then
    MessageBox.Show("キャンセルされました。")
  ElseIf Integer.TryParse(S, pn) = False OrElse (pn < 0) OrElse (pn > 10) Then
    MessageBox.Show("1〜10までの数しか入力できません")
  Else
    ' 1〜10 の数が入力されたら、タイマーを起動
    Button1.Enabled = False  ' ボタンを使用禁止にして、連続して押されないようにする
    Label1.Text = pn.ToString()
    Timer1.Start()  ' タイマーを起動（2 秒後に Tick イベントが発生する）
  End If

End Sub

Sub Timer1_Tick(…
  Timer1.Stop()  ' タイマーを止める
  Label2.Text = X.ToString()
  MessageBox.Show( If(pn = X, "当たり", "残念") )
  Button1.Enabled = True  ' もう一度できるよう、ボタンを元に戻す
End Sub

岩田 2009-03-23 02:38:10 No: 141716

コードまで書いていただき感謝、感謝です。
VBは、なかなか進歩しませんが、今後ともよろしくお願いします。
ありがとうございました。m(_ _)m