kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Ввод данных и вывод результатов в Lazarus

Нажмите, чтобы узнать подробности

Для организации ввода данных в Lazarus можно использовать компонент формы TEdit (Поле ввода), для вывода результатов – компонент Label (Поле вывода).

Второй способ организации ввода и вывода данных – использование встроенных диалоговых окон InputBox, ShowMessage. В этом уроке и рассмотрим более подробно второй способ.

Ввод данных

Функция InputBox() выводит на экран диалоговое окно, в котором можно ввести данные.

Аргументами этой функции являются три строки, а значением функции – строка введенная пользователем.

В общем виде строка программного кода с использованием функции InputBox выглядит так:

Переменная:= InputBox(‘Заголовок’‘Подсказка’, ‘Значение по умолчанию’);

где:

Переменная – переменная строкового типа, значение которой должно быть получено от пользователя;

Заголовок – текст заголовка окна;

Подсказка – текст поясняющего сообщения;

Значение по умолчанию – текст, который будет находиться в поле ввода, когда окно появиться на экране.

Например,

n := InputBox(‘Ввод числа’‘Введите число:’, ‘ ‘);

Результат показан на рисунке:

Если пользователь щелкнет по кнопке ОК, то значением функции станет строка, введенная пользователем в текстовое поле. Если пользователь щелкнет по кнопке Cancel, то значением функции станет строка «Значение по умолчанию».

Значение функции InputBox всегда строкового типа (String), поэтому в случае, если нужно ввести число, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования.

В качестве примера возьмем задачу пересчета веса из фунтов в килограммы

Ввод исходных данных из окна ввода и последующее преобразование данных может выглядеть так:

funtStr:= InputBox(‘Фунты-килограммы’,’Введите вес в фунтах:’,’ ‘);

funtFloat:=StrToFloat(funtStr);

Вывод данных

Результат работы программы чаще всего выводят в окно сообщения ShowMessage или в поле вывода (компонент Label).

Вывод в окно сообщения ShowMessage

Для вывода результата используется процедура ShowMessage(). Она выводит на экран диалоговое окно с текстом и командной кнопкой OK.

Общий вид инструкции вызова процедуры ShowMessage:

ShowMessage(‘Сообщение’);

где Сообщение – текст, который будет выведен в окне.

Например, для того чтобы вывести результат в программе пересчета веса из фунтов в килограммы, можно использовать следующую строку кода:

ShowMessage(‘Вес в килограммах: ‘+ FloatToStr(kg));

Результат показан на рисунке.

Вывод в поле вывода (Label)

Компонент TLabel(Поле вывода), в который будет осуществляться вывод, устанавливают на форме во время разработки. Содержание этого поля определяется значением свойства Caption.

Для того чтобы вывести результаты в это поле, нужно в программном коде поместить оператор присваивания, который будет изменить значение свойства Caption на нужное вам значение.

Например, для того чтобы вывести результат в поле вывода Label1 в рассмотренной выше задаче, нужно использовать следующий оператор присваивания:

Label1.Caption:=FloatToStr(kg) + ‘кг‘;

Просмотр содержимого документа
«Ввод данных и вывод результатов в Lazarus»

Для организации ввода данных в Lazarus можно использовать компонент формы TEdit (Поле ввода), для вывода результатов – компонент Label (Поле вывода).

Второй способ организации ввода и вывода данных – использование встроенных диалоговых окон InputBox, ShowMessage. В этом уроке и рассмотрим более подробно второй способ.

Ввод данных

Функция InputBox() выводит на экран диалоговое окно, в котором можно ввести данные.

Аргументами этой функции являются три строки, а значением функции – строка введенная пользователем.

В общем виде строка программного кода с использованием функции InputBox выглядит так:

Переменная:= InputBox(‘Заголовок’‘Подсказка’, ‘Значение по умолчанию’);

где:

Переменная – переменная строкового типа, значение которой должно быть получено от пользователя;

Заголовок – текст заголовка окна;

Подсказка – текст поясняющего сообщения;

Значение по умолчанию – текст, который будет находиться в поле ввода, когда окно появиться на экране.

Например,

n := InputBox(‘Ввод числа’‘Введите число:’, ‘ ‘);

Результат показан на рисунке:

Если пользователь щелкнет по кнопке ОК, то значением функции станет строка, введенная пользователем в текстовое поле. Если пользователь щелкнет по кнопке Cancel, то значением функции станет строка «Значение по умолчанию».

Значение функции InputBox всегда строкового типа (String), поэтому в случае, если нужно ввести число, то введенная строка должна быть преобразована в число при помощи соответствующей функции преобразования.

В качестве примера возьмем задачу пересчета веса из фунтов в килограммы

Ввод исходных данных из окна ввода и последующее преобразование данных может выглядеть так:

funtStr:= InputBox(‘Фунты-килограммы’,’Введите вес в фунтах:’,’ ‘);

funtFloat:=StrToFloat(funtStr);

Вывод данных

Результат работы программы чаще всего выводят в окно сообщения ShowMessage или в поле вывода (компонент Label).

Вывод в окно сообщения ShowMessage

Для вывода результата используется процедура ShowMessage(). Она выводит на экран диалоговое окно с текстом и командной кнопкой OK.

Общий вид инструкции вызова процедуры ShowMessage:

ShowMessage(‘Сообщение’);

где Сообщение – текст, который будет выведен в окне.

Например, для того чтобы вывести результат в программе пересчета веса из фунтов в килограммы, можно использовать следующую строку кода:

ShowMessage(‘Вес в килограммах: ‘+ FloatToStr(kg));

Результат показан на рисунке.

Вывод в поле вывода (Label)

Компонент TLabel(Поле вывода), в который будет осуществляться вывод, устанавливают на форме во время разработки. Содержание этого поля определяется значением свойства Caption.

Для того чтобы вывести результаты в это поле, нужно в программном коде поместить оператор присваивания, который будет изменить значение свойства Caption на нужное вам значение.

Например, для того чтобы вывести результат в поле вывода Label1 в рассмотренной выше задаче, нужно использовать следующий оператор присваивания:

Label1.Caption:=FloatToStr(kg) + ‘кг‘;


Получите в подарок сайт учителя

Предмет: Информатика

Категория: Уроки

Целевая аудитория: 9 класс

Скачать
Ввод данных и вывод результатов в Lazarus

Автор: Черкашина Оксана Владимировна

Дата: 28.02.2017

Номер свидетельства: 396466

Похожие файлы

object(ArrayObject)#862 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(28) "Компонент TMainMenu"
    ["seo_title"] => string(20) "komponient_tmainmenu"
    ["file_id"] => string(6) "411815"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1493214842"
  }
}

Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства