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