Announcement

**Hans-Peter Tschan** · 25.09.2001, 08:46

Hallo Michael,

so lange Du mit Win9x arbeitest, kannst Du mit folgendem Code auf die parallele Schnittstelle zugreifen:
procedure WritePort(Adr: Word; Value: Byte); 
asm 
mov dx,Adr 
mov al,Value 
out dx,al 
end; 

Adr ist �blicherweise $378 (f�r Lpt1). Da Du die Ampel steuern willst, d.h. nur auf den Port schreiben willst, kannst Du das Datenregister (das ist das Register, da� ohne Offset der Portadresse zugeordnet ist) verwenden. Ich denke mal, da� Du pro Datenbit eine LED ansprechen m�chtest, d.h. Du mu�t das Bit gezielt auf 1 setzen. Das kannst mit einer ODER-Funktion machen.Bit n setzen: Value := Value or 2^n 
Gel�scht wird Bit n �ber eine UND-Verkn�pfung. Bit n l�schen: Value := Value and (255-2^n).
Der Vorteil der Verkn�pfungen besteht darin, da� nur das gew�nschte Bit manipuliert wird, w�hrend die anderen Bits nicht ver�ndert werden.
2 Anmerkungen m�chte ich Dir noch auf den Weg geben: 
1) Die parallele Schnitstelle ist elektrisch recht empfindlich, d.h. Du solltest eine normale LED (18..25 mA), oder gar mehrere, nicht einfach �ber einen Vorwiderstand anschlie�en, sondern unbedingt z.B. �ber eine Transistortreiberstufe. 
2) Unter NT funktioniert das ganze nicht. 
Viele Gr��e Hans-Pete

**Michael Springwald** · 28.09.2001, 09:23

Hallo Hans-Peter Tschan
Danke f�r den Code 
Ich h�tte da noch eine Frage wie werden Bitmuster gemacht.
Unter Delphi 5S
 
Gru� Michael</b&gt

**Hans-Peter Tschan** · 28.09.2001, 09:47

Hallo Michael,

was meinst Du mit Bitmuster? Was willst Du genau machen?

Gru� Hans-Pete

**Michael Springwald** · 28.09.2001, 19:17

Hallo Hans-Peter Tschan 
Ich wollte diese in Qbasic geschrieben Programm in Delphi 5s umwandeln
 

10 REM *AMPELSTEUERUNG* 
12 PHASEN = 4 
30 DATA 100001 
40 DATA 45000 
50 DATA 110010 
60 DATA 9000 
70 DATA 001100 
80 DATA 45000 
90 DATA 010110 
100 DATA 9000 
120 REM ** H a u p t p r o g r a m m ** 
130 FOR M = 1 TO PHASEN 
140 READ BITM$: GOSUB 1000 
150 READ ZEIT: GOSUB 2000 
160 NEXT M 
170 RESTORE 
180 GOTO 130 
1000 REM** proc bitmuster ** 
1010 FOR N = 1 TO 6 
1020 Z$(N) = MID$(BITM$, N, 1) 
1030 IF NOT (Z$(N) = "1") THEN GOTO 1060 
1040 S%(N) = 2 ^ (N - 1) 
1050 S% = S% + S%(N) 
1060 NEXT N 
1070 OUT &H378, S% 
1080 S% = 0 
1090 RETURN 
2000 REM ** proc warten ** 
2010 FOR Z = 1 TO ZEIT: NEXT Z 
2020 RETURN 

Gru� Michael</b&gt

**Hans-Peter Tschan** · 02.10.2001, 15:26

Hallo Michael, 
also die Bitmuster als strings gefallen mir gar nicht.Noch weniger gef�llt mir die "Zeitschleife". Ich w�rde die Bitmuster halt schnell umrechnen und in ein array packen.Vorausgesetzt, das Bit rechts ist das LSB und ich hab' richtig gerechnet, dann sollten die Werte sogar stimmen:

const 
aCtrlCode : array[0..3] of byte = (33,50,12,22); 
aDelay : array[0..3] of integer = (4500,4500,9000,4500); 
PortAdr = $378; 

procedure WritePort(Adr: word; Value: byte); 
asm 
mov dx, adr 
mov al, value 
out dx, ax 
end; 

procedure Ampel; 
var 
i: integer; 
begin 
for i := 0 to 3 do 
begin 
WritePort(PortAdr,aCtrlCode[i]); 
sleep(aDelay[i]); 
end; 
WritePort(PortAdr,0); // Alle LEDs aus 
end; 

Ich w�rde den Code in einen Thread packen (s. hier im Forum), da der Aufruf von sleep, im Prinzip den gleichen Effekt hat wie die Zeitschleife, n�mlich das Programm ist blockiert. 
Viele Gr��e Hans-Pete

**Michael Springwald** · 02.10.2001, 21:15

Hallo,
Dakne f�r den Code 
Gru� Michael</b&gt

**Michael Springwald** · 21.01.2002, 22:37

Ich habe ihren Cod getestet er funktioniert aber ich m�chte z.B von Ampel 1 die Rote-Lampe an haben und von Ampel 2 die Gr�ne un

**Hans-Peter Tschan** · 22.01.2002, 11:37

Hi Michael,

entweder Du �nderst die Werte der Steuercodes entsprechend ab oder setzt die die einzelnen Datenleitungen durch AND/OR - Verkn�pfungen gezielt auf 1 bzw. 0 und l�sst alle anderen Bits unver�ndert.

Ein einzelnes Bit l��t sich setzen/r�cksetzen z.B. so:

procedure SetBit(var Value: byte; bit: byte);
begin
Value := Value or (1 shl bit );
end;

procedure ResetBit(var Value: byte; bit: byte);
begin
Value := Value and (255 - 1 shl bit);
end;

Um mehre Bits gleichzeitig zu �ndern musst Du Dir einen entsprechenden Operanden als Konstante definieren, z.B.

Setzen der Bits 3 (Wertigkeit 2^3 = 8) und 2 (2^2 = 4)

Value := Value or 12

R�cksetzen von Bit 0 (2^0 = 1)

Value := Value and 25

**Michael Springwald** · 22.01.2002, 20:22

Danke werde es mal testten Gru� Michael</b&gt

**Michael Springwald** · 23.01.2002, 00:06

Ich habe mir das Beispiel von ihnen angesehen und komme damit ganicht zurecht. 
K�nnten Sie mir ein Gesammtbeispiel schreiben und hier in das Forum kopieren oder mir per Emil senden([email protected]) Gru� Michael</b&gt

**Michael Springwald** · 23.01.2002, 22:32

Danke f�r Ihre Emi

Announcement

Schnittstellen Problem

Schnittstellen Problem

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment