Автор: ?
Разместил: Rhainer
Дата размещения: 15.12.2008
Источник: http://web-silver.ru/flash/tutorials/analog-clock-2.php

Шаг 1
Создайте новый документ во флэш. Начните с рисования стрелок. Учтите, что минутная стрелка должна быть не выше, чем половина высоты и ширины сцены (чтобы она могла поворачиваться).

http://smages.com/i/e7/71/e7717b9b041a7d3dee12a1c52294c5c1.gif

Шаг 2
Выберите минутную стрелку, сделайте её MovieClip нажатием клавиши F8 и назовите её MinuteHand. То же самое проделайте с часовой стрелкой и назовите её HourHand. Каждой стрелке нужно также присвоить соответствующее instance name (панель properties). Создайте новый слой и переместите в него одну из стрелок. Проверьте появились ли обе стрелки в библиотеке

http://smages.com/i/fc/7f/fc7f7f45938569bcec02d0906721503f.gif

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

http://smages.com/i/fd/b0/fdb0c493594898cb21148168df4f72fd.gif

Шаг 4
Вернитесь к основной сцене и выровняйте обе стрелке по центру. Теперь нужно добавить экшен, который будет загружать значения часов и минут из asp файла. Создайте новый слой, назовите его actions, откройте панель actions (правой кнопкой по кадру > actions) и вставьте следующий код:

http://smages.com/i/2d/20/2d20533efdb072be2705520b33fa2c10.gif

Шаг 5
Создайте еще один слой и нарисуйте в нем циферблат ваших часов. Добавьте второй кадр во всех слоях (выбираем кадр > F5). В слое actions второй кадр будет ключевым (выбираем кадр > F6). В него нужно вставить этот код:

Код:
Set Variable: "h" = Hour
Set Variable: "m" = Minute
If (h > 12)
Set Variable: "h" = h - 12
End If
Set Variable: "HourAngle" = h*30 + m/2
Set Variable: "MinuteAngle" = m*6
Set Property ("HourHandMovie", Rotation) = HourAngle
Set Property ("MinuteHandMovie", Rotation) = MinuteAngle

Шаг 6
Этот код переводит значения часов и минут в углы в градусах и меняет свойство Rotation клипов стрелок в соответствии с полученными углами.

http://smages.com/i/6f/cd/6fcd6a3dc260459f9e591396494db611.gif

Шаг 7
Вот структура файла clock.asp, который предоставляет значения часов и минут нашим часам.

Код:
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
Response.Write "Hour=" & Hour(Now) & "&Minute=" & Minute(Now)
Response.Flush
%>

Наши часы готовы!