Tipp 0135 Analoge Uhr
Autor/Einsender:
Datum:
  Gottfried Mandt
06.09.2006
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
Mit wenigen Zeilen Code kann eine optisch ansehnliche Uhr im analogen Stil mit Stunden-, Minuten- und Sekundenzeiger mit GDI+-Methoden gezeichnet werden. Dabei kommen Methoden zur Verbesserung der Optik zum Tragen: der Anti-Aliasing-Modus über den SmoothingMode und die Schriftglättung mit TextRenderingHint.
Über LineCap.Triangle im Namespace System.Drawing.Drawing2D bekommen die Zeiger eine Spitze. Das Zeichnen von Punkten auf dem erzeugten Uhr-Kreis wird über die Math-Methoden Cos, Sin und PI und der Umrechnung von Grad in Bogemaß umgesetzt. Über den wiederholten Aufruf der Methode TranslateTransform werden Transformationen (Verschiebungen des Koordinatensystems) gespeichert und die Positionen der gezeichneten Zeiger können zusammengeführt werden.
 
Imports System.Drawing.Drawing2D

  Dim bmp As Bitmap = New Bitmap(310, 310)

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Timer1.Tick
    Me.Text = CStr(DateTime.Now)

        Dim g As Graphics = Graphics.FromImage(bmp)
    Dim gFont As New Font("Comic Sans MS", 20, FontStyle.Bold)
    Dim f1 As Pen = New Pen(Color.BlueViolet, 10)
    Dim f2 As Pen = New Pen(Color.BlueViolet, 3)
    Dim x, y, wi, b As Int32
    Dim h As Int32 = DateTime.Now.Hour
    Dim m As Int32 = DateTime.Now.Minute
    Dim s As Int32 = DateTime.Now.Second

    f1.EndCap = LineCap.Triangle
    f1.StartCap = LineCap.RoundAnchor
    g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
    g.TextRenderingHint = _
          Drawing.Text.TextRenderingHint.ClearTypeGridFit
    If h > 12 Then h -= 12
    g.FillEllipse(Brushes.DarkGray, 1, 1, 308, 308)
    g.FillEllipse(Brushes.Silver, 15, 15, 280, 280)
    b = 12
    For wi = 90 To 420 Step 30
      x = CInt(132 + Math.Cos(wi * Math.PI / 180) * 120)
      y = CInt(136 - Math.Sin(wi * Math.PI / 180) * 120)
      If b = 12 Then x -= 7
      g.DrawString(Str(b), gFont, Brushes.Red, x, y)
      b -= 1
    Next wi
    gFont.Dispose()
    For wi = 90 To 450 Step 6
      x = CInt(154 + Math.Cos(wi * Math.PI / 180) * 135)
      y = CInt(154 - Math.Sin(wi * Math.PI / 180) * 135)
      g.FillEllipse(Brushes.BlueViolet, x, y, 3, 3)
    Next wi
    g.TranslateTransform(-155, -155)
    g.RotateTransform(-90 + h * 30 + (m \ 2), MatrixOrder.Append)
    g.TranslateTransform(155, 155, MatrixOrder.Append)
    g.DrawLine(f1, 155, 155, 245, 155)
    g.ResetTransform()
    g.TranslateTransform(-155, -155)
    g.RotateTransform(-90 + m * 6 + (s \ 10), MatrixOrder.Append)
    g.TranslateTransform(155, 155, MatrixOrder.Append)
    f1.Width = 8
    g.DrawLine(f1, 155, 155, 280, 155)
    f1.Dispose()
    g.ResetTransform()
    g.TranslateTransform(-155, -155)
    g.RotateTransform(-90 + s * 6, MatrixOrder.Append)
    g.TranslateTransform(155, 155, MatrixOrder.Append)
    g.DrawLine(f2, 155, 155, 280, 155)
    f2.Dispose()
    g.FillEllipse(Brushes.Red, 147, 147, 16, 16)
    PictureBox1.Image = bmp
  End Sub
 
Weitere Links zum Thema
Stoppuhr
Zeitmessung mit TimeSpan (Countdown)

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (17,6 kB) Downloads bisher: [ 1897 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012