Entwickler-Ecke

Windows API - RS 232 ansprechen


löschi - Mi 18.09.02 17:39
Titel: RS 232 ansprechen
Hi ,
möchte mit einem Taster die RS 232 ansprechen. Stelle mir das so vor:
wenn taster (Button)gedrückt dann soll ein Relais an der Schnittstelle anziehen. (Natürlich mit Transistor) . Beim Loslassen des Button`s soll das Relais wieder abfallen. Kann mir jemand von Euch sagen was ich Proggen soll???? :?:


Maledictus - Mo 30.09.02 22:15

http://www.auq.de/viewtopic.php?t=1218

Was genauers kann ich Dir leider auch nicht sagen...

Ich suche zur Zeit selber Material zu diesem Thema, ich habe vor ein Programm wie Miriam zu schreiben. http://www.sixdots.de/index.php?m1=software&m2=miriam&sixlang=de Allerdings wenns denn klappt auch für Unix. Mich interessiert, wie das genau funktioniert, vor allem weil auf der Seite steht, das es timing Probleme unter Me gab.


Adrian - So 26.01.03 22:41
Titel: RS232 ansteuern
Hallo Löschi!

Wenn Du nicht "unglücklicherweise" Win2000 oder XP verwendest, dann klappt's recht gut mit:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
procedure OutPort(PortAddr: Word; DataByte: Byte);
{ Prozedur, mit der ein Byte direkt auf eine Port-Adresse unter Win32
  ausgegeben werden kann }
{$IFDEF WIN32}
assembler; stdcall;
asm
  mov al,DataByte
  mov dx,PortAddr
  out dx,al
end;
{$ELSE}
begin
  Port(PortAddr):=DataByte;
end;
{$ENDIF}

und z.B.

Quelltext
1:
OutPort($3FC,$FD);                    

Bei meinem Programm habe ich noch eine Delay-Verzögerung von 1ms hingehängt. Hoffentlich hat's Dir geholen.

Moderiert von user profile iconTino: Code-Tags hinzugefügt.


löschi - Mo 27.01.03 09:10

vielen Dank für deine hilfe, leider benutze ich 2000.das prog soll aber auch unter NT laufen. habe mir ne kompo besorgt ,die das für mich erledigt. hab ich im forum gefunden.
nochma vielen dank