[AdamSpeight2008]

Challenge: Timepieces

Challenge

Simply build a clock. It's can be as simple as you like, or as complicated as you.

Examples
Binary Clock
Analogue Console Clock

---

Entrants

• Frameworks required.
  
• vb.net submissions are preferred.
  
• SourceCode must be in spoilered code tags.
  
  Spoiler

  
  If you don't want to reveal your code, then don't submit a submission.
  
• If you like you can include a Zip-File of the project / executable.

[CharlieMay]

OK, I'm going to spend as much time describing this as I spent making it. I'm not proud of it but I thought I'd play around with something completely crazy.

I cheated, I used the DrawPie method because I could just set the angle and go. Really not much to look at but I think it show just have creative you can be with .Net

Hope you get a laugh out of this. It should at the very least show you how little I know about drawing on a form.

Spoiler

Public Class Form1
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'display the time in the form title so we can have a point of reference
        Me.Text = DateTime.Now.ToString("hh:mm:ss")
        'set up some pins with a width of 2 clrPen is used to erase the previous graphic.
        Dim clrPen As New Pen(SystemColors.Control, 2)
        Dim secPen As New Pen(Color.Red, 2)
        Dim minPen As New Pen(Color.Blue, 2)
        Dim hrsPen As New Pen(Color.LightBlue, 2)


        Dim g As Graphics
        'set up some offsets because the timeAngles don't break down to their angle on a clock.
        Dim DegreeOffset As Integer = 15
        Dim hrsOffset As Integer = 3
        'use the second, minute and hour methods to calculate an angle to draw.
        Dim secAngle As Integer = (Second(Now) - DegreeOffset) * 6
        Dim minAngle As Integer = (Minute(Now) - DegreeOffset) * 6
        Dim hrsAngle As Integer = (Hour(Now) - hrsOffset) * 30
        g = CreateGraphics()

        'set up the rectangle
        'I still can't say I undersand the coords of DrawPie completely, 
        'I thought x,y would be the same for all 3 but apparently the
        'width and height affect them.
        Dim secRect As New Rectangle(20, 10, 200, 200)
        Dim minRect As New Rectangle(20, 10, 200, 200)
        Dim hrsRect As New Rectangle(20, 75, 200, 70)

        'Draw & Erase... Rinse & Repeat :)/>
        g.DrawPie(secPen, secRect, secAngle, 1)
        g.DrawPie(clrPen, secRect, secAngle - 6, 1)
        g.DrawPie(minPen, minRect, minAngle, 1)
        g.DrawPie(clrPen, minRect, minAngle - 6, 1)
        g.DrawPie(hrsPen, hrsRect, hrsAngle, 1)
        g.DrawPie(clrPen, hrsRect, hrsAngle - 30, 1)
    End Sub
End Class

[modi123_1]

Side note - if it helps anyone else out my 'knobs' tutorial might be helpful for drawing on a form.

[CharlieMay]

Duly noted

I've not had much use for doing it, I just realized with this exercise that I really am not very good at it.

I'll give your tut a read and maybe see about improving that slop I submitted.

[modi123_1]

*In my Peppermint Larry voice* Hmm, yes.. why don't give my knobs a view! */voice*

[thava]

CharlieMay, on 08 February 2012 - 01:52 PM, said:

OK, I'm going to spend as much time describing this as I spent making it. I'm not proud of it but I thought I'd play around with something completely crazy.

I cheated, I used the DrawPie method because I could just set the angle and go. Really not much to look at but I think it show just have creative you can be with .Net

Hope you get a laugh out of this. It should at the very least show you how little I know about drawing on a form.

Spoiler

Public Class Form1
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'display the time in the form title so we can have a point of reference
        Me.Text = DateTime.Now.ToString("hh:mm:ss")
        'set up some pins with a width of 2 clrPen is used to erase the previous graphic.
        Dim clrPen As New Pen(SystemColors.Control, 2)
        Dim secPen As New Pen(Color.Red, 2)
        Dim minPen As New Pen(Color.Blue, 2)
        Dim hrsPen As New Pen(Color.LightBlue, 2)


        Dim g As Graphics
        'set up some offsets because the timeAngles don't break down to their angle on a clock.
        Dim DegreeOffset As Integer = 15
        Dim hrsOffset As Integer = 3
        'use the second, minute and hour methods to calculate an angle to draw.
        Dim secAngle As Integer = (Second(Now) - DegreeOffset) * 6
        Dim minAngle As Integer = (Minute(Now) - DegreeOffset) * 6
        Dim hrsAngle As Integer = (Hour(Now) - hrsOffset) * 30
        g = CreateGraphics()

        'set up the rectangle
        'I still can't say I undersand the coords of DrawPie completely, 
        'I thought x,y would be the same for all 3 but apparently the
        'width and height affect them.
        Dim secRect As New Rectangle(20, 10, 200, 200)
        Dim minRect As New Rectangle(20, 10, 200, 200)
        Dim hrsRect As New Rectangle(20, 75, 200, 70)

        'Draw & Erase... Rinse & Repeat :)/>
        g.DrawPie(secPen, secRect, secAngle, 1)
        g.DrawPie(clrPen, secRect, secAngle - 6, 1)
        g.DrawPie(minPen, minRect, minAngle, 1)
        g.DrawPie(clrPen, minRect, minAngle - 6, 1)
        g.DrawPie(hrsPen, hrsRect, hrsAngle, 1)
        g.DrawPie(clrPen, hrsRect, hrsAngle - 30, 1)
    End Sub
