ＶＢで一定時間毎に他のプログラムを起動する方法について

Ｖｉｓｕａｌ　Ｂａｓｉｃ　の初心者です。

ＶＢから他のプログラムを起動させるには（例えばノートパッドを起動させる場合）

System.Diagnostics.Process.Start("notepad.exe")

とアプリケーション名を記載することで可能だと思いますが、例えばこれを２分毎に実行させたい場合には、どのようにコードを書くことが、ベストでしょうか。

初心者にもわかりやすい方法をご教授のほどよろしくお願いいたします。

No.1 回答者： tatsu99 回答日時： 2016/10/05 17:00

Timerコンポーネントを使用します。

ツールボックスのコンポーネント内にあるTimerをフォームへドラッグします。
そのドラッグしたTimerのプロパティを開き
intervalに値を設定します。ミリ秒単位なので、1秒なら1000,2分なら1000*60*2=120000を指定します。
enabledにtrueを設定します。
そのTimerをダブルクリックすると
以下のようなプロシージャが作られます。
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
ここへ2分ごとに実行したい処理を記述します。今回の例なら
　　　System.Diagnostics.Process.Start("notepad.exe")　等
End Sub
上記のプロシージャは、windowsから2分ごとに呼び出されます。

この回答へのお礼

早速のご回答ありがとうございます。

補足としての質問なのですが、２分経過後にプログラムＡ、その後１分経過後にプログラムＢを起動し、このサイクルを繰り返した場合はどのように実施すればよろしいでしょうか。

お礼日時：2016/10/05 17:21

No.2 ベストアンサー 回答者： tatsu99 回答日時： 2016/10/05 17:49

＞補足としての質問なのですが、２分経過後にプログラムＡ、その後１分経過後にプログラムＢを起動し、こ＞のサイクルを繰り返した場合はどのように実施すればよろしいでしょうか。

１．Timerを１分間隔で呼び出すようにします。
２．カウンターを設けます。
３．フォームの起動時にカウンターを０に設定します。
４．Timer1_Tickの先頭で、タイマーに１加算します。
カウンターが２のとき、Aを実行し、
カウンター３のとき、Bを実行し、タイマーを０にします。

Timer1_Tickは以下のようになります。
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
カウンター＝カウンター＋１
if カウンター=2 then
プログラムAの起動
end if
if カウンター=３ then
プログラムAの起動
カウンター=0
end if
End Sub

カウンターは、Timer1_Tickの中で宣言しないでください。（グローバル領域で宣言します）

この回答へのお礼

下記コードを書いたのですが、Ｂｕｔｔｏｎ１を押すと１回はBeep()とnotepadを起動するのですが、繰り返しがなされません。

どこに不具合があるのでしょうか。

Public Class Form1
Dim count1 As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Timer1.Start()

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
count1 = count1 + 1
If count1 = 2 Then
Beep()
End If
If count1 = 3 Then
System.Diagnostics.Process.Start("notepad.exe")
End If
End Sub

End Class

お礼日時：2016/10/05 21:13

No.3 回答者： tatsu99 回答日時： 2016/10/05 17:53

No2です。

一点、誤りがありました。
if カウンター=３ then
プログラムAの起動・・・・誤り
カウンター=0
end if
上記のプログラムAの起動　は、
プログラムBの起動　が正しいです。

この回答へのお礼

早速のご回答ありがとうございます。
プログラミングを行ってみます。

お礼日時：2016/10/05 19:53