dl1akp
19.02.2010, 09:26
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
$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
Stimmt da irgendwas nicht?
Strom ziehen tut der Tiny - 3mA.
MfG, und danke
dl1akp
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
$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
Stimmt da irgendwas nicht?
Strom ziehen tut der Tiny - 3mA.
MfG, und danke
dl1akp