━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
レンタル掲示板とクイズ投稿サイトを開発した櫻井文人の
プログラムの考え方が身につくメルマガ『プログラムは考え方です』
───────────────────────────────────
メルマガ発行人
櫻井文人のプロフィール ⇒ http://www.bunzin.net/program/prof.html
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

こんにちは、メルマガ発行人の櫻井文人です。
VBScriptについて整理してみることにしました。
詳しくは編集後記で。


それでは、引き続きイベント駆動型プログラミングを使った
タイマーのプログラムを作っていきましょう。

今回は「+」ボタンがクリックされた時に、タイマーの秒数を増やす処理を
追加してみましょう。


───────────────────────────────────
【おすすめ】

　もうすぐクリスマスですね。

　そんなクリスマス気分を演出するために、
　あなたのお家の前にもピカピカ光る小さなトナカイはいかがですか？

　　コチラ ⇒ http://www.moshimo.com/article/121691/136321

　日中に太陽光で充電するので電気代の心配はいりません。

　　ソーラー充電式イルミネーションライト - トナカイ型

　　販売価格：3,791円　(税込：3,980円)

　　コチラ ⇒ http://www.moshimo.com/article/121691/136321


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■■　タイマーの秒数をクリックで増やす処理を追加
───────────────────────────────────

今回は、タイマーの秒数をクリックで増やすための処理を追加します。

「+」ボタンがクリックされた時に
タイマーの秒数を増やす処理を追加します。


■追加する処理の概要

　「+」ボタンがクリックされたら、入力されている秒数を取得します。
　そして、取得した秒数をチェックして問題がなければ、
　取得した秒数に1秒足した値を入力欄に戻します。
　

■タイマーの秒数をクリックで増やす処理を追加

　タイマーのプログラムのイベントハンドラー「clicked_plus()」に
　タイマーの秒数を増やすための処理を追加します。　

　処理を追加後のイベントハンドラー「clicked_plus()」の内容は
　以下のとおりです。


    １行目：rem **********************************************
    ２行目：rem イベントハンドラ「clicked_plus()」
    ３行目：rem 「+」ボタンがクリックされた時の処理
    ４行目：rem **********************************************
    ５行目：function clicked_plus()
    ６行目：   now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value
    ７行目：   If now_cnt = "" Then
    ８行目：      MsgBox "秒数を入力してください。"
    ９行目：   ElseIf IsNumeric(now_cnt) = false Then
  １０行目：      MsgBox "秒数は数字で入力してください。"
  １１行目：   Else
  １２行目：      ie.Document.GetElementsByName("COUNTER")(0).value = now_cnt + 1
  １３行目：   End If
  １４行目：end function


　今回は６行目から１３行目を追加しました。

　・６行目では、画面の入力欄から秒数を取得して、now_cnt変数に
　　格納しています。

　・７行目から１１行目までは、
　　入力された秒数のエラーチェックをしています。
　　入力された秒数が空っぽだったら
　　　「秒数を入力してください。」と、
　　入力された秒数が数字でなかったら
　　　「秒数は数字で入力してください。」と、
　　エラーを表示します。
　　入力された秒数にエラーがなかった場合だけ、
　　１２行目の処理を実行します。

　・１２行目では、now_cnt変数の内容に1を足した値を、画面の入力欄に戻しています。


■修正後のプログラム

　以下が、修正後のタイマープログラムです。

----------------------------------------------------------------------
rem プログラムの開始

rem **********************************************
rem お手軽タイマープログラム
rem **********************************************

rem **********************************************
rem プログラムの準備
rem **********************************************
set w = WScript

set ie = CreateObject("InternetExplorer.Application")
ie.Width = 350
ie.Height = 130
ie.ToolBar = false
ie.StatusBar = false
ie.Resizable = false
ie.Visible = true
ie.Navigate "about:blank"
do while ie.Busy
  w.sleep 100
loop

