Пример создания приложения Edit Panel Button

Сентябрь 3, 2022

Главная
Алгебра
Пример создания приложения Edit Panel Button

Содержание

2. Обработчик щелчка кнопки. Panel1.Caption:=Edit1.Text+'*'+Edit2.Text+'=' +FloatToStr(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text)); Caption Panell Окно редактирования Edit Text «*» «+» Конкатенация преобразовать
3. Принцип модульности Для умножения головная программа имеет вид program Project1_1; uses Forms, {системный модуль} Unit1_1 in
4. Структура модуля для данного проекта unit Unit1_1;{заготовка к лаб раб: задай 2 числа, получи результат на
5. procedure Panel1Click(Sender: TObject); private { Private declarations } {Закрытый раздел класса} {Сюда могут помещаться объявления переменных,
6. Математические функции Abs(x), Sqr(X), Sqrt(X), Sin(x), Cos(X),ArcTan(x), Exp(X), Frac(X), Int(X), Ln(X), Pi, Round(X), Trunc(X) Функция Описание
7. Рекомендации по отладке Ctrl+F2 - прервать выполнение F7 (Команда - Trace Into) - Пошаговое выполнение программы
8. Задание Создать проект «Среднее арифметическое» Метками описать условие задачи и поля 3 исходных чисел. Для ввода
9. program Pr2; uses Forms, Pr2U in 'Pr2U.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
10. Label3: TLabel; Panel1: TPanel; Button1: TButton; Button3: TButton; Label4: TLabel; Label5: TLabel; Edit2: TEdit; Label6: TLabel;
11. var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button3Click(Sender: TObject); begin Close; end; procedure TForm1.Button1Click(Sender: TObject); var
12. mx := max(mx,c); if mx=a then Label8.Caption:='Число1 – максимальное-‘ else if max=b then Label8.Caption:= 'Число2 –
13. Задание Разработать проект, в котором введенное число переводится из 10-ой системы счисления в 2, 8 и
14. СТРАНИЦА АDDIТIОNАL BitBtn Командная кнопка с надписью и пиктограммой SpeedButton Пиктографическая кнопка MaskEdit Специальный текстовый редактор
15. CheckListBox Список множественного выбора Splitter Граница StaticText Статический текст ControlBar Полоса управления ApplicationEvents Получатель события Chart
16. Страница WIN 32 Интерфейсные элементы TabControp - Набор закладок PageControl - Набор панелей с закладками ImageList
17. СТРАНИЦА SYSТЕМ Тimer - Таймер РaintВох - Окно для рисования МеdiаР1ауеr - Мультимедийный проигрыватель
18. СТРАНИЦА DАТА АССЕSS DataSours - Источник данных Таblе - Таблица Query - Запрос StoredРrос - Хранимая
19. СТРАНИЦА DАТА СОNTROLS DBGrid - Таблица БД DBNavigator - Навигатор БД DBText - Текст БД DВЕdit
20. СТРАНИЦА АDО для поддержки технологии АDО позволяет клиентским программам взаимодействовать с сервером InterBase v.5.5 СТРАНИЦА MIDAS
21. СТРАНИЦА INТЕNЕТ ЕХРPRESS Всего два компонента страницы 1п1еrпеt Ехрress предназначены для поддержки интранет-сетей СТРАНИЦА INТЕRNЕТ Средства
22. СТРАНИЦА DIALOG Реализуют стандартные для Windows диалоговые окна OpenDialog - Открыть SaveDialog - Сохранить OpenPictureDialog -
24. Скачать презентацию

Слайд 2

Обработчик щелчка кнопки.
Panel1.Caption:=Edit1.Text+''+Edit2.Text+'='
+FloatToStr(StrToFloat(Edit1.Text)
StrToFloat(Edit2.Text));
Caption Panell
Окно редактирования Edit Text «*»
«+»

Конкатенация
преобразовать его в строку FloatToStr
перевести в число StrToFloat
F9 «Расчет»
«Результат»
«Выход» Close
Сохранить File/Save All

Слайд 3

Принцип модульности
Для умножения головная программа имеет вид
program Project1_1;
uses
Forms, {системный

модуль}
Unit1_1 in 'Unit1_1.pas' {Form1}; {Модули форм}
{$R *.RES} {Директива компилятора}
{Здесь вы можете поместить описания каких-то констант, переменных, функций, процедур. Все это будет доступно только в пределах данного файла}
begin {тело программы}
Application.Initialize; {Инициализация приложения}
Application.CreateForm(TForm1, Form1); {Cоздание объекта формы}
Application.Run; {Выполнение приложения}
end.
В модулях осуществляется программирование задачи.

Слайд 4

$Структура модуля для данного проекта unit Unit1_1;{заготовка к лаб раб: задай$

Структура модуля для данного проекта
unit Unit1_1;{заготовка к лаб раб: задай

2 числа, получи результат на панели}
Interface {открытый интерфейс, доступный другим модулям}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Panel1: TPanel;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;

Слайд 5

procedure Panel1Click(Sender: TObject);
private { Private declarations } {Закрытый раздел

класса}
{Сюда могут помещаться объявления переменных, функций и процедур, включаемых в класс формы, но не доступных для других модулей}
public { Public declarations } {Сюда могут помещаться объявления переменных, функций и процедур, включаемых в класс формы и доступных для других модулей}
end;
var {Сюда могут помещаться объявления типов, констант, переменных, функций и процедур, к которым }
Form1: TForm1; {будет доступ из других модулей, но которые не включаются в класс формы}
implementation {реализация модуля}
{$R *.DFM}
procedure TForm1.Panel1Click(Sender: TObject);
begin
Panel1.Caption:= Edit1.Text+'*'+ Edit2.Text+'='
+ FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit2.Text));
end;
end.

Слайд 6

Математические функции
Abs(x), Sqr(X), Sqrt(X), Sin(x), Cos(X),ArcTan(x), Exp(X), Frac(X), Int(X), Ln(X), Pi,

Round(X), Trunc(X)
Функция Описание Аргумент
Ceil (X) округление до наименьшего целого, выражение Extended
превышающего или равного аргументу
Floor (X) округление до наибольшего целого, выражение Extended
меньшего или равного аргументу
IntPower (X,E) возведение Х в целую степень Е выражение Extended и
Integer
Log 10 (X) десятичный логарифм от Х выражение Extended
Log N (N,X) логарифм от Х по основанию N выражение Extended
Max (A,B) максимум двух чисел выражение Integer, Int64,
Single, Doublе, Expended
Min (A,B) минимум двух чисел
Power (X,E) возведение Х в произвольную степень Е

Слайд 7

Рекомендации по отладке
Ctrl+F2 - прервать выполнение
F7 (Команда - Trace Into)

- Пошаговое выполнение программы с заходом в процедуры и функции,
F8 (Step Over ) - Пошаговое выполнение считая вызов функции или процедуры
(Shift+F7 ) Trace to Next Source Line - Переход к следующей исполняемой строке.
F4 (Run to Cursor) - Выполняет до курсора
Show Execution Point
Watches Окно наблюдения Watches видимы
View/Debug Windows/ Watches в Delphi View/Watches в Ctrl-F5
Delete отредактировать двойной щелчек в окне Watch Properties
F11 Object Inspector
F12 Окно формы

Слайд 8

Задание
Создать проект «Среднее арифметическое»
Метками описать условие задачи и поля

3 исходных
чисел. Для ввода чисел задать 3 строки ввода (Edit)
Результат выводить на панель. Использовать кнопки (button) «Пуск» и «Выход»
Среднее арифметическое Label1
Ввести три числа. Определить максимальное и минимальное. Label2
Найти среднее арифметическое значение для этих чисел Label5
Число 1 Label3 Число 2 Label6 Число 3 Label7
Среднее арифметическое Label4
Edit1 Edit2 Edit3
Число 3 – Максимальное Label8
Число 1 – Минимальное Label9 Panel1
Button1 Button3

Пуск

Выход

Слайд 9

program Pr2;
uses
Forms,
Pr2U in 'Pr2U.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1,

Form1);
Application.Run;
end.
unit Pr2U;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;

