sanjarrr
31.01.2011, 13:41
Tag allerseit,
wie man dem Titel bereits entnehmen kann, habe ich eine Frage zu dem genannten Sensor. Bin relativ neu in der Robotik und mein erster Plan war es, den Sensor an die RN Control anzuschließen und immer bei einer gewissen Entfernung eine LED angehen zu lassen.
Habe den Sensor an die RN Control angeschlossen, mit dem Pin 1 an den Porta.0 um den ADC nutzen zu können.
Das System reagiert auch auf Abstände, allerdings nicht in der gewünschten Art und Weise. Ich denke es liegt an einer Fehlinterpretation meinerseits, der ausgegeben Werte. Von daher poste ich einfach mal den Quellcode zur fachmännichen Analyse :
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Config Portc.0 = Output
Config Portc.1 = Output
Dim Porta.0 As Word
Config Adc = Single , Prescaler = Auto , Reference = Internal ' Einstellen des ADC
Start Adc
Dim X As Word
Portc.0 = 0 ' damit die LED von Anfang an leuchten
Declare Sub _distanzmessung()
Dim Distanz As Word
'Main:
Do
X = Porta.0
Call _distanzmessung() 'Routine aufrufen
If Distanz > 2 Then Portc.0 = 1 Else Portc.1 = 1
' hier die Wahl "2"[V] als Wert, aus dem Datenblatt des Sensors übernommen für Abstände von 15-25 cm
Print Distanz
Waitms 100
Loop
End
Sub _distanzmessung()
Local W As Word
W = Getadc(porta.0)
If W < 1 Then W = 2.5
Distanz = W
End Sub
Was ich nun wissen möchte ist, welchen Wert misst der Sensor auf diese Art und Weise ?!
Gibt es ieine formel für die Distanzen ?!
Hoffe es ist alles verständlich erläutert.
gruß
sanjarrr
wie man dem Titel bereits entnehmen kann, habe ich eine Frage zu dem genannten Sensor. Bin relativ neu in der Robotik und mein erster Plan war es, den Sensor an die RN Control anzuschließen und immer bei einer gewissen Entfernung eine LED angehen zu lassen.
Habe den Sensor an die RN Control angeschlossen, mit dem Pin 1 an den Porta.0 um den ADC nutzen zu können.
Das System reagiert auch auf Abstände, allerdings nicht in der gewünschten Art und Weise. Ich denke es liegt an einer Fehlinterpretation meinerseits, der ausgegeben Werte. Von daher poste ich einfach mal den Quellcode zur fachmännichen Analyse :
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
Config Portc.0 = Output
Config Portc.1 = Output
Dim Porta.0 As Word
Config Adc = Single , Prescaler = Auto , Reference = Internal ' Einstellen des ADC
Start Adc
Dim X As Word
Portc.0 = 0 ' damit die LED von Anfang an leuchten
Declare Sub _distanzmessung()
Dim Distanz As Word
'Main:
Do
X = Porta.0
Call _distanzmessung() 'Routine aufrufen
If Distanz > 2 Then Portc.0 = 1 Else Portc.1 = 1
' hier die Wahl "2"[V] als Wert, aus dem Datenblatt des Sensors übernommen für Abstände von 15-25 cm
Print Distanz
Waitms 100
Loop
End
Sub _distanzmessung()
Local W As Word
W = Getadc(porta.0)
If W < 1 Then W = 2.5
Distanz = W
End Sub
Was ich nun wissen möchte ist, welchen Wert misst der Sensor auf diese Art und Weise ?!
Gibt es ieine formel für die Distanzen ?!
Hoffe es ist alles verständlich erläutert.
gruß
sanjarrr