Hallo,

ich beschäftige mich seit kurzem mit der Bascom Programmierung und wollte ein kleines Program mit dem ATTiny13 machen. Das macht aber nicht so wie ich es gern hätte.
Ich möchte mittels eines Tastimpulses ein LED Blinken ein bzw. aus schalten. Hab schon verschiedene Varianten ( Loop Until; While Wend; If Then) versucht komme aber nicht recht weiter.
Vielleicht kann mir mal jemand auch bei einer so banalen Frage helfen.

regfile = "attiny13.dat"
$crystal = 1200000

Config Pinb.1 = Input

Taster Alias Pinb.1

Config Portb.3 = Output
B3 Alias Portb.3

Config Portb.4 = Output
Weiss Alias Portb.4


Dim X As Bit

X = B3

On Int0 Onint0

Config Int0 = Falling
Enable Int0
Enable Interrupts

While X = 1

Toggle Weiss
Waitms 300

Toggle Weiss
Waitms 1000

Toggle Weiss
Waitms 100

Wend

End

Onint0:
Toggle B3

Return


Gruß
Caro