Crearea de programe de testare în mediul de programare delphi

Orientările propuse reflectă planificarea, proiectarea și dezvoltarea de programe de testare în mediul de programare Delphi.

Recomandat profesorilor de informatică, profesori de discipline școlare, elevii din clasele superioare ale școlilor secundare cu studiu aprofundat de informatică.

pași concreți în descoperirea modelelor care stau la baza învățării umane, a făcut didacticii lumii, precum și progresele rapide în domeniul calculatoarelor personale ale cadrelor didactice derivă necesitatea unor programe de testare electronice pentru auto-monitorizare și auto-testare a cunoștințelor studenților.

Obiectivul principal al acestor linii directoare este de a oferi cunoștințe despre tehnologia de creare a programelor de testare în mediul de programare Delphi.

Ca urmare a acestor recomandări pot fi formate abilități de proiectare programe de testare în mediul de programare Delphi.

Crearea unui program de testare folosind componente

TLabel, TButton, TRadioGroup

• cunosc elementele de bază ale programării în sistemul Pascal;
• să poată utiliza butonul din meniul barei de instrumente și de context.

Creați interfața aplicației

1. Crearea unui proiect 1 (prezentare).

2. Setați următoarele proprietăți ale obiectelor

Procedura TForm1.RadioGroup1Click (Expeditor: TObject);

începe m: = 0; dacă RadioGroup1.ItemIndex = 1, atunci m: = m + 1 m altfel: = m; se încheie;

Procedura TForm1.RadioGroup2Click (Expeditor: TObject);

începe n: = 0; dacă RadioGroup2.ItemIndex = 0, atunci n: = n + 1 altceva n: = n; se încheie;

Procedura TForm1.RadioGroup3Click (Expeditor: TObject);

începe k: = 0; dacă RadioGroup3.ItemIndex = 0 atunci k: = k + 1 altceva k: = k; se încheie;

Procedura TForm1.RadioGroup4Click (Expeditor: TObject);

începe w: = 0; dacă RadioGroup4.ItemIndex = 0 atunci w: = w + 1 altceva w: = w; se încheie;

Procedura TForm1.RadioGroup5Click (Expeditor: TObject);

începe v: = 0; dacă RadioGroup5.ItemIndex = 2, atunci v: = v + 1 v altfel: = v; se încheie;

Procedura TForm1.Button1Click (Expeditor: TObject);

începe l: = m + n + k + w + v; dacă l = 5 atunci

începe Label4.Caption: = IntToStr (l); Label5.Caption: =; 'Excelent!' termina altfel daca l = 4, atunci

începe Label4.Caption: = IntToStr (l); Label5.Caption: = „Bună! Dar, trebuie să repetați materialul teoretic. „; în cazul în care se încheie altceva l<=3 then

începe Label4.Caption: = IntToStr (l); Label5.Caption: = „Poor! Aflați! " se încheie; se încheie;

Procedura TForm1.Button2Click (Expeditor: TObject); începe aproape; se încheie; end.

Forma 2.Sohranite și design în propriul său dosar.

Crearea unui program de testare folosind componente TLabel, TButton, TRadioGroup, TMainMenu

Creați interfața aplicației

1. Crearea de proiect 2 (prezentare).

• MainMenu componentă constând din puncte: Test (Ieșire) și Help (Instrucțiuni, Despre);
• eticheta pentru text de întrebări și de ieșire rezultatul testului ca un șir de caractere „: raspunsuri corecte din 10 întrebări“;
• etichetă „răspuns“;
• un grup de comutatoare pentru opțiuni de răspuns dependent (RadioGroup1 RadioGroup10.), care sunt suprapuse unul pe celălalt;
• Butonul „Rezultat test“.

2. Setați următoarele proprietăți ale obiectelor.

pentru RadioGroup2. RadioGroup10 - Fals

3.Sohranite proiect (File -> Save All) în folderul.

1. Programul Label2 eticheta ( „întrebarea următoare“), astfel încât Label1 eticheta afișează următoarele opțiuni de răspuns întrebare pe ea, iar când ajungeți la ultima întrebare Label2 eticheta devine indisponibil.

• selectați din nou răspunsul la întrebarea nu este disponibilă;
• Rezultatul testului este de a aduce pe etichetă Label1 făcând clic pe butoanele Button2;
• elementul de meniu „Exit“ închide programul;
• elementul de meniu „About“ afișează fereastra Despre Caseta (aveți nevoie pentru a executa comanda File -> New-> Altele, Formulare de formă fila Despre);
• element din meniul principal „Manual“ va afișa o casetă de mesaj.

Programul de testare 3.Napishite în fereastra de cod.

Var Form1: TForm1;

a, b, c, d, f, g, j, l, m, n, k, p: întreg; implementare utilizează UNIT2;

