|
 | | |
| Autor | Správa |
|---|
IfKO_oo
Užívateľ
Založený: 09.12.2011
Príspevky: 3
 |  Zaslal: Pi 09.12.11 16:21 |   |
Dobry den
Pustil som sa do jedneho projektu ale zistil som jeden mensi problem.
Ide o to ze chcem spustit dialkove ovadanie niecoho na zaklade stlacenia klavesnice na PC.
chcel by som to riesit nasledovne:
Na PC stlacim nejaku klavesu napr. A a potreboval by som aby dana aplikacia zistila ze bola stlacena klavesa a na vystup serioveho portu odoslala nejake cislo napr. 00000001. Vedel by mi niekto pomoct s tymto? Resp. nasiel by sa niekto kto by mi dokazal nejaku takuto aplikaciu spravit? dakujem za odpovede |
| |
  |
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: Pi 09.12.11 18:07 | |
Pozri tuto temu: http://www.pcforum.sk/rs-232-vt109347.html
Co sa tyka zaznamenania stlaceneho klavesu, mozes si spravit jednoduchu funkciu Keypressed:
| kód: | function Keypressed( var ch: byte ): boolean;
var i: byte;
begin
for i:= 0 to 255 do
if GetKeyState(i) and 128 = 128 then
begin
Result:= true;
ch:= i;
Exit;
end;
Result:= false;
end; |
a doriesit to TTimer-om, ktory bude mat interval 1 a bude zapnuty hned od zaciatku aplikacie. V jeho tele potom bude nieco taketo:
| kód: | if Keypressed( znak ) then
// pozadovany kod |
|
| |
 |
|
IfKO_oo
Užívateľ
Založený: 09.12.2011
Príspevky: 3
| | Zaslal: So 10.12.11 12:19 | |
vies ja by som potreboval skor vysvetlit vsetko od zaciatku lebo fakt s tym nemam ziadne skusenosti... preto som vlastne aj pisal ci by to niekto nedokazal spravit a potom mi dat nazorny priklad samozrejme nebolo by to zadarmo  pozeral som aj nejake tie knihy ale v malo kniach o visual basicu som nasiel nieco o seriovej komunikacii preto som sa rozhodol oslovit toto forum |
| |
|
|
Fico
Skúsený užívateľ
Založený: 11.01.2009
Príspevky: 1052
| | Zaslal: So 10.12.11 13:39 | |
|
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
