Announcement

**Hans-Peter Tschan** · 04.02.2002, 12:30

Hi !!!

Schau mal unter Diverses|Schnittstellen Problem nach.

Grüße H

**Sven Fischer** · 04.02.2002, 13:25

Danke für den Hinweis aber ich komme mit dem Quellcode nicht klar weil mir die Einbindung der Buttonkomponente nicht klar ist

Kannst du mir das erklären?

Danke vielmals

Sve

**Hans-Peter Tschan** · 04.02.2002, 15:46

Huhu !!! Angenommen, die beiden LED's werden über die beiden lsb (D0, D1) gesteuert; dann sollte folgender Code funktionieren...(Hab's nicht getestet).

Viele Grüße HP

procedure WritePort(Adr: Word; Value: Byte); 
asm 
mov dx,Adr 
mov al,Value 
out dx,al 
end; 

function ReadPort(Adr: Word): byte; 
asm 
mov dx,Adr 
in al,dx 
mov result,al 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
Value: Byte; 
begin 
Value := ReadPort($378); // Datenregister lpt1 lesen; 
if Button1.Caption = 'Aus' then 
begin 
// LED1 ausschalten 
WritePort($378,Value and 254); 
Button1.Caption := 'An'; 
end 
else 
begin 
// LED1 einschalten 
WritePort($378,Value or 1) 
Button1.Caption := 'Aus'; 
end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
Value: Byte; 
begin 
Value := ReadPort($378); // Datenregister lpt1 lesen; 
if Button2.Caption = 'Aus' then 
begin 
// LED2 ausschalten 
WritePort($378,Value and 253); 
Button2.Caption := 'An'; 
end 
else 
begin 
// LED2 einschalten 
WritePort($378,Value or 2) 
Button2.Caption := 'Aus'; 
end; 
end; <br&gt

**Sven Fischer** · 05.02.2002, 10:01

Danke ersteinmal ...
es funktioniert alles soweit. Ich kann die LEDs ansteuern.
Aber wie kann ich jetzt eine bestimmte (zB 10) Impulse auf die LEDs schicken? Also das sie 10 mal blinken?

Gruß Drazha

**Hans-Peter Tschan** · 05.02.2002, 10:36

Na, indem Du Eine LED über einen Schreibzugriff auf den Port einschaltetst, den Wert eine gewisse Zeit im Portregister stehen läßt (Pulsdauer), über den nächsten Schreibzugriff die LED ausschaltest, diesen Wert wieder hälst (Pausendauer) und das ganze 10x wiederholst:

procedure Blink10; 
const t1=100; // 100 ms Puls 
t2=150; // 150 ms Pause 
var i: integer; value: byte; 
begin 
value:=ReadPort($378); 
for i:=1 to 10 do 
begin 
WritePort($378,value or 1); 
sleep(t1); 
WritePort($378,value and 254); 
slepp(t2); 
end; 
end; 
Nachteilig ist natürlich, daß Du während des Sleep-Aufruf das Programm "blockierst". Also, wenn's nicht nur zu Demozwecken dient, entweder einen Timer im Hintergrund, der a) Blinkimpulse zählt und b) den Port uzmschaltet (wenn's nicht so sehr auf Genauigkeit ankommt) oder das ganze in einen Thread packen

**Sven Fischer** · 05.02.2002, 15:05

Hallo
das funktioniert irgendwie nicht!?!
habe ich denn eine möglichkeit ein einzelnes Datenkabel anzusprechen?
So das ich am 1. eine LED habe die Blinkt und am 2. eine die Dauerhaft blink und an der 3. wieder eine die Blinkt!?! ich hoffe das geht.

Würde mich freuen wenn mir einer helfen kann

Danke Sve

**Hans-Peter Tschan** · 05.02.2002, 16:44

Du mußt das Bit, welches die LED wo blinkt ansteuert rhythmisch auf 0 und auf 1 setzen, während die anderen Bits dadurch nicht beeinflußt werden dürfen. Deshalb die Verknüpfungen mit And bzw. O

**Sven Fischer** · 06.02.2002, 15:55

hi ... bitte halten sie mich jetzt nicht für doof aber ich bin anfänger und bekomme das nicht hin. haben sie schon mal ein so ein program geschrieben das sie mir schicken können damit ich mir den ganzen quellcode ansehen kann denn ich bekomme bei dem obenstehende Quellcode kein LED-leuchten

Vielen Dank Sven

[email protected]

**Hans-Peter Tschan** · 06.02.2002, 17:59

Beispiel kommt (demnächst), leider kann ich es nicht testen, ich hab' kein Win95/98.
Folgendes mußt Du (auch bei obigen Bsp) beachten:
1) Das ganze läuft nur unter Win95/98
2) Ich bin davon ausgegangen, daß Du LPT 1 verwendest und daß diese die Adresse $378 hat
3) das die LED(s) mit D0 (D1, D2) verbunden ist (sind

Announcement

LED über LPT-Port

LED über LPT-Port

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment