時刻に合わせたメッセージの表示

30分プログラム、その242。新しくプログラミング言語を覚えたいときに行うべき10の練習問題 | IDEA*IDEAの問題をやってみる。

2. 現在時刻にあわせてやる気のでるメッセージを出力（例：もうすぐランチ！がんばれ！）。

使い方

$ wish time-msg.sh

ソースコード

#!/usr/bin/env wish
wm title . "メッセージ"
button .btn -text Msg -command {
    set hour [exec date +%H]
    set now  [exec date]
    if {5 < $hour && $hour < 9} then {
	set msg "$now :朝ですよ"
    } elseif {9 <= $hour && $hour < 15} then {
	set msg "$now :お昼です"
    } elseif {15 <= $hour && $hour < 19} then {
	set msg "$now :夕方ですよ"
    } elseif {19 <= $hour && $hour < 23} then {
	set msg "$now :こんばんは"
    } elseif {23 <= $hour || $hour <= 5} then {
	set msg "$now :真夜中"
    }
}

label .msg -text "<message area>" -textvariable msg -width 40
pack  .btn .msg

参考

• 過去の30分プログラム