Hallo

Mein Hai-Smile wird bei roboterbastler.de gehostet und da ACU grad an seinem Server rumschraubt können wohl kurzzeitige Ausfälle auftreten:
https://www.roboternetz.de/community...(ohne-Werbung)

Eine so geringe Auflösung mit der Zählschleife hätte ich nicht erwartet. Hier mal ein ungetesteter Beispielcode:
Code:
'Ultraschall Entfernungsmessung messprogramm

'Test mit Zählschleife

$regfile "M48def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 2400

Dim Struser As String * 10              ' die Eingabevariable des Users
Dim Countperiodes As Byte               ' die Perioden des Us bursts werden gezählt
Dim Entfernung As Word

'portd.3 als ausgang definieren, das ist der Start in Pin
Config Portd.3 = Output
Portd.3 = 1

Print "Ultraschall Entfernungsmessung Online"
Print "(mit Zählschleife)"

Do
   Input Struser                        ' warten bis Eingabe erkannt
   If Struser = "" Then
      Entfernung = 0

'################# den Sendebrust generieren ##########
      Countperiodes = 0
      Do
         Portd.3 = 0                    ' man kommt so genau auf 40khz
         Countperiodes = Countperiodes + 2

         Portd.3 = 1
         Countperiodes = Countperiodes - 1

      Loop Until Countperiodes > 20
      Portd.3 = 1
'######################################################

      Do                                ' Warten und zählen bis Echo empfangen wird
         Entfernung = Entfernung + 1
      Loop Until Pind.2 = 1

      Print Entfernung                  ' Entfernung ausgeben (per UART)

      While Pind.2 = 1
      Wend

   End If
Loop
End
Ganz schön schlank, oder? :)

Gruß

mic