ジャニーズ事務所、吉本興業問題などここにきてテレビ局のあり方に批判が出てきている。
そんな中、「ミヤネ屋」が惨敗の報道、いまさらという思いである。 「宮根誠司」はとにかく、目立ちたがり、出しゃばり、自分ファーストの塊
コメンテーターの発言を遮り自分で発言するなら、コメンテーターは最初からいらない。全部一人でやれよ!
普通の感覚なら「コゴスマ」見るでしょ。
それでも降板させられない、テレビ局の事情とはなんなのか?
Accessによる学校関係システム第4弾です。以下より、参考にしてください。
タイマーと言えば、ゲームなどのライフインジケータ形式のものが視覚的には便利です。
かつて、VisualBasic版のアプリで実装したものをAccessのアプリにも実装しました。
ついでなのでデジタル式のタイマーも実装しようと思いましたが、秒だけなら簡単ですが、分も入ると結構大変そうです。
というより面倒そうなことは考えたくないので、何かいい方法はないかと時間や日付関係の関数を調べていると使えそうなものがありました。
ちよっとした「ごまかし」なのですが十分な機能を果たします。
下記のURLに開発経緯の詳細はありますので参考にしてください。
今回、タイマー機能だけ取り出したものをここで公開します。
まず画面例を見てもらいます。
何分何秒の設定ができるような仕様です。
何時間何分何秒も可能です。実はこちらの方が簡単です。「ごまかし」と言ったのは、実は時間の部分を表示していないだけです。
分と秒をセットして、リセットボタンを押すと時間がセットされます。あとはスタート、ストップでタイマーとなります。
残り時間が0になると「時間です」のメッセージが出ます。
使用した関数は
TimeSerial
DateAdd
の2つです。
TimeSerial関数の「分」と「秒」だけ利用します。DateAdd関数の"s"秒単位と"-1"を利用します。
実際のコードを以下に示します。
Option Compare Database
Dim i As Integer
Dim dt As Date
Private Sub Form_Timer()
dt = DateAdd("s", "-1", dt)
Me.twatch = Right(Format(dt, "hh:mm:ss"), 5)
i = i + 1
If i = Me.tmin * 60 + Me.tsec Then
MsgBox "時間です"
Me.TimerInterval = 0
Exit Sub
End If
End Sub
Private Sub cmdReset_Click()
dt = TimeSerial(7, Me.tmin, Me.tsec) '時間部分は適当な数字を
i = 0
Me.twatch = Right(dt, 5)
End Sub
Private Sub cmdStart_Click()
Me.TimerInterval = 1000
End Sub
Private Sub cmdStop_Click()
Me.TimerInterval = 0
End Sub
「分」「秒」表示はFormatはなくてもRight関数だけで大丈夫です。
あと工夫するとすれば、残り10秒になったら、文字色を赤くするとか、大きくするとかすればよいかもしれません。
その場合は、残り10秒を判断するには、カウンターを減らすようにした方が分かりやすいでしょう。
現状はi=i+1です。これを初期値をi = Me.tmin * 60 + Me.tsecにしてi=i-1とする。
そうすれば、直接 if i <=10 then が使えます。
Accessをフォームアプリケーションのプラットホームとして使う例を公開しました。
データベースとは何の関係もありませんので、プログラミングの勉強をしたいと思っている人は参考にしてください。
これからデータベースを始めようとしている人はご覧ください。
https://have-stone.iobb.net/wordpress/?p=242
https://have-stone.iobb.net/wordpress/?p=290
Accessによる成績処理プログラムを公開しました。
(再掲載のため、リンクを更新しました。2020年1月5日)
