Frage Schleife in Sub-Funktion

[PicNick]

Die For..To..Next Schleifenzählung funktioniert in der Sub nicht.

Das wäre recht erstaunlich.

Dim a as byte
Sub Warnton 
 for a = 1 to 100
      Waitms 1 
      Portd.5 = Not Portd.5
 next
End Sub

Wenn er das nicht tut, müssen wir deinen Bascom umtauschen