End Class

nice and short code
but seems a little bug there
when it run's second hand disappear when it pass the hour hand,minute hand

This post has been edited by thava: 15 February 2012 - 05:41 AM

[CharlieMay]

Oh yea, there's plenty of things that could be improved. This was just something I was messing with in the spirit of the challenge. I might try messing with it again but I don't have much use for a clock

One of the things that bugs me the most is that I should really move the hour hand in relation to where the minute hand is at. So for example at 4:30 the hour hand should be halfway between the 4 and the 5. This code only changes that position when the hour moves to the next number (in this case 5). Hell, for that matter, having the hour labels and minute ticks on the dam clock would be an improvement.

I don't do a lot with graphics but I wanted something different to submit so this is what I came up with. If I had more time I would love to take some of the ideas in modi123_1's knob tutorial and create "Pretty" objects and rotate them according to the time.

[AdamSpeight2008]

I thought about making the clock from it's constituent components.
Clock

Public Class Clock
  Public Event ClockChanged(ByVal o As Object, e As ClockChangesArg)
  Dim WithEvents p As New Pendulum(TimeSpan.FromSeconds(1.0))
  Dim WithEvents s As New SecondHand(0)
  Dim WithEvents m As New MinuteHand(0)
  Dim WithEvents h As New HourHand(1)
  Public Sub New()
  End Sub
  Public Sub HandleHandMovement(o As Object, e As ClockHandEventArg) Handles h.Movement, m.Movement, s.Movement
    Select Case True
      Case TypeOf o Is SecondHand : If e.Prev = 59 AndAlso e.Current = 0 Then m.Advance()
      Case TypeOf o Is MinuteHand : If e.Prev = 59 AndAlso e.Current = 0 Then h.Advance()
    End Select
    RaiseEvent ClockChanged(Me, New ClockChangesArg(h, m, s, p))
  End Sub
  Public Sub HandleTicksAndTocks() Handles p.Tick, p.Tock
    s.Advance()
  End Sub
  Public Sub Start()
    p.StartSwing()
  End Sub
End Class

Events Args

Public Class ClockChangesArg
  Inherits EventArgs
  Private _H As HourHand
  Private _M As MinuteHand
  Private _S As SecondHand
  Private _P As Pendulum
  Public Sub New(H As HourHand, M As MinuteHand, S As SecondHand, P As Pendulum)
    _H = H : _M = M : _S = S : _P = P
  End Sub
  Public ReadOnly Property H As HourHand
    Get
      Return _H
    End Get
  End Property
  Public ReadOnly Property M As MinuteHand
    Get
      Return _M
    End Get
  End Property
  Public ReadOnly Property S As SecondHand
    Get
      Return _S
    End Get
  End Property
  Public ReadOnly Property P As Pendulum
    Get
      Return _P
    End Get
  End Property
End Class

Clock Hand EventArgs

Public Class ClockHandEventArg
  Inherits EventArgs
  Private _Prev As Double
  Private _Current As Double
  Public Sub New(Prev As Double, Current As Double)
    _Prev = Prev : _Current = Current
  End Sub
  Public ReadOnly Property Prev As Double
    Get
      Return _Prev
    End Get
  End Property

  Public ReadOnly Property Current As Double
    Get
      Return _Current
    End Get
  End Property

End Class

Clock Hand

Public MustInherit Class ClockHand
  Private _Value, _Advancement, _Maximum, _Minimum As Double
  Public Event Movement(src As Object, e As ClockHandEventArg)
  Protected Friend Sub New(Value As Double, Advancement As Double, Maximum As Double, Minimum As Double)
    _Value = Value : _Advancement = Advancement : _Maximum = Maximum : _Minimum = Minimum
  End Sub
  Public ReadOnly Property Value() As Double
    Get
      Return _Value
    End Get
  End Property
  Public ReadOnly Property Max() As Double
    Get
      Return _Maximum
    End Get
  End Property
  Public ReadOnly Property Min() As Double
    Get
      Return _Minimum
    End Get
  End Property
  Public Sub Advance()
    Dim prev = _Value
    _Value += _Advancement
    If _Value > _Maximum Then _Value = 0.0
    RaiseEvent Movement(Me, New ClockHandEventArg(prev, _Value))
  End Sub
End Class

Minute Hand

Public Class MinuteHand
  Inherits ClockHand
  Public Sub New(Value As Double)
    MyBase.New(0, 1, 59, 0)
  End Sub
End Class

Second Hand

Public Class SecondHand
  Inherits ClockHand
  Public Sub New(Value As Double)
    MyBase.New(0, 1, 59, 0)
  End Sub
End Class

Hour Hand

Public Class HourHand
  Inherits ClockHand
  Public Sub New(Value As Double)
    MyBase.New(12, 1, 12, 1)
  End Sub
End Class

Pendulum

Public Class Pendulum
  Public Enum States
    Tick
    Tock
  End Enum
  Private _period As TimeSpan
  Private _State As States
  Private t As Threading.Tasks.Task
  Public ReadOnly Property State As States
    Get
      Return _State
    End Get
  End Property
  Private Sub TickTock() Handles Me.Tick, Me.Tock
    If Me.State = States.Tick Then
      t = Task.Factory.StartNew(Sub()
                                  Threading.Thread.Sleep(_period)
                                  _State = States.Tock
                                  RaiseEvent Tock()
                                End Sub)
    ElseIf Me.State = States.Tock Then
      t = Task.Factory.StartNew(Sub()
                                  Threading.Thread.Sleep(_period)
                                  _State = States.Tick
                                  RaiseEvent Tick()
                                End Sub)

    End If
  End Sub
  Public Sub New(period As TimeSpan)
    _period = period
    _State = States.Tock
   End Sub
  Public Sub StartSwing()
    TickTock()
  End Sub
  Public Event Tick()
  Public Event Tock()
End Class
[/b]

[Drowjam]

Ok this is probably the simplest way to make a clock using VB

Spoiler

Imports System.Drawing
Public Class CLOCK
    Inherits ITypes 'a shared timer will now raise a elasped time event for this class
    Public Sub Paint_clock(ByVal G As Graphics,  ByVal Br As Brush, ByVal Font As Font, ByVal Loc As Point)
        Dim St As String = DateTime.Now.Hour & " : " & DateTime.Now.Minute & " : " & DateTime.Now.Millisecond
        G.DrawString(St, Font, Br, Loc)
    End Sub
End Class
'On the form 
Public Class form1
Public Clk as new clock

public sub form1_Load(byval blah,byval blah) handles.me.load
ITimer.start() 
Clk.add_Itimer(Clk,1),Tells shared timer to raise events for the clock
end sub

Public Sub Clk_Tick() handles CLK.Time_elasped
 Dim b As BufferedGraphics
        Dim GC As BufferedGraphicsContext = BufferedGraphicsManager.Current
        b = GC.Allocate(Me.CreateGraphics, Me.DisplayRectangle)
        Clk.Paint_clock(b.Graphics, Brushes.Green, New Font("arial", 10), New Point(200, 200))
        b.Render()
        b.Dispose()
End Class

[lucky3]

Took my 15 minutes for this...  Clock.zip (89.9K)
Number of downloads: 3034

[b mitsai]

why use timer object?
Why not syncthread?
make a sleep(1000) and then sync the grafic main form.
easy?
I'm going to test this out

[b mitsai]

Look i did it!
simple code:

Imports System.Threading.Thread
Public Class Form1
    Private Delegate Sub Delegate1()
    Public H, M, S As Integer
    Public timerThread As New Threading.Thread(AddressOf timer)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        H = DateTime.Now.Hour
        M = DateTime.Now.Minute
        S = DateTime.Now.Second
        Refresh_label()
        timerThread.Start()
    End Sub
    Private Sub Refresh_label()
        Me.Label1.Text = H & ":" & M & ":" & S
    End Sub
    Public Sub timer()
        While True
            Me.Invoke(New Delegate1(AddressOf Refresh_label))
            Sleep(1000)
            '*
            S += 1
            If S = 60 Then
                M += 1
                If M = 60 Then
                    H += 1
                    If H = 24 Then
                        H = 0
                    End If
                    M = 0
                End If
                S = 0
            End If
            '*
        End While
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        timerThread.Abort()
    End Sub
End Class