Читать методичка по Отсутствует: "Компьютерное проектирование интерфейса пользователя" Страница 2

(Назад) (Cкачать работу)

(окно, размер которого пользователь не может изменять, потянув курсором за край окна, но может менять кнопками в полосе заголовка)

Исключим из числа доступных кнопок Развернуть:

BordersIcons.byMaximize - false.

3. Поместим на форму 10 компонентов Image (вкладка Aditional) и расположим их таким образом, чтобы они накладывались друг на друга. Для копирования компонентов можно воспользоваться буфером обмена. Для выравнивания компонентов необходимо их выделить и выбрать в контекстном меню Позиция - Выровнять

4. Зададим каждому из компонентов Image заранее заготовленные изображения в формате jpg. Для этого необходимо щелкнуть мышкой по свойству Picture. Откроется Редактор Картинки, в котором можно указать путь к необходимому изображению. 5. Подобным образом поместим на форму 10 компонентов Memo (вкладка Standard). Для каждого из компонентов поместим в свойство Lines тестовый вопрос. Для всех компонентов Memo установим свойство ReadOnly - True (запретим изменение текста)

6. Поместим на форму компонент RadioGroup. В свойстве Captions элемента напишем Выберите ответ. В свойстве Items компонента создадим пять пустых строк (они нам понадобятся для вывода вариантов ответа).

. В разделе var модуля опишем переменные:

kol_v,kol_pr:integer;

8. Напишем в обработчике события OnShow для Form1 код:

procedure TForm1.FormShow(Sender: TObject);

kol_v:=kol_v+1; //счетчик количества заданных вопросов

radioGroup1.ItemIndex:=-1; //флажок ответа не выбран

// делаем компоненты невидимыми

image1.Visible:=false;

….Visible:=false;.Visible:=false;

…

memo5.Visible:=false;kol_v of

: begin

Image1.Visible:=true;.Visible:=true;1.Items[0]:='20 B'; //варианты выводимых ответов

Radiogroup1.Items[1]:='5 B';.Items[2]:='1 B';.Items[3]:='10 B';.Items[4]:='2 B';;

…

: begin.Visible:=true;.Visible:=true;.Items[0]:='20 B';.Items[1]:='5 B';.Items[2]:='1 B';.Items[3]:='10 B';.Items[4]:='2 B';;

end; //конец структуры Case

if kol_v>10 then //если заданы все вопросы, на экран выводится сообщение о количестве правильных ответов и форма закрывается

begin

showmessage('Правильных ответов -'+IntToStr(kol_pr));

form1.Close;

end;

9. В обработчике события OnClick для RadioGroup1 напишем код:

procedure TForm1.RadioGroup1Click(Sender: TObject);kol_v of

: if radiogroup1.ItemIndex=0 then kol_pr:=kol_pr+1;

: if radiogroup1.ItemIndex=3 then kol_pr:=kol_pr+1;

: if radiogroup1.ItemIndex=4 then kol_pr:=kol_pr+1;

: if radiogroup1.ItemIndex=1 then kol_pr:=kol_pr+1;

: if radiogroup1.ItemIndex=0 then kol_pr:=kol_pr+1;

end;;

Здесь в зависимости от номера вопроса и выбранного флажка подсчитывается количество правильных ответов. Radiogroup1.ItemIndex=0 - номер флажка, содержащего правильный ответ (в данном случае - 1-й флажок)

10. Последний штрих программы - поместим на форму компонент BitBtn. В свойстве Caption запишем Следующий вопрос. В свойстве Glyph можно задать картинку на кнопке.

Для события OnClick кнопки выберем из списка FormShow.

Рассмотрим еще один пример - тест по Информатике. В отличие от предыдущей программы, текст теста, а также номер правильного ответа будет содержаться в файле формата rtf. Файл test.rtf с текстом будет располагаться в той же папке, что и исполнимый файл, в подкаталоге text и иметь следующую структуру: В электронной таблице знак "$" перед номером строки в обозначении ячейки указывает на:

) денежный формат;

) начало формулы;

) абсолютную адресацию;

) начало выделения блока ячеек;

) пересчет номера строки, начиная с текущего.

Элементарная единица измерения количества

Похожие работы