ストップ・ウォッチです。

【実行画面】
 




< VBScript >

'////////////////////////////////////////////////////////////////////
'//
'//     ストップ・ウォッチ
'//
Option Explicit
Dim res1, res2
Dim sTime, eTime

Do
    res1 = MsgBox("[ OK ] を押すとスタート!!",1,"ストップ・ウォッチ")
    If res1 = 2 Then
        WScript.Quit
    End If

    sTime = Timer               '//スタートのタイム
    MsgBox "ただいま計測中・・・" & vbCR & vbCR &_
        "[ OK ] を押すと、ストップ!",1,"計測中・・・" 
    eTime = Timer               '//ストップのタイム
    
    '//結果発表
    res2 = MsgBox(eTime - sTime & " 秒 !!" & vbCR & vbCR &_
        "[ OK ]で最初の画面に戻ります。" & vbCR &_
        "終了するときは [ キャンセル ]",65,"計測完了")
    If res2 = 2 Then
        WScript.Quit
    End If
Loop




戻る