Hallo Leute,
kann mir mal einer sagen, warum das nicht geht?
Hat absolut keine Funktion....
Bin ratlos. Es soll letztendlich der Buzzer einen Ton erzeugen.
Habe auch Tiny schon gewechselt, Proggen geht, aber null Funktion
Stimmt da irgendwas nicht?Code:$regfile = "attiny13.dat" ' Chip auswählen $crystal = 1200000 '9,6MHz /8 $hwstack = 8 $swstack = 2 $framesize = 5 ' ' Ddrb = &B11111001 Buzzer Alias Portb.5 Dim S As Byte Const Timervorgabe = 130 Config Timer0 = Timer , Prescale = 1024 On Timer0 Timer_irq Enable Timer0 Enable Interrupts Do Loop Timer_irq: 'Interrupt jede Sekunde Timer0 = Timervorgabe Incr S Toggle Buzzer Return
Strom ziehen tut der Tiny - 3mA.
MfG, und danke
dl1akp







Zitieren

Lesezeichen