1- лаборатория иши


void __fastcall TForm1::Button1Click(TObject *Sender)



Download 2,57 Mb.
bet5/28
Sana03.04.2022
Hajmi2,57 Mb.
#526356
1   2   3   4   5   6   7   8   9   ...   28
Bog'liq
Vizual С lab ish 2009

void __fastcall TForm1::Button1Click(TObject *Sender)
{


}
y = ex - (√x + 4) * (Sin(x) + Cos(x-1))
ушбу функцияни ечишни амалга ошириш учун қуйидаги амалларни бажарамиз.
Форма дизанини қуриб оламиз. (1 расм)

1 расм 2 расм
Формада иккита қиймат киритиш ва натижа чиқариш учун TEdit библиотекасининг Edi1 (қиймат киритиш) ва Edit2 (натижа чиқариш) компоненталарини:
Ҳисоблаш амалини бажариш учун битта кнопкани TButton библиотекасининг Button1 (кнопка) компонентаси олиб форманинг керакли жойига ўрнатилади.
Edi1 ва Edit2 компоненталарининг ёзувларини учириш учун ушбу компоненталарни белгилаб Object Inspector-Properties, (Хоссалар) бўлимининг Техт сатридан Edi1 ва Edit2 ёзувларини ўчириб ташлаймиз. Кнопканинг устига “Ҳисоблаш” сўзини ёзиш учун Button1 компонентасини белгилаб Object Inspector-Properties, (Хоссалар) бўлимининг Caption сатридан Button1 ёзувининг ўрнига Ҳисоблаш ёзамиз.(2 расм)
Ҳисоблашни амалга ошириш учун Button1 компонентасининг Object Inspector-Events, Ходисалар бўлимининг OnClick сатрига сичқонча тугмасини икки марта тез босамиз Кодлар муҳарририда Қуйида ходисаларни қайта ишловчи процедуранинг шундай бўш каркаси пайдо бўлади:

void __fastcall TForm1::Button1Click(TObject *Sender)


{


}
Бу жойга y = ex - (√x + 4) * (Sin(x) + Cos(x-1)) функцияни ишлаш қаторини киритамиз. Логарифмик ва тригонамитрик функцияларни ечишни амалга ошириш учун ушбу
# include препроцессор директивасини эълон қилиш керак булади. Буни Кодлар муҳаррирининг энг юқори қисмига ёзамиз.


void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit2->Text=FloatToStr(exp(StrToFloat(Edit1->Text))-
(sqrt(StrToFloat(Edit1->Text))+4)*sin(StrToFloat(Edit1->Text))
+cos(StrToFloat(Edit1->Text)-1));


}
Бу ерда FloatToStr сонли типни матнли типга айлантириб ўқиш, StrToFloat матнли типни сонли типга айлантириб ўқиш.
Яъни бу Button1 босилганда Edit2 компонентасига натижани чиқар деган команда.
Дастурни ишга тушириш учун Ғ9 тугмасини ёки ускуналар панелидан тугмаси босилади. Натижада сизнинг иловангиз тула тукис ишга тушган бўлади. (3 расм)


Download 2,57 Mb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   ...   28




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish