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

@Артемий · Регистрация: 20.05.2009

Студворк — интернет-сервис помощи студентам

В общем задачка такая:построить циферблат и на ней 3 стрелки которые движутся.Движение скажем так запрограммированное но это не часы, т.е. просто движущиеся палочки по часовой.

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

@Илья Орлов · 26.05.2009, 19:55

http://torrents.ru/forum/viewtopic.php?t=153855 и http://torrents.ru/forum/viewtopic.php?t=1511582[/QUOTE]

@Toxa33rus · 26.05.2009, 21:41

Вот:

@Артемий · 26.05.2009, 22:48 **[ТС]**

Уважаемый Антон не могли бы Вы "разжевать" что есть что в этой программе)
Мне защищать её как бы надо)
К примеру строчка:

Visual Basic
1
Picture1.Circle (0, 0), 0.04, vbBlack

- рисуем круг координаты диаметр,цвет.

Visual Basic
1
2
3
Private Sub Form_Load()
Picture1.Scale (-1.1, 1.1)-(1.1, -1.1)  'задаём масштаб
End Sub

Visual Basic
1
For i = 0 To 59 '<-оператор,условие? 0...59 понятно 60 секунд в минуте.

@Toxa33rus · 26.05.2009, 23:50

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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() 'в текстовое поле вводим время (для сверки)

Добавлено через 14 минут 29 секунд
И еще: вот те страшные непонятные цифры я не помню как я получил. Это там чего-то на чего-то умножить и поделить надо и перевести радианы в градусы.
0.105 = 90 градусов / 180 градусов * Пи радиан / 15 минут
(это когда стрелка на 15 минутах(секундах))
Осальные как-то так же находятся.

@Артемий · 31.05.2009, 16:45 **[ТС]**

Уважаемый Антон а нельзя ли код упростить чтобы просто двигалась стрелка.Без этих загадочных вычислений)

@Toxa33rus · 31.05.2009, 17:54

Конечно можно! Только это будут уже не часы, а просто летающие стрелки. А если код после этого еще раз упростить то будут просто стрелки, но и это не предел - можно еще упростить и тогда будет просто пустое окно которое можно двигать по рабочему столу, изменять его размеры и даже закрывать!

@Артемий · 01.06.2009, 00:22 **[ТС]**

Вот надо остановиться на летающих стрелках)
П.с сделайте эту ересь)))

@Артемий · 04.06.2009, 17:39 **[ТС]**

Спасибо защитил)

20.02.2010, 19:41

Пожалуйста подскажите как можно сделать чтобы изображение вращалось вокруг своей оси

@Артемий · 23.02.2010, 15:10 **[ТС]**

to tishin Я думаю как и стрелка часов в 3ем посте(приклеплённая задачка) на новых координатах рисуется стрелка, а старая удаляется, и так по кругу(360 градусов).

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19

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

@Илья Орлов 456 / 4 / 0 Регистрация: 18.04.2008 Сообщений: 70
	26.05.2009, 19:55
	http://torrents.ru/forum/viewtopic.php?t=153855 и http://torrents.ru/forum/viewtopic.php?t=1511582[/QUOTE] 0

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	31.05.2009, 16:45 [ТС]
	Уважаемый Антон а нельзя ли код упростить чтобы просто двигалась стрелка.Без этих загадочных вычислений) 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	31.05.2009, 17:54
	Конечно можно! Только это будут уже не часы, а просто летающие стрелки. А если код после этого еще раз упростить то будут просто стрелки, но и это не предел - можно еще упростить и тогда будет просто пустое окно которое можно двигать по рабочему столу, изменять его размеры и даже закрывать! 1

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	01.06.2009, 00:22 [ТС]
	Вот надо остановиться на летающих стрелках) П.с сделайте эту ересь))) 0

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	04.06.2009, 17:39 [ТС]
	Спасибо защитил) 0

tishin
	20.02.2010, 19:41
	Пожалуйста подскажите как можно сделать чтобы изображение вращалось вокруг своей оси

@Артемий 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 19
	23.02.2010, 15:10 [ТС]
	to tishin Я думаю как и стрелка часов в 3ем посте(приклеплённая задачка) на новых координатах рисуется стрелка, а старая удаляется, и так по кругу(360 градусов). 0