frankne
06.08.2007, 09:04
Edit: hab mich beim SensorNamen vertippt ](*,) es ist der GP2D120
Hallo,
ich steh noch nicht so sehr in der Materie, darum hoffe ich, dass mir jemand erklärt wie ich den IR-Sensor an meinem Board nutze.
Was ich bisher gemacht habe:
-Sensor: GND an GND von JP1, VCC an + von JP1 und V0 an PA0
-UREF Brücke steckt, da der Sensor 4.5 -5.5 V benötigt (laut Spezifikation)
-Programm:
Sub Showporta()
Local Ws As Word
Config Porta = Input
For I = 0 To 5 ' Alle internen Pullup Widerständ ein,bis auf Batteriespannungsmessungsport
Porta.i = 1
Next I
Print
Print "Ermittelte Messwerte an Port A Pin0:"
Do
Start Adc
Ws = Getadc(0)
Print "Adc:" ; Ws
If Tastenabfrage() = 3 Then
Exit Do
End If
Loop
End Sub
und als Ergebnis erhalte ich Werte zwischen 691 und 697
Was mache ich falsch?
Gruß Frank
Hallo,
ich steh noch nicht so sehr in der Materie, darum hoffe ich, dass mir jemand erklärt wie ich den IR-Sensor an meinem Board nutze.
Was ich bisher gemacht habe:
-Sensor: GND an GND von JP1, VCC an + von JP1 und V0 an PA0
-UREF Brücke steckt, da der Sensor 4.5 -5.5 V benötigt (laut Spezifikation)
-Programm:
Sub Showporta()
Local Ws As Word
Config Porta = Input
For I = 0 To 5 ' Alle internen Pullup Widerständ ein,bis auf Batteriespannungsmessungsport
Porta.i = 1
Next I
Print "Ermittelte Messwerte an Port A Pin0:"
Do
Start Adc
Ws = Getadc(0)
Print "Adc:" ; Ws
If Tastenabfrage() = 3 Then
Exit Do
End If
Loop
End Sub
und als Ergebnis erhalte ich Werte zwischen 691 und 697
Was mache ich falsch?
Gruß Frank