[xmaniox]

Mirki,

Ma może ktoś pojęcie dlaczego tak się dzieje jak na filmiku?

Zacząłem się uczyć VCL i piszę prostą grę ala tank na pegasus.

Chciałbym, żeby czołg zmieniał orientację przy zmianie kierunku jazdy.

W tej funkcji odczytuję ostatnio wciśnięty przycisk:

void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)

{

ostatni = Key;

if(Key == VKUP) ruchWgore->Enabled = false;

if(Key == VKDOWN) ruchWdol->Enabled = false;

}

w tej zaś ustawiam, aby wykonał się Flip() po odpowiednim ifie:

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

if(Key == VKUP)

{

if(ostatni==VKDOWN)

{

Flip(czolgPion);

}

ruchWgore->Enabled = true;

}

if(Key == VKDOWN)

{

if(ostatni==VKUP)

{

Flip(czolgPion);

}

ruchWdol->Enabled = true;

}

}

W momencie, kiedy raz przycisnę strzałkę w górę bądź w dół i zrobię malutką przerwę w następnym naciśnięciu przycisku wszystko działa tak jak powinno, co widać w pierwszej części filmiku. Kiedy jednak wcisnę strzałkę i trzymam ją bez przerwy, to po jakimś czasie czołg wariuje i zmienia orientację ciągle, co widać na drugiej części filmiku.

Ma ktoś jakieś rady apropo tego?

#programowanie

[dfdrdedwdsdxdcdv]

@xmaniox: Nie znam się na VCL, ale w takim razie czołg zmienia orientację na bieżąco, a nie tylko, jak skończy ruch.

[xmaniox]

@dfdrdedwdsdxdcdv: No ale w funkcji, która odpowiada za zwolnienie przycisku zapisywany jest właśnie ostatni przycisk. Potem w funkcji do naciskania przycisku sprawdzam, który przycisk był ostatnio wciśnięty. Na podstawie tego obracam lub nie. No i dlaczego działa, jak wcisnę przycisk dwa razy z krótkim odstępem czasu a już nie działa jak ciągle trzymam?

[taju]

@xmaniox: bo jak ciagle trzymasz to gdzie jest keyup...

[xmaniox]

@taju: Mógłbyś podpowiedzieć jak powinno być?

[taju]

@xmaniox: nie wiem jak ma byc tylko mysle gdzie jest blad.

Skoro ostatni jest zapamietywany tylko przy keyup a ty trzymasz caly czas wcisniety, to ostatni nie jest zapamietany/nie jest zapamietany poprawnie. To jak to ma dzialac?

Naokolo pierwszy pomysl: nie zapamietuj ostatniego tylko, ale cos jak statechanged t/f i obsluguj wszystko na keypress albo keydown... Zgaduje bo mi sie myslec nie chce, szukam pracy.

[nieruchomy_poruszyciel]

@xmaniox: prawdopodobnie dlatego, że przy pojedynczym trzymaniu masz na okrętkę wywoływane FormKeyDown, w którym nie nadpisujesz wartości "ostatni". Przy każdym wywołaniu trzymając VKUP funkcja widzi w polu "ostatni" wartość VKDOWN i na odwrót. Z tego powodu przy każdym wywołaniu leci wywołanie funkcji "flip". Dodaj na końcu FormKeyDown ostatni = Key; i powinno pomóc.

[xmaniox]

@taju: Tak, właśnie do tego doszedłem. Hmm.. Czyli chciałbym zrobić tak, żeby w funkcji Down znana była wartość ostatni z poprzedniej funkcji Up.

[taju]

@nieruchomy_poruszyciel: o, zielonemu chce sie myslec :)

@xmaniox

[taju]

@xmaniox: cokolwiek robisz wiedz ze debuger twoj krol tak jak lew jest krol dzungli

[nieruchomy_poruszyciel]

@taju: nuda w robocie, to nawet chwila rozkminy na wagę złota :)

[taju]

@nieruchomy_poruszyciel: mi z braku roboty nie chce sie myslec. Dola mam chyba puerwszy raz w zyciu... Hehehehe

[xmaniox]

@nieruchomy_poruszyciel:

@taju:

Dziękuję Panowie, to jest właśnie tak, jak ktoś rzuci okiem z boku i od razu na to wpadnie, a ja godzinami ślęczałem nad tym. :)

[nieruchomy_poruszyciel]

jak @taju wspomniał. Debugger i jazda, w minutę byś znalazł :)

[taju]

@xmaniox: jakbys uzywal debugera to bys nie sleczal. Czasem warto sprawdzic, co w jakim momencie zmienne trzymaja i dlaczego.

[assess]

VCL

@xmaniox: A ja z ciekawości zapytam czemu akurat VCL?

[xmaniox]

@assess: Z przypadku, znalazłem po prostu tutorial gdzieś na YT, gdzie podstawy aplikacji okienkowych były pisane w VCL.

[fliperro]

@xmaniox: Może zamiast ruchWdol, ruchWgore itp dodaj do klasy czołgu pole odpowiadające za kąt w stopniach (angle) określający jego zwrot (przyjmij, że 0 to góra, 90 prawo, 180 dół, 270 lewo) oraz pole speed określające prędkość. Dzięki temu twój czołg nie będzie mógł próbować ustawić się w kilku kierunkach jednocześnie. W zdarzeniach klawiszy zmieniaj tylko wartość angle i speed (np. wciśnięcie VKDOWN to angle = 180, speed 100, puszczenie

[nieruchomy_poruszyciel]

@fliperro: a już lepszych architektonicznie rozwiązań nie podrzucaj tak za nic, niech się pomęczy :D póki raz nie będziesz zmuszony do zaorania początkującego projektu, to się nie naumisz!

Nie no co racja, to racja @xmaniox, zrób jak kolega mówi.

[xmaniox]

@nieruchomy_poruszyciel:

@fliperro:

Może jeszcze zanim się rzucę na głęboką wodę. Jakieś tutoriale dobre mógłby ktoś polecić do VCL? Ewentualnie jakaś inna biblioteka do aplikacji okienkowych.

[nieruchomy_poruszyciel]

A tu już niestety nie pomogę, bo ani vcl nie znam, ani w okienlach nie siedzę.