ернення в головне меню;
В· В«Стрілка вправоВ» і В«Стрілка влівоВ» діють якщо знаходишся в підменю вибору машини; при натисненні В«EscВ» вибирається та машина яка була показана;
В· В«EnterВ» використовується для входу в підміню і початку гри;
КП. 2203. 04. 35. ПЗ
Лист
13
Змін
Лист
№ докум
Підпис.
Дата
Клавіші діючі в грі:
В· В«Стрілка вгоруВ» і В«Стрілка донизуВ» розгін і гальмування автомобіля;
В· В«Стрілка влівоВ» і В«Стрілка вправоВ» поворот наліво і поворот направо;
В· В«NВ» (англ.) використовується для тимчасового прискорення;
В· В«PВ» або В«PauseВ» пауза в грі, при повторному натисканні пауза відключається;
В· В«EscВ» повернення в головне меню;
Клавіші діючі і в меню і в грі:
В· В«KВ» (англ.) використовується для відображення координат знаходження курсору миші на формі, результат виводиться в заголовок форми;
В· В«FВ» (англ.) використовується для відображення кількості кадрів в секунду, результат виводиться в заголовок форми;
В· В«AВ» (англ.) використовується для перевірки підтримки OpenGL, якщо підтримується то в заголовку форми буде написано версія OpenGL і відео карта через яку здійснюється висновок;
КП. 2203. 04. 35. ПЗ
Лист
14
Змін
Лист
№ докум
Підпис.
Дата
5. тестування
5.1 тестування функцій пп
Виконання функцій в даному проекті йде відмінне так як невеликий збій бал б відразу помічений при роботі програми.
5.2 тестування надійності
Функція з зчитування клавіш продуманна таким чином що тільки реагує на ті клавіші на які є код виконання, інші ігноруються.
КП. 2203. 04. 35. ПЗ
Лист
15
Змін
Лист
№ докум
Підпис.
Дата
p> додаток
Подія таймера:
procedure FNTimeCallBack (uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD) stdcall;
var
word: DWORD;
begin
Inc (CountTickTimer);
if (((PressedKey [19] = true) or
(PressedKey [80] = true)) and (CountTickTimer> 100)) and (CountFuel> 0) then
if (not Pause) then begin
Pause: = true;
CountTickTimer: = 0;
end
else
begin
Pause: = false;
CountTickTimer: = 0;
end;
if not Pause then begin
if Selected_Menu_item = 'Start' then// Натиснуто клавіша Start
begin
if SpeedGL.MediaPlayer1.FileName <> 'Sound Race.mp3' then begin
SpeedGL.MediaPlayer1.FileName: = 'Sound Race.mp3';
SpeedGL.MediaPlayer1.Open;
SpeedGL.MediaPlayer1.Play;
end;
if (PressedKey [27] = true) and (CountTickTimer> 100) then
begin
Selected_Menu_item: ='';
SpeedGL.MediaPlayer1.Stop;
SpeedGL.MediaPlayer1.Close;
SpeedGL.MediaPlayer1.FileName: =...
