Автор Тема: Часы (Простейшие)  (Прочитано 3531 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн GUIMish [?]

  • Новичок
  • *
  • Сообщений: 122
  • Репутация: 12
  • Пол: Мужской
    • GUIMish
    • Награды
  • Версия AutoIt: 3.3.12.0
Часы (Простейшие)
« Создано: Май 02, 2013, 16:44:13 »
AutoIt: 3.3.8.1
Версия: 1.5

Категория:Разное

Описание:
Часы (лат.  Horologium ) вид часов, группа простейшие, прибор для определения текущего времени суток.
Вид часов входит в группу программ под названием простейшие. Компьютерная среда обитания.

Файл:AU3

Снимок:
Нажмите для отображения изображения в оригинальном размере.

Автор(ы): GUIMish
« Последнее редактирование: Май 02, 2013, 17:17:37 от GUIMish »
С Уважением GUIMish

Русское сообщество AutoIt

Часы (Простейшие)
« Отправлен: Май 02, 2013, 16:44:13 »

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 7827
  • Репутация: 2288
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.10.2
Re: Часы (Простейшие)
« Ответ #1, Отправлен: Май 02, 2013, 16:50:45 »
GUIMish
В чём полезняшка?

[?]
Цитировать
Скачать: AU3
Скачивается в неверном формате.


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Оффлайн GUIMish [?]

  • Новичок
  • *
  • Сообщений: 122

  • Автор темы
  • Репутация: 12
  • Пол: Мужской
    • GUIMish
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Часы (Простейшие)
« Ответ #2, Отправлен: Май 02, 2013, 17:11:06 »
Перезолил!
« Последнее редактирование: Май 02, 2013, 17:18:04 от GUIMish »

Оффлайн Kaster [?]

  • Бритва, Бритва Оккама
  • Глобальный модератор
  • *
  • Сообщений: 4020
  • Репутация: 622
  • Пол: Мужской
  • Мой Аватар, он лучший самый
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Часы (Простейшие)
« Ответ #3, Отправлен: Май 02, 2013, 18:14:30 »
GUIMish  [?]
Цитировать
Перезолил!
OffTopicну ты золивальщик. и таки да, описание жжот
Конференция посвященная AutoIt на jabber.ru - [email protected]
Как попасть на конференцию читаем тут


Русское сообщество AutoIt

Re: Часы (Простейшие)
« Ответ #3 Отправлен: Май 02, 2013, 18:14:30 »

Оффлайн Mur [?]

  • АррргхЪ
  • Осваивающий
  • **
  • Сообщений: 132
  • Репутация: 32
  • Пол: Мужской
  • Au3* - смотрите, смотрите! Оно само! О_O'
    • Фееричный бред.
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Часы (Простейшие)
« Ответ #4, Отправлен: Май 02, 2013, 18:17:35 »
Понравился стиль этих часов, напомнили первые мои на батарейках) А так, слишком длинно
Код: AutoIt [Выделить]
#include <WindowsConstants.au3>

Global $nCheck

GuiCreate("Timer",200,50, -1, -1, -1, $WS_EX_COMPOSITED)
$hLabel = GuiCtrlCreateLabel("", 10, 10, 180, 20)
GuiSetState()

While 1
    time()
    If GUIGetMsg() = -3 Then Exit
WEnd

Func time()
    If @SEC <> $nCheck Then
        GUICtrlSetData($hLabel, "The current time is " & @HOUR & ":" & @MIN & ":" & @SEC & ".")
        $nCheck = @SEC
    EndIf
EndFunc

намного проще...
Не за что.

Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 7827
  • Репутация: 2288
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.10.2
Re: Часы (Простейшие)
« Ответ #5, Отправлен: Май 02, 2013, 20:07:44 »
Mur  [?]
Цитировать
намного проще...
Или так:
Код: AutoIt [Выделить]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

GUICreate("Timer", 200, 50)
$iLabel = GUICtrlCreateLabel("", 0, 0, 200, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 18, 800, 0, 'Tahoma')
GUISetState()

_TimeSet()
AdlibRegister('_TimeSet', 1000)

While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Func _TimeSet()
    GUICtrlSetData($iLabel, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc


Оффлайн AZJIO [?]

  • VIP
  • *
  • Сообщений: 2725
  • Репутация: 1140
    • мой сайт
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Часы (Простейшие)
« Ответ #6, Отправлен: Май 03, 2013, 00:55:34 »
GUIMish
Нормально, конечно уровень ещё начинающий. Но если довёл расчёты до конца, значит потенциал есть. Остаётся только оптимизировать изучая примеры на форуме.

Например функция Miganie, пример что Switch намного меньше текста содержит.
Код: AutoIt [Выделить]
Func Miganie()
   Switch @SEC
          Case 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59
               For $i = 2 to 1 Step -1
                  GUICtrlSetBkColor($l[$i], 0x000000)
               Next
            Case 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58
               For $i = 2 to 1 Step -1
                  GUICtrlSetBkColor($l[$i], 0xcfcfcf)
               Next
   EndSwitch
EndFunc


А вот окончательно
Код: AutoIt [Выделить]
Func Miganie()
    Local $Color = 0xcfcfcf
    If Mod(@SEC+4, 2) Then $Color = 0 ; если деление на 2 с остатком, то
    GUICtrlSetBkColor($l[1], $Color)
    GUICtrlSetBkColor($l[2], $Color)
EndFunc


Русское сообщество AutoIt

Re: Часы (Простейшие)
« Ответ #6 Отправлен: Май 03, 2013, 00:55:34 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
8 Ответов
3609 Просмотров
Последний ответ Декабрь 21, 2012, 19:50:46
от DarWiM
3 Ответов
4282 Просмотров
Последний ответ Январь 28, 2013, 02:57:35
от CreatoR
0 Ответов
1585 Просмотров
Последний ответ Май 02, 2013, 17:05:23
от CreatoR
0 Ответов
4292 Просмотров
Последний ответ Июнь 05, 2014, 11:50:47
от IMStrelcov
0 Ответов
797 Просмотров
Последний ответ Апрель 30, 2018, 22:03:04
от angro
1 Ответов
91 Просмотров
Последний ответ Октябрь 09, 2018, 19:46:18
от evgeniy1000