<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Zdravím všechny</p>
<p>Je to již víc než 14 let co jsem to programoval do jednoho stroje
a nedaří se mi to najít a tak alespoň popíšu jak jsem to udělal.</p>
<p>Měl jsem stroj s asi dvaceti vstupy. Jako filtr jsem měl pro
každý vstup bitovou a bytovou proměnnou.</p>
<p>V časovači jsem pouze dektementoval všechny bytové proměnné které
nejsou nulové.</p>
<p>V běhu programu jsem jsem dělal následující akce dle podmínek:<br>
Pokud je BYT nulový provede se negace BITU a nastaví se BYT na
stanovenou hodnotu.<br>
Pokud BIT a VSTUP jsou stejné (0 a 0 nebo 1 a 1) nastaví se BYT na
stanovenou hodnotu.<br>
Dále jsem celý program řídil podle BITŮ.</p>
<p>Stanovenou hodnotu pro BYT jsem měl takovou aby její dekrementace
časovačem dala 8ms. <br>
</p>
<p>Jeden senzor měl dvojitý filtr a ten jsem měl udělaný následovně.<br>
Pro tento vstup jsem měl druhý bit a byt. (BIT2 a BYT2) a podmínky
jinak byly stejné, ale druhou stanovenou hodnotu pro časovač jsem
měl delší.<br>
</p>
<p>V běhu programu jsem jsem dělal následující akce dle podmínek:<br>
Pokud je BYT nulový provede se negace BITU a nastaví se BYT na
stanovenou hodnotu.<br>
Pokud je BYT2 nulový provede se negace BITU2 a nastaví se BYT2 na
druhou stanovenou hodnotu.<br>
Pokud BIT a VSTUP jsou stejné (0 a 0 nebo 1 a 1) nastaví se BYT na
stanovenou hodnotu.<br>
Pokud BIT2 a BIT jsou stejné (0 a 0 nebo 1 a 1) nastaví se BYT2 na
druhou stanovenou hodnotu.<br>
Dále jsem celý program řídil podle BIT2.</p>
<p>Pro Vás by mohl být BIT vstup po filtraci a BYT2 signál o dlouhém
stisku.<br>
</p>
<p>Přeji hezké odpoledne<br>
Milan<br>
</p>
<div class="moz-cite-prefix">Dne 19. 01. 25 v 11:48 Ladislav
Kručinský napsal(a):<br>
</div>
<blockquote type="cite"
cite="mid:000501db6a5f$a557be70$f0073b50$@hermanicky-pivovar.cz">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="Generator"
content="Microsoft Word 15 (filtered medium)">
<style>@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}@font-face
{font-family:Aptos;}p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
font-size:11.0pt;
font-family:"Aptos",sans-serif;
mso-ligatures:standardcontextual;
mso-fareast-language:EN-US;}span.StylE-mailovZprvy17
{mso-style-type:personal-compose;
font-family:"Aptos",sans-serif;
color:windowtext;}.MsoChpDefault
{mso-style-type:export-only;
font-size:11.0pt;
mso-fareast-language:EN-US;}div.WordSection1
{page:WordSection1;}</style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
<div class="WordSection1">
<p class="MsoNormal">Zdravíčko při neděli, kolezi.<o:p></o:p></p>
<p class="MsoNormal">Více než kdy jindy jsem se poslední dny
cítil jako Saturninův strýc František: „Nepotřebuji týt
z toho, co objevili jiní…“<o:p></o:p></p>
<p class="MsoNormal">Potřeboval jsem si do PICu naprogramovat
jednoduchý časovač pro medomet, obsluhovaný jedním tlačítkem –
krátký stisk něco, dlouhý stisk něco jiného. Chtěl jsem, aby
tlačítko bylo obsluhováno pomocí přerušení timeru – čili žádné
čekání v programových smyčkách, aby bylo odolné proti zákmitům
– debouncing a aby se poznala chyba, když tlačítko zůstane
viset. Nu a zapotil jsem se. „…A přitom taková blbost, že?...“
abych ocitoval dalšího klasika. Nakonec jsem to po týdnu dal
dohromady (jsem v důchodu, hraju si, vždycky chvilku,
nefungovalo to tak den pauza, …). A tak bych se rád dotázal
zde přítomných kolegů, kteří jsou v programování PICů
v assembleru zběhlí:<o:p></o:p></p>
<p class="MsoNormal">Jak to řešíte vy? Je někde nějaký osvědčený
postup s příklady přímo v MPASM ? Já tak narychlo nic nenašel,
v nějakém předchozím projektu jsem aplikoval vertikální čítač,
ale to mi tady přišlo poněkud komplikované. Nakonec je toho
asi 40 řádků v obsluze přerušení. Ale docela rád bych viděl,
jak na to chodíte vy?<o:p></o:p></p>
<p class="MsoNormal">Prosím neozývejte se s jazykem “C“ – ten je
mi naprosto Cizí i když chápu že to v něm lze efektivně a
robustně napsat. Rád bych právě porovnal přístupy
v assembleru, tedy pokud nejste žárliví právě na to svoje
řešení. Já do přílohy dávám svůj program, ať si případně
pozvednete sebevědomí <span
style="font-family:"Segoe UI Emoji",sans-serif">😊</span>.
Vzhledem k tomu, že programuju vždycky nějakou capinu a pak
třeba půl roku nic, snažím se ten program komentovat jako pro
dementy – abych si vzpomněl co tam mám a proč.<o:p></o:p></p>
<p class="MsoNormal">Hezkou neděli přeji.<o:p></o:p></p>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal"><span style="mso-fareast-language:CS">Ing.
Ladislav Kručinský<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:CS">Koněvova
427/90<o:p></o:p></span></p>
<p class="MsoNormal"><span style="mso-fareast-language:CS">713
00 Ostrava - Heřmanice<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<br>
<fieldset class="moz-mime-attachment-header"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
HW-list mailing list - sponsored by <a class="moz-txt-link-abbreviated" href="http://www.HW.cz">www.HW.cz</a>
<a class="moz-txt-link-abbreviated" href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a>
<a class="moz-txt-link-freetext" href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list</a>
</pre>
</blockquote>
</body>
</html>