Windows HTAでシンプルなストップウォッチを作成

はじめに
参照元
結果
メモ
最後に

はじめに

30秒でポーズを描く練習をここ一ヶ月ほど続けている。プロには程遠くてもかなりうまくなったように思いますね。

しかしレベルが上がれば次の課題も出て来ます。

今抱えている課題は全体のバランスがおかしくなる事がよくあるという点。

私の場合全体を描かずに詳細を描き始めると高確率でこうなります。かなりラフで良いので全体を描くことから始めなければならない。

しかしそこまで時間を掛けたくないのでその時間を平均時間を確認するため簡単なストップウォッチをHTAで作成。

HTAはHTMLソースで書ける上にブラウザとは独立したウィンドウで起動するため今回のような単純なものにはもってこいです。

HTMLがある程度書けるなら拡張子を HTA にするだけでHTAアプリケーションが完成するのでお手軽です。

ただし多少古い技術のように思えるため、いつまで使えるかは不明です。

参照元

参考

oshiete.goo.ne.jp

結果

参照元のソースを修正して完了
リセットボタンを押すと0からカウントアップし直す

起動方法。下記のソースの拡張子を hta にして実行

<html>
<head>
<title>SimpleStopWatch</title>
<HTA:APPLICATION
APPLICATIONNAME="SimpleStopWatch"
ID="HtaStopWatch"
BORDER="dialog"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
SCROLL="no"
VERSION="1.0"/>
</head>

<script language="VBScript">

Dim tOut
startTime = Now

Sub DisplayClock()
 document.all.disp.innerText = FormatDateTime(Now - startTime,0)
End Sub

Sub Window_OnLoad
 Dim width,height
 width=250
 height=200
 Self.ResizeTo width,height
 tOut = setInterval("DisplayClock()", 100)
End Sub

Sub ResetClickButtonOK()
 startTime = Now
End Sub

</script>

<body style="text-align:center; font-size:30pt" bgcolor="buttonface">
<div id="disp"></div>
<input type="button" style="width: 220px; height: 90px" name="RESET" id="RESET" value="RESET" onclick="ResetClickButtonOK">
</body>
</html>Code language: HTML, XML (xml)