Курстық жұмыс н 2-1-34-2021
ТЕСТ ПРОГРАММАСЫН әзірлеу
жүктеу/скачать 476,24 Kb.
|
| 2.3 ТЕСТ ПРОГРАММАСЫН әзірлеу
Программаға келетін болсақ; Unit1.cpp //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" extern int pravil_otvet;//переменная, для хранения правильного ответа к вопросу TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn2Click(TObject *Sender) { Form1->Close(); Form2->Close(); Form3->Close(); Form4->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::BitBtn1Click(TObject *Sender) { Form2->Label5->Caption="Как называют манекенщицу супер-класса?"; Form2->Label1->Caption="Топ-модель"; Form2->Label2->Caption="Тяп-модель"; Form2->Label3->Caption="Поп-модель"; Form2->Label4->Caption="Ляп-модель"; pravil_otvet=1;//присваиваем номер правильного ответа Form1->Visible=false; Form2->Visible=true; } //--------------------------------------------------------------------------- Unit2.cpp //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #include "Unit3.h" #include "Unit4.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" int s=0, i=0, pravil_otvet, nomer=0; / / s-дұрыс жауаптар сомасы, i-қосалқы айнымалы, nomer-ағымдағы сұрақтың нөмірі TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::N1Click(TObject *Sender) { Form4->Visible=true; } //--------------------------------------------------------------------------- void __fastcall TForm2::BitBtn2Click(TObject *Sender) { Form2->Visible=false; Form3->Visible=true; Form3->Label2->Caption=s; } //--------------------------------------------------------------------------- void __fastcall TForm2::BitBtn1Click(TObject *Sender) { if(RadioButton1->Checked==true)i=1;//проверяем, какой ответ был выбран if(RadioButton2->Checked==true)i=2; if(RadioButton3->Checked==true)i=3; if(RadioButton4->Checked==true)i=4; if(i==pravil_otvet)s++;//если выбранный и правильный совпадают, то увеличиваем сумму на единичку i=0;//обнуление требуется для корректного подсчета суммы RadioButton1->Checked=false;//очищаем нажатую кнопку RadioButton2->Checked=false; RadioButton3->Checked=false; RadioButton4->Checked=false; nomer++;//номер вопроса изменяется с каждым нажатием кнопки switch(nomer) { case 1: Form2->Label5->Caption="Кто вырос в джунглях среди диких зверей?"; Form2->Label1->Caption="Колобок"; Form2->Label2->Caption="Маугли"; Form2->Label3->Caption="Бэтмен"; Form2->Label4->Caption="Чарльз Дарвин"; pravil_otvet=2; break; case 2: Form2->Label5->Caption="Как называлась детская развлекательная программа, популярная в прошлые годы?"; Form2->Label1->Caption="АБВГДейка"; Form2->Label2->Caption="ЁКЛМНейка"; Form2->Label3->Caption="ЁПРСТейка"; Form2->Label4->Caption="ЕЖЗИКейка"; pravil_otvet=1; break; case 3: Form2->Label5->Caption="Как звали невесту Эдмона Дантеса, будущего графа Монте-Кристо? "; Form2->Label1->Caption="Мерседес"; Form2->Label2->Caption="Тойота"; Form2->Label3->Caption="Хонда"; Form2->Label4->Caption="Лада"; pravil_otvet=1; break; case 4: Form2->Label5->Caption="Какой цвет получается при смешении синего и красного?"; Form2->Label1->Caption="Коричневый"; Form2->Label2->Caption="Фиолетовый"; Form2->Label3->Caption="Зелёный"; Form2->Label4->Caption="Голубой"; pravil_otvet=2; break; case 5: Form2->Label5->Caption="Из какого мяса традиционно готовится начинка для чебуреков?"; Form2->Label1->Caption="Баранина"; Form2->Label2->Caption="Свинина"; Form2->Label3->Caption="Телятина"; Form2->Label4->Caption="Конина"; pravil_otvet=1; break; case 6: Form2->Label5->Caption="Какой народ придумал танец чардаш?"; Form2->Label1->Caption="Венгры"; Form2->Label2->Caption="Румыны"; Form2->Label3->Caption="Чехи"; Form2->Label4->Caption="Молдаване"; pravil_otvet=1; break; case 7: Form2->Label5->Caption="Изучение соединений какого элемента является основой органической химии?"; Form2->Label1->Caption="Кислород"; Form2->Label2->Caption="Углерод"; Form2->Label3->Caption="Азот"; Form2->Label4->Caption="Кремний"; pravil_otvet=2; break; case 8: Form2->Label5->Caption="Кто открыл тайну трёх карт графине из «Пиковой дамы» А. С. Пушкина?"; Form2->Label1->Caption="Казанова"; Form2->Label2->Caption="Калиостро"; Form2->Label3->Caption="Сен-Жермен"; Form2->Label4->Caption="Томас Воган"; pravil_otvet=3; break; case 9: Form2->Label5->Caption="В какой стране была пробурена первая промышленная нефтяная скважина?"; Form2->Label1->Caption="Кувейт"; Form2->Label2->Caption="Иран"; Form2->Label3->Caption="Ирак"; Form2->Label4->Caption="Азербайджан"; pravil_otvet=4; break; case 10: BitBtn1->Enabled=false; RadioButton1->Enabled=false; / / пайдаланушы "тестті Аяқтау" түймесін басу үшін "басылмайтын" батырмаларды жасаңыз RadioButton2->Enabled=false; RadioButton3->Enabled=false; RadioButton4->Enabled=false; } } //--------------------------------------------------------------------------- жүктеу/скачать 476,24 Kb. Достарыңызбен бөлісу:
|