Wie der Titel schon sagt möchte ich mit Bascom ein 40kHz Signal erzeugen. Ich brauche das um diesen Ultraschallsensor anzusteuern: https://www.roboternetz.de/phpBB2/ze...rag.php?t=5261

Bsi jetzt habe ich folgenden Code:
Code:
$regfile = "2313def.dat"                                    'ATmega8-Deklarationen
$crystal = 4000000                                          'Quarz: 4 MHz

Config Timer1 = Timer , Prescale = 1

Config Pind.5 = Output
Signal Alias Portd.5

On Timer1 Timer_irq

Const Timervorgabe = 65336

Enable Timer1
Enable Interrupts
Portd.5 = 1

Do
Loop

Timer_irq:
  Timer1 = Timervorgabe
  Toggle Signal
Return
Nur in dem Beitrag von Manf steht, das ich ein Burst von 16 Perioden des 40kHz Signals brauche. Wie kriege ich denn das mit den 16 Perioden hin?
Ist der Code ansonsten in Ordnung?