Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick

TSpinButton – спаренные кнопки

Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick - student2.ru Для данного компонента следует написать обработчики событий OnDownClick и OnUpClick, в которых реализуется реакция программы на щелчок по той или иной кнопке.

TСolorGrid – цветовая таблица

Компоненты вкладки Samples. Обработка событий OnDownClick и OnUpClick - student2.ru Класс предназначен для выбора и отображения цветов из 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.

Наши рекомендации