- •Содержание
- •1. Общие положения
- •2. Основы визуального программирования
- •2.1. Структура программного модуля
- •2.2. Формы
- •2.3. Элемент управления «Поле ввода»
- •2.4. Элемент управления «Кнопка»
- •2.5. Элемент «Метка»
- •2.6. Элемент «Группа переключателей»
- •0:ShowMessage('Выбран вариант 1');
- •1:ShowMessage('Выбран вариант 2');
- •2:ShowMessage('Выбран вариант 3');
- •2.7. Элемент «Изображение»
- •2.8. Виды изображений
- •2.9. Класс tPicture
- •2.10. Класс tBitmap
- •2.11. Оператор with
- •2.12. Класс tCanvas
- •2.13. Изменение параметров изображения
- •3. Задание на курсовую работу
- •3.1. Задача №1. Расчёт подшипников на долговечность
- •Исходные данные для расчёта подшипников на долговечность
- •3.1.2. Обозначение нормальных габаритных размеров подшипников качения
- •Подшипники шариковые радиальные однорядные (гост 8338-75)
- •Подшипники шариковые радиально-упорные однорядные (гост 831-75)
- •Подшипники роликовые радиальные с короткими цилиндрическими роликами (гост 8328-75)
- •Подшипники роликовые радиально-упорные однорядные повышенной грузоподъемности (гост 27365-87)
- •3.2. Задача №2. Зубчатые зацепления
- •Основные определения зубчатых зацеплений
- •3.2.1. Методика расчета зубчатого зацепления
- •3.2.2. Конструирование цилиндрических зубчатых колес
- •Размеры фасок отверстия
- •3.2.3. Шпонки призматические
- •Размеры шпонок призматических и пазов по гост 23360-78
- •Исходные данные для расчета зубчатого колеса
- •3.3. Задача №3. Резьбовые соединения
- •3.3.1. Термины и определения
- •3.3.2. Параметры резьбы
- •Основные типы резьб
- •Исходные данные для расчета резьбовых соединений
- •3.3.3. Расчёт резьбовых соединений болтовое соединение
- •Шпилечное соединение
- •Винтовое соединение
- •Штифтовое соединение
- •4. Требования к отчету по курсовой работе
- •4.1. Состав отчёта
- •4.2. Содержание отчёта
- •Библиографический список
- •Болты с шестигранной головкой (нормальной точности) по гост 7798-70
- •Определение длины резьбы болтов
- •Винты с цилиндрической головкой по гост 1491-80
- •Винты установочные с плоским концом и прямым шлицем гост 1477-84
- •Определение длины резьбы шпилек
- •Гайки шестигранные (нормальной точности) по гост 5915-70
- •Шайбы пружинные. Г0ст 6402-70
- •Шайбы. Гост 11371-78
2.3. Элемент управления «Поле ввода»
Элемент управления «Поле ввода» находится на вкладке «Стандартные» («Standard») панели элементов и обозначается пиктограммой
Поля ввода используются для ввода с клавиатуры строковых значений. Если проводить аналогию с рассмотренным для консольных приложений оператором ввода, то использование этого элемента аналогично оператору Readln(S), где S – строковая переменная типа STRING. Однако если в консольных приложениях данные вводились строго в определенном порядке (в порядке вызова соответствующих операторов ввода), то при использовании полей ввода на форме данные в них можно вводить в любом порядке совершенно независимо, а потом производить их обработку, например при нажатии на кнопку.
Полям ввода в Delphi соответствует класс TEdit, который содержит следующие основные свойства:
Свойство |
Значение |
Name |
Как и для любого визуального элемента, задает имя, которое используется в программе для доступа к этому элементу. Например, в приведенном ранее классе формы TForm1 поле ввода с именем 'Edit1' описано как переменная типа TEdit |
Left и Top |
Положение левого верхнего угла поля ввода (в пикселях) относительно левого верхнего угла элемента, в который он вставлен (например, формы) |
Width и Height |
Ширина и высота (в пикселях) поля ввода |
Text |
Строковое значение, введенное в данное поле |
Пример использования полей ввода в программе будет приведен ниже.
Значение основных свойств формы, а также элемента управления «Поле ввода» проиллюстрировано на следующем рисунке.
Свойства формы, как и свойства других элементов, задаются на вкладке «Свойства» в панели «Инспектор объектов»:
2.4. Элемент управления «Кнопка»
Элемент управления «Кнопка» также находится на вкладке «Стандартные» панели элементов и обозначается пиктограммой
Пользователь использует кнопки для выполнения определенных действий. Например, после ввода данных, пользователь нажимает на кнопку «Расчет». При этом в программе выполняется процедура, производящая соответствующие расчеты. Кнопки описываются при помощи класса TButton, который кроме свойств содержит также одно важное событие, вызываемое при нажатии на кнопку.
Свойство или событие |
Значение |
Свойство Name |
Имя элемента в программе |
Свойства Left и Top |
Положение кнопки |
Свойства Width и Height |
Ширина и высота кнопки |
Свойство Caption |
Текст, который будет изображен на кнопке |
Событие OnClick |
Задает процедуру обработки события, возникающего при нажатии на кнопку |
События для элементов можно задать на вкладке «События» панели «Инспектор объектов». Процедура обработки события автоматически описывается в классе формы и разделе реализации модуля. В ранее рассмотренном примере в классе TFrom1 нажатие кнопки обрабатывается процедурой Button1Click.
Процедуры обработки событий, задаются на вкладке «События» в панели «Инспектор объектов»:
Для примера перепишем рассмотренную ранее в классе TForm1 процедуру обработки события нажатия кнопки Button1Click для иллюстрации работы кнопок и полей ввода на примере расчета степени числа e. Значение степени должно будет вводиться в поле Edit1. При нажатии на кнопку Button1 будет производиться расчет и выдача на экран соответствующего сообщения.
В следующей программе используются функции StrToFloat и FloatToStr для преобразования введенного строкового значения в вещественное число и наоборот, некоторого рассчитанного значения в строку для показа результата. Также используется процедура ShowMessage для вывода на экран сообщения.
Текст программы
PROCEDURE TForm1.Button1Click(Sender:TObject);
VAR
Power,Result:Real;
BEGIN
{ Преобразование введенного в поле Edit1
текста в вещественное число }
Power:=StrToFloat(Edit1.Text);
Result:=Exp(Power); { Расчет результата }
{ Вывод на экран сообщения }
ShowMessage('e^'+FloatToStr(Power)+'='+
FloatToStr(Result));
END;
Если, например, ввести в поле Edit1 значение 1 и нажать на кнопку Button1, то на экран будет выдано следующее сообщение:
Вещественные числа для функции StrToFloat должны задаваться через запятую (а не через точку, как обычно). При попытке преобразовать с помощью функции StrToFloat строку, которая не содержит правильного представления вещественного числа, будет выдано сообщение об ошибке, но выполнение программы продолжится.