» Poradna » Programy

Sledování paralelního portu

 |   | 

Zkouším napsat prográmek - čte stavový port LPT, kam na jednotlivé bity pověsím kontakty a program bude počítat, kolikrát se sepnou, případně ještě čas sepnutí (a pak se podle toho bude předpovídat počasí nebo tak něco).
Zatím to nějak žije pod W98 pokud to pustím pod nějakým BASICem.
Dalo by se to jednoduše přepsat, aby to fungovalo regulérně ve vyšších woknech, třeba ve wordu jako makro? Programování pod woknama už mne jaxi nezasáhlo.

Takhle začínám (ty komentáře nejsou součástí programu, dal jsem je tam dodatečně). Pokud by se někomu zdálo, že je to napsané poněkud divně, tak je to první pokus, nechtělo to chodit, tak jsem to zkoušel metodou pokusu a omylu než jsem přišel na to, že jsem špatně používal příkaz AND:

cls:a%=0:b%=a%:m=0:n=0:p=0:q=0
zac:
aa%=inp(889) čtu stavové slovo tiskárny
if aa%=b% then kon
d%=aa% xor 127
a% = d% xor c%
if (a% and 8) then m=m+1 test bitu ERROR
if (a% and 16) then n=n+1 test bitu SLCT
if (a% and 32) then p=p+1 test bitu PE
if (a% and 128) then q=q+1 test bitu BUSY
print a%,m,n,p,q: b%=aa%
c%=a%
kon:
if inkey$="" then goto zac
end

Odpovědi na otázku

 |   | 

To bude chtít nějakou aplikaci která si port zabere a bude vyčítat data v nějakém intervalu.
Jako makro do wordu to asi nepůjde, ale třeba v Delphi s kni-ho-vno-u synapse by to napsat šlo - aby to fungovalo 100% tak na více vláken - jedno sleduje port a loguje stavy, další vlákno si data vyčte a zpracuje (uloží, něco z dat spočítá, namaluje graf...)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Urcite to ide aj pod NT systemami, su na to kniznice, ktore sa daju ovladat napr. aj z Visual Basicu. Fungovat to musi, lebo napr. kedysi na Autocad existoval HW kluc na paralelny port a fungoval aj v XP.
Problem je, ze tie rutiny niesu bohvieko ako rychle aj ked su pisane v ASM. Najviac sa mi podarilo ziskat 80-100kByt/s rychlost prenosu. Dalsi problem je, ze citanie z toho portu v NT nieje moc presne, takze na meranie doby zopnutia to nieje moc vhodne.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: První pokus, Jednotlivé bity, Busy, Goto


Určitě si přečtěte

Přehled: Kdo má nejlevnější internet VDSL? Jak jsou na tom veřejné IP a Terminátor?

Přehled: Kdo má nejlevnější internet VDSL? Jak jsou na tom veřejné IP a Terminátor?

** Srovnali jsme nabídku VDSL u 19 internetových poskytovatelů ** Ceny tarifů se liší i o stokoruny ** Různá je také nabídka doplňkových služeb

Lukáš Václavík | 44

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

** S cenou do 20 tisíc lze vybrat solidní notebook na práci i hry ** Přenosné notebooky nabídnou i kovová těla a rychlý hardware ** Možná největší problém je nedostupnost, nejžádanější kusy jsou vyprodané

David Polesný | 21

DeOldify: Téměř zázračná technologie, která obarvuje 2. světovou válku, nebo vaše fotky z dětství

DeOldify: Téměř zázračná technologie, která obarvuje 2. světovou válku, nebo vaše fotky z dětství

** Neuronová síť DeOldify obarvuje fotky ** Můžete si ji vyzkoušet sami i bez superpočítače ** YouTube je plný obarvených ikonických videí

Jakub Čížek | 21


Aktuální číslo časopisu Computer

Megatest mobilů do 5 500 Kč

Test levných herních notebooků

Hrajeme na Xbox Series X

Programy pro kontrolu dětí na počítači