Jak sepnout druhý okruh při zvýšení napětí?
Moderátor: Moderátoři
-
pidapida
Jak sepnout druhý okruh při zvýšení napětí?
Jak sepnout druhý okruh...
Pak není třeba spínat další obvody, linky COM portu to stihnou za 100 ms zaznamenat. Příklad rutiny, kterou používám (TurboPascal) :
Kód: Vybrat vše
Procedure Zaznam ;
begin
Port [BA + 4] := 2 ; {nahodit RTS }
Repeat
repeat
CTS := (Port [BA+6] AND 16) div 16; { cteni CTS }
until CTS = 0 ;
repeat
CTS := (Port [BA+6] AND 16) div 16; { cteni CTS }
until (CTS = 1) or KeyPressed;
nr := nr + 1 ;
Ulozit;
Until KeyPressed;
end;
Optočlen se zapojí mezi RTS a CTS a už to funguje. Proměnná nr pak obsahuje počet mincí. Zastavit záznam lze stisknutím libovolné klávesy.
12 V se může přivést na vstup CTS i přímo (pokud tam chvílemi není víc) a pak se může vynechat nahazování RTS. 2V jako LO je moc, ale stačí dát do série bílou LEDku ( delší drátek je plus
Jestli chceš optočlenem oddělit PC, tak si kup typ PC817 (za 6 Kč v GME), má jen čtyři nohy. Vstup 1 (je ozn. tečkou) se připojí na těch 12 V, 2 (to je ten sousední) se připojí přes odpor (1 kiloohm) na nulový potenciál toho zapojení 12 V. 3 se připojí na CTS a 4 (ten naproti 1) na RTS.
Kvůli těm 2 V, (úroveň LO není nula) je potřeba dát do série se vstupem optočlenu ještě také nějakou tu LED diodu. Jednak srazí napětí a také vždy blikne, jako kontrola, že to funguje