public function Flanke() as boolean
    static val_before as boolean
 
    dim val_now as boolean = LeseWert()
 
    if not val_before and val_now then 
         val_before = val_now
         return true
    else
         val_before = val_now
         return false
    end if
end function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

            '-----> LINIE BEGINNT TRANSPORT
            'Überprüfung auf Positive Flanke von Signal "Linie taktet"
            If bLinTaktetBefore = False And bLinTaktet Then
                SchreibeInDB()
            End If

    Public Structure EVC
        Private val As Boolean
 
        Public Function NewVal() As Boolean
            Dim val1 As Boolean = LeseWert()
            Dim res As Boolean = Not val And val1
            val = val1
            Return res
        End Function
 
        Public Function LeseWert() As Boolean
            ' neuen Wert einlesen und zurückgeben
        End Function
 
    End Structure

    Dim vala As EVC ' Variable
    Dim valb As EVC ' Variable
 
    If vala.NewVal() Then
        ' ...
    End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist