void fastcallTForml::EditlKeyPress(TObject *Sender, char

⇐ ПредыдущаяСтр 2 из 4Следующая ⇒

else

Edit2->SetFocus(); // курсор в поле Курс

return;

// ввод исходных данных

usd = StrToFloat(Editl->Text);

k = StrToFloat(Edit2->Text);

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

rub = usd * k;

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

Label4->Caption = FloatToStrF(usd,ffGeneral,7,2) +

"$ = "+FloatToStrF(rub,ffGeneral,7,2) + " руб."

//щелчок на кнопке Завершить

void fastcallTForml::Button2Click(TObject *Sender)

{

Forml->Close(); // закрыть форму приложения

}

Пример выполнения:

Задача №2 Фунты- Килограммы :

Блок-схема:

Текст программы:

void fastcall TForml::TForml(TComponent* Owner) : TForm(Owner)

{

/* так как поле Editl пустое (пользователь

еще не ввел исходные данные), то

сделаем кнопку Пересчет недоступной */

Buttonl->Enabled = False;

// нажатие клавиши в поле Editl

void fastcallTForml::EditlKeyPress(TObject *Sender, char

&Key)

{

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

// символ в поле редактирования не появится

// Key - код нажатой клавиши

// проверим, является ли символ допустимым

if ( (Key >= '0') && (Key <= '9')

return;

// глобальная переменная DecimalSeparator

// содержит символ, используемый в качестве разделителя

// при записи дробных чисел

if(Key == DecimalSeparator)

{

if ((Editl->Text).Pos(DecimalSeparator) ! = 0)

Key = 0 ; // разделитель уже введен

return;

if (Key == VK_BACK) // клавиша <Backspace>

return;

if (Key == VK_RETURN)// клавиша <Enter>

{

Buttonl->SetFocus();

⇐ Предыдущая 123 4 Следующая ⇒