×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
スレッドタイマとしては以下のページに説明をしましたが、
⇒スレッドタイマの使い方
この時のタイマイベントの処理は、単に時刻を表示するだけの処理で時間がほとんど掛からないものでした。 しかし、実際のプログラムではそのようなことはなく、処理時間が結構かかるものが在ると思います。
そこで今回は、タイマイベントの処理の中に時間が掛かる処理のシミュレーションとして Sleep関数で３秒待たせることにしました。 この関数の呼び出しの前後で時刻表示を入れましたので、何時の時点での処理なのかが分かります。 実際のプログラムは以下の様になります。
スレッドタイマの使い方(イベント処理が時間が掛かる場合)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | Imports System.ThreadingImports System.Threading.ThreadPublic Class frmTimerTh2 'スレッドタイマ Private mtimer As System.Threading.Timer ''' <summary> ''' フォームロードイベント ''' </summary> Private Sub frmTimerThMul_Load(sender As Object, e As EventArgs) Handles Me.Load 'タイマコールバック関数 Dim timerDelegate As TimerCallback = New TimerCallback(AddressOf TimerEvent) '1000msecタイマ生成（コールバック関数の設定） mtimer = New Timer(timerDelegate, Nothing, 0, 1000) End Sub ''' <summary> ''' System.Threading.Timer からの呼び出しを処理するメソッド ''' </summary> ''' <param name="state">このデリゲートで呼び出されたメソッドに関連するアプリケーション固有の情報を格納するオブジェクト</param> Private Sub TimerEvent(ByVal state As Object) 'テキストボックスに現在時刻表示 Dim strDate As String = Now.ToString("hh:mm:ss") Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate}) '3秒の待ち Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate & "⇒Start...5秒の待ち"}) Sleep(3 * 1000) Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate & "⇒End.....5秒の待ち"}) End Sub ' ラベル表示デリゲート宣言 Private Delegate Sub SetLabelTextDelegate(ByVal strText As String) ''' <summary> ''' ラベル表示 ''' </summary> ''' <param name="strText">表示文字列</param> Private Sub SetLabelText(ByVal strText As String) Me.TextBox1.Text &= strText & vbCrLf End SubEnd Class |
これを実行させると、以下の様な表示なります。
最初、４個の「Start...5秒の待ち」が続いてその後で「End.....5秒の待ち」が追いかけてくる感じになっています。
これは、スレッドタイマのイベントの時間間隔が１秒なので、先に発生したイベントを待たずに 次々とイベントが発生させていることが分かります。 つまり、各１秒毎のイベントは別々に実行していることになります。
３秒待ちの処理が重なって処理されては困ることになります。 そこで、以下のプログラムの様に、イベント処理中のフラグを用いて処理をスキップさせてみました。
スレッドタイマの使い方(イベント処理が時間が掛かる場合:改良版)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 | Imports System.ThreadingImports System.Threading.ThreadPublic Class frmTimerTh2 'スレッドタイマ Private mtimer As System.Threading.Timer ''' <summary> ''' フォームロードイベント ''' </summary> Private Sub frmTimerThMul_Load(sender As Object, e As EventArgs) Handles Me.Load 'タイマコールバック関数 Dim timerDelegate As TimerCallback = New TimerCallback(AddressOf TimerEvent) '1000msecタイマ生成（コールバック関数の設定） mtimer = New Timer(timerDelegate, Nothing, 0, 1000) End Sub ''' <summary> ''' System.Threading.Timer からの呼び出しを処理するメソッド ''' </summary> ''' <param name="state">このデリゲートで呼び出されたメソッドに関連するアプリケーション固有の情報を格納するオブジェクト</param> Private Sub TimerEvent(ByVal state As Object) '処理中フラグ Static fProcessing As Boolean = False '処理中フラグOFFのチェック If fProcessing = False Then '処理中フラグON fProcessing = True 'テキストボックスに現在時刻表示 Dim strDate As String = Now.ToString("hh:mm:ss") Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate}) '3秒の待ち Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate & "⇒Start...5秒の待ち"}) Sleep(3 * 1000) Invoke(New SetLabelTextDelegate(AddressOf SetLabelText), New Object() {strDate & "⇒End.....5秒の待ち"}) '処理中フラグOFF fProcessing = False End If End Sub ' ラベル表示デリゲート宣言 Private Delegate Sub SetLabelTextDelegate(ByVal strText As String) ''' <summary> ''' ラベル表示 ''' </summary> ''' <param name="strText">表示文字列</param> Private Sub SetLabelText(ByVal strText As String) Me.TextBox1.Text &= strText & vbCrLf End SubEnd Class |
このプログラムの実行は以下の様になり、イベントの多重呼び出しは無くなりました。
関連する記事
⇒Timerコントロールの使い方 ：[Timer,Interval]⇒複数のTimerコントロールの使い方 ：[Timer,Interval]
⇒スレッドタイマの使い方 ：[System.Threading.Timer,Delegate,Invoke]
おすすめ本
コメント