Hallo homedom,

falls Du meine Schaltung ausprobierst, ist hier der Programmabschnitt, den Du brauchst am über den ADC den Ausgang des OP auszuwerten. Beispiel für 2 Sensoren svr und svl


Config Adc = Single , Prescaler = Auto , Reference = Internal
S0 Alias Getadc(0)
S1 Alias Getadc(1)

Do
.
Dein Programm
.

B0 = S0 : B1 = S1 'Ausgangswerte der Sensoren (ohne Impuls)
Ms0 = B0 + 30 : Ms1 = B1 + 30 'oberer Grenzwert
Ss0 = B0 - 30 : Ss1 = B1 -30 'unterer Grenzwert
For I = 1 To 2000
Svr = S0 '1. Sensor wird gemessen
If Svr > Ms0 Or Svr < Ss0 Then 'Wert ausserhalb Grenzwert>Impuls
Svr = S0 : Svl = S1 : Exit For 'Sensorwerte bei Impuls erfassen
End If
Svl = S1 'gleiches für 2. Sensor
If Svl > Ms1 Or Svl < Ss1 Then
Svr = S0 : Svl = S1 : Exit For
End If
Next
Svr = Svr - B0: Svl = Svl - B3 'Werte mit Impuls - Ausgangswerte
' d.h. z.B. positiv innen, negativ aussen
if i >= 2000 then Notaus 'kein Impuls erfasst, z.B. Schleife kaputt
.
.
Dein Programm
.
loop

Bei mir ist das auf 4 Sensoren analog erweitert. Csacks Sender wird funktionierten. Nur sein Sensor erscheint mir etwas unempfindlich. Mag mich ja täuschen. Probier´s aus. Auch mich interessiert mit welcher Schaltung Du am besten zurecht kommst.


Christian