Krótko i Dłużej naciśnięty key

[JAROL]

Hieee Poproszę o pomoc ew.jakaś podobna procedurka, w jaki sposób zrobić podwójną funkcje przycisku,jeżeli krótki key to jakaś procedura czy funkcja,jak długo naciśnięty key to inna procedura czy funkcja,kombinuje jak koń pod góre z IF Then oraz While Wend(w Bascomie )i dupa jak do tej pory,ręce mnie opadły,może Licznik i przerwanie PLEASE Help my!!! 73

[sablik]

Kod: Zaznacz cały

if p= przycisniety then waitms 20 if p= przycisniety then akcja 1 waitms 200 if p= przycisniety then akcja 2 end if end if

pozdr AS

[JAROL]

Dzięki za reakcje ,ale taka procedura nic nie daje,procesor nie rozróżnia tego wyboru,albo inaczej zawsze wejdzie w akcje1 lub losowo wybierze -wpadnie tam gzie akurat nie trzeba hi 73!

[Fredy]

A może tak:

dim licznik as word

licznik=0

if przycisk=1 then
do
incr licznik
waitms 10
loop until przycisk=0 or licznik=500
end if

if licznik >300 then coś tam
elseif licznik>10 then coś tam innego
end if[shadow=green][/shadow]

[sablik]

Fakt , mój przykład służył do inkremetacji licznika, więc mi nie przeszkadzała akcja 1.
Lepszym rozwiązaniem jest sposób Fredy-ego licz czas naciśnięcia i zależnie od czasu wybierz to co ma się stać

[JAROL]

Yesss myśle że tak można,muszę odsiedzieć dupogodziny i coś się skleii,łykam teraz asemblera na siłe może tu coś mi się uda!!! 73 pozdrawiam kolegów duże dzięki za chęć pomocy i odzew może kiedyś spotkamy się na albo na jakimś zjeździe !