bascom a 4094

strobe alias p1.2 ' deklaracja poszczególnych wyprowadzeń date alias p1.6 clk alias p1.7

declare sub send94(wartosc as byte) dim licznik as byte dim temp as byte dim wartosc as byte

sub send94(wartosc as byte) reset strobe waitms 1 for licznik = 0 to 7 'wysłanie bajtu do rejestru temp = wartosc and 1 if temp = 1 then set date else reset date end if

reset clk waitms 1 set clk waitms 1 rotate wartosc , right , 1 next

set strobe 'zatrzaœnięcie bajtu na wyjœciu waitms 1 reset strobe end sub

Wyprowadzenia 4094 (rejestr szeregowo - równoległy) (czcionka - Courier - !!!!)

+---+--+---+ strobe |1 16| VCC data |2 15| OUT ENABLED CLK |3 14| Q4 Q0 |4 13| Q5 Q1 |5 12| Q6 Q2 |6 11| Q7 Q3 |7 10| Y7 GND|8 9| Y7' +----------+

Jeżeli OUT ENABLED = LOW to wyjœcia sa w stanie wysokiej impedancji,a jeżeli OUT ENABLED = HIGH to wyjœcia pracujš normalnie,Y7 i Y7' to wyjœcia szeregowe jednak nigdy ich nie wykorzystywałem i nie znam dokładnie ich przeznaczenia.