Zitat Zitat von daviid

Do

Portd.2 = 0 'Port Low
Pulseout Portd , 2 , 20 'Min. 10uS Impuls senden
Pulsein Zeitmessung , Pind , 2 , 1
'Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Cmdistance = Zeitmessung * Cmconstant 'Umrechnen in Zentimeter
Print "Zeit: " ; Zeitmessung ; " Entfernung: " ; Cmdistance ; " cm"
Portd.2 = 0
Wait 1

Loop

[/code]
vor pulsein musst Du mit "pordd.2 = 1" auch auf Eingang schalten.
Ich (vermute) Das Ergebnis wird in µs angezeigt. Solche sender/Empfänger
brauchen Zeit! das Wait sollte (?) größer sein.

Gruß Richard



[/quote]