Creation tesztprogramok Delphi programozási környezet
A javasolt iránymutatások tükrözik a tervezési és fejlesztési vizsgálati programok Delphi programozási környezetben.
Ajánlott számítástechnika tanárok, tanítók iskolai tantárgyak, a diákok vezető osztályok középiskolák mélyreható tanulmányt számítástechnika.
Kézzelfogható lépéseket felfedezni a mögöttes mintákat az emberi tanulás, a világot oktatás, valamint a gyors előrelépést a területen a személyi számítógépek tanárok levezetéséhez az igény az elektronikus teszt programok önellenőrzés és önellenőrzés a tanulók tudását.
A fő cél az ezeket az irányelveket az, hogy a technológiával kapcsolatos ismeretek létrehozásának tesztprogramok Delphi programozási környezetben.
Ennek eredményeként ezek az ajánlások képezhető készségek tervezése tesztprogramok Delphi programozási környezetben.
Létrehozása tesztprogram segítségével alkatrészek
TLabel, TButton, TRadioGroup
A pre-előkészítés követelményei:- tudja az alapokat programozás Pascal rendszerben;
- hogy képes legyen használni a gombra, és a helyi menüben.
Hozza létre az alkalmazás interfész
1. Hozzon létre egy projekt 1 (előadás).
2. Állítsa be a következő tárgyak tulajdonságait
eljárás TForm1.RadioGroup1Click (Sender: TObject);
kezdődik m: = 0; ha RadioGroup1.ItemIndex = 1, akkor m: = m + 1 mást m: = m; végén;
eljárás TForm1.RadioGroup2Click (Sender: TObject);
kezdődik n: = 0; ha RadioGroup2.ItemIndex = 0, akkor n: = n + 1 mást n: = N; végén;
eljárás TForm1.RadioGroup3Click (Sender: TObject);
kezdődik k: = 0; ha RadioGroup3.ItemIndex = 0, akkor k: = k + 1 mást K: = k; végén;
eljárás TForm1.RadioGroup4Click (Sender: TObject);
kezdődik w: = 0; ha RadioGroup4.ItemIndex = 0, akkor W: = W + 1 mást w: = W; végén;
eljárás TForm1.RadioGroup5Click (Sender: TObject);
kezdődik v: = 0; ha RadioGroup5.ItemIndex = 2, akkor v: = v + 1 mást v: = v; végén;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik l: = m + n + k + w + v; ha L = 5, majd
kezdődik Label4.Caption: = IntToStr (L); Label5.Caption: = 'Excellent!'; end else if L = 4, akkor
kezdődik Label4.Caption: = IntToStr (L); Label5.Caption: = „Jó! De meg kell ismételni az elméleti anyag. „; end else if l<=3 then
kezdődik Label4.Caption: = IntToStr (L); Label5.Caption: = „Gyenge! Tanulni! " végén; végén;
eljárás TForm1.Button2Click (Sender: TObject); kezdeni közel; végén; végén.
2.Sohranite alakja és kialakítása a saját mappába.
Létrehozása tesztprogram segítségével TLabel alkatrészek, TButton, TRadioGroup, TMainMenu
Hozza létre az alkalmazás interfész
1. Projekt létrehozása 2. (előadás).
Ehhez adjuk hozzá a következő komponenseket formájában:- MainMenu komponens, amely pontot: Test (Kilépés) és Help (utasítások, Róla);
- címke a szöveg a kérdésekre, és a vizsgálat eredményének kimenetet egy string „: a helyes válaszok 10 kérdés”;
- label "válasz";
- egy csoport kapcsolók függő válasz lehetőségek (RadioGroup1 RadioGroup10.), amelyek egymásra helyezett;
- „Vizsgálati eredmény” gombra.
2. Állítsa be a következő tulajdonságokat a tárgyakat.
A RadioGroup2. RadioGroup10 - Hamis
3.Sohranite projekt (File -> Save All) a mappában.
1. Program Label2 címke ( „következő kérdés”) úgy, hogy Label1 címke tartalmazza a következő kérdést válaszlehetőségek rajta, és amikor elér az utolsó kérdés Label2 címke elérhetetlenné válik.
2. Amikor programot írni, kövesse az utasításokat:- ki újra a válasz arra a kérdésre nem áll rendelkezésre;
- vizsgálati eredmény az, hogy a Label1 címke kattintva Button2 gombbal;
- menüpont „Exit” bezárja a programot;
- menüpont „A” forma jelenik Körülbelül Box ablak (meg kell végrehajtani a parancsot a Fájl -> Új-> Egyéb űrlapok fül alakú kb);
- főmenü „Manual” üzenet boxban.
3.Napishite tesztprogram kód ablakban.
Var Form1: TForm1;
a, b, c, d, f, g, j, l, m, n, k, p: integer; végrehajtására használ Unit2;
eljárás TForm1.RadioGroup1Click (Sender: TObject);
kezdődik a: = 0; ha RadioGroup1.ItemIndex = 0, akkor a: = a + 1 pedig egy: = a; RadioGroup1.Visible: = false; végén;
eljárás TForm1.RadioGroup2Click (Sender: TObject);
kezdődik b: = 0; ha RadioGroup2.ItemIndex = 1, akkor b: = b + 1 mást b: = b; RadioGroup2.Visible: = false; végén;
eljárás TForm1.RadioGroup3Click (Sender: TObject);
kezdődik d: = 0; ha RadioGroup3.ItemIndex = 1, akkor d: = d + 1 mást d: = d; RadioGroup3.Visible: = false; végén;
eljárás TForm1.RadioGroup4Click (Sender: TObject);
kezdődik c: = 0; ha RadioGroup4.ItemIndex = 0, akkor c: = c + 1 mást c: = C; RadioGroup4.Visible: = false; végén;
eljárás TForm1.RadioGroup5Click (Sender: TObject);
kezdődik f: = 0; ha RadioGroup5.ItemIndex = 3, majd f: = f + 1 mást f: = F; RadioGroup5.Visible: = false; végén;
eljárás TForm1.RadioGroup6Click (Sender: TObject);
kezdődik g: = 0; ha RadioGroup6.ItemIndex = 2, akkor G: = g + 1 mást g: = g; RadioGroup6.Visible: = false; végén;
eljárás TForm1.RadioGroup7Click (Sender: TObject);
kezdődik j: = 0; ha RadioGroup7.ItemIndex = 1, akkor j: = j + 1 mást j: = j; RadioGroup7.Visible: = false; végén;
eljárás TForm1.RadioGroup8Click (Sender: TObject);
kezdődik l: = 0; ha RadioGroup8.ItemIndex = 1, akkor L: = l + 1 mást l: = l; RadioGroup8.Visible: = false; végén;
eljárás TForm1.RadioGroup9Click (Sender: TObject);
kezdődik m: = 0; ha RadioGroup9.ItemIndex = 3, akkor m: = m + 1 mást m: = m; RadioGroup9.Visible: = false; végén;
eljárás TForm1.RadioGroup10Click (Sender: TObject);
kezdődik n: = 0; ha RadioGroup10.ItemIndex = 2, akkor n: = n + 1 mást n: = N; RadioGroup10.Visible: = false; végén;
eljárás TForm1.Label2Click (Sender: TObject);
kezdődik k: = k + 1; ügy k
1: kezdődik Label1.Caption: = „2 kérdés. A tömegtermelés kezdődött számítógépek;
2: kezdődik Label1.Caption: = „3 kérdés. Element bázis számítógép-processzorok második generációs a következők voltak: „; RadioGroup3.Visible: = true; végén;
3: kezdődik Label1.Caption: = „4 kérdés. Melyik eszköz nem tervezték, hogy feldolgozzák az információkat? „; RadioGroup4.Visible: = true; végén;
4: kezdődik Label1.Caption: = „5 kérdés. elfogadott minimális mennyiségű információt egység „; RadioGroup5.Visible: = true; végén;
5: kezdődik Label1.Caption: = „6 kérdés. Hány bájt emlékezik a PC szó győzelmét? „;
6: kezdődik Label1.Caption: = „7 kérdés. A számítógép teljesítményének függvénye: „;
7: kezdődik Label1.Caption: = „8 kérdés. Melyik eszköz káros hatással lehet az emberi egészségre; RadioGroup8.Visible: = true; végén;
8: kezdődik Label1.Caption: = „9 kérdés. Ha kikapcsolja a számítógépet, minden információ törlődik: „;
9: kezdődik Label1.Caption: = '10 kérdés. Annak érdekében, hogy információt védeni kell a floppy disk: „; RadioGroup10.Visible: = true; Button2.Visible: = true; Label2.Visible: = False; végén; végén;
eljárás TForm1.Button2Click (Sender: TObject);
kezdeni p: = a + b + c + d + f + g + j + l + m + n; Ha p = 10, majd
kezdődik Label1.Caption: = IntToStr (p) + helyes választ a 10 kérdésre. "+ 'Kitűnő!'; vég
else if p> = 8, akkor
kezdődik Label1.Caption: = IntToStr (p) + helyes választ a 10 kérdésre. "+ 'Rendben!'; vég
else if p = 7, majd a
kezdődik Label1.Caption: = IntToStr (p) + a helyes válaszok 10 kérdés. '+ 'kielégítő.';
end else if p<7 then
kezdődik Label1.Caption: = IntToStr (p) + helyes választ a 10 kérdésre. "+„Kár! Teach „; végén;
eljárás TForm1.Button1Click (Sender: TObject); kezdeni közel; végén;
eljárás TForm1.N2Click (Sender: TObject);
kezdeni közel; végén;
eljárás TForm1.N4Click (Sender: TObject);
kezdődik AboutBox.show; végén;
eljárás TForm1.N5Click (Sender: TObject);
kezdődik MessageDlgPos ( „Légy óvatos, ha egy választ ismételt választás nem ad választ a kérdésre !!”, mtInformation [mbOK], 0.300.200); végén; végén.
4.Sohranite alakja és kialakítása a saját mappába.
Létrehozása tesztprogram segítségével alkatrészek
TLabel, TButton, TRadioGroup, TPageControl, TImage, TPanel, TMainMenu
Hozza létre az alkalmazás interfész
1. Hozzon létre egy projekt 3 (előadás).
Ehhez adjuk hozzá a következő komponenseket formájában:- MainMenu komponens, amely pontot: Teszt (Eredmény, Kilépés) és Help (utasítások, Róla);
- címkét kell elhelyezni egy sorban vizsgálati eredmény „: a helyes válaszok közül 6 kérdés”;
- PageControl komponens (WIN32 oldal), amely lapok számozott kérdések;
- lapokon, helyezzen egy címkét a kérdés szövege és a csoport függő kapcsolók választ (RadioGroup) 3-4-választás kérdése;
- kilépés gomb a program;
- Component kép (TOVÁBBI oldal);
- Hat alkatrészek Panel úgy vannak elhelyezve, hogy lezárja a kép összetevőt.
2. Állítsa be a következő tulajdonságokat a tárgyakat.
3.Sohranite projekt (File -> Save All) a mappában.
1. írásakor programkódot, kövesse az utasításokat:- ki újra a válasz arra a kérdésre nem áll rendelkezésre;
- A helyes választás a válasz arra a kérdésre, a nyitott rajz (alkatrész fényképek);
- főmenü „eredmény” jeleníti meg a címkét Label1 vizsgálati eredmény;
- menüpont „Exit” bezárja a programot;
- menüpont „A” forma jelenik Körülbelül Box ablak (meg kell végrehajtani a parancsot a Fájl -> Új-> Egyéb űrlapok fül alakú kb);
- főmenü „Manual” üzenet boxban.
2. Írj egy tesztprogram kód ablakban.
var Form1: TForm1;
m, n, k, W, L, S, Z: integer; végrehajtására használ Unit2;
eljárás TForm1.Button1Click (Sender: TObject);
kezdeni közel; végén;
eljárás TForm1.RadioGroup1Click (Sender: TObject);
kezdődik n: = 0; ha RadioGroup1.ItemIndex = 0, akkor kezdődik n: = n + 1; Panel1.Visible: = false; véget mást n: = N;
eljárás TForm1.RadioGroup2Click (Sender: TObject);
kezdődik m: = 0; ha RadioGroup2.ItemIndex = 2, akkor kezdődik m: = m + 1; Panel2.Visible: = False; véget mást m: = m;
eljárás TForm1.RadioGroup3Click (Sender: TObject);
kezdődik k: = 0; ha RadioGroup3.ItemIndex = 0, akkor kezdődik k: = k + 1; Panel4.Visible: = false; véget mást k: = k;
eljárás TForm1.RadioGroup4Click (Sender: TObject);
kezdődik w: = 0; ha RadioGroup4.ItemIndex = 0, akkor kezdődik w: = w + 1; Panel3.Visible: = false; véget mást w: = W;
eljárás TForm1.RadioGroup5Click (Sender: TObject);
kezdeni s: = 0; ha RadioGroup5.ItemIndex = 1, akkor kezdődik s: = s + 1; Panel5.Visible: = false; véget mást s: = s;
eljárás TForm1.RadioGroup6Click (Sender: TObject);
kezdődik z: = 0; ha RadioGroup6.ItemIndex = 1, akkor kezdődik z: = z + 1; Panel6.Visible: = false; véget mást z: = z;
eljárás TForm1.N3Click (Sender: TObject);
kezdődik l: = m + n + k + w + s + z; Label1.Caption: = IntToStr (l) + 'helyes választ a kérdésekre 6'; végén;
eljárás TForm1.N4Click (Sender: TObject);
kezdeni közel; végén;
eljárás TForm1.N7Click (Sender: TObject);
kezdődik AboutBox.show; végén;
eljárás TForm1.N6Click (Sender: TObject);
kezdődik MessageDlgPos ( „Légy óvatos, amikor kiválasztják a lehetséges válaszokat!
Re-kiválasztás egy kérdésre nem tud válaszolni”, mtInformation [mbOK] 0300200) !; végén; végén.
3.Sohranite alakja és kialakítása a saját mappába.