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


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

Функция "чтения" служит для ознакомления с работой. Разметка, таблицы и картинки документа могут отображаться неверно или не в полном объёме!

расцветаете в огне страстей. Ваше романтическое безрассудство дает о себе знать каждую минуту. И тогда, когда все и вся настроены не "против", а "за", вы можете разозлить любящую "публику" какой-нибудь несусветной выходкой. Такое происходит потому, что вам постоянно кажется, что чего-то вы от жизни недополучили. В качестве гиперкомпенсации вы любите делать резкие замечания и доставлять неприятности. Но ваша удовлетворенность мнимая. Попробуйте думать не только о своей прекрасной персоне, но и о том, каковы интересы окружающих. и жизнь станет проще и приятнее. Принцип работы проектируемого приложения следующий. При запуске на экране отображаются комментарии к тесту.

После нажатия кнопки ОК на экране отображается первый вопрос и варианты ответов на него. При этом в заголовке окна отображается номер вопроса, а надпись на кнопке изменяется на «Дальше». Кнопка будет неактивна до тех пор, пока не будет выбран ответ. По окончании теста на экран выводится количество набранных балов и результат тестирования. При этом заголовок окна также изменяется. . Разместим на форме следующие компоненты :

Panel1 (Color = clBlack, Caption =’’), BitBtn1 (расположена на панели), RadioGroup1 (Caption=’’) и Label1 (WordWrap=true, AutoSize=false, ширину и высоту метки задайте примерно как показано на рисунке, поместите компонент на задний план - выберите в контекстном меню Компонент - Сделать нижним)

Свойства формы определим как в примере№1. Изменим также цвет формы на clSliver.

. Изменим также иконку приложения. Для этого надо выбрать в меню Проект - Опции, перейти на вкладку Приложение и указать путь к файлу с расширением ico.

3. Опишем глобальные переменные:AppPath:array[0..255] of char;

_file : AnsiString;:textFile; // текстовый файл,s:string;_v:integer;//номер вопроса:array[1..4] of integer;:integer;//сумма набранных балов

. Как и в предыдущем примере определим директорию, где расположен исполнимый файл. В обработчике события OnCreate для формы напишем:(255,AppPath); //определяем директорию, где расположен исполнимый файл

_file := AppPath + '\test.txt';

try(f,_file); //связываем логическое и физическое имя файла(f); //открываем файл для чтения

except('Файл не найден'); BitBtn1.Enabled:=false;

end;

. Создадим обработчик OnShow для формы:(f,s) //считываем строку из файла;

if not (s[1]='&') then buf:=buf+s;s[1] ='&';.Caption:=buf;

6. В обработчике OnClick для кнопки BitBtn1 напишем:

procedure TForm1.BitBtn1Click(Sender: TObject);k,i,j:integer;:array[1..4] of string;:=''; k:=0; RadioGroup1.Visible:=true; i:=0; j:=0;.Items.Clear; //очищаем компонент_v:=n_v+1;.Caption:='Дальше'; BitBtn1.Enabled:=false;

if not (s[1]='#') then begin //если вопросы еще не закончились

repeat(f,s);:=k+1;k of

: label1.Caption:=s; //выводим текст вопроса

2,4,6,8:Radiogroup1.Items.Add(s);//выводим варианты ответов

3,5,7,9: begin:=i+1; bal[i]:=StrToInt(s);//заполняем массив баллами

end;;(s[1]='&') or (s[1]='#');.Caption:='Вопрос № '+IntToStr(n_v); //меняем заголовок окна end//вывод результатов тестаrepeat readln(f,s);:=k+1;k of ,4,6,8: begin j:=j+1; st[j]:=s; end; ,5,7,9: begin:=i+1; bal[i]:=StrToInt(s); end;;eof(f);//пока не будет достигнут конец файла label1.Caption:='Вы набрали '+IntToStr(sum)+' баллов'+#13+#13; if sum


Интересная статья: Быстрое написание курсовой работы