Hi hunni!
Folgender Code funktioniert (solltest du aber auf z.B. deinen Quarz umbasteln):
Code:
$baud = 9600
$crystal = 16000000
$regfile "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 64

Config Timer1 = Timer , Prescale = 8 ,  Capture Edge = Falling , Noise Cancel = 1
Enable Timer1
On Timer1 Pausenerkennung

Config Int1 = Falling                            
Enable Interrupts                                
Enable Int1                                     
On Int1 Summensignalmessung                   

Dim Empf(6) As Word
Dim Channel As Byte

Sound Portd.7 , 200 , 300

Do

Print empf(1)
Print empf(2)
Print empf(3)
Print empf(4)
Print empf(5)
Print empf(6)
Waitms 500

Loop


Summensignalmessung:
Select Case Channel
    Case 1 :
    Empf(1) = Timer1
    Case 2 :
    Empf(2) = Timer1
    Case 3 :
    Empf(3) = Timer1
    Case 4:
    Empf(4) = Timer1
    Case 5:
    Empf(5) = Timer1
    Case 6:
    Empf(6) = Timer1
End Select
Timer1 = 57536                                    'preload for 4ms
Incr Channel
Return

Pausenerkennung:
Channel = 0
Return



End