Слайд 10

Label3: TLabel;
Panel1: TPanel;
Button1: TButton;
Button3: TButton;
Label4: TLabel;

Label5: TLabel;
Edit2: TEdit;
Label6: TLabel;
Edit3: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Слайд 11

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,mx,mn: integer;
s:real;
begin

a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
mn: = min(a,b);
mx: = max(a,b);

Слайд 12

mx := max(mx,c);
if mx=a then Label8.Caption:='Число1 – максимальное-‘
else if

max=b then Label8.Caption:=
'Число2 – максимальное-‘
else Label8.Caption:='Число3 - максимальное';
mn:=min(mn,c);
if mn=a then Label9.Caption:='Число1 – минимальное-‘
else if min=b then Label9.Caption:=
'Число2 -минимальное‘
else Label9.Caption:='Число3 - минимальное';
S:=real(a+b+c)/3;
Panel1.Caption:=FloatToStr(S);
end;
end.

Слайд 13

Задание
Разработать проект, в котором
введенное число переводится из
10-ой системы

счисления в 2, 8
и 16-ю.

Слайд 14

СТРАНИЦА АDDIТIОNАL
BitBtn Командная кнопка с надписью и пиктограммой
SpeedButton Пиктографическая

кнопка
MaskEdit Специальный текстовый редактор
StringGrid Таблица строк
DrawGrid Произвольная таблица
Image Рисунок
Shap Фигура
Bevel Кромка
ScrollBox Панель с полосами прокрутки

