Hallo
wir bauen gerade beim thw ein kart nun soll es auch ein martinshorn bekommen. das möchte ich in Bascom programmiieren. tönne mit timer 0 vom atmega48 kann ich auch programmieren doch das martinshorn setzt sich aus zwei tonhöhen zusammen die immer abwechseldn gespielt werden.
wie kann man dies programmieren
Code:
$regfile "m48def.dat"
$crystal = 1000000
$baud = 1200
Ddrd = &B11110000
Dim Timerpreset As Byte
On Timer0 Ontimer0
Tccr0 = &B00000010
Timsk.toie0 = 1
Sreg.7 = 1
Do
Portd.5 = 1 : Portd.6 = 0 : Portd.7 = 0
Waitms 80
Portd.5 = 0 : Portd.6 = 1 : Portd.7 = 0
Waitms 80
Portd.5 = 0 : Portd.6 = 0 : Portd.7 = 1
Waitms 80
Loop
Ontimer0:
Timer0 = Timerpreset
Toggle Portd.4
Incr Timerpreset
Return
mein code erzeugt jedoch nur eine aufschwellenden ton habt ihr eine idee wie ich es realisieren kann es muss bis spätestens dienstag fertig sein.
lg
martin
Lesezeichen