ps3 As New Point (j * 1.7, 0) ps4 As New Point (j * 1.7, 1.3) ps5 As New Point (-j * 0.7, 1.3) ps6 As New Point (-j * 0.7, 0) psts As Point () = {ps1, ps3, ps4, ps2, ps5, ps6}
'малюємо хвилинну стрілку
Dim pm1 As New Point (0, 0)
Dim pm2 As New Point (0, 1.5) pm3 As New Point (j * 1.5, 0) pm4 As New Point (j * 1.5, 1.5) pm5 As New Point (-j * 0.5, 1.5) pm6 As New Point (-j * 0.5, 0) pmts As Point () = {pm1, pm3, pm4, pm2, pm5, pm6}
'малюємо годин стрелкуph1 As New Point (0, 0) ph2 As New Point (0, 1.5) ph3 As New Point (j * 1.2, 0) ph4 As New Point (j * 1.2, 1.5 ) ph5 As New Point (-j * 0.3, 1.5) ph6 As New Point (-j * 0.3, 0) phts As Point () = {ph1, ph3, ph4, ph2, ph5, ph6}
'з'ясовуємо співвідношення градусів до хвилинам
'використовується вирахування 90 градусів, так як за замовчуванням 0 градусів на 3 годинах
'360 на 60 секунд, 6 градусів за секунду
g. TranslateTransform (wh. Width, wh. Height). RotateTransform (t. Second * 6 - 90). FillPolygon (brush1, psts)
'360 на 60 хвилин, 6 градусів на хвилину
g. ResetTransform (). TranslateTransform (wh. Width, wh. Height). RotateTransform (t. Minute * 6 - 90). FillPolygon (brush2, pmts)
'360 на 12 годин, 30 градусів на годину
'стрілку годинника малюємо по іншому трохи, щоб вона залежала від кол-ва хвилин
g. ResetTransform (). TranslateTransform (wh. Width, wh. Height). RotateTransform ((t. Hour * 30 - 90) + (t. Minute * 0.5)). FillPolygon (brush3, phts) SubSub Button1_Click (ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1. Click. Close () SubClass
В
Вид форми
В
Стрілочні годинник