Слайд 15

CheckListBox Список множественного выбора
Splitter Граница
StaticText Статический текст
ControlBar Полоса

управления
ApplicationEvents Получатель события
Chart Диаграмма

Слайд 16

Страница WIN 32
Интерфейсные элементы
TabControp - Набор закладок
PageControl - Набор

панелей с закладками
ImageList - Набор рисунков
RichEdit - Многострочный редактор (с 94)
TrackBar - Регулятор
ProgressBar - Индикатор процесса
UpDown - Цифровой регурятор
HotKey - Управляющая клавиша
Animate - Мультипликатор (смена кадров движущихся изображений).
DateTimePicker - Селектор времени-даты
TreeView - Дерево выбора
ListView - Панель пиктограмм
HeaderControl - Управляющий заголовок
StatusBar - Панель статуса (служевная информация)
ToolBar, CoolBar - Инструментальные панели
PageScroll - Прокручиваемая панель

Слайд 17

СТРАНИЦА SYSТЕМ
Тimer - Таймер
РaintВох - Окно для рисования
МеdiаР1ауеr -

Мультимедийный проигрыватель

Слайд 18

СТРАНИЦА DАТА АССЕSS
DataSours - Источник данных
Таblе - Таблица
Query - Запрос
StoredРrос

- Хранимая процедура
DаtаBasе - База данных
Sesion - Сеанс связи с базой данных
ВаtсhМоvе - Пакетная пересылка
UрdateSQL - Модификация данных
NеstеdТаble - Вложенная таблица

Слайд 19

СТРАНИЦА DАТА СОNTROLS
DBGrid - Таблица БД
DBNavigator - Навигатор БД

DBText - Текст БД
DВЕdit - Текстовый редактор БД
DВМеmо - Многострочный текстовый редактор БД.
DВImаgе - Рисунок БД.
DBListВох - Список выбора БД
DВСomboВох - Раскрывающийся список выбора БД.
DBCheckBox - Независимый переключатель БД
DBRadioGroup - Группа зависимых переключателей БД.
DBLookupListBox - Список выбора БД
DBLookupComboBox - Комбинированный список выбора БД
DBRichEdit - RTF- редактор
DBCtrlGrid - Многострочная таблица БД
DBCart - График БД

Слайд 20

СТРАНИЦА АDО
для поддержки технологии АDО
позволяет клиентским программам взаимодействовать с сервером

InterBase v.5.5
СТРАНИЦА MIDAS
СТРАНИЦА SАМРLЕS
Содержит компоненты разного назначения
Gauge - Индикатор состояния
ColorGrid - Таблица цветов 16-ти цветовой палитры
SpinButton - Двойная кнопка
SpinEdit - Редактор числа
DirectjryOutLine - Список каталогов
Calendar - Календарь. IBEventAlerter - Сторож событий. Компонент осуществляет асинхронную связь с сервером БД InterBase.

Слайд 21

СТРАНИЦА INТЕNЕТ ЕХРPRESS
Всего два компонента страницы 1п1еrпеt Ехрress предназначены для

поддержки интранет-сетей
СТРАНИЦА INТЕRNЕТ
Средства связи программы с глобальной компьютерной сетью 1пtеrпеt
СТРАНИЦА FАSТNЕТ
Использования различных протоколов для передачи деловых сообщений и данных по локальным и/или глобальным сетям
СТРАНИЦА DЕСISION СUВЕ
Доступ к многомерным наборам данных
СТРАНИЦА QREPORT
Создания отчетов

Слайд 22

СТРАНИЦА DIALOG
Реализуют стандартные для Windows диалоговые окна
OpenDialog - Открыть
SaveDialog

- Сохранить
OpenPictureDialog - Открыть рисунок
SavePictureDialog - Сохранить рисунок
FontDialog - Шрифт
CororDialog - Цвет
PrintDialog - Печать
PrinterSetupDialog - Настройка принтера
FindDialog - Поиск
ReplactDialog - Замена

Пример создания приложения Edit Panel Button

Содержание

Обработчик щелчка кнопки. Panel1.Caption:=Edit1.Text+'*'+Edit2.Text+'=' +FloatToStr(StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text));Caption Panell Окно редактирования Edit Text «*» «+»

Принцип модульностиДля умножения головная программа имеет видprogram Project1_1;uses Forms, {системный

Структура модуля для данного проекта unit Unit1_1;{заготовка к лаб раб: задай

procedure Panel1Click(Sender: TObject); private { Private declarations } {Закрытый раздел

Математические функцииAbs(x), Sqr(X), Sqrt(X), Sin(x), Cos(X),ArcTan(x), Exp(X), Frac(X), Int(X), Ln(X), Pi,

Рекомендации по отладке Ctrl+F2 - прервать выполнениеF7 (Команда - Trace Into)

Задание Создать проект «Среднее арифметическое» Метками описать условие задачи и поля

program Pr2;uses Forms, Pr2U in 'Pr2U.pas' {Form1}; {$R *.RES}begin Application.Initialize; Application.CreateForm(TForm1,

Label3: TLabel; Panel1: TPanel; Button1: TButton; Button3: TButton; Label4: TLabel;

var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button3Click(Sender: TObject);beginClose;end;procedure TForm1.Button1Click(Sender: TObject);var a,b,c,mx,mn: integer; s:real;begin

mx := max(mx,c);if mx=a then Label8.Caption:='Число1 – максимальное-‘ else if

ЗаданиеРазработать проект, в котором введенное число переводится из 10-ой системы

СТРАНИЦА АDDIТIОNАL BitBtn Командная кнопка с надписью и пиктограммойSpeedButton Пиктографическая

CheckListBox Список множественного выбора Splitter Граница StaticText Статический текст ControlBar Полоса

Страница WIN 32 Интерфейсные элементыTabControp - Набор закладок PageControl - Набор

СТРАНИЦА SYSТЕМТimer - Таймер РaintВох - Окно для рисования МеdiаР1ауеr -

СТРАНИЦА DАТА АССЕSS DataSours - Источник данныхТаblе - ТаблицаQuery - ЗапросStoredРrос

СТРАНИЦА DАТА СОNTROLS DBGrid - Таблица БД DBNavigator - Навигатор БД

СТРАНИЦА АDОдля поддержки технологии АDО позволяет клиентским программам взаимодействовать с сервером

СТРАНИЦА INТЕNЕТ ЕХРPRESS Всего два компонента страницы 1п1еrпеt Ехрress предназначены для

СТРАНИЦА DIALOG Реализуют стандартные для Windows диалоговые окна OpenDialog - ОткрытьSaveDialog

Похожие презентации