"В лесу родилась ёлочка" в интерпретации 1С

08.12.09

Давным-давно видел интерпретацию всем известной песенки "В лесу родилась ёлочка" под код Delphi (к сожалению, автора не знаю). Недавно наткнулся снова и снова улыбнулся. Решил переложить код в 1С. Смотрим что получилось. ;)

Процедура Лес()
	Ёлочка = СоздатьОбъект("Ёлка");	
	Пока Ёлочка.Жива()=1 Цикл
		Ёлочка.Возраст=Ёлочка.Возраст+1;
		Если (ТекущееВремяГода()="Зима") или (ТекущееВремяГода()="Лето")  Тогда
			Ёлочка.Стройность = 1;
			Ёлочка.Цвет = глПолучитьЦвет("Зеленый");
		КонецЕсли;
		
		Метель = СоздатьОбъект("Метель");
		Метель.ОткрытьФайл("D:\Music\NSYNC - Bye Bye Bye.mp3");
		Система.Уснуть(1000);
		Метель.Воспроизвести();
		
		Мороз = СоздатьОбъект("Мороз");
		Мороз.Укутать(Ёлочка);
		Если Ёлочка.Замерзла()=1 Тогда
			Ёлочка.Жива(0); 
			Возврат;
		КонецЕсли;
		
		Заяц = СоздатьОбъект("Заяц");
		Заяц.Трусливый = 1;
		Заяц.Цвет = глПолучитьЦвет("Серый");
		ЛК = Ёлочка.ЛеваяКоордината;
		ВК = Ёлочка.ВерхняяКоордината;		
		Пока 1=1 Цикл
			Заяц.ЛеваяКоордината = ЛК;
			ЛК=ЛК+1;
			Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10)); 
		КонецЦикла;
		
		КомандаСистемы("wolf3d.exe /evil");
		
		СкопироватьВБуфер(Ёлочка);
		Праздник = СоздатьОбъект("Праздник");
		ВставитьИзБуфера(Ёлочка, Праздник);
		Ёлочка.ЗагрузитьСкинИзФайла("нарядная.jpg");
		Дети = СоздатьОбъект("Дети");
		Для й=1 По Ёлочка.Радость.РазмерСписка() Цикл
			Дети.Настроение=Дети.Настроение+Ёлочка.Радость.ПолучитьЗначение(й);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры //Лес()

+131 –

См. также

Сказ о папочке в декрете и о том, как получить от государства 761 406 рублей

О жизни Россия Бесплатно (free)

Данная статья сугубо для раздела «О жизни», но может оказаться полезна многим членам сообщества. Все описанное ниже соответствует актуальному российскому законодательству на момент публикации статьи. У вас нет и в ближайшее время не предвидится детей возрастом до 1.5 лет? Вспомните о родственниках / друзьях / коллегах / знакомых, у которых они есть, и отправьте ссылку на эту статью — она может быть им чрезвычайно полезна. Распространите среди жильцов вашего ЖЭКа, как говорилось в одном классическом произведении. Помните, что, ставя плюсы к статье, вы поддерживаете её автора!

01.07.2024 5201 madonov 47

Жизнь программиста 1С на Линукс, это возможно?

О жизни Linux Системный администратор Программист Платформа 1С v8.3 Россия Бесплатно (free)

Использование Linux в качестве основной ОС для программиста 1С, возможно ли это? Решил поделиться личным опытом работы перехода на эту систему. В статье моя история без технических деталей максимально простым языком. И, спойлер, да, жизнь на Линуксе для разработчика 1С возможна и с каждым годом становится всё комфортней. Статья рассчитана на людей, с Линуксом не знакомых, специалистов прошу не кидаться помидорами.

16.05.2024 5572 soulner 33

"250+ тысяч, в штат и работу пока не ищу": как изменился типичный 1С-ник в 2023 году

О жизни Россия Бесплатно (free)

Подводим итоги работы в 1С за 2023 год. Все о вас: 4 подробных раздела с цифрами, графиками и ужасными цветами диаграмм (должна же где-то быть стабильность).

08.02.2024 27753 Neti 85

121

Адекватность работодателя. Как её определить? Часть 2. Процесс работы, от испытательного срока до увольнения

О жизни Бесплатно (free)

В процессе написания статей на тему Идеальное место работы ЗУПера нужен аргументированный текст про адекватного работодателя. Информации получилось много, поэтому выделю в отдельные 2 статьи. Рассмотрим все недостатки работодателей от момента собеседования до момента увольнения. Все этапы, как всегда, подкреплены реальными случаями из моего опыта.

22.01.2024 5441 biimmap 67

