Rizeni pomoci PC

[Slavomir Skopalik]

neni to zadny SW problem tady je kod do delphi (s komponentou asyncfree)
a hlavne to funguje i na WinNT a Win2000.
Tento kod skutecne spolehlive fungoval s 16 out vystupy pres posuvne registry a latchem.
Jen podotykem, ze je to urceno spise na hrani, nez na rizeni aplikaci, nebo komunikaci
na vyrobni hale plne menicu (tam jedine 422, nebo 485, ale nejlepe Ethernet na optice).

procedure TForm1.SendData(d: integer);
var i:integer;
begin
 for i:=0to 15 do begin
  Async1.SetRTSState(true);
  Async1.SetDTRState((d and $8000)=0);
  d:=d shl 1;
  Async1.SetRTSState(false);
  sleep(5);
  Async1.SetDTRState(true);
 end;
 Async1.SetBREAKState(false);
 sleep(5);
 Async1.SetBREAKState(true);
end;

	Slavek


> S tim opatrne. Sice to lze, (kdyz prezijete nadavky toho, kdo bude psat
> soft), ale obvodove to nebude o moc jednoduss? nez korektn? proveden? -
> napr. procesor a 2 tranzistory pro RXD a TXD.
> 
> S pozdravem
> ing. Pavel Poucha
> 
> M?te-li chut, navstivte nase str?nky http://www.papouch.com
> 
> 
> ----- Original Message -----
> From: "Slavomir Skopalik" <skopalik@hlubocky.del.cz>
> To: <hw-news@list.gin.cz>
> Sent: Friday, January 25, 2002 9:22 AM
> Subject: RE: Rizeni pomoci PC
> 
> 
> > Pak doporucuji synchroni prenos pres COM, na jedno
> > misto padne jeden 8 bit posuvny register a jeden 8 bit latch
> > (tusim ze se to dela i integrovane, videl jsem to v jedne
> > knizce o pripojeni periferii k PC).
> > signaly:
> > clockn - RTS
> > data - DTE
> > sync - TxD (bud odeslanim 1 byte, nebo BREAK).
> >