システム情報を表示する

WinCE 6.0は標準ではバッテリーの状態を表示してくれないんですね。
エディタでスクリプトを作成している時等は、いきなりシャットダウンすると困るんで、バッテリー残量を表示するスクリプトをデスクトップに置いておくことにしました。
常駐するタイプのアプリで動作するものも試したんですが、まぁ、それほどの機能はいらんだろということで。

#デバイスの状態を表示するスクリプト

title = "デバイス情報"

x = BatteryPercentage()
y = SystemVersion("platform")
z = SystemVersion()
fm = FreeMemory(MB)
tm = TotalMemory(MB)

mes = "PlatForm" & ": " & "^TAB^" & "^TAB^" &"^TAB^" & "^TAB^" & "^TAB^" & y & "^NL^"
mes = mes & "Version" & ": " & "^TAB^" & "^TAB^" & "^TAB^" &"^TAB^" & "^TAB^" & z & "^NL^"
mes = mes & "Total Memory" & ": " & "^TAB^" & tm & "MB" & "^NL^"
mes = mes & "Free Memory" & ": " & "^TAB^" &"^TAB^" & fm & "MB" & "^NL^"
mes = mes & "Main Battery"  & ": " & "^TAB^" & "^TAB^" & x & "%"

Message (mes,title)

バッテリー残量が10%辺りで、バッテリーを交換しています。

還暦ではないが

私も還暦にはまだ数年間があるが、一足早く赤いちゃんちゃんこ代わりの車を買ってみた。

真っ赤なコンパクトカーに乗る親父は哀れと笑を誘う。
しかし、そんなことは気にしていられない。
●良い点
目立つ
乗ってる人をあまり見かけない
安い
製造はハンガリーのマジャールスズキ社で立派なヨーロッパ車である
シートの出来がかなり良い。
足回りがしっかりしている。
親子４人乗車で誰からも苦情が出ない

●悪い点
運転席の窓がオートで閉まらない。最初は壊れてるのかと思ったが仕様らしい(笑
タコメーターすら省かれたシンプルなメーターは良いのだが、水温計はちょっと欲しい

確かスイフトスポーツは220kmだったと思うが、こちらもちゃっかり200kmまで刻まれている。
出るのか？200km(笑い