mk-mode BLOG

このブログは自作の自宅サーバに構築した Debian GNU/Linux で運用しています。
PC・サーバ構築等の話題を中心に公開しております。(クローンサイト: GitHub Pages

ブログ開設日2009-01-05
サーバ連続稼働時間
Reading...
Page View 合計
Reading...
今日
Reading...
昨日
Reading...

VBScript - 不快指数計算!

[ pc_tips, プログラミング ] [ VBScript, VisualC++ ]

こんばんは。

最近、節電で不快に感じることが多いので「不快指数」を計算する超簡単なVBScriptアプリを作成してみました。 (WSHが動作可能なWindowsで使用可能です。大抵はデフォルトで使用可能だと思います。) さらに、簡単なので「Visual C#」でGUIアプリも作成しました。(文末参照)

不快指数の計算式は一般的には以下のとおりです。(別の計算式も存在します)

1
「不快指数」= 0.81 * 温度 + 0.01 * 湿度 * ( 0.99 * 温度 - 14.3 ) + 46.3

そして、不快指数と体感の関係は以下のようになっています。

不快指数 体感
~55 寒い
55~60 肌寒い
60~65 何も感じない
65~70 快い
70~75 暑くない
75~80 やや暑い
80~85 暑くて汗が出る
85~ 暑くてたまらない

作業手順

1. VBScriptファイルの作成

例として以下の内容でファイル(ファイル名:fukai.vbs)を作成します。

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
Set StdIn = Wscript.StdIn

WScript.Echo "気温を入力してください。( Enter で終了 )"
temp = StdIn.ReadLine
If temp = "" then
  WScript.Quit
End If

WScript.Echo "湿度を入力してください。( Enter で終了 )"
humi = StdIn.ReadLine
If humi = "" then
  WScript.Quit
End If

fukai = 0.81 * temp + 0.01 * humi * ( 0.99 * temp - 14.3 ) + 46.3

If fukai < 55 Then
  msg = "寒い"
ElseIf fukai < 60 Then
  msg = "肌寒い"
ElseIf fukai < 65 Then
  msg = "何も感じない"
ElseIf fukai < 70 Then
  msg = "快い"
ElseIf fukai < 75 Then
  msg = "暑くない"
ElseIf fukai < 80 Then
  msg = "やや暑い"
ElseIf fukai < 85 Then
  msg = "暑くて汗が出る"
Else
  msg = "暑くてたまらない"
End If

WScript.Echo "不快指数:" & fukai & " ( " & msg & " )"

2. スクリプト実行

Windowsでコマンドプロンプトを開き、上記のファイルの存在するフォルダへ移動し、以下のコマンドを実行する。

1
CSCRIPT fukai.vbs

気温、湿度を入力すれば「不快指数」を表示します。

その他

以上の方法ではいちいちコマンドプロンプトを開いてフォルダを移動しないといけないので面倒です。 以下のようなバッチファイルを作成しておけば、このバッチファイルを実行するだけでよいので手間が省けます。

1
2
3
4
5
@D:
@CD \hoge
@CSCRIPT fukai.vbs
@ECHO.
@PAUSE

※この例は、Dドライブの"\hoge"フォルダに"fukai.vbs"が配置してある場合です。適宜変更してください。


VBScriptによる「不快指数」の計算は以上ですが、簡単な計算なのでついでに「Visual C#」でGUIアプリも作成しました。 こんなの↓

FUKAI_1

  • ダウンロード → FUKAI.lzh EXEファイルにしています。ダウンロード・解凍後即使用可能です。

以上。

Comments