タイムラグについて (ID:141714)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

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

←解決時は質問者本人がここをチェックしてください。

戻る