hallo,
versuche mit dem myAVRUSB-Board folgendes US-Modul anzusteuern:
http://www.projet.de/produkte-bauteile.html
und mir die Ergebnisse über RS232 ausgeben zu lassen. Doch leider ist der Erfolg nur mäßig!
verwende folgendes programm:
Code:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 19200
Dim Zeitmessung As Word
Dim Entfernung As Word
Config Portc.2 = Output
Do
Portc.2 = 1
Pulseout Portc , 2 , 500
Pulsein Zeitmessung , Pinc , 2 , 0
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
End
leider scheinen die PULSE-Funktionen von Bascom nicht so zu erfüllen, wie ich es mir denke. kann mir da eventuell jemand auf die sprünge helfen?
die entfernung beträgt immer 0 cm, da es zu einem overflow in der pulsein-funktion kommt.
grüße
webbi
p.s. vllt sollte das ganze in die software-ecke verschoben werden?!
Lesezeichen