Danke!

Wie kann ich zwei Funktionen gleichzeitig Loopen? Ich will ja dass die aktuelle Windgeschwindigkeit angezeigt wird.

So etwa?
Code:
' eine Variable zur Speicherung der Windgeschwindigkeit
define Wgs byte
define WgsT byte
define WgsZyk byte

'----------------------------------------------------------
' --- Schleifen der einzelnen Betriebsarten ---
'----------------------------------------------------------

' Endlosschleife für Automatisch
Function Automatisch()
Lcd.Print "Automatikbetrieb"
pause 25
Do 
' Das Programm:

' Windmessungsfunktion
Windmessung
Lcd.Print Wgs


Loop until (FTaste not = 1)
end function


' Windmessung (Durchschnitt von eine Minute)
Function Windmessung()

' Initialisierung
WgsT = ""
Setevent()

Do

If TIMER>=500 Then  'alle 10s gemessen
WgsT = Am + WgsT 
WgsZyk = WgsZyk + 1 ' Zykeln Zählen
TIMER=0 ' Timer reset
End If

' Zykel reseten wenn nötig (6 Zykeln pro minute)
If WgsZyk = 6 then
Wgs = WgsT / 6
WgsT =0

End If 

Loop
end function
Noch was: Ist meine Windmessungsmetode so ok?

Gruss
Ron