Armin77
09.06.2012, 15:09
Hallo Allerseits,
habe mir zwei SRF05 Distanzsensoren gekauft.
Bekomme Sie aber nicht ans laufen
Ich benutze einen ATmega 8 mit 4Mhz internem Oszillator
und das Beispielprogramm aus RN-Wissen:
$regfile = "m8def.dat"
$crystal = 4000000 'Quarzfrequenz
$baud = 2400
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Zeitmessung As Word
Dim Entfernung As Word
Print "**** SRF05 mit RN-MINICONTROL *****"
Print "Entfernung in cm anzeigen"
Config Pind.2 = Output
Do
Portd.2 = 0 'Port Low
Pulseout Portd, 2, 40 'Min. 10uS Impuls senden
Pulsein Zeitmessung, Pind, 2, 1
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Entfernung = Zeitmessung / 58 'Umrechnen in Zentimeter
Print "Entfernung: "; Entfernung; " cm"
Wait 1
Loop
Es wird immer Entfernung null angezeigt.
Und das bei beiden Sensoren.
Bin etwas ratlos.
Habe ich irgend einen Pull-Up Widerstand vergessen oder muß der Atmega mit Quarz laufen?
Gruß Armin
habe mir zwei SRF05 Distanzsensoren gekauft.
Bekomme Sie aber nicht ans laufen
Ich benutze einen ATmega 8 mit 4Mhz internem Oszillator
und das Beispielprogramm aus RN-Wissen:
$regfile = "m8def.dat"
$crystal = 4000000 'Quarzfrequenz
$baud = 2400
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Zeitmessung As Word
Dim Entfernung As Word
Print "**** SRF05 mit RN-MINICONTROL *****"
Print "Entfernung in cm anzeigen"
Config Pind.2 = Output
Do
Portd.2 = 0 'Port Low
Pulseout Portd, 2, 40 'Min. 10uS Impuls senden
Pulsein Zeitmessung, Pind, 2, 1
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Entfernung = Zeitmessung / 58 'Umrechnen in Zentimeter
Print "Entfernung: "; Entfernung; " cm"
Wait 1
Loop
Es wird immer Entfernung null angezeigt.
Und das bei beiden Sensoren.
Bin etwas ratlos.
Habe ich irgend einen Pull-Up Widerstand vergessen oder muß der Atmega mit Quarz laufen?
Gruß Armin