html = "" _
+ "<form name=""form1"" >" _
+ "   <table width=300><tr><td>" _
+ "      <input type=""hidden"" name=""CLICKED_PLUS""  value=""false"">" _
+ "      <input type=""hidden"" name=""CLICKED_MINUS"" value=""false"">" _
+ "      <input type=""hidden"" name=""CLICKED_START"" value=""false"">" _
+ "      <input type=""hidden"" name=""CLICKED_STOP""  value=""false"">" _
+ "      <input type=""hidden"" name=""CLICKED_CLOSE"" value=""false"">" _
+ "      <input type=""text"" name=""COUNTER"" size=5>" _
+ "      <input type=""button"" " _
+ "         onClick = ""getElementsByName('CLICKED_PLUS')(0).value = 'true';""" _
+ "         value=""＋"">" _
+ "       <input type=""button"" " _
+ "         onClick = ""getElementsByName('CLICKED_MINUS')(0).value = 'true';""" _
+ "         value=""−"">" _
+ "      <br>" _
+ "      <input type=""button"" " _
+ "         onClick = ""getElementsByName('CLICKED_START')(0).value = 'true';""" _
+ "         value=""スタート"">" _
+ "      <input type=""button"" " _
+ "         onClick = ""getElementsByName('CLICKED_STOP')(0).value = 'true';""" _
+ "         value=""ストップ"">" _
+ "   </td><td align=""right"" valign=""top"">" _
+ "      <input type=""button"" " _
+ "         onClick = ""getElementsByName('CLICKED_CLOSE')(0).value = 'true';""" _
+ "         value=""閉じる"">" _
+ "   </td></tr></table>" _
+ "</form>" _

ie.Document.Body.InnerHtml = html
ie.Document.Title = "お手軽タイマー"

on error resume next

ie.Document.GetElementsByName("COUNTER")(0).value = 180
status = "IDLE"
bef_sec = 0

rem **********************************************
rem イベントループ
rem **********************************************
do while ie.Busy or status <> "CLOSE"

   If ie.Document.GetElementsByName("CLICKED_PLUS")(0).value <> "false" Then
      ie.Document.GetElementsByName("CLICKED_PLUS")(0).value = "false"
      clicked_plus()
   End If

   If ie.Document.GetElementsByName("CLICKED_MINUS")(0).value <> "false" Then
      ie.Document.GetElementsByName("CLICKED_MINUS")(0).value = "false"
      clicked_minus()
   End If

   If ie.Document.GetElementsByName("CLICKED_START")(0).value <> "false" Then
      ie.Document.GetElementsByName("CLICKED_START")(0).value = "false"
      clicked_start()
   End If

   If ie.Document.GetElementsByName("CLICKED_STOP")(0).value <> "false" Then
      ie.Document.GetElementsByName("CLICKED_STOP")(0).value = "false"
      clicked_stop()
   End If

   If ie.Document.GetElementsByName("CLICKED_CLOSE")(0).value <> "false" Then
      ie.Document.GetElementsByName("CLICKED_CLOSE")(0).value = "false"
      clicked_close()
   End If

   If status = "EXE_COUNT_DOWN" Then exe_count_down()

   w.sleep 100

loop

ie.Quit

rem **********************************************
rem イベントハンドラ「clicked_plus()」
rem 「+」ボタンがクリックされた時の処理
rem **********************************************
function clicked_plus()
   now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value
   If now_cnt = "" Then
      MsgBox "秒数を入力してください。"
   ElseIf IsNumeric(now_cnt) = false Then
      MsgBox "秒数は数字で入力してください。"
   Else
      ie.Document.GetElementsByName("COUNTER")(0).value = now_cnt + 1
   End If
end function

rem **********************************************
rem イベントハンドラ「clicked_minus()」
rem 「-」ボタンがクリックされた時の処理
rem **********************************************
function clicked_minus()
end function

rem **********************************************
rem イベントハンドラ「clicked_start()」
rem 「スタート」ボタンがクリックされた時の処理
rem **********************************************
function clicked_start()
   now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value
   If now_cnt = "" Then
      MsgBox "秒数を入力してください。"
   ElseIf IsNumeric(now_cnt) = false Then
      MsgBox "秒数は数字で入力してください。"
   ElseIf now_cnt < 1 Then
      MsgBox "秒数は1秒以上で入力してください。"
   Else
      bef_sec = Second(Now)
      status = "EXE_COUNT_DOWN"
   End If
