デジタルアラーム

設定した時刻になったらラベルが表示される。

テキストボックスを2つ作る。labelを追加する。
text1のプロパティ :textは空白・・・時の入力用
text2のプロパティ :textは空白・・・分の入力用
Timer1_timer のプログラムに追加

 
  h=val(text1.text)                    :'   Text1の内容を数値化した
  m=val(text2.text)               :'  Text2の内容を数値化した
  if hour(now)=h and minute(now)=m and second(now)=0 then           
      Label2.visible=true          :'   Label2を表示           
  else                                                                   
        Label2.visible=false         :'    Label2を非表示         
  endif                                                                  
とする。label2はプロパティで背景色・Captionを適当に設定しておく。さらに画像が出るようにするのもいいですね。

戻る