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

@Артемий · Регистрация: 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 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

	Задачка на анимацию. 26.05.2009, 18:33. Показов 6239. Ответов 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

Опции темы