Отправляет email-рассылки с помощью сервиса Sendsay

Волшебство программирования на 1С:Предприятие

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 19.170 RSS
←   Май 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 26-03-2002

Автор
Алексей

Статистика

19.170 подписчиков
0 за неделю
←   Все выпуски   →

Волшебство программирования на 1С:Предприятие 7.7 Выпуск 10


Информационный Канал Subscribe.Ru

Волшебство программирования на 1С:Предприятие 7.7

Вступительное слово Волшебника

Давно не было в рассылке какой-нибудь игры на 1С. Исправим этот недостаток прямо сейчас маленькой логической игрой, в которой вам предстоит проявить собразительность и математический склад ума. Итак, приступаем...

Игра "Охота на лис"

Взрослые отличаются от детей только ценой их игрушек.

Постановка задачи

Требуется создать средствами 1С игру "Охота на лис". Правила игры следующие.

Цель игры состоит в том, чтобы как можно быстрее найти всех лис на игровом поле.
Игровое поле состоит из информационого и игрового полей.
Игрок имеет возможность открыть любую клетку, щелкнув ее левой кнопкой мыши. Если в клетке находится лиса, то она показывается.
Если лисы нет, в клетке появится цифра, которая указывает, сколько лис находится на горизонтали, вертикали и диагоналях клетки. Игра заканчивается после поимки всех лис.

Объекты конфигурации

Игра реализована в виде внешнего отчета (ert-файл). Поэтому игру можно подключить к любой конфигурации и доставить радость вашим пользователям!

Технические подробности

Игровое поле реализовано в виде множества кнопок на трех слоях формы. Текущая игровая ситуация хранится в массиве Поле[100]. Число 0 означает куст, 1 - скрытую лису, 2- пойманную лису, 3 - число. В процедуре ОбновитьПоле выводится игровое поле на форме в соответствии с этим массивом.

Кнопка Игра, вызывает процедуру Игра(), которая начинает новую игру: расставляет на поле лис с помощью функции СлучайноеЧисло(). Кстати, очень полезная функция, но 1С ее почему-то не реализовала. Наверное, думала, что в бухгалтерии "ничто не случайно".

При нажатии на кнопку с лисой вызывается процедура ЛисаПоле(), при нажатии на кнопку с кустом или скрытой лисой вызывается процедура КустПоле. Если на поле скрытой лисы не было, то отображается число лис же горизонтали, вертикали и диагоналях клетки. Это число подсчитывается процедурой КоличествоЗапеленгованныхЛис().

Если количество пойманных лис (переменная ПЛ) равняется количеству всех лис (переменная ВЛ), то игра заканчивается. Если ходов было сделано меньше, чем в рекорде, то победителю придлагается увековечить свое достижение (процедура Увековечить).

Домашнее задание

Заставьте компьютер играть в эту игру. Придумайте алгоритм для поиска всех лис за минимальное число ходов.

Что можно скачать

Скачать игру "Охота на лис" вы можете по адресу http://www.mista.ru/tutor_1c/files
Размер 14К

Заключительное слово Волшебника

Эта чудесная игра была взята с сайта "Игры для бухгалтера" http://www.buhgames.chat.ru
На этом сайте есть и другие интересные игры, сделанные на 1С.

Официальный сайт рассылки: Информационные системы www.mista.ru
Архив рассылки находится по адресу: http://subscribe.ru/archive/comp.soft.prog.magic1c

В прошлых выпусках мы рассмотрели:

  1. Конфигурация "Мини-склад" (простейший складской учет)
  2. Конфигурация "Денежки" (учет семейных доходов и расходов)
  3. Конфигурация "Работенка" (поиск вакансий работодателей и резюме соискателей)
  4. Игра "Реверси" (классическая игра с элементами искусственного интеллекта)
  5. Конфигурация "Мини-библиотека" (учет книг и читателей)
  6. Программирование справочников
  7. Конфигурация "Почтальон Печкин" (почта + чат в среде 1С:Предприятие)
  8. Программирование документов
  9. Программирование регистров

С уважением,
Волшебник Станислав
stasmit@mail.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное