Void fastcall tForml::EditChange(tObject *Sender)
{
Label4->Caption = "";
}
Пример выполнения:
Задача №4 Сопротивление:
Блок-схема:
Текст программы:
// щелчок на кнопке Вычислить
Void fastcall tForml::ButtonlClick(tObject *Sender)
{
float rl,r2,r;
rl = StrToFloat(Editl->Text);
r2 = StrToFloat(Edit2->Text);
/* Переключатели RadioButtonl и RadioButton2
зависимые, поэтому о типе соединения можно
судить по состоянию одного из них */
±£ ( RadioButtonl->Checked )
{
// выбран переключатель "последовательно"
г = rl + г2;
ela*
/ / выбран переключатель "параллельно"
// при вычислении сопротивления возможно
// исключение EInvalidOp
t r y
{
г = ( r l * r2) / (rl + r 2 ) ;
}
catch ( EInvalidOp &e)
{
ShowMessage("Необходимо задать величину"
"сопротивлений");
return;
Label4->Caption = FloatToStrF(r, ffGeneral, 6,2) + " Ом";
}
II щелчок на переключателе "последовательно"
void fastcall TForml::RadioButtonlClick(TObject *Sender)
{
Label4->Caption = "";
// щелчок на переключателе "параллельно"
void fastcall TForml::RadioButton2Click(TObject *Sender)
{
Label4->Caption = "";
}
Пример выполнения:
Задача № 5 Кафе:
Блок-Схема:
Текст программы:
float surnm; // сумма заказа
// конструктор формы
fastcall TForml::TForml(TComponent* Owner)
: TForm(Owner)
// сделать недоступным переключатель "соус"
CheckBox2->Enabled = false;
// щелчок на переключателе "Биг-Мак"
void fastcall TFoml: :CheckBoxlClick(TObject *Sender)
{
if ( CheckBoxl->Checked )
{
/* переключатель был сброшен,
пользователь установил его */
summ += 54;
// сделать доступным переключатель "соус"
CheckBox2->Enabled = true;
}
else
{
/* переключатель был установлен,
пользователь сбросил его */
summ -= 54;
// сбросить и сделать недоступным переключатель "соус"
if (CheckBox2->Checked)
CheckBox2->Checked = false;
CheckBox2->Enabled = false;
// отобразить измененную сумму в поле
Labell->Caption = FloatToStrF(summ,ffCurrency,6,2);
// щелчок на переключателе "соус"
void faetcall TForml::CheckBox2Click(TObject *Sender)
if ( CheckBox2->Checked)
summ +=10.5;
•la*
summ -= 10.5;
Labell->Caption = FloatToStrFtsumm,ffCurrency,6,2);
// щелчок на переключателе "картошка"
void faetcall TForml::CheckBox3Click(TObject *Sender)
if ( CheckBox3->Checked)
summ += 18.5;
•la*
summ -= 18.5;
Labell->Caption = FloatToStrF(summ,ffCurrency,6,2);
// щелчок на переключателе "Кока-Кола"
void faetcall TForml::CheckBox4Click(TObject *Sender)
{
if ( CheckBox4->Checked)
sum += 14;
summ -= 14;
Labell->Caption = FloatToStrF(summ,ffCurrency,6,2)
// щелчок на кнопке OK
Void fastcall tForml::ButtonlClick(tObject *Sender)
{
if ( (CheckBoxl->Checked)&& (CheckBox2->Checked)&&
(CheckBox3->Checked)&&(CheckBox4->Checked) )
/* пользователь заказам полный набор
предоставить скидку 5% */
summ = summ * 0.95;
ShowMessage("Вам предоставляется скидка 5%.\п"
"Сумма заказа: " + FloatToStrF(summ, ffCurrency, 6,2) +
" руб.");
}
else
if ( (CheckBoxl->Checked)||
(CheckBox3->Checked)||
(CheckBox4->Checked))
ShowMessage("Сумма заказа: " +
FloatToStrF(summ,ffGeneral,6,2)+ " руб.");
else ShowMessage("Вы ничего не заказали");
}
Пример выполнения:
Задача № 6 Электроэнергия:
Блок-схема:
Текст программы:
// конструктор формы
fastcall TForml::TForml(TComponent* Owner)
: TForm(Owner)
{
/ * задать, что событие KeyPress
для компонентов Edit2 и Edit3
обрабатывает функция EditKeyPress */
Edit2->0nKeyPress = EditKeyPress;
Edit3->0nKeyPress = EditKeyPress;
/ * чтобы процедура обработки события KeyPress могла
определить, в каком поле пользователь нажал клавишу,
запишем в свойство Tag каждого компонента Edit
целую константу */
Editl->Tag = 1;
Edit2->Tag = 2;
26 Часть 1. Примеры и задачи
Edit3->Tag = 3;
// нажатие клавиши в поле редактирования
void fastcall TForml::EditKeyPress(TObjееt *Sender,
char &Key)
TEdit * Edit; // компонент Edit
Edit = (TEdit*)Sender;
/* теперь ed - это компонент Edit, в поле которого
пользователь нажал клавишу */
/* Реакция компонентов на нажатие всех клавиш,
за исключением <Enter> одинаковая. */
if ( Key == VK_RETURN) // нажате клавиша <Enter>
switch (Edit->Tag) {
case 1 : /* клавиша нажата в поле Editl
переместить курсор в поле Edit3 */
Edit2->SetFocus() ; break;
case 2 : /* клавиша нажата в поле Edit2
переместить курсор в поле Edit3 */
Edit3->SetFocus() ; break;
case 3 /* клавиша нажата в поле Edit3
сделать активной кнопку Вычислить */
Buttonl->SetFocusО ; break;
}
return;
if ( (( Key >= '0') && ( Key <= •9' )
(Key == VK_BACK))
// цифра или <>Backspace>
return;
if ((Key == ',') || (Key == '.'))
{
Key = DeciinalSeparator;
if ( (Edit->Text).Pos(DecimalSeparator) != 0
Key = 0;
return;
i f ( Key == VK_BACK )
r e t u r n ;
// остальные символы запрещены
Key = 0;
// щелчок на кнопке Вычислить