Zähler mit Bascom

[Christopher1]

Alarming Alias Pinb.0
Dim Alarming As Byte
und
Alarming = Alarming + 1

Macht irgendwie wenig Sinn  
kannst ja gleich PortB.0 = 2 schreiben