K8055 Analog EIngang - Digital Ausgang

OP #3183964
Lesenswert?

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
Gast #3184397
Lesenswert?

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.
OP #3184468
Lesenswert?

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;
Gast #3184689
Lesenswert?

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.

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren