Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick
TSpinButton – спаренные кнопки
| Для данного компонента следует написать обработчики событий OnDownClick и OnUpClick, в которых реализуется реакция программы на щелчок по той или иной кнопке. |
TСolorGrid – цветовая таблица
| Класс предназначен для выбора и отображения цветов из 16-цветной палитры. Свойство BackGroundIndex содержит индекс выбранного фонового цвета, GridOrdering определяет количество колонок и столбцов. |
Лабораторная работа №16
Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down.
procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
edit2.text:='Down'
end;
procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
edit2.text:='Up'
end;
Задания для самостоятельной работы:
Составить задачу, в которой форма окрашивается в выбранный из палитры цвет.
Компоненты вкладки Dialogs
TOpenDialog – открытие файлов и TSaveDialog – сохранение файлов
Компоненты имеют идентичные свойства.
| Свойство | Описание |
| FileName | Имя файла из которого читаются (TOpenDialog) или записываются (TSaveDialog) данные |
| Filter | Отбор файлов |
| DefaultExt | Формируется полное имя файла, если при ручном вводе пользователь не указал расширение |
| Files | Доступ к выбранным именам файлов, если разрешен множественный выбор |
Лабораторная работа №17
Программа для просмотра содержимого текстового файла.
1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo.
2. При работе программы щелчок по кнопке будет сигналом о необходимости загрузить в поле новый файл.
3. Procedure TForm1.Button1Click (Sender: TObject);
Begin
// настраиваем компонент на отбор текстовых файлов
OpenDialog1.Filter := ‘Текстовые файлы|*.txt|’+’Bat файлы |*.bat|’;
// выполняем диалог и анализируем его результат
If OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
//Результат успешный – пользователь выбрал файл
//загружаем файл в поле Memo
Memo1.Lines.LoadFromFile (OpenDialog1.FileName)
End;
Контрольная работа
Вариант №1
1. Найти наибольшее из 3 чисел a, b, c.
2. Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2)
3. Дана строка. Найти количество вхождений букв А.
4. Дан двумерный массив. Найти количество элементов меньших 10.
Вариант №2
1. Найти среднее арифметическое положительных чисел из a, b, c, d.
2. Найти сумму чисел s=1+1/2+1/3+…+1/k
3. Дана строка. Найти количество знаков +, -, *, /
4. Дан одномерный массив. Найти сумму элементов кратных 5.
Вариант №3
1. Найти среднее геометрическое положительных чисел из a, b, c.
Примечание: среднее геометрическое считать равному квадратному корню из a*b*c.
2. Найти сумму чисел s=1+1/4+1/9+…+1/n2
3. Дана строка. Заменить * знаком +.
4. Дан одномерный массив. Найти количество элементов равных 0.
Вариант №4*
1. Дана точка А(x1, y1). Определить принадлежит ли она треугольнику со сторонами (x2, y2), (x3, y3), (x4, y4).
2. Найти сумму чисел s=(1+3+5+…+2n-1)2-(2+4+6+…+2n)3
3. Дана строка. Найти сумму входящих в нее цифр.
4. Дан динамический массив. Заполнить его следующим образом:
| … | … | ... | … |
| n | n | n | n |
Список рекомендуемой литературы
1. Delphi 7. Учебный курс./Под ред. С.И.Бобровского. – СПб.: Питер, 2003.
2. Архангельский А.Я. Object Pascal в Delphi 5. – М. БИНОМ. 1999.
3. Архангельский А.Я. Программирование в Delphi 7. – М., 2004.
4. Борковский А.Б. Англо-русский словарь по программированию и информатике. – М., 1990.
5. Информатика./ Под ред. Н.В. Макаровой. – М., 2003.
6. Могилев А.В., Пак Н.И., Хеннер Е.К. Информатика. – М., 1999.
7. Орлов С.А. Технологии разработки программного обеспечения.– СПб., 2003. Семакин И., Шеина Т. Преподавание базового курса информатики в средней школе. Методическое пособие – М., 2000.
8. Угринович Н., Морозов В., Нечаев В. Преподавание курса «Информатика и информационные технологии». Методическое пособие – М., 2002.
9. Фаронов В.В. Delphi. Программирование на языке высокого уровня. – СПб., 2004.
10. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. Учебное пособие. Издание 7-е, переработанное. – М.: «Нолидж», 2000.