Задачка на анимацию. - VB

Формулировка задачи:

В общем задачка такая:построить циферблат и на ней 3 стрелки которые движутся.Движение скажем так запрограммированное но это не часы, т.е. просто движущиеся палочки по часовой. У меня 2 вопроса) 1.Как заставить двигаться стрелки? 2.Если можно рассказать о методе gettime-сверки времени пк с сервером. В идеале я хочу научиться создавать фигуру shape -шар делить её на 60 делений по которым будет ходить стрелка,но сначала просто циферблат и стрелки-рандомные) П.с заранее благодарю)

Код к задаче: «Задачка на анимацию. - VB»

textual
Picture1.Cls 'очищаем поле дял рисования
Picture1.Circle (0, 0), 0.04, vbBlack 'рисуем кружочек по середине
For i = 0 To 59 'по каждой секунде(минуте)
Picture1.Circle (Sin(0.105 * i), Cos(0.105 * i)), 0.01, vbCyan 'рисуем секундные(минутные) точки
Next i
For i = 0 To 11 'по всем часам
Picture1.Circle (Sin(0.525 * i), Cos(0.525 * i)), 0.01, vbRed 'рисуем часовые кружочки
Next i
 
Picture1.Line (0, 0)-(Sin(0.5236 * (Hour(Time) + Minute(Time) / 60)) * 0.7, Cos(0.5236 * (Hour(Time)) + Minute(Time) / 60) * 0.7) 'рисуем одну стрелку
Picture1.Line (0, 0)-(Sin(0.1047 * Minute(Time)) * 0.8, Cos(0.1047 * Minute(Time)) * 0.8), vbBlue 'вторую
Picture1.Line (0, 0)-(Sin(0.1047 * Second(Time)), Cos(0.1047 * Second(Time))), vbWhite 'третью (не помню какая из них какая)
Text1.Text = Time() 'в текстовое поле вводим время (для сверки)

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