VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00C0C0FF&
   Caption         =   "Часы"
   ClientHeight    =   4425
   ClientLeft      =   3825
   ClientTop       =   1740
   ClientWidth     =   4605
   LinkTopic       =   "Form1"
   ScaleHeight     =   4425
   ScaleWidth      =   4605
   Begin VB.TextBox txtTime 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      TabIndex        =   2
      Top             =   3600
      Width           =   1335
   End
   Begin VB.Timer tmr1 
      Interval        =   250
      Left            =   3600
      Top             =   0
   End
   Begin VB.PictureBox picWatch 
      BackColor       =   &H00FFFFFF&
      FillColor       =   &H00FFFFFF&
      Height          =   3015
      Left            =   600
      ScaleHeight     =   2955
      ScaleWidth      =   3315
      TabIndex        =   1
      Top             =   360
      Width           =   3375
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Пуск"
      Height          =   495
      Left            =   2640
      TabIndex        =   0
      Top             =   3600
      Width           =   1335
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytN As Byte, dblHour, dblN, dblT, dblS As Double
Private Sub cmdStart_Click()
'Масштаб
picWatch.Scale (-6, 6)-(6, -6)
'Циферблат
picWatch.Circle (0, 0), 5
For bytN = 1 To 12
picWatch.FillStyle = 0: picWatch.FillColor = vbYellow
picWatch.Circle (3 * Sin(6.28 / 12 * bytN), 3 * Cos(6.28 / 12 * bytN)), 0.35
picWatch.PSet (4 * Sin(6.28 / 12 * bytN) - 0.5, 4 * Cos(6.28 / 12 * bytN) + 0.3), vbWhite
picWatch.Print bytN
Next bytN
End Sub
Private Sub tmr1_Timer()
txtTime.Text = Time$
dblN = 1 + dblN
picWatch.Circle (0, 0), 0.2
picWatch.Line (0, 0)-(2.5 * Sin(6.28 * dblN / 60), 2.5 * Cos(6.28 * dblN / 60))
picWatch.Line (0, 0)-(2 * Sin(6.28 * dblN / 3600), 2 * Cos(6.28 * dblN / 3600))
picWatch.Line (0, 0)-(1.5 * Sin(6.28 * dblN / 216000), 1.5 * Cos(6.28 * dblN / 216000))
For dblT = 1 To 50000000
Next dblT
picWatch.Line (0, 0)-(2.5 * Sin(6.28 * dblN / 60), 2.5 * Cos(6.28 * dblN / 60)), vbWhite
picWatch.Line (0, 0)-(2 * Sin(6.28 * dblN / 3600), 2 * Cos(6.28 * dblN / 3600)), vbWhite
picWatch.Line (0, 0)-(1.5 * Sin(6.28 * dblN / 216000), 1.5 * Cos(6.28 * dblN / 216000)), vbWhite
End Sub
