C# と VB.NET の質問掲示板

■No79374 (shu さん) に返信

ありがとうございます。

これは30秒毎にとある処理をしょうとするものです。
これで合ってるでしょうか？

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Do
            If Mid(DateTime.Now, 18, 2) = "00" Then       '時計の00秒になればスタート
                MessageBox.Show(DateTime.Now.ToString())  'ここでとある処理を実行
                System.Threading.Thread.Sleep(30000)      '30秒のスリープ
                MessageBox.Show(DateTime.Now.ToString())  'ここでとある処理を実行
            End If
        Loop
    End Sub
End Class

■No79378 (shu さん) に返信

ありがとうございます。

無限ループは禁じ手なのですね。
一応作ってみました。
ご指導の程お願いします。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    'タイマーを開始
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()             '果たしてこれも要るのかは不明です。
        Timer1.Enabled = True
    End Sub
    'タイマーを停止
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()              '果たしてこれも要るのかは不明です。
        Timer1.Enabled = False
    End Sub
    '時計の30秒毎にとある処理を実行
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If DateTime.Now.Second = 0 Or DateTime.Now.Second = 30 Then
            Timer1.Enabled = False
            MessageBox.Show(DateTime.Now.ToString())  'ここでとある処理を実行
            Timer1.Enabled = True
        End If
    End Sub
End Class