Адекватность работодателя. Как её определить? Часть 1. Собеседование, заключение трудового договора

О жизни Конфигурации 1cv8 Бесплатно (free)

16.01.2024 7067 biimmap 100

Идеальное место работы для ЗУПера... Какое оно?! Часть 1. Негативные тенденции, ненужные знания.

О жизни Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и Управление Персоналом 3.x Бесплатно (free)

Импортозамещение увеличило потребность в архитекторах, аналитиках, разработчиках 1С, в т.ч. по ЗУП. Все их ищут всеми возможными способами, но не могут найти и не знают, чем же их завлечь к себе!? Давайте разберёмся в этом вопросе!

27.11.2023 5674 biimmap 52

Жёлтым по белому, выпуск 2

О жизни Платформа 1С v8.3 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 Бесплатно (free)

Чисто поржать

19.10.2023 5048 1c-intelligence 25

15 лет вместе...

О жизни Сообщество Бесплатно (free)

Прочитав название публикации, мысль возникает о свадьбе... Но речь не об этом!

25.08.2023 3163 biimmap 24

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. JohnyDeath 302 24.01.08 12:53 Сейчас в теме

Будут предложения/замечания?

2. German 413 24.01.08 17:16 Сейчас в теме

Надо в коментах песню пустить ... а то целиком в код погружаешься

3. sterling 24.01.08 17:45 Сейчас в теме

Пока 1=1 Цикл
Заяц.ЛеваяКоордината = ЛК;
ЛК=ЛК+1;
Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10));
КонецЦикла;

тут меня зациклило ))

4. JohnyDeath 302 24.01.08 18:29 Сейчас в теме

(3) ну да, наверное точнее будет так:

Код
Пока (Заяц.Устал()=0) и (Ёлочка.Жива()=1) Цикл Заяц.ЛеваяКоордината = ЛК; ЛК=ЛК+1; Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛКpi/180)10)); КонецЦикла; Показать полностью

Код

Пока (Заяц.Устал()=0) и (Ёлочка.Жива()=1) Цикл
Заяц.ЛеваяКоордината = ЛК;
ЛК=ЛК+1;
Заяц.НижняяКоордината = ВК + Окр(abs(sin(ЛК*pi/180)*10)); 
КонецЦикла;

Показать полностью

5. CheBurator 2712 25.01.08 00:56 Сейчас в теме

поржал реально.. особенно про зайца

6. rutony 54 25.01.08 15:21 Сейчас в теме

зачот=)

7. script 128 26.01.08 00:55 Сейчас в теме

зачот. насмешили.

8. Alice 28.01.08 12:47 Сейчас в теме

Код
Процедура ВыходЕсть(Веревка) Экспорт ИнициалиацияВеревки(Веревка.ЭтотОбъект(),Константы.Мыло.Получить()); Петля= Веревка.ПолучитьФормуПетли(); Петля.ОткрытьМодально(10); Табуретко = ПолучитьCOMОбъект("Furniture.Stool"); глРазместитьТелоНаПредмете(Табуретко,ВариантРазмещенияТела.Вертикально); глТело.Голова.Расположить(Петля.Получитьобласть("ОбластьПетли")); Сообщить("В моей смерти винить Б. Нуралиева"); Табуретко.ShiftAside(3); ЗавершитьРаботуСистемы(Ложь); КонецПроцедуры Показать полностью

Код

Процедура ВыходЕсть(Веревка) Экспорт
  ИнициалиацияВеревки(Веревка.ЭтотОбъект(),Константы.Мыло.Получить());
  Петля= Веревка.ПолучитьФормуПетли();
  Петля.ОткрытьМодально(10);
  Табуретко = ПолучитьCOMОбъект("Furniture.Stool");
  глРазместитьТелоНаПредмете(Табуретко,ВариантРазмещенияТела.Вертикально);
  глТело.Голова.Расположить(Петля.Получитьобласть("ОбластьПетли"));
  Сообщить("В моей смерти винить Б. Нуралиева");
  Табуретко.ShiftAside(3);
  ЗавершитьРаботуСистемы(Ложь);
КонецПроцедуры

Показать полностью

Ответить

9. passerg 28.01.08 13:59 Сейчас в теме

Давно так не смеялся! +!
Alice, бесподобно!!!

10. leo stopper 02.02.08 18:45 Сейчас в теме

Супер!!! +++

11. Вадимко 156 06.02.08 18:34 Сейчас в теме

Ацки отожгли, зачот!

12. all_2 23.04.08 14:14 Сейчас в теме

+++, здоровый юмор повышает производительность труда

13. panteranew 43 27.07.08 22:06 Сейчас в теме

клёво

