Probleme bei Ansteuerung eines Ultraschallmoduls

[webbuddah]

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:

$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?!

[Che Guevara]

hallo knomic,

so ein ähnliches problem hatte ich auch schon mal. ich wollte ein ir-signal senden und dann empfangen.

mein problem, und das ist wahrscheinlich das gleiche wie bei dir, war, dass der µC nicht schnell genug ist!

häng doch einfach den pin, an dem das teil hängt, an einen interrupt pin (t0) und dann sendest du das signal!
direkt danach setzt du pin t0 auf eingang und dann müsste normalerweise ein interrupt kommen, der dann in die interruptroutine von t0 springt.
so würde ich das zumindest machen!

gruß
chris

[webbuddah]

hallo che,

erstmal danke für deine antwort ! hab mich auch entschlossen das ganze via interrupt zu messen. am oszi habe ich erstmal den grundablauf des programmes überprüft, doch leider hapert es jetzt an der automatischen vermessung via interrupts. kannst du mir eventuell dabei helfen?

hier der quellcode:

 '#########################################################
'Füllstandsmessung mit Ultraschallsensor USM-18A
'
'Aufgabe:
'Entfernung wird gemessen und in Zentimetern ausgegeben
'
'
'Autor: Micha
'Datum: 11.09.2008
'Version: 0.11
'
'Changelog:
'0.11: Zeitmessung zw. Interrupts integriert
'0.1: erste Version, Grundfunktionen der Entfernungsmessung
'##########################################################

'Die üblichen Definitionen bei Standardprogrammen auf Miniboard
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40

Dim Overflow As Integer
Dim Zeitmessung As Single
Dim Entfernung As Single

'LED1 an PC0
 Led1 Alias Portc.0
 Config Led1 = Output
 Led1 = 0


 'Timer konfigurieren
 Config Timer1 = Timer , Prescale = 1
 On Timer1 Timer_int

 'Timervorgabe = 61536 -> Overflow = Anzahl ms bei 4MHz Quarz
 Const Timervorgabe = 0

 'Wenn der Interrupt INT0 auftritt, dann springe zum Label On_int0
 On Int0 On_int0 Nosave

 'INT0 auf fallende Flanke
 Config Int0 = Falling

 'PortC.3 als Trigger-Ausgang für Oszimessungen
 Config Portc.3 = Output
 Portc.3 = 1

 'Globale Interrupts freischalten
 Enable Interrupts

Do
   Print "Loop Anfang!"

   'Low-Puls von 250us um US-Modul zu aktivieren
   Config Portd.2 = Output
   Portd.2 = 0

   'Timer starten
   Enable Timer1
   Overflow = 0

   Toggle Portc.3

   Waitus 250

   'US-Pin auf Input und Pull-UP setzen
   Config Portd.2 = Input
   Portd.2 = 1
   Toggle Portc.3

   'INT0 einschalten um Echo-Puls zu detektieren
   Enable Int0

   Waitms 50

   Print "Loop Ende!"
   Print "Entfernung: " ; Entfernung ; "m"
Loop

End

On_int0:
'Quick'n'Dirty Interrupt ausschalten um Streuungen nicht zu detektieren
Disable Int0

'Timerwert auslesen
Zeitmessung = Timer1
Print "Zeit:" ; Zeitmessung

Disable Timer1

If Zeitmessung <> 0 Then
      Print "Overflow" ; Overflow
      Overflow = Overflow * 65536
      Zeitmessung = Zeitmessung + Overflow
      Zeitmessung = Zeitmessung / 1000
      Entfernung = 0.1715 * Zeitmessung
End If

Toggle Led1
Print "Interrupt!!!"

Return

Timer_int:
  Timer1 = Timervorgabe
  Overflow = Overflow + 1
Return

'Berechnung der Entfernung: s = 0,343*t/2; t in ms -> s in m