ADN Open CIS
Сообщество программистов Autodesk в СНГ

30/10/2013

Модель работающих аналоговых часов на iLogic

Общий вид часов:



Что заставляет стрелки показать правильное время?
Правило "Обновить время"
Код - VBA: [Выделить]
  1. Parameter("Часы")=Left(TimeString,2)
  2. Parameter("Минуты")=Right(Left(TimeString,5),2)
  3. Parameter("Секунды")=Right(TimeString,2)
  4.  
  5. iLogicVb.UpdateWhenDone = True
Что заставляет часы идти?
Правило "ПускТаймера"
Код - VBA: [Выделить]
  1. j=ВремяОстанова+1
  2. If Len(CStr(j))=1 Then
  3. i="0"+CStr(j)
  4. Else
  5. i=CStr(j)
  6. End If
  7.  
  8. Do While Right(TimeString,2)<>i
  9. iLogicVb.RunRule("ОбновитьВремя")
  10. Loop
Для успешной работы часов, необходимо на вкладке "Среды" в команде "Надстройки" включить iLogic.


Архив с проектом.

Источник: http://autode.sk/1aEUkPF
Автор: Дмитрий Емельянов
Автор перевода: Дмитрий Емельянов

Обсуждение: http://adn-cis.org/forum/index.php?topic=298

Опубликовано 30.10.2013
Отредактировано 31.10.2013 в 10:41:32