最初に第15回北海道開発オフのお知らせ。
2010年最初の開発オフだ。そんな開発オフの第14回目が2009/12/26に開催された。もう2010年2月だけどかまわずレポート。
今回も前回に続いて強制シャットダウンアプリを開発。今回新しくWindows7ノートPCを買ったのでVisual Studio Express Editionを使用して開発ができる。
前回作成したメインフォームではラベルをひとつ置いて、残り秒数を表示するつもりだったが、ちょっと味気ないと思っていたので、事前準備として秒数表示に利用できる画像を探した。ちょうどブログDeveloper @ ADJUSTでライトニングトークタイマーを公開されていたので画像をいただいて使ってみた。カッコヨイ。でもちょっと小さい。ライトニングトークタイマーなので当然か。しかたないのでPaint.NETを使って人気海外ドラマ風な画像を作ってみた。
開発オフ当日は、この画像を基に指定された数値に該当する部分のみのImageを取得するメソッドを用意して、そのメソッドを利用して指定されたDateTimeの値を表示するコントロールを作成するところからはじめた。
完成したものを公開したいが、公開場所などを整えてからにする。
- 日時 / DATE : 2010/02/20 09:30 to 17:00
- 定員 / LIMIT : 18 人
- 会場 / PLACE : 札幌市産業振興センター セミナールーム5(技能訓練棟3F) (札幌市白石区東札幌5条1丁目1-1)
http://atnd.org/events/3063
今回も前回に続いて強制シャットダウンアプリを開発。今回新しくWindows7ノートPCを買ったのでVisual Studio Express Editionを使用して開発ができる。
前回作成したメインフォームではラベルをひとつ置いて、残り秒数を表示するつもりだったが、ちょっと味気ないと思っていたので、事前準備として秒数表示に利用できる画像を探した。ちょうどブログDeveloper @ ADJUSTでライトニングトークタイマーを公開されていたので画像をいただいて使ってみた。カッコヨイ。でもちょっと小さい。ライトニングトークタイマーなので当然か。しかたないのでPaint.NETを使って人気海外ドラマ風な画像を作ってみた。
開発オフ当日は、この画像を基に指定された数値に該当する部分のみのImageを取得するメソッドを用意して、そのメソッドを利用して指定されたDateTimeの値を表示するコントロールを作成するところからはじめた。
また、カウントダウンクラスにTimeUpイベントを追加。残り時間が0になったら発生させる。
''' <summary> ''' デジタル時計風表示のコントロール ''' </summary> Public Class DigitalClock Private Const OneNumWidth As Integer = 80 Private Const OneNumHeight As Integer = 120 Private Const SeparaterWidth As Integer = 40 Private _date As Date Public Sub New() InitializeComponent() Me.DoubleBuffered = True End Sub ''' <summary> ''' 表示する時間を取得・設定する ''' </summary> Public Property Value() As Date Get Return _date End Get Set(ByVal value As Date) _date = value End Set End Property ''' <summary>''' Paintイベントを発生させる ''' </summary> Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) MyBase.OnPaint(e) Dim x As Integer = 0 '分 Dim minutString As String = _date.Minute.ToString("00") Using img As Image = GetNumberImage(Integer.Parse(minutString.Chars(0))) e.Graphics.DrawImage(img, x, 0) End Using x += OneNumWidth Using img As Image = GetNumberImage(Integer.Parse(minutString.Chars(1))) e.Graphics.DrawImage(img, x, 0) End Using x += OneNumWidth '区切り Using img As Image = My.Resources.sep e.Graphics.DrawImage(img, x, 0) End Using x += SeparaterWidth '秒 Dim secondString As String = _date.Second.ToString("00") Using img As Image = GetNumberImage(Integer.Parse(secondString.Chars(0))) e.Graphics.DrawImage(img, x, 0) End Using x += OneNumWidth Using img As Image = GetNumberImage(Integer.Parse(secondString.Chars(1))) e.Graphics.DrawImage(img, x, 0) End Using x += OneNumWidth End Sub ''' <summary>''' 指定数値のImageひとつを取得 ''' <summary> ''' <param name="number">
取得するImageの数値</param> Private Function GetNumberImage(ByVal number As Integer) As System.Drawing.Image Using nums As Bitmap = My.Resources.numbers Dim recF As RectangleF = nums.GetBounds(System.Drawing.GraphicsUnit.Pixel) recF.Width = OneNumWidth recF.X = number * OneNumWidth Return nums.Clone(recF, Imaging.PixelFormat.Format24bppRgb) End Using End Function End Class
これで必要なクラスはそろった。これらのクラスを以下の作戦でシャットダウンアプリを完成させる。
Public Class CountDown Private _period As Integer Private _remaind As Integer Private _timer As Timer ''' <summary>''' コンストラクタ ''' </summary> '''
<param name="period">タイマの間隔</param> ''' <param name="remaind">タイマの残り時間</param> Public Sub New(ByVal period As Integer, ByVal remaind As Integer) Dim callback As New TimerCallback(AddressOf TimerCallback) _timer = New Timer(callback, Nothing, Timeout.Infinite, period) _period = period _remaind = remaind End Sub
''' <summary> ''' カウントダウンを開始する ''' </summary> Public Sub Start() _timer.Change(0, _period) End Sub
''' <summary> ''' カウントダウンする ''' </summary> ''' <param name="state"></param> Private Sub TimerCallback(ByVal state As Object) _remaind -= Me._period If _remaind >= 0 Then '残り時間あり OnTick(New TickEventArgs(_remaind)) Else '残り時間なし OnTimeUp(New System.EventArgs()) End If End Sub
''' <summary> ''' Tickイベントを発生させる ''' </summary> Protected Sub OnTick(ByVal e As TickEventArgs) RaiseEvent Tick(Me, e) End Sub
''' <summary> ''' TimeUpイベントを発生させる ''' </summary> Protected Sub OnTimeUp(ByVal e As System.EventArgs) RaiseEvent TimeUp(Me, e) End Sub
''' <summary> ''' 指定のタイマ間隔が経過したときに発生 ''' </summary> Public Event Tick(ByVal sender As Object, ByVal e As TickEventArgs) Public Event TimeUp(ByVal sender As Object, ByVal e As System.EventArgs) End Class
- カウントダウンクラスのオブジェクトを作成
- TickイベントとTimeUpイベントのハンドラを追加してカウントダウンスタート
- メインフォームをダイアログ表示
- Tickイベントハンドラではイベントデータの残り時間をフォームに渡す
- TimeUpイベントハンドラではメインフォームを閉じる
- メインフォームが閉じたらシャットダウンを実行
完成したものを公開したいが、公開場所などを整えてからにする。
コメント
コメントを投稿