Squee&Dragon



С Наступающим Новым Годом

E-mail Печать PDF

altДорогие коллеги!

От всей души поздравляем Вас с наступающим Новым Годом и Рождеством!


Новый год - это всегда новые надежды.

Мы уверены - будут удачи, будут чудеса, счастливые возможности, хорошие шансы, помощь влиятельных людей, поддержка друзей!

Будут новые предложения о работе, внезапно подобревшее начальство, премии и льготы!

Беды отступят, здоровье улучшится, настроение повысится, а кризис... ну, если и не пройдет стороной, то будет вести себя подобно вежливому гостю в доме, куда его не особо-то и звали.

Всем, всем - самого лучшего!

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

Загадывайте и верьте - чудеса бывают и будут непременно!

Обновлено ( 31.12.2008 08:18 )
 

Новый (К)год!

E-mail Печать PDF

Процедура НовыйГод(Коньяк, Виски, Закуска)
    
     Лес = ГлобальныйКонтекст.СоздатьОбъект("Лес");
    
     Ёлочка = Лес.Деревья.Создать(ТипДерева.Ёлочка);
    
     Для Repeat = 1 по 2 Цикл
          Ёлочка.Фигура = ТипыФигуры.Стройная;
          Ёлочка.УстановитьПериодДействияФигуры(ВремяГода.Зима, Неопределено, ВремяГода.Лето, Неопределено);
          Ёлочка.Цвет = WEBЦвета.Зеленый;
 
 Ёлочка.УстановитьПериодДействияЦвета(ВремяГода.Зима, Неопределено, ВремяГода.Лето, Неопределено);
     КонецЦикла;
        
     Метель = ГлобальныйКонтекст.СоздатьОбъект("Ветер");
     Метель.Сила = СилаВетра.Сильный;
     Метель.Опции.Снег = Истина;
     Метель.Опции.ВоспроизводитьЗвук = Истина;
     Метель.Звук = ОткрытьФайл("D:\Music\Bye-Bye.mp3");
    
     Метель.ВключитьЗвукВКонтекст(Ёлочка);
        
 Ёлочка.Listen(Метель);
    
     Мороз = ГлобальныйКонтекст.СоздатьОбъект("Мороз");
     Мороз.Сила = СилаМороза.Средний;
     Мороз.Стабильность = ТипыСтабильности.ТенденцияКУсилению;
     Мороз.Работящий = Истина;
     Мороз.Характер = ТипыХарактеров.ПятьдесятНаПятьдесят;
    
     Для Repeat = 1 по 2 Цикл
          Мороз.ЗасыпатьСнегомКонтекст(Ёлочка);
          Ёлочка.Комфортность = ТипыКомфортности.Тепло;
     КонецЦикла;

    Зайчик = ГлобальныйКонтекст.СоздатьОбъект("Заяц");
     Зайчик.Опции.Трусливый = Истина;
     Зайчик.Цвет = WEBЦвета.Серый;
     Зайчик.Опции.ВидПередвижения = ВидыПередвижения.Скачка;
    
     Зайчик.НачатьДвижениеВокругКонтекста(Ёлочка);
    
     Волк = ГлобальныйКонтекст.СоздатьОбъект("Волк");
    
     Для Repeat = 1 по 2 Цикл
          Волк.Характер = ТипыХарактеров.Сердитый;
          Волк.Опции.ВидПередвижения =

 ВидыПередвижения.Рысца;
          Волк.НачатьДвижениеОколоКонтекста(Ёлочка);
     КонецЦикла;
    
     Зайчик.ОстановитьДвижениеВокругКонтекста(Ёлочка);
     Зайчик.ИзменитьТраекториюДвижения(ВидТраектории.ПрямоИПодальше);
     Зайчик.УстанговитьСкорость(180, ИзмеренияСкорости.КМЧ);
    
     Снег = ГлобальныйКонтекст.СоздатьОбъект("Снег");
     Снег.Тип = ТипыСнега.Скрипучий;
    
     Лошадка =

 ГлобальныйКонтекст.СоздатьОбъект("Лошадь");
     Лошадка.Опции.Запряжена = ТипыЗапрягов.Сани;
    
     Для Repeat = 1 по 2 Цикл
          Лошадка.Мохноногая = Истина;
          Лошадка.Опции.ВидПередвижения = ВидыПередвижения.Бег;
          Лошадка.НачатьДвижениеПоКонтексту(Снег);
     КонецЦикла;
    
     Снег.НачатьИздаватьЗвук();
    
     Сани = Лошадь.Упряжка;
   
 Сани.ДобавитьОбъект(ГлобальныйКонтекст.СоздатьОбъект("Дрова"));
    
     Мужичок = ГлобальныйКонтекст.СоздатьОбъект("Человек");
     Мужичок.Пол = ПолЧеловека.Мужской;
     Мужичок.Размещение = Сани.Объекты["Дрова"];    
     Мужичок.Комфортность = ТипыКомфортности.Холодно;
     Мужичок.ДобавитьОбъект(ГлобальныйКонтекст.СоздатьОбъект("Топор"));;
    
     Для Repeat = 0 по 20 Цикл
          Мужичок.ПринятьНаГрудь(Виски);
        
 Мужичок.ДобавитьОбъект(Закуска);
          Мужичок.Комфортность = ТипыКомфортности.Лучше;
     КонецЦикла;
    
     Для Repeat = 1 по 3 Цикл
          Мужичок.ПринятьНаГрудь(Коньяк);
          Мужичок.ДобавитьОбъект(Закуска);
          Мужичок.Комфортность = ТипыКомфортности.ВащеНиштяк;
     КонецЦикла;
    
     Для Repeat = 1 по 2 Цикл
          Мужичок.ПрименитьОбъектККонтексту(Мужичок.Объекты["Топор"], Ёлочка);
   
 КонецЦикла;
    
     Мужичок.Уснуть();
    
     Ёлочка.Dead = Истина;
    
