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