Мультимедийный тест

Продолжаем проектировать мультимедийную энциклопедию. Наполните тест своими вопросами, добавьте кроссворд и фото-викторину.

💡 Задание для ДО: Создайте мультимедийную энциклопедию

По горизонтали:	По вертикали:
1. В 1945 году прошел парад Победы. Кто принимал этот парад? 4. Русский солдат спас немецкую девочку и в честь этого был возведен памятник «Воин – освободитель». Название города, в котором стоит этот памятник. 5. Эта ракетная установка носит имя русской девушки. 6. Город, который подвергался блокаде 900 дней.	2. Этот человек прошел войну и живет в наше время. 3. Эта крепость была атакована немцами первой. 7. Город-герой – столица Белоруссии. 8. В Георгиевской ленточке два цвета: черный и оранжевый. Черный цвет – это дым. Что означает оранжевый цвет?

Настройка закладки Кроссворд

Компонент Edit:

1.      Свойство CharCase → ecLowerCase (все вводимые буквы маленькие)

2.      Свойство MaxLenght → 1 (можно вводить только 1 символ)

Листинг программы

//Щелчок по кнопке Очистить

V1_1.text :=' ';

//Щелчок по кнопке Проверка                                   

if (V1_1.text+V1_2.text+ V1_3.text+V1_4.text+ V1_5.text='жуков')

and (V1_5.text+V2_2.text+V2_3.text+ V2_4.text+V2_5.text+ V2_6.text + V2_7.text ='ветеран')

……….

and (V8_1.text+V6_6.text+V8_3.text+V8_4.text +V8_5.text ='огонь') then ShowMessage('Поздравляю!'+#13#10+'Вы правильно отгадали кроссворд ')

else  ShowMessage('Вы допустили ошибки!'+#13#10+’Повторите историю '); 

Настройка закладки Тест

Компоненты

1.      Свойства Items – ввод вариантов ответов, нумерация начинается с 0

Листинг программы

//Щелчок по кнопке Проверка теста

if (CheckGroup1.Checked[0]=true and CheckGroup1.Checked[1]=true)

      and (RadioGroup1.ItemIndex=0) and (ComboBox1.ItemIndex=0) then ShowMessage('Поздравляю!')

else  ShowMessage('Вы допустили ошибки! Повторите'); 

Настройка закладки Фото-викторина

Загрузить картинку можно в коде программы, добавив строку:

Image1.Picture.LoadFromFile(‘имя_файла’);

Компонент Image

1.      Свойство Picture – загрузка картинки

2.      Свойство Proportional – позволяет автоматически масштабировать картинки без искажения. Для выполнения масштабирования, значение свойства AutoSize должно быть равным False

3.      Свойство AutoSize -  позволяет автоматически изменять размер компонента в соответствии с размером изображения

Листинг программы

//Щелчок по Картинке

Label2.Caption:=InputBox('Ответ', 'Введите правильный ответ с Большой буквы ','');

if  (Label2.Caption='Маресьев') then Label2.Caption:=Label2.Caption+' - вы угадали'

else Label2.Caption:='Правильный ответ - Маресьев';

📌P.S  Заготовка с заданием Скачать