14. Altair777 645 03.10.08 15:16 Сейчас в теме

ыыыыыыыыыыы )))

15. Serj1C 483 17.12.08 13:13 Сейчас в теме

два плюса )

16. Fuego 463 19.12.08 16:40 Сейчас в теме

Код
program Елочка; Begin Лес.елочка.create(); While not Лес.елочка.dead do Begin лес.елочка.age := лес.елочка.age + 1; if зима or лето then begin лес.елочка.plain := true; лес.елочка.color := cl_green; end; метель.filename:="'D:"Music"NSYNC - Bye Bye Bye.mp3"'; метель.open; sleep(1000); метель.play; мороз.укутать(лес.елочка); GetMessage(H, лес.елочка.handle, 0, 0); if h.uint = wm_замерзла then dead := true; end; лес.заяц.create; лес.заяц.трусливый := true; лес.заяц.color := cl_gray; x := лес.елочка.left; y := лес.елочка.top; While x Begin лес.заяц.left := x; inc(x); лес.заяц.top := y round( abs(sin(xpi/180)10) ); end; Winexec("'wolf3d.exe /evil"',0); лес.елочка.cuttoclipboard; Праздник.pastefromclipboard; Праздник.елочка.skin.loadfromfile("'нарядная.jpg"' ); For i:=1 to SizeOf(Праздник.елочка.радость) do Праздник.Дети.Настроение Праздник.елочка.радость; End. Показать полностью

Код

program Елочка; 
Begin 
    Лес.елочка.create(); 
    While not Лес.елочка.dead do 
    Begin 
    
        лес.елочка.age := лес.елочка.age + 1; 
        if зима or лето then 
        begin 
            лес.елочка.plain := true; 
            лес.елочка.color := cl_green; 
        end; 
        
        метель.filename:="'D:"Music"NSYNC - Bye Bye Bye.mp3"'; 
        метель.open; 
        sleep(1000); 
        метель.play; 
        мороз.укутать(лес.елочка); 
        GetMessage(H, лес.елочка.handle, 0, 0); 
        if h.uint = wm_замерзла then 
            dead := true; 
    end; 
    
    лес.заяц.create; 
    лес.заяц.трусливый := true; 
    лес.заяц.color := cl_gray; 
    x := лес.елочка.left; 
    y := лес.елочка.top; 
    While x 
    Begin 
        лес.заяц.left := x; 
        inc(x); 
        лес.заяц.top := y round( abs(sin(x*pi/180)*10) ); 
    end; 
    
    Winexec("'wolf3d.exe /evil"',0); 
    лес.елочка.cuttoclipboard; 
    Праздник.pastefromclipboard; 
    Праздник.елочка.skin.loadfromfile("'нарядная.jpg"' ); 
    For i:=1 to SizeOf(Праздник.елочка.радость) do 
        Праздник.Дети.Настроение Праздник.елочка.радость; 
End.

Показать полностью

Усё это боянчег, но улыбает :) Вчера тоже чёта написал - милости прошу: http://infostart.ru/blogs/310/

17. JohnyDeath 302 19.12.08 16:44 Сейчас в теме

(16) Да, боянчег, о чём я честно написал в шапке.
А ты сделал вид, что сам написал ;) Да... и спасибо за ссылку на этот же блог! )))
Видать празднование в полном разгаре )))

18. Fuego 463 19.12.08 17:08 Сейчас в теме

Да не :) Парням ссылку давал, и забыл в буфер свою скопировать :)) http://infostart.ru/blogs/899/ И вид я не делал - я именно по приведенному в комментарии тексту и надумал. От нечего делать вчера :)

19. woozee 48 07.12.09 17:09 Сейчас в теме

Если описывается процесс про прыгание зайца - почему не описывается процесс прихода ёлочки на праздник?:)) а то получается что она "телепортировалась" с места рождения )) У елочки по умолчанию же нету свойства "ходить" )) Надо прикрутить в общем ;)

20. zveruganet 72 12.01.10 22:30 Сейчас в теме

её вырезали (срубили) и вставили (почти пришла {явилась}) на праздник, так что процесс вполне описан

Оставьте свое сообщение

E-mail:

Автор:

Евгений Мартыненков (JohnyDeath)

Рейтинг: 302

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 17105

Создание 24.01.08 10:52

Обновление 08.12.09 00:00

Статистика:

Просмотры 19379

Загрузки 0

Рейтинг 131

Комментарии 21

Характеристики:

Код открыт Не указано

Рубрики О жизни

Кому Для всех

Тип файла Нет файла

Платформа Не имеет значения

Конфигурация Не имеет значения

Операционная система Не имеет значения

Страна Россия

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)