Procedura TForm1.RadioGroup1Click (Expeditor: TObject);

începe o: = 0; dacă RadioGroup1.ItemIndex = 0, apoi a: = a + 1 altcineva a: = a; RadioGroup1.Visible: = false; se încheie;

Procedura TForm1.RadioGroup2Click (Expeditor: TObject);

începe b: = 0; dacă RadioGroup2.ItemIndex = 1, atunci b: = b + 1 altceva b: = b; RadioGroup2.Visible: = false; se încheie;

Procedura TForm1.RadioGroup3Click (Expeditor: TObject);

începe d: = 0; dacă RadioGroup3.ItemIndex = 1, atunci d: = d + 1 altfel d: = d; RadioGroup3.Visible: = false; se încheie;

Procedura TForm1.RadioGroup4Click (Expeditor: TObject);

începe c: = 0; dacă RadioGroup4.ItemIndex = 0 atunci c: = c + 1 altceva c: = c; RadioGroup4.Visible: = false; se încheie;

Procedura TForm1.RadioGroup5Click (Expeditor: TObject);

începe f: = 0; dacă RadioGroup5.ItemIndex = 3, atunci f: = f + 1 f altfel: = f; RadioGroup5.Visible: = false; se încheie;

Procedura TForm1.RadioGroup6Click (Expeditor: TObject);

începe g: = 0; dacă RadioGroup6.ItemIndex = 2, atunci g: = g + 1 g altceva: = g; RadioGroup6.Visible: = false; se încheie;

Procedura TForm1.RadioGroup7Click (Expeditor: TObject);

începe j: = 0; dacă RadioGroup7.ItemIndex = 1, atunci j: = j + 1 altceva j: = j; RadioGroup7.Visible: = false; se încheie;

Procedura TForm1.RadioGroup8Click (Expeditor: TObject);

începe l: = 0; dacă RadioGroup8.ItemIndex = 1, atunci l: = l + 1 altceva l: = l; RadioGroup8.Visible: = false; se încheie;

Procedura TForm1.RadioGroup9Click (Expeditor: TObject);

începe m: = 0; dacă RadioGroup9.ItemIndex = 3, atunci m: = m + 1 m altfel: = m; RadioGroup9.Visible: = false; se încheie;

Procedura TForm1.RadioGroup10Click (Expeditor: TObject);

începe n: = 0; dacă RadioGroup10.ItemIndex = 2, atunci n: = n + 1 altceva n: = n; RadioGroup10.Visible: = false; se încheie;

Procedura TForm1.Label2Click (Expeditor: TObject);

începe k: = k + 1; caz k

1: începe Label1.Caption: = „2 întrebare. Producția de masă a început în calculatoare;

2: începe Label1.Caption: = „3 întrebare. Elementul de bază al procesoarelor de a doua generație au fost după cum urmează: „; RadioGroup3.Visible: = true; se încheie;

3: începe Label1.Caption: 4 = întrebare. Ce dispozitiv nu este conceput pentru a procesa informația „?; RadioGroup4.Visible: = true; se încheie;

4: începe Label1.Caption: = „5 întrebare. adoptată pentru suma minimă de unități de informații „; RadioGroup5.Visible: = true; se încheie;

5: începe Label1.Caption: = „6 întrebare. Cât de mulți octeți sunt în memoria de cuvânt PC VICTORY: „;?

6: începe Label1.Caption: = „7 întrebare. Performanța computerului depinde de: „;

7: începe Label1.Caption: = „8 întrebare. Ce dispozitiv poate avea efecte dăunătoare asupra sănătății umane „; RadioGroup8.Visible: = true; se încheie;

8: începe Label1.Caption: = „9 întrebare. Când opriți calculatorul, toate informațiile sunt șterse: „;

9: începe Label1.Caption: = întrebare '10. Pentru a păstra informațiile trebuie să fie protejate de pe dischetă: „; RadioGroup10.Visible: = true; Button2.Visible: = true; Label2.Visible: = False; se încheie; se încheie;

Procedura TForm1.Button2Click (Expeditor: TObject);

începe p: = a + b + c + d + f + g + j + l + m + n; dacă p = 10, atunci

începe Label1.Caption: = IntToStr (p) + + 'Excelent!'; 'răspunsuri corecte din 10 întrebări.' capăt

else if p> = 8, atunci

începe Label1.Caption: = IntToStr (p) + + 'Bine!'; 'răspunsuri corecte din 10 întrebări.' capăt

altfel, dacă p = 7, atunci

începe Label1.Caption: = IntToStr (p) + 'răspunsuri corecte de 10 întrebări.' + 'satisfăcătoare.';

termina altceva în cazul în care p<7 then

începe Label1.Caption: = IntToStr (p) + + „Păcat răspunsuri corecte din 10 întrebări."! Teach „; se încheie;

