Кіріспе Курстың мақсаты мен міндеттері
void __fastcall TForm1::Button1Click(TObject *Sender)
жүктеу/скачать 1.46 Mb.
|
- Бұл бет үшін навигация:
- 1.Checkbox, radiobutton компоненттері, қаСеттері. 2.ListBox компоненті, қаСеттері, əдістер. 3. Combobox компоненті, қаСеттері, əдістер.
- Caption
- taRightJustify
| void __fastcall TForm1::Button1Click(TObject *Sender)
{ {Программа мəтіні} } Edit жəне Memo компоненттері жұмыс жасайтын мəліметтер String түрінде болады. Сондықтан TForm1.Button1Click процедурасында StrToFloat функциясы көмегімен X,Y,Z айнымалыларына Edit1,Edit2,Edit3 өрістерінің мəндері меншіктелген кезде, String түріндегі мəліметтердің Extended түріндегі жылжымалы нүктесі бар нақты мəндер түріне ауысуы орындалады. Бүтін түрдегі мəліметтермен жұмыс жасау керек болса, StrToInt функциясы пайдаланылады. Мəліметтерді нақты мəннен жолдық мəнге ауыстыру үшін жəне шығаратын нəтижені ұсынатын форманы басқару FloatToStrF функциясы пайдаланылады. Əдебиеттер: [1]- [4] 12- апта 1 кредит сағат. Тақырыбы: Шартты жəне таңдау командасын ұйымдастыру жəне деректер масС#він түрлендіру компоненттері. Дəріс мазмұны: 1.Checkbox, radiobutton компоненттері, қаС#еттері. 2.ListBox компоненті, қаС#еттері, əдістер. 3. Combobox компоненті, қаС#еттері, əдістер. Borland C++ де тілінде берілген бірнеше пункттен біреуін немесе бірнешеуін таңдауға мүмкіндік беретін айырып- қосқыштар қолданылады. RadioButton компоненті қызметі басқа батырмалардың қызметімен байланысты болатын тəуелді батырма болып табылады. Жеке бір радиобатырманың мағынасы жоқ, олар топта бір- бірімен байланысты қолданылады. Біреуі таңдалғанда, екіншісі автоматты түрде айырылады. Компонент қаС#еттерін қарастырайық. Caption қаС#еті батырма жанында шығатын жазудан тұрады. Alignment қаС#еті жазудың батырманың қай жағынан шығатынын анықтайды. Оның мəндері: taLeftJustify- сол жақтан, taRightJustify- оң жақтан (қалыпты жағдайда). Checked қаС#еті бұл батырманың қолданушы арқылы таңдалғанын немесе таңдалмағанын көрсетеді. Оның мəні true болса, батырма таңдалған, false болса- таңдалмаған. CheckBox компоненті жалаушалы индикатор немесе басқаларға тəуелсіз ауыстырып-қосқыш батырма болып табылады. Ол қосымшада қолданушы қандай да бір опцияны қосу немесе айыру үшін қолданылады. Бұл компоненттің қаС#еттері де RadioButton компонентіндей. Кафе бағдарламасы CheckBox компонентінің қолданылуын көрсетеді. Бағдарлама формасы: Листинг:
#pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; float summ; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { CheckBox2->Enabled =False; } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox1Click(TObject *Sender) { if (CheckBox1->Checked ) { summ+=54; CheckBox2->Enabled =true; } else { summ-=54; if (CheckBox2->Checked ) CheckBox2->Checked =false; CheckBox2->Enabled =false; } Label1->Caption =FloatToStrF(summ,ffCurrency,6,2); } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox2Click(TObject *Sender) { if (CheckBox2->Checked ) summ+=10.5; else summ-=10.5; Label1->Caption =FloatToStrF(summ,ffCurrency,6,2); } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox3Click(TObject *Sender) { if (CheckBox3->Checked ) summ+=18.5; else summ-=18.5; Label1->Caption =FloatToStrF(summ,ffCurrency,6,2); } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox4Click(TObject *Sender) { if (CheckBox4->Checked ) summ+=14; else summ-=14; Label1->Caption =FloatToStrF(summ,ffCurrency,6,2); }
//--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { if ((CheckBox1->Checked )&& (CheckBox2->Checked )&& (CheckBox3->Checked )&&(CheckBox4->Checked )) { summ=summ*0.95; ShowMessage("Сізге бағасы 5% жеңілдікпен беріледі. \n" "Тапсырыс суммасы: " + FloatToStrF(summ,ffCurrency,6,2)); } else
(CheckBox3->Checked ) || (CheckBox4->Checked )) ShowMessage("Тапсырыс суммасы: " + FloatToStrF(summ,ffCurrency,6,2)); } //--------------------------------------------------------------- жүктеу/скачать 1.46 Mb. Достарыңызбен бөлісу:
|