Uniwersytet Mikoaja Kopernika Wydzia Fizyki Astronomii i Informatyki

Uniwersytet Mikołaja Kopernika Wydział Fizyki, Astronomii i Informatyki Stosowanej Podyplomowe Studium programowania i Zastosowań Komputerów Repetytorium przed egzaminem zawodowym Małgorzata Kamieniecka Praca dyplomowa wykonana pod kierunkiem Pana dr Jacka Matulewskiego Toruń 2009

Plan prezentacji l l l Cele pracy Egzamin zawodowy w zawodzie technik informatyk Opis programu Repetytorium przed egzaminem zawodowym Narzędzia informatyczne wykorzystane w pracy dyplomowej Podsumowanie

Cele pracy Utworzenie narzędzia, które: l wspomaga przygotowanie uczniów do państwowego egzaminu zawodowego l może być wykorzystane jako pomoc dydaktyczna l umożliwia uczniom samodzielną pracę nad zagadnieniami egzaminacyjnymi

Egzamin zawodowy w zawodzie informatyk l l l technik Egzamin potwierdzający kwalifikacje zawodowe, potocznie zwany egzaminem zawodowym jest formą oceny poziomu opanowania wiadomości i umiejętności z danego zawodu Do egzaminu przystępują absolwenci techników zawodowych oraz policealnych szkół zawodowych Za przebieg egzaminu odpowiada OKE

Egzamin zawodowy w zawodzie informatyk technik Podczas egzaminu zawodowego w zawodzie technik informatyk sprawdzana jest wiedza i umiejętności z zakresu przedmiotów: l Urządzenia techniki komputerowej l Systemy operacyjne i sieci komputerowe l Programowanie strukturalne i obiektowe l Oprogramowanie biurowe l Multimedia i grafika komputerowa

Opis programu – strona główna

Opis programu – dokument pdf

Opis programu – przykładowy test

Opis programu – przykładowy test

Narzędzia informatyczne wykorzystane w pracy dyplomowej l l Aplikacja powstała w środowisku Borland Delphi 7 opartym na języku Object Pascal Program zawiera dwie formy; formę główną oraz formę testu

Narzędzia informatyczne wykorzystane w pracy dyplomowej Forma strony głównej Forma testu Radio. Group Image Timer

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu l l l Pobieranie pytań z pliku tekstowego Wyświetlanie pytań Zliczanie punktów Wyświetlanie informacji o uzyskanych punktach Odliczanie czasu pozostałego do końca testu

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu Pobieranie pytań z pliku tekstowego procedure TForm 1. Czytaj. ZPliku(nazwa. Pliku : String); var k, j, poz: integer; te 1, te 2: string; begin try Assign. File(plik, nazwa. Pliku); reset (plik); readln(plik, te 1); {cala linia z pliku} ile: =Str. To. Int(te 1); readln(plik, te 1); {cala linia z pliku} czas: =Str. To. Int(te 1); for k: =1 to ile do {czytania pytan z pliku } begin readln(plik, te 1); poz: =pos('; ', te 1); j: =0; repeat te 2: =copy(te 1, 1, poz-1); {kopiowanie bez srednika} pyt[k, j]: =te 2; {wpisanie do tablicy} delete(te 1, 1, poz); {usuwanie ze srednikiem} poz: =pos('; ', te 1); {pozycja kolejnego} j: =j+1; until poz<2; end; {czytanie pytan} close. File(plik); except Show. Message ('Błąd! Spróbuj jeszcze raz'); HALT; {ZATRZYMANIA WYKONYWANIA PROGRAMU} end;

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu Wyświetlanie pytań procedure Tform 1. wyswietl(ktory: integer); var j: integer; begin Radio. Group 1. Visible: =true; Radio. Group 1. Caption: =pyt[ktory, 1]; Radio. Group 1. Item. Index: =-1; for j: =0 to 3 do Radio. Group 1. Items[j]: =pyt[ktory, j+2]; Image 1. Picture. Load. From. File(pyt[ktory, 7]); end;

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu Zliczanie punktów procedure TForm 1. dalej. Click(Sender: TObject); var j: integer; begin if i>0 then {liczenie punktów z poprzedniego pytania} begin j: = Str. To. Int(pyt[i, 6]); if Radio. Group 1. Item. Index=j then p: =p+1; end; {liczenie punktów} if i<ile then begin i: =i+1; wyswietl(i); end else begin obliczenie; {wyświetlenie wyniku} Resetuj(); end;

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu Wyświetlanie informacji o uzyskanych punktach procedure Tform 1. obliczenie; var tekst: string; begin kon: =true; timer 1. Enabled: =false; {zatrzymanie odliczania czasu} zegar. visible: =false; Radio. Group 1. Visible: =false; dalej. Visible: =true; tekst: ='Otrzymujesz '+ Int. To. Str(p)+ ' punkt'; case p of 2. . 4, 22. . 24, 32. . 34: tekst: =tekst+'y'; 0: tekst: ='Niestety, otrzymujesz 0 punktów. '; 1: ; else tekst: =tekst+'ów'; end; {case} show. Message(tekst); {wyswietlenie wyniku} end;

Narzędzia informatyczne wykorzystane w pracy dyplomowej - fragmenty kodu Odliczanie czasu pozostałego do końca testu procedure TForm 1. Timer 1 Timer(Sender: TObject); begin s: =s+1; {ile sekund upłynęło} jeszcze: =czas-s; zegar. caption: ='zostało ci '+ Int. To. Str(jeszcze)+'s. '; if (jeszcze>czas)then begin zegar. Visible: =false; obliczenie; end;

Podsumowanie Owocem pracy jest program, który: l pozwala uczniom techników na interaktywne przygotowanie się do egzaminu zawodowego l jest elastyczny, tzn. pozwala na przygotowanie własnego zestawu pytań z ilustracjami i punktacją

Dziękuję za uwagę !!!