srf02 Programmierung

[Beule]

Und zwar hab ich den sfr02 über i2c angeschlossen und lesen die entfernung aus. nun möchte ich die ausgelesenen daten auswerten

dafür hab ich mir folgende select case anweisung geschrieben

Do

Select Case Entfernung


Case 200 To 150 : Sound Portb.2 , 200 , 300

Case 150 To 100 : Sound Portb.2 , 200 , 400

Case 100 To 50 : Sound Portb.2 , 200 , 500

Case 50 To 10 : Sound Portb.2 , 200 , 600

End Select
Wait 1

Loop

aber irgendwie klappt das nicht, hat jemand da ne idee?

[Dirk]

1. Das ist nur ein Teil deines Codes. Wie soll man da wissen, was nicht klappt?
2. Was klappt denn "irgendwie" nicht?

Gruß Dirk

[Jon]

Ich würde jetzt mal so ins Blaue tippen, dass du unter den Tönen keinen wirklichen Unterschied hörst?
Wie wäre es denn dann, wenn du die Unterschiede größer machst? So sind die Töne relativ gleich.

eine genauere Beschreibung deines Problems wäre hilfreich!

jon

[Beule]

Nein es ist mehr so dass ich gar keine töne höre



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 Portb.2 = Output
'Portb.2 = 1
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

V = 1
Do

Select Case Entfernung


Case 200 To 150 : Sound Portb.2 , 200 , 300

Case 150 To 100 : Sound Portb.2 , 200 , 400

Case 100 To 50 : Sound Portb.2 , 200 , 500

Case 50 To 10 : Sound Portb.2 , 200 , 600

End Select
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


Ich benutze zum größten teil das srf02 beispiel
und mit if und einer entfernung geht das aber nicht im case

und wenn ich


select case entfernung
case etfernung <=100: Sound usw..
mache bekomme ich nur fehler meldungen

[Jon]

Tipp:
BASCOM hat eine Hilfe, die man mit F1 schnell öffnen kann. Wenn man dort Case in die Suche eingibt, findet man unter Anderem das Programm

$regfile = "m48def.dat" ' specify the used micro

$crystal = 4000000 ' used crystal frequency

$baud = 19200 ' use baud rate

$hwstack = 32 ' default use 32 for the hardware stack

$swstack = 10 ' default use 10 for the SW stack

$framesize = 40 ' default use 40 for the frame space







Dim I As Byte 'dim variable

Dim S As String * 5 , Z As String * 5




Do




Input "Enter value (0-255) " , I

Select Case I

Case 1 : Print "1"

Case 2 : Print "2"

Case 3 To 5 : Print "3-5"

Case Is >= 10 : Print ">= 10"

Case Else : Print "Not in Case statement"

End Select

Loop

End




'note that a Boolean expression like > 3 must be preceded

'by the IS keyword

Mehr muss ich dazu eigentlich nicht sagen, steht alles da.

jon

[radbruch]

Hallo


und mit if und einer entfernung geht das aber nicht im case
Echt? Das kann ich irgendwie nicht glauben, denn es fehlt etwas in der Art: "Entfernung=Srf02_entfernung(Srf02_slaveid)" oder "Select Case Srf02_entfernung(Srf02_slaveid)"

Oder braucht man das in Bascom nicht?

Gruß

mic

[Jon]

Da du es sagst, fällt es mir auch auf. Es fehlt die Zeile "Entfernung=Srf02_entfernung(Srf02_slaveid)" vor der "Select case Entfernung".

Natürlich braucht man die in BASCOM.

jon

[sechsrad]

irgendwie stimmt dein code nicht, nimm diesen mal und bring deine case rein und deine atmegaanpassungen.



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 = 8000000 'Quarzfrequenz
$baud = 19200

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 1
I2cinit
Print "SRF02 Ultraschall-Firmware Version:" ; Srf02_firmware(srf02_slaveid)

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


Waitms 65 'minimale Wartezeit für Messung bei SRF02

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