dim MessAlt as Integer,MessNeu as Integer
 
MessAlt = MessNeu
 
MessNeu = GetMessung 'Hier wird der aktuelle Messwert in die Variable 
' geschrieben
 
If MessAlt > MessNeu then
'Der Wert von vor einer Sekunde war größer
Elseif MessAlt < MessNeu then
'Der jetzige Wert ist größer
Else
'Beide gleich
End if

'Interval = 1000
Private Messwerte() as integer
 
Private Sub Timer1_Timer
Redim Preserve Messwerte( 1 to Ubound(Messwerte))
 
Messwerte(Ubound(Messwerte)) = GetMessung
 
end Sub

Private Sub CompareMess (Mess1Sekunden as Integer,Mess2Sekunden as Integer)
 
If Messungen(Mess1Sekunden )> Messungen(Mess2Sekunden)then
'Der erste Wert ist größer
Elseif Messungen(Mess1Sekunden)< Messungen(Mess2Sekunden)then
'Der zweite Wert ist größer
Else
'Beide gleich
End if

'Du hast jetzt zB 60 Sekunden lang die Messwerte aufgezeichnet und möchtest nun 
' den letzten Messwert '(t = 60s) mit dem von vor 40 Sekunden (t = 20s) _
vergleichen:
Compare 20,60

LG,Robert

Beitrag wurde zuletzt am 04.01.09 um 12:18:27 editiert.