━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ レンタル掲示板とクイズ投稿サイトを開発した櫻井文人の プログラムの考え方が身につくメルマガ『プログラムは考え方です』 ─────────────────────────────────── メルマガ発行人 櫻井文人のプロフィール ⇒ http://www.bunzin.net/program/prof.html ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ こんにちは、メルマガ発行人の櫻井文人です。 小さいパソコンには「Tab」キーが便利です。詳しくは編集後記で。 それでは、引き続きイベント駆動型プログラミングを使った タイマーのプログラムを作っていきましょう。 今回は「-」ボタンがクリックされた時に、タイマーの秒数を減らす処理を 追加してみましょう。 今回でついにプログラムは完成です。 ─────────────────────────────────── 【おすすめ】 かわいいライオンのぬいぐるみが・・・ なんとびっくり！！ テレビになりました。 9.6インチ液晶テレビ HANNSPree Zoo.Lion 販売価格：19,000円 (税込：19,950円) コチラ ⇒ http://www.moshimo.com/article/121691/143767 こんなテレビがおうちにあれば、あなたのお子様もきっと大喜びです。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ■■ タイマーの秒数をクリックで増やす処理を追加 ─────────────────────────────────── 今回は、タイマーの秒数をクリックで減らすための処理を追加します。 「-」ボタンがクリックされた時に タイマーの秒数を減らす処理を追加します。 ■追加する処理の概要 「-」ボタンがクリックされたら、入力されている秒数を取得します。 そして、取得した秒数をチェックして問題がなければ、 取得した秒数に1秒減らした値を入力欄に戻します。 ■タイマーの秒数をクリックで減らす処理を追加 タイマーのプログラムのイベントハンドラー「clicked_minus()」に タイマーの秒数を減らすための処理を追加します。 処理を追加後のイベントハンドラー「clicked_minus()」の内容は 以下のとおりです。 １行目：rem ********************************************** ２行目：rem イベントハンドラ「clicked_minus()」 ３行目：rem 「-」ボタンがクリックされた時の処理 ４行目：rem ********************************************** ５行目：function clicked_minus() ６行目： now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value ７行目： If now_cnt = "" Then ８行目： MsgBox "秒数を入力してください。" ９行目： ElseIf IsNumeric(now_cnt) = false Then １０行目： MsgBox "秒数は数字で入力してください。" １１行目： ElseIf now_cnt > 0 Then １２行目： ie.Document.GetElementsByName("COUNTER")(0).value = now_cnt - 1 １３行目： End If １４行目：end function 今回は６行目から１３行目を追加しました。 ・６行目では、画面の入力欄から秒数を取得して、now_cnt変数に 格納しています。 ・７行目から１０行目までは、 入力された秒数のエラーチェックをしています。 入力された秒数が空っぽだったら 「秒数を入力してください。」と、 入力された秒数が数字でなかったら 「秒数は数字で入力してください。」と、 エラーを表示します。 入力された秒数にエラーがなかった場合だけ、 １１行目以降の処理を実行します。 ・１１行目では、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() now_cnt = ie.Document.GetElementsByName("COUNTER")(0).value If now_cnt = "" Then MsgBox "秒数を入力してください。" ElseIf IsNumeric(now_cnt) = false Then MsgBox "秒数は数字で入力してください。" ElseIf now_cnt > 0 Then ie.Document.GetElementsByName("COUNTER")(0).value = now_cnt - 1 End If 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」をダブルクリックすると、 すぐにプログラムが動きます。 ■次回のメルマガでは・・・ ついに、全てのボタンの処理が追加されました。 というわけで、タイマープログラムは完成です。 お疲れ様でした。 少しでもイベント駆動型プログラミングの雰囲気が皆様に 伝わりましたでしょうか？ 次回からは、タイマープログラムをいろいろいじって改造してみる ことを予定しています。 お楽しみに・・・。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ■■ 編集後記 ─────────────────────────────────── 私はEeePCというパソコンを使っています。 小さくて持ち運んで使うにはとても便利なんですが、 なにせ画面も小さいので、たまに困ることもあります。 例えば、ブラウザでホームページを見る場合は、 この小さい画面が仇になります。 どのホームページも大きい画面を想定して作ってあるので、 チョコチョコと画面をスクロールさせて見るのは煩わしいですね。 この場合は、面倒ながら、まだ見れるのでなんとかなりますが、、 たまにスクロールできない画面なんかがあるとお手上げですよね。 でも、こんな場合でも、「Tab」キーを使うとなんとかなります。 「Tab」キーをクリックするごとに、 ホームページの中のボタンやリンクが順番に選択されます。 そのうち、ＰＣの画面の外にあるボタンやリンクが選択されてきますが、 そのタイミングで隠れた画面が見えてくるようになります。 押したいボタンが画面の外に隠れてる場合も、同じように「Tab」キーを クリックしていけば、押したいボタンに辿り着きます。 画面の小さいパソコンを使う方は、ぜひ試してみてください。 最後までお読みいただき、ありがとうございました。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ●櫻井が開発したレンタル掲示板は コチラ ⇒ http://www.bunzin.gr.jp/m_board/ 画像のアップロードも可能なレンタル掲示板です。 無料ですのでお気軽にどうぞ。 ●櫻井が開発したクイズ投稿サイトは コチラ ⇒ http://www.bunzin.gr.jp/quiz/ あなたが考えたクイズを投稿することができます。 投稿されたクイズに回答することもできます。 無料ですのでお気軽にどうぞ。 ●お手軽！VBScriptを使ってみよう コチラ ⇒ http://www.bunzin.net/program/vbscript/ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ メルマガ発行人 櫻井文人 メルマガ発行責任者情報は コチラ ⇒ 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 （メール送信の際は、●を@に置き換えてください。） （櫻井が確実に読みますが、返信は保障できません。） ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ |