рефераты конспекты курсовые дипломные лекции шпоры

Реферат Курсовая Конспект

Лабораторная работа №7

Лабораторная работа №7 - раздел Программирование, Объектно-ориентированное программирование на языке Delphi Флажки. При Активизации Двойным Щелчком Мыши Checkbox1 Появится Процед...

Флажки. При активизации двойным щелчком мыши CheckBox1 появится процедура TForm1.CheckBox1Click(Sender: TObject);

Задача: При установке флажка текст в Метке1 должен становиться жирным.

Procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked=true

then Label1.font.Style:=font.style+[fsbold]

else Label1.font.Style:=font.style-[fsbold]

end;

То есть, если (if) флажок установлен, (then) текст в Метке1 должен становиться жирным, (else) а при повторном нажатии на флажок – обычным.

Рассмотрим применение таблицы для первого случая, когда необходимо текст в многострочном редакторе сделать жирным при установке флажка и обычным при повторном нажатии.

<Условие> <Оператор>
CheckBox1.checked Memo1.Font.Style:=Memo1.Font.Style+[fsBold]
  Memo1.Font.Style:=Memo1.Font.Style-[fsBold]

Вставив условия и операторы в шаблон получим:

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.checked then

Memo1.Font.Style:=Memo1.Font.Style+[fsBold]

else

Memo1.Font.Style:=Memo1.Font.Style-[fsBold]

end;

Переключатели. Задача: При установке переключателей текст в Метке1 должен становиться желтым либо красным.

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked=true then Label1.Font.Color:=clyellow

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked=true then Label1.font.Color:=clred

end;

Задания для самостоятельной работы:

1. Создать простейший текстовый процессор, содержащий переключатели цвета шрифта, флажки для определения стиля.

2. Вычислить наибольшее (max) из двух введенных чисел а и b.

3. Вычислить наименьшее (min) из трех чисел a, b, c.

4. Даны числа x, y, z. Найти количество чисел больших нуля.

5. Даны числа x, y, z. Найти сумму чисел меньших нуля и произведение чисел больших нуля.

6. Даны числа a, b, c. Вычислить модуль чисел меньших нуля, квадрат чисел не равных нулю и корень из чисел больших нуля.

7. Найти значение выражения z=3x-4, 0<x<=1и z=|x-x2|, 1<x<=10

8. s=max(x,y), x<0 s=min(x,y), x>=0

9. Известно, что из четырех чисел а1, а2, а3, а4 одно отлично от трех других, равных между собой. Вывести это число.

10. Даны два действительных числа x и y, не равные друг другу. Меньшее из этих чисел заменить половиной их суммы.

Придумать и решить несколько задач по данной теме.

– Конец работы –

Эта тема принадлежит разделу:

Объектно-ориентированное программирование на языке Delphi

Алгоритмы и исполнители.. основные понятия объектно ориентированного программирования.. проверочная работа алгоритмы и исполнители основные понятия ооп..

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Лабораторная работа №7

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Объектно-ориентированное программирование на языке Delphi
Информатика – это область человеческой деятельности, связанная с процессами преобразования информации с помощью компьютеров и их взаимодействием со средой применения. Информатика появилась благодар

Алгоритмы и исполнители
Термин алгоритм происходит от имени узбекского ученого 9в. Аль-Хорезми, который в своем труде "Арифметический трактат", переведенном в 12в. с арабского на латынь, изложил правила а

Форма и размещение на ней простейших объектов
Среда программирования Delphi состоит из: 1. Главного меню. В нем располагаются стандартные операции работы с файлами (создать, сохранить, закрыть и т.д.) Ниже располагаютс