Procedura TForm1.Button1Click (Expeditor: TObject); începe aproape; se încheie;

Procedura TForm1.N2Click (Expeditor: TObject);

începe aproape; se încheie;

Procedura TForm1.N4Click (Expeditor: TObject);

începe AboutBox.show; se încheie;

Procedura TForm1.N5Click (Expeditor: TObject);

începe MessageDlgPos ( „Aveți grijă atunci când selectați o alegere răspuns repetată nu este disponibil pentru a răspunde la întrebarea !!“, mtInformation, [MBOK], 0300200); se încheie; end.

Forma 4.Sohranite și design în propriul său dosar.

Crearea unui program de testare folosind componente

TLabel, TButton, TRadioGroup, TPageControl, TImage, TPanel, TMainMenu

Creați interfața aplicației

1. Crearea unui proiect de 3 (prezentare).

• MainMenu componentă constând din puncte: test (Rezultat, Ieșire) și Help (Instrucțiuni, Despre);
• eticheta să fie afișate în rezultatul unui test linie „: raspunsuri corecte din 6 întrebări“;
• componenta PageControl (pagina WIN32), care conține întrebări file numerotate;
• pe fiecare filă, puneți o etichetă cu textul întrebării și un grup de switch-uri dependente de răspunsuri (RadioGroup) întrebări 3-4 variante;
• butonul de ieșire din program;
• Componenta de imagine (pagina suplimentară);
• șase componente Panou plasat astfel încât să închidă componenta de imagine.

2. Setați următoarele proprietăți ale obiectelor.

3.Sohranite proiect (File -> Save All) în folderul.

• selectați din nou răspunsul la întrebarea nu este disponibilă;
• alegerea corectă a răspunsului la întrebarea desenului deschis (componentă a imaginii);
• element din meniul principal „Rezultatul“ afiseaza eticheta Label1 rezultatul testului;
• elementul de meniu „Exit“ închide programul;
• elementul de meniu „About“ afișează fereastra Despre Caseta (aveți nevoie pentru a executa comanda File -> New-> Altele, Formulare de formă fila Despre);
• element din meniul principal „Manual“ va afișa o casetă de mesaj.

2. Scrieți un program de testare în fereastra de cod.

var Form1: TForm1;

m, n, k, w, l, s, z: integer; implementare utilizează UNIT2;

Procedura TForm1.Button1Click (Expeditor: TObject);

începe aproape; se încheie;

Procedura TForm1.RadioGroup1Click (Expeditor: TObject);

începe n: = 0; dacă RadioGroup1.ItemIndex = 0, atunci începe n: = n + 1; Panel1.Visible: = false; termina altceva n: = n;

Procedura TForm1.RadioGroup2Click (Expeditor: TObject);

începe m: = 0; dacă RadioGroup2.ItemIndex = 2 începe apoi m: = m + 1; Panel2.Visible: = False; termina altceva m: = m;

Procedura TForm1.RadioGroup3Click (Expeditor: TObject);

începe k: = 0; dacă RadioGroup3.ItemIndex = 0, atunci începe k: = k + 1; Panel4.Visible: = false; se încheie altceva k: = k;

Procedura TForm1.RadioGroup4Click (Expeditor: TObject);

începe w: = 0; dacă RadioGroup4.ItemIndex = 0, atunci începe w: w = + 1; Panel3.Visible: = false; termina altceva w: = w;

Procedura TForm1.RadioGroup5Click (Expeditor: TObject);

începe s: = 0; dacă RadioGroup5.ItemIndex = 1 apoi începe s: = s + 1; Panel5.Visible: = false; termina altceva s: = s;

Procedura TForm1.RadioGroup6Click (Expeditor: TObject);

începe z: = 0; dacă RadioGroup6.ItemIndex = 1 apoi începe z: = z + 1; Panel6.Visible: = false; termina altceva z: = z;

Procedura TForm1.N3Click (Expeditor: TObject);

începe l: = m + n + k + w + s + z; Label1.Caption: = IntToStr (l) + 'răspunsuri corecte la întrebările 6'; se încheie;

Procedura TForm1.N4Click (Expeditor: TObject);

începe aproape; se încheie;

Procedura TForm1.N7Click (Expeditor: TObject);

începe AboutBox.show; se încheie;

Procedura TForm1.N6Click (Expeditor: TObject);

începe MessageDlgPos ( „Fiți atenți atunci când aleg posibile răspunsuri!

Re-selecție la o întrebare nu poate răspunde“, mtInformation, [MBOK], 0300200) !; se încheie; end.

Forma 3.Sohranite și design în propriul său dosar.

articole similare

• Programul-Designer pentru a crea un catalog tipărit

• Utilizarea mediului codeblocks Launchpad de dezvoltare pentru programare, blog-ul de inginerie

• Xboot - program pentru a crea un stick multiboot sau disc