КонецПроцедуры

 

прислал NNVla





  

 

Репозиторий

E-mail Печать PDF

По многочисленным просьбам, сделал типа репозитория

http://suse.shatki.info/opensuse/alex_plotnikov/BKO/

Обновлено ( 22.12.2008 19:45 )
 

1.5.4 от 17.10.2008

E-mail Печать PDF

Небольшая оптимизация + исправление ошибок

Из исправленного:

  • При нажатии английской буквы P выскакивало окно с помощью.

  • Исправлен небольшой баг с автоподстановкой
  • И другие мелкие ошибки

Оптимизировано:

  • Скорость подгрузки справочников, установленный софт, ремонты...



 



 

 

Версия 1.5.4 вышла...

E-mail Печать PDF

Изменения в версии:

1. Исправление найденных ошибок.
2. Открытые модули в статус баре - двойной клик по панели с модулем передает фокус на него...
3. Открытые модули в статус баре - двойной клик по панели с модулем передает фокус на него...
4. Горячии клавиши для переключения:
    Alt+R - Вкладка ремонты
    Alt+S - Вкладка Установленные Программы
    Alt+I - Вкладка информация
    Alt+U - Вкладка Пользователи
    F11 - Форма отчетов

5. Модуль учета заявок на базе ремонтов
6. Исправление в модуле учета картриджей
7. Сохранение настроек таблицы в учете картриджей
8. Утилита для обновления информации о компе из командной строки
9. Напоминания указываются в статусбаре, клик по статусбару выводит окно с напоминаниями.
10. Новый справочник - Тип заявки
11. Обновлены переводы на другие языки, отличные от русского
12. При нахождении дубликата (при добавлении нового), сообщается место нахождение машины, и имя...
 

 

1.5.4 - rc4 от 03.10.2008

E-mail Печать PDF

Исправление найденных ошибок.

СКАЧАТЬ

Исходный код



 

 

 
Страница 1 из 7

Login Form



Добавление ...
Добавление на складДобавление на склад

Копилка

free counters

Реклама

На сайте

Сейчас 4 гостей онлайн