2015-05-05
588
Создать приложение, которое при выборе номера аудитории позволяет увидеть список прикладных компьютерных программ, установленных в ней.
При выборе с помощью переключателя аудитории программа должна указать, какие приложения в этой аудитории установлены, и вывести в текстовое поле пожелания инженеру этой аудитории.
План разработки программы:
1) Разместить на форме экземпляры компонентов в соответствии с рисунком 3.1
2) Выделить объект RadioGroup1, найти свойство Items, щелкнуть на кнопке с тремя точками, расположенной справа от него. В появившемся окне встроенного редактора ввести названия аудиторий, каждое на новой строке. Установим свойство Caption равным «аудитории». Выделить CheckListBox1, найти свойство Items и внести список прикладных программ.
Рисунок 3.1
3) Активизировать RadioGroup1 двойным щелчком и в заготовку обработчика события OnClick поместить следующий код:
memo1.Clear;
for I:=0 to 10 do checklistbox1.checked[i]:=false;
case radiogroup1.ItemIndex of
0:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
|
|
|
checklistBox1.Checked[10]:=true;
checklistBox1.Checked[11]:=true;
memo1.Lines.Add('Желательно установить
дополнительно программы');
end;
1:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[5]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
checklistBox1.Checked[10]:=true;
memo1.Lines.Add('Эта аудитория занята весь день');
end;
2:begin checklistBox1.Checked[2]:=true;
checklistBox1.Checked[3]:=true;
checklistBox1.Checked[4]:=true;
checklistBox1.Checked[6]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('Можно установить ТурбоС++');
end;
3:begin checklistBox1.Checked[5]:=true;
checklistBox1.Checked[7]:=true;
checklistBox1.Checked[9]:=true;
memo1.Lines.Add('В этой аудитории проводятся
занятия по спецдисциплинам');
end;
4:begin checklistBox1.Checked[1]:=true;
checklistBox1.Checked[2]:=true;
checklistBox1.Checked[8]:=true;
checklistBox1.Checked[3]:=true;
memo1.Lines.Add('Это - аудитория преподавателей');
end;
end;
4) Активизировать кнопку «Закрыть» и в обработчик события OnClick вставить строку:
close;
5) Сохранить новый проект – File – Save All. Создать новую папку, дать название «Аудитория», открыть папку. Сохранить код программы и проект под именами, например, Unit1.pas и Project1.dpr. Запустить приложение на выполнение.
Контрольные вопросы
3.3.1 В чем различие между компонентами RadioGroup и CheckListBox?
3.3.2 Перечислить состояния, в которых может находиться каждый выключатель компонента CheckListBox.
3.3.3 Какое свойство компонента CheckListBox разрешает или запрещает использовать в переключателях третье состояние?
3.3.4 Какое значение имеет свойство ItemIndex, если не выделен ни один переключатель?
3.3.5 Что означает команда СheckListBox1.Checked[3]:=true;
Варианты заданий
1. Создать приложение, позволяющее менять начертание, размер, цвет шрифта текста, набранного в строке ввода Edit, - использовать панель переключателей, а также атрибуты шрифта (зачеркнутый, подчеркнутый) – использовать список выключателей.
|
|
|
2. Создать приложение, кратко описывающее человека: характер (сангвиник, холерик и т.д.), цвет волос, возраст, рост. ФИО ввести в строку ввода Edit. Полученную информацию выводить в Memo.
3. Составить тест из пяти вопросов. На каждый вопрос должно быть 4 ответа. Вывести результаты теста: сколько правильных и неправильных ответов, сколько % правильных ответов.
4. Написать приложение для цветочного магазина, предназначенное для выбора типа композиции букета и цветов для него.
5. Составить меню для ресторана.
6. Составить приложение, которое позволяет при выборе части света просмотреть список из пяти городов этой части света. Использовать RadioGroup и ListBox.
7. Смоделировать работу банкомата.
8. Написать приложение для отдела кадров: выводить фамилии сотрудников по должностям и выводить количество сотрудников указанной должности.
9. Создать приложение, которое выводит пункты назначения, номера рейсов, обслуживаемых самолетом, тип которого выбирается.
10. Написать программу, которая выводит информацию о людях, родившихся под знаком Зодиака, название которого выбрано.
11. Написать программу, которая выводит на экран информацию о товаре, который указан, и список магазинов, в котором он продается.
12. Смоделировать работу АЗС.
13. Написать программу, которая демонстрирует главные дорожные знаки: уступи дорогу, въезд запрещен, главная дорога, движение запрещено.
14. Написать программу, которая демонстрирует разные геометрические фигуры.
15. Создать приложение, позволяющее менять начертание, размер, цвет шрифта текста, набранного в строке ввода Edit, - использовать панель переключателей, а также атрибуты шрифта (зачеркнутый, подчеркнутый) – использовать список выключателей.
