Создание интерактивных кроссвордов в ms powerpoint с использованием vba
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.
Рабочие листы и материалы для учителей и воспитателей
Более 2 500 дидактических материалов для школьного и домашнего обучения
Столичный центр образовательных технологий г. Москва
Получите квалификацию учитель математики за 2 месяца
от 3 170 руб. 1900 руб.
Количество часов 300 ч. / 600 ч.
Успеть записаться со скидкой
Форма обучения дистанционная
- Онлайн
формат - Диплом
гособразца - Помощь в трудоустройстве
311 лекций для учителей,
воспитателей и психологов
Получите свидетельство
о просмотре прямо сейчас!
«Как закрыть гештальт: практики и упражнения»
Свидетельство и скидка на обучение каждому участнику
Описание презентации по отдельным слайдам:
Создание интерактивных кроссвордов в программе Microsoft Power Point
Интерактивный кроссворд Интерактивные кроссворды можно рассматривать как тесты второго уровня, когда отгадывающий самостоятельно формулируют ответ на заданный вопрос. Кроссворды можно применять на различных этапах урока: вводном, текущем, заключительном; на различных этапах контроля: входной, текущий, рубежный, итоговый, а также в различных мероприятиях (КВН, классные часы и т.д. Такие задания привлекают внимание своим разнообразием, яркостью, возможностью самостоятельно создать мини программу для компьютера, которая не только считает оценку, но и будет применяться на занятиях, приобретая практическую значимость для обучающихся.
Актуальность и практическая значимость проекта Стимулирует познавательную деятельность учащихся, что способствует более продуктивному усвоению учебного материала. Продукт проекта можно применять для закрепления знаний как на уроках информатики, так и во время изучения других предметов
КРОССВОРД - ЗАЧЁТ ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ Предмет ИНФОРМАТИКА
ИНСТРУКЦИЯ Перед Вами кроссворд состоящий из 14 слов. Для вывода вопроса на экран необходимо нажать на кнопку рядом с вопросом В свободные клетки вписывается ответ. Ответ вписывается прописными буквами. ЗАГЛАВНЫЕ БУКВЫ УЧИТЫВАТЬСЯ НЕ БУДУТ. По завершении необходимо нажать на кнопку В любой момент вы можете перейти назад к данной инструкции, нажав на соответствующую кнопку. При ответе правильно на 9 вопросов выставляется зачет. ЖЕЛАЮ ВАМ УСПЕХОВ!
Цель: создание интерактивного кроссворда в программе Microsoft Power Point Задачи: Изучение теоретических материалов по созданию кроссвордов; Определение направления, темы и типа кроссворда; Подбор теоретического материала для создания кроссворда Проверка кроссворда на фокус-группе
Предполагаемые результаты Краткосрочные: создание интерактивного кроссворда Долгосрочные: регулярное применение интерактивных кроссвордов во время уроков
Целевая аудитория проекта Исполнители проекта: учитель информатики Потребители проекта: учащиеся образовательного учреждения, педагоги
Стратегия и механизмы реализации проекта: №МероприятияСроки исполненияОтветственный Предполагаемый результат 1Изучение теоретических материалов1 неделя реализации проектаУчитель информатикиАлгоритм создания интерактивных кроссвордов 2Определение типа интерактивного кроссвордаВторая неделя реализации проектаУчитель информатикиМакет-заготовка интерактивного кроссворда 3Определение темы интерактивного кроссвордаВторая неделя реализации проектаУчитель информатикиСписок тем для создания интерактивного кроссворда 4Подбор теоретического материала для создания кроссвордаВторая неделя реализации проектаУчитель информатикиСписок вопросов интерактивного кроссворда 5Объединение материалов в программе powerpoint Третья неделя реализации проектаУчитель информатикиПробный вариант интерактивного кроссворда 6Апробация интерактивного кроссворда на фокус-группеТретья неделя реализации проектаУчитель информатикиСписок необходимых дополнений к интерактивному кроссворду 7Создание итогового варианта интерактивного кроссворда Четвертая неделя реализации проектаУчитель информатикиИнтерактивный кроссворд
Обоснование ресурсного обеспечения: №МероприятиеКадровые ресурсыМатериальные и технические ресурсы 1Изучение теоретических материаловУчитель информатикиКомпьютер, доступ к интернету 2Определение типа интерактивного кроссвордаУчитель информатикиКомпьютер, доступ к интернету 3Определение темы интерактивного кроссвордаУчитель информатикиКомпьютер, доступ к интернету 4Подбор теоретического материала для создания кроссвордаУчитель информатикиКомпьютер, доступ к интернету 5Объединение материалов в программе РowerРoint Учитель информатикиКомпьютер, доступ к интернету 6Апробация интерактивного кроссворда на фокус-группеУчитель информатикиКомпьютер, проектор 7Создание итогового варианта интерактивного кроссворда Учитель информатикиКомпьютер, проектор
Способы оценки эффективности проекта Анкетирование учащихся о необходимости кроссвордов Динамика успеваемости
Дальнейшее развитие проекта Создание электронного сборника кроссвордов
Данные и устройства
11 2. Понятная информация, которую можно передавать и обрабатывать 3. Устройство, которое передает изображение разнообразных документов через телефонные линии 1ИНФОРМАЦИЯ 2ДАННЫЕ 3 4 5 6 7 8 9 10
11 3. Устройство, которое передает изображение разнообразных документов через телефонные линии 4. Бывают устными, письменными, в виде рисунков, жестов 1ИНФОРМАЦИЯ 2ДАННЫЕ 3ФАКС 4 5 6 7 8 9 10
Краткое описание документа:
Проект для 11 класса "Создание интерактивного кроссворда" с помощью программы Power Point". проект поможет учителю организовать свою деятельность по составление кроссвордов. Также предлагается учителю создать свой банк интерактивных кроссвордов. Может использоваться для повторения, или закрепления темы на уроке
Данный материал был подготовлен и разрешён к публикации на Учительском портале учителем физики и информатики в Краснополянской школе Домниным Константином Михайловичем.
Ресурс содержить описание алгоритма создания "живых" кроссвордов средствами MS PowerPoint с использованием VBA.
Приложена учебная презентация - кроссворд, на примере которого по шагам объясняется последовательность действий
Ресурс будет полезен учителям информатики, и не только - всем, кто хочет попробовать создать и использовать свои интерактивные кроссворды.
Продолжение следует.
Целевая аудитория: для учителя
Автор: Домнин Константин Махайлович
Место работы: Кировская область, Краснополянская школа
Добавил: KarMaN
Ресурс, безусловно, хороший, но что-то не очень работают кнопки проверки, очистки и выхода. М-да, может, надо пройти какие-нибудь курсы. (учителям истории, особенно)
Очень хорошая разработка. Мои знания QBasic полученные очень давно пригодились. .Можно ли эти презентации присылать на сайт? (Технология)
Не думаю, что Вам понадобятся именно курсы VBA: все-таки, это довольно специфическая сфера.
Работа неплохая*, автору СПАСИБО от меня лично, как не просто от коллеги-информатика, а как от единомышленника, которому тема программирования в среде приложений MS-Office весьма близка
________________
* "Неплохая", потому, что текст VBA-модуля можно было сделать гораздо компактнее и изящнее,
6 gabitus • 16:16, 08.08.2019
Отлично! как сделать, чтобы при нажатии на кнопку Проверить, вышло слово -Все верно или появилась оценка?
Физкультминутки обеспечивают кратковременный отдых детей на уроке, а также способствуют переключению внимания с одного вида деятельности на другой.
Диплом и справка о публикации каждому участнику!
© 2007 - 2022 Сообщество учителей-предметников "Учительский портал"
Свидетельство о регистрации СМИ: Эл № ФС77-64383 выдано 31.12.2015 г. Роскомнадзором.
Территория распространения: Российская Федерация, зарубежные страны.
Учредитель / главный редактор: Никитенко Е.И.
Сайт является информационным посредником и предоставляет возможность пользователям размещать свои материалы на его страницах.
Публикуя материалы на сайте, пользователи берут на себя всю ответственность за содержание материалов и разрешение любых спорных вопросов с третьими лицами.
При этом администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта.
Если вы обнаружили, что на сайте незаконно используются материалы, сообщите администратору через форму обратной связи — материалы будут удалены.
Все материалы, размещенные на сайте, созданы пользователями сайта и представлены исключительно в ознакомительных целях. Использование материалов сайта возможно только с разрешения администрации портала.
Фотографии предоставлены
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.
Рабочие листы и материалы для учителей и воспитателей
Более 2 500 дидактических материалов для школьного и домашнего обучения
Столичный центр образовательных технологий г. Москва
Получите квалификацию учитель математики за 2 месяца
от 3 170 руб. 1900 руб.
Количество часов 300 ч. / 600 ч.
Успеть записаться со скидкой
Форма обучения дистанционная
- Онлайн
формат - Диплом
гособразца - Помощь в трудоустройстве
Видеолекции для
профессионалов
- Свидетельства для портфолио
- Вечный доступ за 120 рублей
- 311 видеолекции для каждого
Создание интерактивных кроссвордов в MS Power Point с использованием VBA
Данный ресурс поможет Вам научиться составлять и воплощать в презентациях интерактивные кроссворды (естественно предметная область не имеет значения), которые очень удобно и интересно проводить с помощью проектора.
Задавшись целью сделать такой кроссворд, где после ввода слова и нажатия кнопки «ПРОВЕРИТЬ» слово должно оставаться и как-то выделяться цветом, если оно верное, иначе стираться и снова можно вводить слово.
Казалось бы, все просто: под каждую букву слова отводится отдельный Textbox и по нажатию «ПРОВЕРИТЬ» описывается процедура обработки этого Textbox а – или стирать или красить. Однако в кроссворде много пересечений слов – соответственно еще больше различных комбинаций для проверки – в общем, кода обработки боксов будет много (это мы увидим дальше)
Для исполнения выбрана среда MS PPT , с ней умеют работать практически все учителя, кроме того, имеется встроенный редактор Visual Basic ( VBA ), который нам и будет нужен для обработки событий
Конечно, создать такой кроссворд легко учителю информатики, но по алгоритму, изложенному ниже, это несложно сделать любому учителю.
Конечно же, есть трудности:
Самое первое – это запастись терпением - для создания одного кроссворда на 15-20 слов у меня уходить 5-6 часов (а у вас по началу может и еще больше ) т.к. приходится писать очень много кода, хотя в основном применяется копирование кода и его подправка
Второе – алгоритм одного кроссворда нельзя использовать для второго: разные слова, пересечения и т.д (т.е второй кроссворд имеет совершенно другой код и на него опять надо 5-6-7. часов
Третье – все это потом разгадается за 15-20 минут
А большой плюс в том, что можно этому научить ребят, и они столько кроссвордов сделают и по любой предметной области .
И еще плюс – кроссворд получается «живой» (а не статический, как на бумаге)
Итак, если не пропало желание и есть время, которого не жалко, то ниже я постараюсь по шагам на конкретном примере рассмотреть алгоритм создания такого кроссворда:
- В разделе СВОЙСТВА изменяем вид и и текст на переключателе:
Цвет фона переключателя
Надпись на переключателе
Размер и тип шрифта
в) Создаем еще 3 переключателя и производим с ними такие же действия
г) Создадим кнопку. Для этого берем ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд
д) Вызываем контекстное меню - СВОЙСТВА и тоже изменяем вид и текст на кнопке
3 шаг:
И так, у нас создан один слайд.
Точно так же создаем слайды 2 и 3, вставляя в них соответствующие вопросы и ответы, переключатели и кнопки
4 шаг:
Создадим последний слайд, на котором будут выводиться все результаты
а) поместим на слайде 4 элемента Label (надпись) с панели
б) Создадим 2 кнопки
5 шаг:
Слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).
Начнем с первого слайда:
Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически
- считалось число выполненных заданий
- проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица
- осуществлялся переход на следующий слайд (вопрос)
Откроем первый слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается редактор Visual Basic,в котором мы и будем описывать процедуры нажатия на кнопку
Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода
Ниже мы видим окно редактора Visual Basic
Запишем следующий код:
Z = 0 ( Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем)
L = 0 ( L – счетчик верно выполненных заданий, ему тоже присваиваем ноль)
N = 0 ( N – это процентное выполнение заданий теста)
If OptionButton1.Value = True Then
( Здесь проверяется, если выбран ответ первый (16 цветов), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется)
Z = Z + 1 (считается число выполненных заданий)
SlideShowWindows(1).View.Next (Это команда перехода к следующему слайду)
6 шаг:
Аналогично открываем 2 и 3 слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
N = 0 (т.к. тест уже идет и обнулять показания не надо)
7 шаг:
Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин
- делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
- в меню Visual Basicвыбираем INSERT – MODULE,
- в редакторе записываем код
Public L, Z, N As Integer
- закрываем презентацию и сохраняем изменения
8 шаг:
Осталось написать код для кнопок «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» И «ВЫХОД»
а) Сначала опишем кнопку «ПОСМОТРЕТЬ РЕЗУЛЬТАТ»:
- переходим на последний слайд
- двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic
-записываем код:
Private Sub CommandButton1_Click()
Label4.Caption = «Отлично» ( Если процент выполнения >= 75 – выводится «Отлично»)
Label4.Caption = «Хорошо» ( Если процент выполнения от 50 до 75 – выводится «Хорошо»)
End If ( Если процент выполнения от 25 до 50 – выводится «Удовлетв»)
Label4.Caption = «Плохо» ( Если процент выполнения ниже 25 – выводится «Плохо»)
б) Сейчас опишем кнопку «ВЫХОД»
Private Sub CommandButton2_Click()
Выходим и сохраняем все изменения
9 шаг:
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
10 шаг:
При желании и наличии времени тесты можно сделать значительнее функциональнее, для этого изучайте Visual Basic for Application и пробуйте
Показать результат.
Создание интерактивных кроссвордов в MS Power Point с использованием VBA
ШАГ 1
Составляем кроссворд на бумаге, это не составляет труда: чертим на тетради в клетку слова. Для примера возьмем самый простой кроссворд из 3 слов (этого вполне достаточно для уяснения алгоритма).
а | ||||
г | е | р | ц | |
х | ||||
и | ||||
м | ||||
т | е | с | л | а |
д |
Нарисуем вторую точно такую же таблицу (кроссворд), где буквы заменим цифрами (это будут номера наших TextBox - ов
1 | ||||
2 | 3 | 4 | 5 | |
6 | ||||
7 | ||||
8 | ||||
9 | 10 | 11 | 12 | 13 |
14 |
ШАГ 2
Сейчас открываем MS PPT и создаем там такую же таблицу (с номерами)
Берем на панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ элемент Textbox (там он называется ПОЛЕ) и помещаем его на слайд – у нас появился Textbox № 1(дальше будем его звать «бокс»), помещаем, конечно же в то место таблицы, где № 1
(При необходимости, щелкнув правой кнопкой по боксу и выбрав СВОЙСТВА, можно изменить размер и цвет шрифта)
Дальше нам надо поместить на слайд еще 13 боксов – ведь в нашем кроссворде 14 букв
Удобнее всего ухватившись правой кнопкой за бокс № 1 перетащить его на место бокса № 2 и выбрать копировать – появится бокс № 2 - и так до бокса № 14
Итак, боксы под буквы созданы, и они находятся точно на своих местах согласно таблице.
Сейчас таблицу можно убрать (выделить и вырезать), подобрать цвет фона слайда и оформление
В результате у нас получится примерно так:
ШАГ 3
Сейчас создадим 3 кнопки
Их также берем с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем на слайд
Щелкнув правой по каждой кнопке и выбрав СВОЙСТВА, зададим нужный размер и цвет шрифта
ШАГ 4
Приступаем к написанию кода для кнопки ПРОВЕРИТЬ – это самая длительная часть работы по созданию кроссворда
Начнем со слова «герц»
а | ||||
г | е | р | ц | |
х | ||||
и | ||||
м | ||||
т | е | с | л | а |
д |
1 | ||||
2 | 3 | 4 | 5 | |
6 | ||||
7 | ||||
8 | ||||
9 | 10 | 11 | 12 | 13 |
14 |
Оно занимает боксы 2, 3, 4, 5 и пересекается со словом «архимед»
Делаем двойной щелчок по кнопке ПРОВЕРИТЬ, и мы оказываемся в редакторе VBA, где видим процедуру обработки события нажатия на кнопку, куда надо вставить необходимый код
Private Sub CommandButton1_Click()
Давайте сначала разберем алгоритм проверки и действий, затем запишем код:
Надо проверить значения боксов 2,3,4,5 и
- если слово внесено верно, то в боксе 2 должна быть буква «г», в 3 – «е», в 4 – «р», в 5 – «ц», тогда боксы покрасим
иначе (слово не угадано) может быть два случая:
если слово «архимед» до этого угадано, то надо очищать боксы 2,3,5, а бокс 4 не трогать – ведь там буква «р» от слова «архимед», а его стирать нельзя – оно ведь угадано
иначе (пересекающее слово «архимед» до этого не угадано), то надо очищать боксы 2,3,4,5
Пишем код для слова «герц»:
'2 по горизонтали «герц»
If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then
Кроссворд мы угадываем не по порядку - произвольно, поэтому могут быть такие случаи: 1) Слово «архимед» угадано – тогда его красим 2) Слово «архимед» не угадано – тогда, если слово герц и тесла до этого было угадано, то чистим все, кроме боксов 4 и 10 (там буквы от угаданных слов) 3) Слово «архимед» не угадано – тогда, если только слово тесла было до этого угадано, то чистим все, кроме бокса 10 4) Слово «архимед» не угадано – тогда, если только слово герц было до этого угадано, то чистим все, кроме бокса 4 5) Иначе ( ничего не угадано), то чистим все боксы 1,4,6,7,8,10,14 В этом случае код становится больше (больше вариантов)
Создание интерактивных кроссвордов в MS Power Point с использованием VBA Приступаем к написанию кода для кнопки ПРОВЕРИТЬ Начнем со слова «герц» г е т а р ц х и м е д с 2 3 л а 9 5 1 4 6 7 8 10 11 12 13 14 Оно занимает боксы 2, 3, 4, 5 и пересекается со словом «архимед» Делаем двойной щелчок по кнопке ПРОВЕРИТЬ '2 по горизонтали «герц» If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then TextBox2.BackColor = RGB(0, 255, 255) TextBox3.BackColor = RGB(0, 255, 255) TextBox4.BackColor = RGB(0, 255, 255) TextBox5.BackColor = RGB(0, 255, 255) Else If (TextBox1.Text = "а") Then TextBox2.Text = "" TextBox3.Text = "" TextBox5.Text = "" Else TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" End If End If Разъяснение кода: If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then TextBox2.BackColor = RGB(0, 255, 255) TextBox3.BackColor = RGB(0, 255, 255) TextBox4.BackColor = RGB(0, 255, 255) TextBox5.BackColor = RGB(0, 255, 255) Это проверка всех боксов: Если бокс2 содержит текст «г» И бокс3 – «е» И бокс4 – «р» И бокс5 – «ц» (т.е слово угадано), то делаем цвет фона всех боксов голубым (TextBox2.BackColor = RGB(0, 255, 255)) . Else If (TextBox1.Text = "а") Then TextBox2.Text = "" TextBox3.Text = "" TextBox5.Text = "" Иначе, если слово «герц» не угадано и в боксе1 буква «а» (т.е слово «архимед» до этого угадано), то очищаем боксы 2,3,5, а бокс 4 не трогаем – в нем буква «р» от слова «архимед» Else TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" Иначе (слово «герц» не угадано и слово «архимед» тоже не угадано), то чистим все боксы 2,3,4,5. Здесь можно подумать, что это излишнее усложнение, но без рассмотрения всех этих вариантов не будут отрабатываться всевозможные возникающие ситуации и все будет стираться испытал при разработке алгоритма Следующее слово «тесла», которое содержит тоже одно пересечение с другим словом г е т а р х и м е д ц с л а 2 3 9 5 1 4 6 7 8 10 11 12 13 14 '3 по горизонтали «тесла» If (TextBox9.Text = "т") And (TextBox10.Text = "е") And (TextBox11.Text = "с") And (TextBox12.Text = "л") And (TextBox13.Text = "а") Then TextBox9.BackColor = RGB(0, 255, 255) TextBox10.BackColor = RGB(0, 255, 255) TextBox11.BackColor = RGB(0, 255, 255) TextBox12.BackColor = RGB(0, 255, 255) TextBox13.BackColor = RGB(0, 255, 255) Else If (TextBox8.Text = "м") Then TextBox9.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" Else TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" End If End If И, наконец слово «архимед» Оно содержит два пересечения со словами герц и тесла г е т а р ц х и м е д с л а 2 3 9 5 1 4 6 7 8 10 11 12 13 14 Кроссворд мы угадываем не по порядку произвольно, поэтому могут быть такие случаи: 1) Слово «архимед» угадано – тогда его красим 2) Слово «архимед» не угадано – тогда, если слово герц и тесла до этого было угадано, то чистим все, кроме боксов 4 и 10 (там буквы от угаданных слов) 3) Слово «архимед» не угадано – тогда, если только слово тесла было до этого угадано, то чистим все, кроме бокса 10 4) Слово «архимед» не угадано – тогда, если только слово герц было до этого угадано, то чистим все, кроме бокса 4 5) Иначе ( ничего не угадано), то чистим все боксы 1,4,6,7,8,10,14 В этом случае код становится больше (больше вариантов) '1 по вертикали архимед If (TextBox1.Text = "а") And (TextBox4.Text = "р") And (TextBox6.Text = "х") And (TextBox7.Text = "и") And (TextBox8.Text = "м") And (TextBox10.Text = "е") And (TextBox14.Text = "д") Then TextBox1.BackColor = RGB(0, 255, 255) TextBox4.BackColor = RGB(0, 255, 255) TextBox6.BackColor = RGB(0, 255, 255) TextBox7.BackColor = RGB(0, 255, 255) TextBox8.BackColor = RGB(0, 255, 255) TextBox10.BackColor = RGB(0, 255, 255) TextBox14.BackColor = RGB(0, 255, 255) Else If (TextBox5.Text = "ц") And (TextBox11.Text = "с") Then TextBox1.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox14.Text = "" Else If (TextBox5.Text = "ц") Then TextBox1.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox10.Text = "" TextBox14.Text = "" Else If (TextBox11.Text = "с") Then TextBox1.Text = "" TextBox4.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox14.Text = "" Else TextBox1.Text = "" TextBox4.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox10.Text = "" TextBox14.Text = "" End If End If End If End If Разъяснение кода: If (TextBox1.Text = "а") And (TextBox4.Text = "р") And (TextBox6.Text = "х") And (TextBox7.Text = "и") And (TextBox8.Text = "м") And (TextBox10.Text = "е") And (TextBox14.Text = "д") Then TextBox1.BackColor = RGB(0, 255, 255) TextBox4.BackColor = RGB(0, 255, 255) TextBox6.BackColor = RGB(0, 255, 255) TextBox7.BackColor = RGB(0, 255, 255) TextBox8.BackColor = RGB(0, 255, 255) TextBox10.BackColor = RGB(0, 255, 255) TextBox14.BackColor = RGB(0, 255, 255) Если слово архимед угадано, то меняем цвет фона боксов Else If (TextBox5.Text = "ц") And (TextBox11.Text = "с") Then TextBox1.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox14.Text = "" Иначе (слово архимед не угадано, но до этого угаданы слова герц и тесла) – то чистим боксы 1,6,7,8,14, а 4 и 10 не трогаем – там буквы от угаданных слов герц и тесла Else If (TextBox5.Text = "ц") Then TextBox1.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox10.Text = "" TextBox14.Text = "" Иначе (слово архимед не угадано, но до этого угадано слово герц ) – то чистим боксы 1,6,7,8,10,14, а 4 не трогаем – там буквы от угаданного слова герц If (TextBox11.Text = "с") Then TextBox1.Text = "" TextBox4.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox14.Text = "" Иначе (слово архимед не угадано, но до этого угадано слово тесла ) – то чистим боксы 1,4,6,7,8,,14, а 10 не трогаем – там буквы от угаданного слова тесла TextBox1.Text = "" TextBox4.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox10.Text = "" TextBox14.Text = "" End If End If End If End If Иначе (слово архимед не угадано, слова герц и тесла тоже не угаданы) – чистим все боксы Заметьте: Если слово пересекается с одним словом – то надо описывать 2 варианта кода (21=2) Если с двумя – 4 варианта (22=4) Если в тремя – 8 вариантов (23=8) Если в четырьмя – 16 вариантов (24=16) и так далее В своих кроссвордах я стараюсь не делать пересечения более, чем с тремя словами – будет уйма кода (пусть и case – технологии) и замедление работы программы – оно и так уже присутствует описание кода для кнопки ОЧИСТИТЬ При нажатии на эту кнопку все боксы должны перекраситься в исходный цвет (белый RGB(255,255,255) и содержимое боксов очиститься (TextBox1.Text = "") Делаем двойной щелчок по кнопке ОЧИСТИТЬ и пишем код: Private Sub CommandButton2_Click() TextBox1.BackColor = RGB(255, 255, 255) TextBox1.Text = "" TextBox2.BackColor = RGB(255, 255, 255) TextBox2.Text = "" TextBox3.BackColor = RGB(255, 255, 255) TextBox3.Text = "" TextBox4.BackColor = RGB(255, 255, 255) TextBox4.Text = "" TextBox5.BackColor = RGB(255, 255, 255) TextBox5.Text = "" TextBox6.BackColor = RGB(255, 255, 255) TextBox6.Text = "" TextBox7.BackColor = RGB(255, 255, 255) TextBox7.Text = "" TextBox8.BackColor = RGB(255, 255, 255) TextBox8.Text = "" TextBox9.BackColor = RGB(255, 255, 255) TextBox9.Text = "" TextBox10.BackColor = RGB(255, 255, 255) TextBox10.Text = "" TextBox11.BackColor = RGB(255, 255, 255) TextBox11.Text = "" TextBox12.BackColor = RGB(255, 255, 255) TextBox12.Text = "" TextBox13.BackColor = RGB(255, 255, 255) TextBox13.Text = "" TextBox14.BackColor = RGB(255, 255, 255) TextBox14.Text = "" End Sub Наконец напишем код для кнопки ВЫХОД: Private Sub CommandButton3_Click() Application.Quit End Sub
Читайте также: