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

名前

ホームページ(ブログ、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
        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 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

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

戻る