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

名前

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

本文

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

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

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

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

戻る