Лабораторная работа №1
1. Запустите среду программирования Delphi 2. Перед вами открылся новый проект, состоящий из Формы (Form), на которую будете наносить объекты и окно Программного кода (Uni

Расположение объектов на форме
Местоположение объекта, которое он будет занимать на форме после запуска приложения на выполнение, можно легко изменить. Для этого достаточно перетащить объект с помощью мыши в любое место

Лабораторная работа №2
Расположение управляющих элементов на форме.Расположение на форме и размеры управляющих элементов можно легко изменять с помощью мыши. Для этого необходимо активизировать объект ще

Дополнительные возможности при работе с объектами Edit, Memo. Кнопка с изображением BitBtn
Для межстрочного поля Memo существует способность отображать множество строк. Все они, как известно, содержаться в свойстве Lines. Метод Add добавляет новую строчку к имеющемус

Лабораторная работа №3. MainMenu - главное меню формы
Компонент класса TMainMenu определяет главное меню формы (программы). 1. Установите компонент на форму 2. Создайте пункты меню. Для этого следует дважды щелкнуть по компоне

Проверочная работа №2. Работа с компонентами.
Вариант №1. 1. Что такое компонент? ________________________________________________________________________________________________________________________ 2. Охарактеризу

Лабораторная работа № 4
Решим простейший пример: найти сумму трех чисел. 1. Описываем после служебного слова VAR несколько переменных целого типа для удобства решения: Var a, b, c, s: integer;

Лабораторная работа №5. Алгоритм решения математический задачи на языке.
Алгоритм решения задачи имеет 3 основные части: 1. ввод данных Например: a:=StrToInt(Memo1.text); // занести в переменную а содержимое многострочного редакт

Стандартные арифметические функции
abs(x) Модуль х cos(x) Косинус х exp(x) Экспонента

Лабораторная работа №8
Задача: Написать программу, которая по введенному числу 1..3 выводит его название. Опишем переменную Var a: integer;

Лабораторная работа №9
Рассмотрим алгоритм решения задачи, в которой нужно подсчитать количество вхождений символа «а» в строку. Используем компоненты классов TEdit и TMemo для ввода строки и вывода

Лабораторная работа №10
Задача: Вывести 5 одинаковых надписей: «Программа цикла» Для вывода повторяюще

Проверочная работа №4. Строки. Циклы
Вариант №1. 1. Опишите строку s. ________________________________________________________________ 2. Напишите программу для проверки количества вх

Рассмотрение дополнительных компонентов для ввода/вывода строк
Для ввода и вывода информации в объектно-ориентированном программировании существует целый ряд вариантов. В библиотеке визуальных компонентов Delphi существует множество компонентов, позволя

Графические компоненты
TImage – изображение Данный компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растрового рисунка (*.bmp), значка (*.ico) или метафайла

Лабораторная работа №11
Создадим несложную программу просмотра изображений: 1. Поместите на форму панель TPanel, очистите ее свойство Caption. 2. Разместите на панели кнопку TButton с надписью Загрузить.

Лабораторная работа №12
Для обращения к ячейке [0,0] нужно использовать свойство Cells: StringGrid1.Cells[0,0]:=IntToStr(5) 1. Проиллюстрируйте возможности рассмотренного компонента, состав

Массивы
Массив – упорядоченный набор однотипных значений – компонент массива. Тип компонент называется базовым типом массива. В Delphi массив рассматривается как переменная структури

Лабораторная работа №13
Задания для самостоятельной работы: 1.Заполнить линейный массив произвольными числами и вывести его на экран. 2.Заполнить линейн

Проверочная работа №5. Массивы
Вариант №1. 1. Опишите массив a, состоящий из 10 элементов. ________________________________________________________________ 2. Опишите двумерный

Обработка событий мыши. Регулировка прозрачности формы
Обработчики событий OnMouseDown и OnMouseUp определяют реакцию программы на соответственно нажатие и отпускание кнопки мыши, OnMouseMove –на перемещение указателя мыши на компо

Процедуры и функции вызова диалоговых окон
Процедура ShowMessage (‘<строка>’) отображающая окно с сообщением и кнопкой ОК. Пример: ShowMessage (‘До свидания!’) Процедура ShowMessageFmt(‘Задано %d параметров и

Лабораторная работа №14
Пример: В теле процедуры запишем Begin … if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes then close; end.

Работа с датой и временем
Тип TDateTime Var t: TDateTime; Для обработки даты и времени модуль SysUtils содержит следующие основные функции: function Date: TDataTime;

Лабораторная работа №15
Рассмотрим пример, в котором числа 2006, 1, 1 выводятся в формате даты 1.1.2006. var MyTime: TDateTime; begin MyTime := EncodeDate(2006, 1, 1);

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

Лабораторная работа №16
Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down. procedure TForm1.SpinButton1DownClick(Sender: TObject); begin

Компоненты вкладки Dialogs
TOpenDialog – открытие файлов и TSaveDialog – сохранение файлов Компоненты имеют идентичные свойства. Свойство Описание

Лабораторная работа №17
Программа для просмотра содержимого текстового файла. 1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo. 2. При рабо

Контрольная работа
Вариант №1 1. Найти наибольшее из 3 чисел a, b, c. 2. Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2) 3. Дана строка. Найти количество вхождений букв А. 4

Хотите получать на электронную почту самые свежие новости?
Education Insider Sample
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Реклама
Соответствующий теме материал
  • Похожее
  • Популярное
  • Облако тегов
  • Здесь
  • Временно
  • Пусто
Теги