ultrasonic sensor

[PoTeToJB]

now i try to design distance sensor for control speed motor.
i use ultrasonic sensor, PIC16F84A and comperator.
i use comperator for compare the voltage i set with voltage from the RX ultrasonic sensor...

but i cant mesure the voltage from ultasonic sensor..

what i know,
if distance small the voltage high
if distance long the voltage low.

i realy new in pic and ultrasonic sensor.

realy need help..

sorry for my bad engglis

[Melanie]

Measuring an Ultrasonic Receivers signal voltage is a unique approach although I suspect it is not a correct one as I can see many scenarios where this would cause problems.

The correct method is to measure the TIME between the leading edge of a Transmission Pulse and the leading edge of the Received Pulse. Since sound travels at around 331m/Second (with only slight adjustment for altitude and temperature), it comes to pass that you can achieve a resolution of around 0.331mm/uS. With a bit of decent code, a 4MHz PIC should be able to resolve distances as low as 2cm.

[PoTeToJB]

thank
Melanie

i cant understand..

-this is a programming for DC MOTOR CONTROLLER (my final project)
-i've run and test the programming but still have a problem at the circuit
-i think the circuit is ok, but the programming for sensor is not ok!
-below are my program




'PIC BASIC PRO FOR DC MOTOR CONTROLLER
'PIC16F84A

TRISA = %00000000
TRISB = %00000111

loop:

High PORTA.0 'this is to transmit the signal from sensor
Low PORTA.1



IF (PORTB.0=1) AND (PORTB.1=1) AND (PORTB.2=1) Then
GoSub motorfast
EndIF
IF (PORTB.0=1) AND (PORTB.1=1) AND (PORTB.2=0) Then
GoSub motormedium
EndIF
IF (PORTB.0=1) AND (PORTB.1=0) AND (PORTB.2=0) Then
GoSub motorslow
EndIF
IF (PORTB.0=1) AND (PORTB.1=1) AND (PORTB.2=1) Then
GoSub motorstop
EndIF
GoTo loop

motorfast:

High PORTB.7
LCDOut $FE, 1,"No Object Found"
LCDOut $FE, $C0,"MOTOR FAST"
Return

motormedium:

LCDOut $FE, 1,"Object Detect I"
LCDOut $FE, $C0,"MEDIUM SPEED"
High PORTB.7
Pause 2
Low PORTB.7
Pause 2

Return

motorslow:

LCDOut $FE, 1,"Object Detect II"
LCDOut $FE, $C0,"SLOW SPEED"
High PORTB.7
Pause 4
Low PORTB.7
Pause 4
Return

motorstop:

LCDOut $FE, 1," WARNING! "
LCDOut $FE, $C0,"SLOW SPEED"
Low PORTB.7
Return



-the problem is the ultrasonic sensor didn't function after the circuit is ON
-maybe it is cause by the programming and i'm not sure how to settle it
-i think the problem is at ultrasonic trasmitter programming
-can anybody help me to solve this...?

i put my circuit in attached file

[dhouston]

Measuring an Ultrasonic Receivers signal voltage is a unique approach although I suspect it is not a correct one as I can see many scenarios where this would cause problems.

The correct method is to measure the TIME between the leading edge of a Transmission Pulse and the leading edge of the Received Pulse. Since sound travels at around 331m/Second (with only slight adjustment for altitude and temperature), it comes to pass that you can achieve a resolution of around 0.331mm/uS. With a bit of decent code, a 4MHz PIC should be able to resolve distances as low as 2cm.

Has anybody tried using an ultrasonic receiver instead of a PIN diode with an Atmel U2538B, T2526 or T2527 chip? It might simplify processing.

[ronjodu]

I used the following code to test out a SRF-04 Ultrasonic sensor from Acroname with a 16f876 (I think, maybe an f84). I believe it worked fine. Results sent to a serial LCD or to Hyperterminal. I think it's on the lines of what Melanie is suggesting.
<code>
DEFINE LOADER_USED 1 'Only required if bootloader used to program PIC


DEFINE HSER_RCSTA 90h 'setup receive register
DEFINE HSER_TXSTA 20h 'setup transmit register
DEFINE HSER_BAUD 2400 'setup baud rate
'DEFINE HSER_SPBRG 25 'setup baud rate


' -----[ Variables ]-------------------------------------------------------

Dist VAR WORD 'setup variable to hold result of sonar conversion distance
fire VAR WORD 'setup variable to hold result of flame sensor
speed VAR WORD 'setup variable to hold result of next sensor

fire = 18 'dummy number for now
speed = 27 'dummy number for now

' -----[ Initialization ]--------------------------------------------------
'
portsetup:
PORTC = %00000000 ' all outputs off to start
TRISC = %00010000 ' All of Port c is outputs except RC4


' -----[ Main Code ]-------------------------------------------------------



main:
'Pause 10 'settle in time(may not be needed)
GoSub sr_sonar 'goto sonar code
GoSub hyperview
GoSub lcdview 'print on LCD and Hyperterminal

GoTo main 'Repeat forever
sr_sonar:

PORTC.4 = 0 'Be sure RC4 is low
PulsOut PORTC.4,2 ' 10us init pulse
PulsIn PORTC.5,1,Dist ' measure echo time
Dist = Dist / 15 ' convert to inches
Pause 100

Return


hyperview:


HSerout ["Distance to Object = ", DEC dist,13,10]
Pause 250
HSerout ["Magnitude of flame = ", DEC fire,13,10] 'output data to hyperterminal
Pause 250
Pause 250
HSerout ["Speed of Travel = ", DEC speed,13,10]

Return


lcdview

SerOut PORTB.6,0,[254,1] 'clear LCD screen
Pause 40
SerOut PORTB.6,8,[254,134,"FIRE"] 'List outputs to LCD
SerOut PORTB.6,8,[254,199,#fire]
SerOut PORTB.6,8,[254,128,"DATA"]
SerOut PORTB.6,8,[254,193,#Dist]
SerOut PORTB.6,8,[254,140,"SPED"]
SerOut PORTB.6,8,[254,204,#speed]
Pause 500

Return


End

</code>

It's been a few years since I've tried it. Hope it helps.

[PoTeToJB]

still problem

i add this program in my code

for transmit the signal
PORTA.4 = 0
PulsOut PORTA.4,2

for recieve i use amplifier for increase the voltage.
but stilll cant function.

can some one help me..

[languer]

I think you would be better off understanding the basic principle of SONAR detection before just launching at this. I believe your receive configuration is missing some bias on the Q2 & Q3 transistor (or you have some resistors values that are just too big).

Take a look at this, it is the simplest approach. Take time to read it, don't just copy and paste the schematic and code (or you'll be back here or 'there' asking more of the same questions).