SRF02 Messwert in Millimeter ermitteln

[Stiffer]

Hallo,

da ich komplett frisch auf diesem Board bin,
möchte ich erst mal alle hier Grüßen !!

zum Thema:

Ich habe mir einen SRF02 gekauft und möchte nun über einen Atmega8 die Füllmenge eines Behälters ermitteln und per RS232 am PC auslesen.

Das funktioniert soweit auch sehr gut, leider aber nur mit Zentimeter-Werten.
Für mein Projekt ist jedoch eine Auflösung bis 5 Millimeter gefordert.

Als Grundlage hab ich das Bascom-Programm Beispiel2 der mitgelieferten RobotikHardware CD genommen:




Declare Function Srf02_firmware(byval Slaveid As Byte) As Byte
Declare Function Srf02_entfernung(byval Slaveid As Byte) As Integer


$regfile = "m32def.dat"
$framesize = 42
$swstack = 42
$hwstack = 42

$crystal = 16000000 'Quarzfrequenz
$baud = 9600

Config Scl = Portc.0 'Ports fuer IIC-Bus
Config Sda = Portc.1


Const Srf02_slaveid = &HE0 'Standard I2C Adresse von SRF02

Dim Entfernung As Integer
Dim V As Byte




Wait 3 'Warte 3 Sekunden
I2cinit
Print "SRF02 Testprogramm von robotikhardware.de"
Print "SRF02 Ultraschall-Firmware Version:" ; Srf02_firmware(srf02_slaveid)


V = 1
Do
Entfernung = Srf02_entfernung(srf02_slaveid)
Print "Entfernung:" ; Entfernung ; "cm"
Wait 1
Loop


End



'------------- Hilfsfunktionen für SRF02 ----------


Function Srf02_firmware(byval Slaveid As Byte) As Byte
Local Firmware As Byte
Local Slaveid_read As Byte

Slaveid_read = Slaveid + 1

I2cstart
I2cwbyte Slaveid
I2cwbyte 0 'Leseregister festlegen
I2cstop

I2cstart
I2cwbyte Slaveid_read
I2crbyte Firmware , Nack
I2cstop

Srf02_firmware = Firmware
End Function



Function Srf02_entfernung(byval Slaveid As Byte) As Integer
Local Lob As Byte
Local Hib As Byte
Local Firmware As Byte
Local Temp As Byte
Local Slaveid_read As Byte

Slaveid_read = Slaveid + 1

'Messvorgang in starten
I2cstart
I2cwbyte Slaveid
I2cwbyte 0
I2cwbyte 81 'in Zentimetern messen
I2cstop


Warteaufmessung:
Waitms 1
Firmware = Srf02_firmware(slaveid)
If Firmware = 255 Then Goto Warteaufmessung

I2cstart
I2cwbyte Slaveid
I2cwbyte 2 'Leseregister festlegen
I2cstop


I2cstart
I2cwbyte Slaveid_read
I2crbyte Hib , Ack
I2crbyte Lob , Nack
I2cstop


Srf02_entfernung = Makeint(lob , Hib)
End Function

vielleicht kann mir jemand auf die Sprünge helfen?

Danke,

stiffer

[linux_80]

Hallo,

ich glaub nicht das man mit US so genau messen kann. :-k
Du kannst aber mal probieren nicht in cm sondern in ms (Millisekunden) zu messen, ob sich ein Unterschied ergibt bei 5mm.

Der SRF02 kann Werte nur in cm, inch und ms ausgeben.