end function

rem **********************************************
rem イベントハンドラ「clicked_stop()」
rem 「ストップ」ボタンがクリックされた時の処理
rem **********************************************
function clicked_stop()
   status = "IDLE"
end function

rem **********************************************
rem イベントハンドラ「clicked_close()」
rem 「閉じる」ボタンがクリックされた時の処理
rem **********************************************
function clicked_close()
   status = "CLOSE"
end function

rem **********************************************
rem イベントハンドラ「exe_count_down()」
rem カウントダウン実行中の時の処理
rem **********************************************
function exe_count_down()
   now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value
   now_sec = Second(Now)
   If bef_sec <> now_sec Then
      bef_sec = now_sec
      now_cnt = now_cnt - 1
      ie.Document.GetElementsByName("COUNTER")(0).value = now_cnt
   End If
   If now_cnt <= 0 Then
      MsgBox "時間になりました"
      status = "IDLE"
   End If
end function

rem プログラムの終了
----------------------------------------------------------------------


■プログラムを動かしてみる。

　途中からメルマガを読んだ方などのために、復習も兼ねて、プログラムを
　動かす方法を記述しておきます。

　【プログラムを動かす方法】

　　　(１)「rem プログラムの開始」から「rem プログラムの終了」までを
　　　　　コピーしてメモ帳を開いて貼り付けましょう。

　　　(２)そして「timer.vbs」いうファイル名で適当な場所に保存しましょう。

　　　(３)保存した「timer.vbs」をダブルクリックすると、
　　　　　すぐにプログラムが動きます。


■次回のメルマガでは・・・

　いよいよ、残っているボタンは「-」ボタンだけとなりました。

　ということで、次回は、「-」ボタンがクリックされた時の処理を
　追加してみたいと思います。

　次回で、ついにタイマーが完成となります。

　お楽しみに・・・。


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
■■　編集後記
───────────────────────────────────

今まで、メルマガではプログラミングの実習のための
プログラム言語としてVBScriptを使用してきました。

そこで、せっかくの機会なので、VBScriptについてホームページに
整理しておこうと思い立ちました。

そして、早速作り始めたのが下記のページです。

　『お手軽！VBScriptを使ってみよう』

　　コチラ ⇒ http://www.bunzin.net/program/vbscript/

まだ作り始めたばかりなので、内容が薄いですが、
これから、関数の使い方や、プログラム例などを増やしていって
充実させていく予定です。

というわけで、たまに見に来て参考にしていただければ嬉しいです。


最後までお読みいただき、ありがとうございました。


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

●櫻井が開発したレンタル掲示板は
　　コチラ ⇒ http://www.bunzin.gr.jp/m_board/

　　画像のアップロードも可能なレンタル掲示板です。
　　無料ですのでお気軽にどうぞ。


●櫻井が開発したクイズ投稿サイトは
　　コチラ ⇒ http://www.bunzin.gr.jp/quiz/

　　あなたが考えたクイズを投稿することができます。
　　投稿されたクイズに回答することもできます。
　　無料ですのでお気軽にどうぞ。


━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
メルマガ発行人　櫻井文人

メルマガ発行責任者情報は
 コチラ ⇒ http://www.bunzin.net/program/mghsinfo.html

アドレス変更と登録解除はコチラ ⇒ http://www.mag2.com/m/0000293166.html

メルマガバックナンバーは
 コチラ ⇒ http://www.bunzin.net/program/mailmaga/backnumber/

櫻井文人のプロフィール ⇒ http://www.bunzin.net/program/prof.html

ご意見・ご感想はコチラ ⇒ bunzin●bunzin.gr.jp
（メール送信の際は、●を@に置き換えてください。）
（櫻井が確実に読みますが、返信は保障できません。）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━