Hi pebisoft,

hast du die schonmal probiert (auch von Gerrys Seite):

Code:
' ulrasonic functions SRF04
' adapted from Koen Van den Heuvel, http://users.pandora.be/vandenheuvel/robot.html
' Declare Sub Initialize_ultrasonic()
' Declare Function Ultrasonic() As Integer

Function Ultrasonic() As Integer
    Portc.6 = 0                                              ' Set initial state of trigger pin
    Pulseout Portc , 6 , 10                                 ' generate a 5us pulse @ 8 mhz
    Pulsein Ultrasonic , Pinc , 7 , 1                  ' measure the return pulse
End Function

Sub Initialize_ultrasonic
   Config Pinc.6 = Output
   Config Pinc.7 = Input
End Sub
HTH und Viele Grüße
Jörg