Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Внесение изменений

Читайте также:
  1. Виды изменений трудового договора
  2. ВНЕСЕНИЕ В СУСЛО ДРОЖЖЕЙ
  3. Внесение государственного или муниципального имущества в качестве вклада в уставные капиталы открытых акционерных обществ
  4. Внесение изменений в статью 65 Конституции РФ.
  5. Внесение сведений о приеме на работу, об аттестации … о повышении квалификации, поощрениях и др.
  6. ВОЛОГОДСКОЙ ГОРОДСКОЙ ДУМЫ «О ВНЕСЕНИИ ИЗМЕНЕНИЙ

После нескольких запусков программы Скорость бега возникает желание внести изменения в программу. Например, было бы неплохо, чтобы после ввода дистанции и нажатия клавиши <Enter> курсор переходил в поле Время. Или если бы в поля Дистанция и Время пользователь мог ввести только цифры.

Чтобы внести изменения в программу, нужно запустить Delphi и открыть соответствующий проект. Сделать это можно обычным способом, выбрав из меню File команду Open Project. Можно также воспользоваться командой Reopen из меню File. При выборе команды Reopen открывается список проектов, над которыми программист работал в последнее время.

В листинге В5 приведена программа Скорость бега, в которую добавлены

Процедуры обработки событий OnKeyPress для компонентов Edit1 и Edit2.

Следует обратить внимание на то, что для добавления в программу процедуры обработки события нужно в окне Object Inspector выбрать компонент, для которого создается процедура, затем на вкладке Events выбрать событие и сделать двойной щелчок в поле имени процедуры. Delphi сформирует шаблон процедуры обработки события. После этого можно вводить инструкции, реализующие процедуру обработки.

Листинг В5. Модуль программы Скорость бега после внесения изменений

unit vrun1;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics,Controls, Forms,Dialogs, StdCtrls;

Type

TForml = class(TForm)

Edit1: TEdit; Edit2: TEdit;

Label1: TLabel; Label2: TLabel;

Label3: TLabel; Label4: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private { Private declarations }

public { Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm)

// нажатие кнопки Вычислить

procedure TForm1.Button1Click(Sender: TObject);

Var

dist: integer; // дистанция, метров

t: real; // время как дробное число

min: integer; // время, минуты

sek: integer; // время, секунды

v: real; // скорость

Begin

// получить исходные данные из полей ввода

dist:= StrToInt(Editl.Text); t:= StrToFloat(Edit2.Text);

// предварительные преобразования

min:= Trunc(t); // кол-во минут — это целая часть числа t

sek:= Trunc(t*100) mod 100; // кол-во секунд — это дробная

// часть числа t

// вычисление

v:= (dist/1000) / ((min*60 + sek)/3600);

// вывод результата

label4.Caption:= 'Дистанция: '+ Edit1.Text +

' м' + #13 + 'Время: ' + IntToStr(min) +

' мин ' + IntToStr(sek) + ' сек ' + #13 +

'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';

end;

// нажатие кнопки Завершить

procedure TForm1.Button2Click(Sender: TObject);

Begin

Form1.Close; end;

// нажатие клавиши в поле Дистанция

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

Begin

// Key — символ, соответствующий нажатой клавише.

// Если символ недопустимый, то процедура заменяет его

// на символ с кодом 0. В результате этого символ в поле

// редактирования не появляется, и у пользователя создается

// впечатление, что программа не реагирует на нажатие некоторых

// клавиш.


Дата добавления: 2015-07-10; просмотров: 122 | Нарушение авторских прав


Читайте в этой же книге: Первый проект | СТРАНИЦА STANDARD | СТРАНИЦА ADDITIONAL | Событие и процедура обработки события | Система подсказок | Шаблоны кода | Справочная система | Interface | Сохранение проекта | Примечание |
<== предыдущая страница | следующая страница ==>
Ошибки времени выполнения| Б)Рассмотрим горизонтальную составляющую балки

mybiblioteka.su - 2015-2024 год. (0.006 сек.)