Hallo,

dürfte (zumindest Theoretisch) nicht so schwer sein. Je länger der Balken, desto weiter entfert ist der Gegenstand.

Als Grundlage könnte folgender Code dienen:
Code:
'Verwendeter Compiler Bascom V 1.11.9.3
'
'Aufgabe:
'Entfernung wird gemessen und in Zentimetern über
'RS232 ausgegeben
'Autor: Pinsel120866
'###################################################

$regfile = "m16def.dat"
$crystal = 15000000
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Zeitmessung As Word
Dim Entfernung As Word
Wait 1
Print "**** SRF05 mit NIBOBee *****"
Print "Entfernung in cm anzeigen"
Print " "
Config Pinc.2 = Output
Do
Portc.2 = 0
Pulseout Portc , 2 , 40
Pulsein Zeitmessung , Pinc , 2 , 1
Zeitmessung = Zeitmessung * 10
Entfernung = Zeitmessung / 58
Print "Entfernung: " ; Entfernung ; " cm"
Wait 1
Loop
Jetzt nur noch ein Servo und die Zentimeter in Balkengrafik darstellen und fertig ist der Spass!

Wie gesagt - theoretisch...