K8055 Analog EIngang - Digital Ausgang

[andreas l. (andreas_l49)]

Hallo, ich habe  bis jetzt hier viel gelesen, kommen aber bei dem 
problem nicht mehr weiter. Ich bin gerade dabei meine staal. gepr. 
Techniker zu machen und noch im ersten Halbjahr. Wir sollen mit der 
Vellemann K8055 zwei Eingänge auslesen und min. zwei Ausgänge ansteuern. 
Die Programmierung machen wir mit Delphi. Mein Projekt sind zwei 
Lichtschranken die als Eingang dienen als Ausgang hängen zwei LED und 
ein Piepser dran. Die Lichtempfindliche Diode hängt am Analogeingang und 
dessen Wert kann ich mit einer Progressbar auslesen...
Soweit genug geschrieben, jetzt zu meiner Frage.

Wie sage ich dem Digitalen Ausgang das er schalten soll wenn die 
Lichtschranke das Signal gibt?

Wen ich das durch habe bin ich endlich fertig und kann mich an die 
Dokumentation und Präsentation machen.

Vielen Dank


 Andreas

[Lothar S. (loeti)]

> Wie sage ich dem Digitalen Ausgang das er schalten soll wenn die
> Lichtschranke das Signal gibt?

Per von Dir zu entwickelnder Software... .

Grüße Löti

[andreas l. (andreas_l49)]

Hallo, danke für deine schnelle Antwort. Kannst du mir wenigstens mal so 
dir Richtung mit dem Quellcode zeigen?

[Lothar S. (loeti)]

Hausaufgaben sind zum Lernen und Selbermachen!

[troll (Gast)]

andreas l. schrieb:
> Wen ich das durch habe bin ich endlich fertig und kann mich an die
> Dokumentation und Präsentation machen.
Scheint mir recht substanzlos wenn du nichtmal einen Ausgang schalten 
kannst...

if(analoger_Wert>Trigger)
  ausgang=1
else
  ausgang=0
end if

Geht das über eine DLL? Dann les die Doku dazu. Oder ein Delphibuch, je 
nachdem.

[andreas l. (andreas_l49)]

Hallo,

ich hatte zuvor keine Ahnung von Delphi. Bin ja froh das ich das mit dem 
auslesen hin bekommen habe... Das läuft über die K8055.DLL ich denke das 
ich etwas mit dem if else machen muss bekomme das aber nicht ganz so 
hin.

Lese den Analog in mit einem timer aus

Procedure Form.timer3timer(Sender: tobjec)
Var ldr1, ldr2 : integer
Beginn
Readallanalog(ldr1,ldr2)
Progressbar1.Position := ldr1;
Progressbar2.Position :=ldr2;

End;

[Lothar S. (loeti)]

> ich hatte zuvor keine Ahnung von Delphi.

Wozu glaubst Du heißt Ausbildung Ausbildung?

Grüße Löti

[andreas l. (andreas_l49)]

Hallo liebe Mitglieder,

ich dachte man könnte sich hier fragen stellen und sich gegen seit 
helfen, aber scheinbar ist das nicht so.

[Lothar S. (loeti)]

> aber scheinbar ist das nicht so.

Doch, aber nicht für Hausaufgaben ... .

Grüße Löti

[troll (Gast)]

andreas l. schrieb:
> Hallo liebe Mitglieder,
>
> ich dachte man könnte sich hier fragen stellen und sich gegen seit
> helfen, aber scheinbar ist das nicht so.

Loeti kannst du ignorieren, der wartet nur drauf gesperrt zu werden.

Zum Thema: Pseudocode steht oben, nach Delphi musst du selbst 
übersetzen.

[Lothar S. (loeti)]

> Loeti kannst du ignorieren, der wartet nur drauf gesperrt zu werden.

Weshalb unser aller Troll auch als Anonymus agiert... .

Grüße Löti