«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,7 Mb.
|
«Бағдарламалау тілдері» пәнінен тәжірибелік жұмыстар жинағы
- Бұл бет үшін навигация:
- __fastcall TForm1
| {
int biktik, taban; float audan; biktik=StrToInt(Edit1->Text); taban=StrToInt(Edit2->Text); audan=float(biktik*taban)/2; Edit3->Text=FloatToStr(audan); } 2-деңгей Студент пен оқытушы туралы ақпарат бере алатын қарапайым қосымша құру керек. Әрбір студент немесе оқытушы туралы ақпарат оның фамилиясына сәйкес аталатын *.txt файлда сақталсын. Қосымша құруда тізімдерді пайдаланыңыз. Қосымша үш /2,3,4–суреттер/ терезеден тұрады. «Анықтама» терезесіндегі батырмалар көмегімен «Студенттер» немесе «Оқытушылар» терезелерінің біріне көшуге болады. Бұл терезелерде сәйкесінше студент немесе оқытушы туралы нақты мәлімет алынады. «Анықтама» терезесі (Form1) үшін жазылған программа мәтіні: #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } 2-сурет. Анықтама терезесі 3-сурет. Студенттер терезесі 4-сурет. Оқытушылар терезесі // «Студенттер» батырмасының оқиға өңдеуші коды void __fastcall TForm1::Button1Click(TObject *Sender) { Form2->Show(); } // «Оқытушылар» батырмасының оқиға өңдеуші коды void __fastcall TForm1::Button2Click(TObject *Sender) { Form3->Show(); } //«Программаны жабу» батырмасының оқиға өңдеуші коды void __fastcall TForm1::Button3Click(TObject *Sender) { Form1->Close(); } «Студенттер» терезесі (Form2) үшін жазылған программа мәтіні: #include "Unit2.h" #include "Unit1.h" #include "Unit3.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "SHDocVw_OCX" #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- жүктеу/скачать 2,7 Mb. Достарыңызбен бөлісу:
|