sitesaid.ru

Пример разработки стрелочных часов.
Создание стрелочных часов с помощью Visual Basic 6.0 (VB) ничем не отличается от создания других программ в среде разработки VB. Порядок разработки:
1.Рисуем стрелки к примеру в Fotoshop-е.
2.Помещаем стрелки и цифры в форму.
3.Устанавливаем свойства помещаемых в форму объектов.
4.Пишем код часов.
5.Компилируем проект в exe.

В этой программе мы рисовать стрелки не будем,а используем злемент управления Line. Открываем Visual Basic 6.0 и выбираем пункт Standart exe.В центр циферблата помещаем злемент управления Shape ,и к нему привязываем стрелки.Дважды щелкнув на панели управления элемент Line добавляем в форму часовую,минутную и секундную стрелки ,цифры по вашему усмотрению.

Передвиньте стрелки так, чтобы начало стрелок были в одной точке и на одной оси в элементе Shape.Теперь дважды включите элемент управления Label и расположите цифры по кругу.Я расположил много цифр,но вы можете ограничиться пока только цифрами 3,6,9,12.Далее в панели элементов управления выбираем элемент управления "Timer" , двойным щелчком по нему помещаем также в форму.Общий вид формы с расположеннымы злементами часов показан на рисунке.



Затем открываем окно свойств и устанавливаем свойста злементов.Чтобы выбрать свойства элемента просто щелкните по нему на форме.В окне свойств будут автоматически появляться свойства тех элементов которые вы выбрали на форме.

Элемент управления Timer

Свойство	Значение
(Name)	Timer1
Interval	1000
Left	463,272
Top	3840

Форма

Свойство	Значение
(Name)	Form1
BackColor	Выберите цвет
Caption	Стрелочные часы на Visual Basic
FillStyle	1-Transparent[прозрачность]
Height	5205
ScaleHeight	4725
Top	-75
Width	5205

Центр стрелок

Свойство	Значение
(Name)	Shape3
BackFill	1-Opaque
FillStyle	1-Transparent[прозрачность]
Height	255
Left	2547,997
Shape	3-Circle
Top	2400
Width	246,113

Стрелка часов

Свойство	Значение
(Name)	Line2
BorderWidth	6
DrawMode	13-CopyPen
X1	2663,815
X2	2663,815
Y1	2520
Y2	1920

Стрелка минут

Свойство	Значение
(Name)	Line3
BorderWidth	3
DrawMode	13-CopyPen
X1	2663,815
X2	2663,815
Y1	2520
Y2	3600

Секундная стрелка

Свойство	Значение
(Name)	Line1
BorderWidth	2
BorderStyle	1-Solid
DrawMode	13-CopyPen
X1	2663,815
X2	4169,449
Y1	2520
Y2	2880

Далее устанавливайте свойства элементов циферблата если вы вводили их в форму. Я покажу пример на цифре 12.

Цифра 12

(Name)	Label4
Alignment	0-LeftJustify
Height	375
Left	2547,997
LinkTimeout	50
TabIndex	3
Top	720
Width	361,931

Когда установите свойства элементов сделайте двойной щелчок на готовой форме.Появится окно ввода кода.

Введите код часов.

Dim aans As Integer Dim aanh Dim hh Dim aanm As Double Dim i As Integer Dim ii As Integer Dim TWI Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() ii = -360 For i = 1 To 59 ii = ii + 6 Load Shape1(i) Shape1(i).Visible = True Shape1(i).Left = Line1.X1 + (1660 * (Cos(ii * (22 / 7) / 180))) Shape1(i).Top = Line1.Y1 + (1660 * (Sin(ii * (22 / 7) / 180))) Next i For i = 5 To 57 Step 5 Shape1(i).BorderColor = &HFF0000 Shape1(i).BorderWidth = 2 Next i aans = -360 + (Second(Now) - 15) * 6 hh = Hour(Now) If hh = 0 Then hh = 12 If hh > 12 Then hh = hh - 12 End If If hh > 3 Then hh = hh End If aanh = -360 + (hh - 3) * 30 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333) If hh = 1 Then aanh = -60 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333) End If If hh = 2 Then aanh = -30 + (Minute(Now) * 0.5) + (Second(Now) * 0.0083333333) End If Line2.X2 = Line2.X1 + (1260 * (Cos(aanh * (22 / 7) / 180))) Line2.Y2 = Line2.Y1 + (1260 * (Sin(aanh * (22 / 7) / 180))) aanm = -360 + (Minute(Now) - 15) * 6 + (Second(Now) * 0.1) End Sub Private Sub Label15_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label4_Click() End Sub Private Sub Timer1_Timer() TWI = Second(Now) If TWI < 15 Then TWI = 60 - (15 - TWI) Else TWI = TWI - 15 End If aanm = aanm + 0.1 aans = aans + 6 If aans = 6 Then aans = -354 End If If aanm = 0.1 Then aanm = 359.9 End If Line1.X2 = Line1.X1 + (1260 * (Cos(aans * (22 / 7) / 180))) Line1.Y2 = Line1.Y1 + (1260 * (Sin(aans * (22 / 7) / 180))) Line3.X2 = Line3.X1 + (1520 * (Cos(aanm * (22 / 7) / 180))) Line3.Y2 = Line3.Y1 + (1520 * (Sin(aanm * (22 / 7) / 180))) Shape1(TWI).BorderColor = &HFFC0C0 If TWI = 0 Then TWI = 60 If Shape1(TWI - 1).BorderWidth = 2 Then Shape1(TWI - 1).BorderColor = &HFF0000 Exit Sub End If Shape1(TWI - 1).BorderColor = &H800000 End Sub Private Sub Timer2_Timer() aanh = aanh + 0.083333333 If aanh = 0.083333333 Then aanh = 359.9166667 End If Line2.X2 = Line2.X1 + (1260 * (Cos(aanh * (22 / 7) / 180))) Line2.Y2 = Line2.Y1 + (1260 * (Sin(aanh * (22 / 7) / 180))) End Sub

Запустите приложение нажав кнопку Пуск в меню.Если у вас часы работают,то скомпилируйте приложение в файл exe ,открыв меню "Файл" и выберите пункт "Делать Project1.exe.".
Примерный вид приложения можете посмотреть.

Вы можете изменить внешний вид часов ,убрав верхнюю рамку с кнопками.Для этого откройте в разрабатываемой форме окно свойств щелкните на форме или откройте ее в меню "Проект" выбрав пункт "Объект". Включите свойство BorderStyle и выберите из списка 0-None.

Посмотрите этот вариант
Тогда вам нужно будет дополнительно описать процедуру отключения часов в коде

Private Sub Command1_Click()
Unload Me
End Sub

и ввести в форму кнопку отключения END.