Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


≤≤-й спос≥б




1.  омандами File/Save as та File/Save Project as запиш≥ть файли Unit1.cpp та Project1.bpr у папку дл€ ≤≤-го вар≥анта програми. –азом з ними будуть записан≥ ≥ ≥нш≥ файли, €к≥ мають в≥дношенн€ до програмного проекту.

2.  омпоненти ComboBox1 та Edit1 вилуч≥ть ≥ зам≥сть них розташуйте на форм≥ списки вибору ListBox1 та ListBox2:

3. ” властив≥сть Items компонента ListBox1 запишемо список валют:

USD

Euro

RusRuble

4. ѕ≥д час вибору типу операц≥њ у ListBox1 пом≥стимо список чисел (вз€тих ≥з масиву Kv), €к≥ Ї значенн€ми обм≥нного курсу дл€ в≥дпов≥дних валют. ƒл€ цього под≥ю OnClick дл€ RadioButton1 та RadioButton2 запрограмуЇмо таким чином:

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

int I;

Label3->Caption="купуЇте";

Label7->Caption="до оплати";

for (I=0; I<ListBox1->Items->Count; I++)

ListBox2->Items->Add(FloatToStr(Kv[I][0]));

 

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::RadioButton2Click(TObject *Sender)

{

int I;

Label3->Caption="продаЇте";

Label7->Caption="до видач≥";

for (I=0; I<ListBox1->Items->Count; I++)

ListBox2->Items->Add(FloatToStr(Kv[I][1]));

 

}

¬ластив≥сть ListBox1->Items->Count збер≥гаЇ к≥льк≥сть елемент≥в списку ListBox1, ≥ндексац≥€ елемент≥в списку розпочинаЇтьс€ з нул€. ћетод ListBox2->Items->Add дозвол€Ї добавити новий елемент (р€док символ≥в) до списку ListBox2. ¬ останн≥х процедурах числа ≥з першого та другого стовпц≥в масиву Kv перетворюютьс€ у р€дки символ≥в ≥ добавл€ютьс€ до властивост≥ Items компоненти ListBox2.

¬иконайте програму.

5. ѕри вибор≥ валюти у списку ListBox1 автоматично маЇ вид≥л€тис€ у списку ListBox2 р€док ≥з значенн€м обм≥нного курсу дл€ вибраноњ валюти. ƒл€ цього запрограмуЇмо под≥ю OnClick дл€ ListBox1:

void __fastcall TForm1::ListBox1Click(TObject *Sender)

{

ListBox2->ItemIndex= ListBox1->ItemIndex;

}

¬ результат≥ виконанн€ цього методу ≥ндекси активних (вид≥лених) елемент≥в у списках ListBox1 та ListBox2 стануть однаковими.

6. ћетод дл€ опрацюванн€ под≥њ OnChange дл€ Edit2 зробимо таким:

void __fastcall TForm1::Edit2Change(TObject *Sender)

{

if (RadioButton1->Checked)

Edit3->Text=FloatToStr(StrToInt(Edit2->Text)*

Kv[ListBox1->ItemIndex][0]);

else

Edit3->Text=FloatToStr(StrToInt(Edit2->Text)*

Kv[ListBox1->ItemIndex][1]);

}

7. ¬иконайте програму ≥з середовища C++ Builder. «авантажте в≥дпов≥дний exe-файл ≥з середовища ќ— Widows.





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2015-10-01; ћы поможем в написании ваших работ!; просмотров: 343 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

„тобы получилс€ студенческий борщ, его нужно варить также как и домашний, только без м€са и развести водой 1:10 © Ќеизвестно
==> читать все изречени€...

1518 - | 1463 -


© 2015-2024 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.011 с.