01.05.2022 09:05
[#1]
[Hollywood] IsKeyDown i licznik
Cześć.
Napotkałem pewien dziwny problem w Hollywood. Wykorzystuję w moim przykładzie funkcję IsKeyDown i sprawdzam czy wciśnięta jest spacja. Jeśli tak to zwiększam licznik o 1 (powiedzmy, że z zakresu 1-10). Tymczasem przy pierwszym wciśnięciu licznik od razu idzie w górę do 10. Zakładam, że problem jest po tej stronie, że pętla goni tak szybko że jedno wciśnięcie przycisku liczy kilka razy. Tylko jak to obejść? Dodam, że wstawienie jakiegoś WaitTimer(1, 1000) przed podbiciem wartości k może i pomoże, ale nie chcę ograniczać wydajności kodu.
Przykładowy prostacki kod:
Ostatnia aktualizacja: 01.05.2022 09:16:36 przez recedent
Napotkałem pewien dziwny problem w Hollywood. Wykorzystuję w moim przykładzie funkcję IsKeyDown i sprawdzam czy wciśnięta jest spacja. Jeśli tak to zwiększam licznik o 1 (powiedzmy, że z zakresu 1-10). Tymczasem przy pierwszym wciśnięciu licznik od razu idzie w górę do 10. Zakładam, że problem jest po tej stronie, że pętla goni tak szybko że jedno wciśnięcie przycisku liczy kilka razy. Tylko jak to obejść? Dodam, że wstawienie jakiegoś WaitTimer(1, 1000) przed podbiciem wartości k może i pomoże, ale nie chcę ograniczać wydajności kodu.
Przykładowy prostacki kod:
k = 0
l = 0
StartTimer(1)
Function p_IsKeyDown()
If
IsKeyDown("SPACE") And k < 10
k = k + 1
EndIf
EndFunction
While GetTimer(1) < 10000
p_IsKeyDown()
If k > l
DebugPrint(k)
l = k
EndIf
WendOstatnia aktualizacja: 01.05.2022 09:16:36 przez recedent
01.05.2022 09:46
[#4]
Re: [Hollywood] IsKeyDown i licznik
@recedent, post #3
Spróbuj przedefiniować pętlę:
1. Ustaw zmienną pomocniczą "SpaceKey" na FALSE.
2. Jeżeli "SpaceKey" jest FALSE oraz IsKeyDown("SPACE") jest TRUE to ustaw zmienną "SpaceKey" na TRUE oraz teraz podejmij akcję: zwiększ licznik "k" o 1.
W przeciwnym przypadku jeżeli "SpaceKey" jest TRUE oraz IsKeyDown("SPACE") jest FALSE to ustaw zmienną "SpaceKey" na FALSE.
3. Czekasz dalej w głównej pętli i podejmujesz ewentualne inne akcje i przechodzisz do punktu 2.
Ostatnia aktualizacja: 01.05.2022 09:51:43 przez Hexmage960
1. Ustaw zmienną pomocniczą "SpaceKey" na FALSE.
2. Jeżeli "SpaceKey" jest FALSE oraz IsKeyDown("SPACE") jest TRUE to ustaw zmienną "SpaceKey" na TRUE oraz teraz podejmij akcję: zwiększ licznik "k" o 1.
W przeciwnym przypadku jeżeli "SpaceKey" jest TRUE oraz IsKeyDown("SPACE") jest FALSE to ustaw zmienną "SpaceKey" na FALSE.
3. Czekasz dalej w głównej pętli i podejmujesz ewentualne inne akcje i przechodzisz do punktu 2.
Ostatnia aktualizacja: 01.05.2022 09:51:43 przez Hexmage960
01.05.2022 09:56
[#5]
Re: [Hollywood] IsKeyDown i licznik
@Hexmage960, post #4
Coś w ten deseń?
k = 0
l = 0
spacja = 0
StartTimer(1)
Function p_IsKeyDown()
If
IsKeyDown("SPACE") And k < 10 And spacja = 0
k = k + 1
spacja = 1
Else If IsKeyDown("SPACE") = False And spacja = 1
spacja = 0
EndIf
EndIf
EndFunction
While GetTimer(1) < 10000
p_IsKeyDown()
If k > l And spacja = 1
DebugPrint(k)
l = k
EndIf
Wend