revolution counter

[lerameur]

I am making a coiling machine and will be passing the wiring into a small pulley. The pulley will have four sections, two white and two black. The sensor will be reading the encoder , there will be small led lighting the encoder from behind.
Therefore the speed I do not know, and it is not important, it will be going in one direction. I will be counting four changes for one revolution.
Here is a program I just wrote, have not tried it yet,

'Get initil value
ADCON0.2 = 1 'Start Conversion
ADCIN 1, OldOutput_Pot 'analog pin 1 (RA1) get the 8 bit result
pause 50
if OldOutput_Pot > 127 then
OldOutput_Pot =1
endif
if OldOutput_Pot < 128 then
OldOutput_Pot =0
endif

Mainloop:

ADCON0.2 = 1 'Start Conversion
ADCIN 1, Output_Pot 'analog pin 1 (RA1) get the 8 bit result
pause 50

'Calculate the distance
if Output_Pot > 127 then
Output_Pot =1
endif
if Output_Pot < 128 then
Output_Pot =0
endif

if OldOutput_Pot == Output_Pot then
goto Mainloop
endif
if OldOutput_Pot != Output_Pot then
counter = counter +1 'If oldOutput_pot is different then Output_pot
OldOutput_Pot = Output_Pot
if counter =4 then
Revolution = Revolution + 1
counter =0
endif
endif

lcdout $FE,1, "Counter:",dec counter
lcdout $FE,$C0, "Revolution:",dec Revolution
pause 150


GOTO Mainloop
end

[Jerson]

Ken

What kind of encoder are you using here? Usually an encoder would give out digital pulses. But, you seem to be using the ADC to decode it. I would suggest that you look at the possibility of counting the pulses via an interrupt. This will keep your mainline code free for other tasks. Darrell Taylor has some nice code that can kickstart you in that direction. Just search for it on this site.

Jerson

[lerameur]

My program is not outputting anything, I think it is a initilizing problem but I do not know what:
I am posting the header:
can some one help me:

' Internal Oscillation program
' A/D testing -RA.1
' LCD

'/////////////////////////
'// Define section //
'/////////////////////////

INCLUDE "modedefs.bas"
@ DEVICE pic16F88 MCLR_ON, INTRC_OSC, WDT_ON, LVP_OFF, BOD_OFF, PWRT_ON, PROTECT_OFF, CCPMX_ON
OSCCON=$60 ' use internal 4MHZ osc

ANSEL = %01000010 ' set AN1 (RA1) as analog, others to digital
ADCON1 = %00000000 ' Left justified results in 8 bits
ADCON0 = %10001001 ' Configure and turn on A/D Module
CMCON = 7 ' Disable analog comparator

'/////////////////////////
'// LCD configuration //
'/////////////////////////

DEFINE LCD_DREG PORTB ' Set LCD Data port
DEFINE LCD_DBIT 4 ' Set starting Data bit (0 or 4) if 4-bit bus

DEFINE LCD_RSREG PORTB ' Set LCD Register Select port
DEFINE LCD_RSBIT 1 ' Set LCD Register Select bit

DEFINE LCD_EREG PORTB ' Set LCD Enable port
DEFINE LCD_EBIT 0 ' Set LCD Enable bit

DEFINE LCD_BITS 4 ' Set LCD bus size (4 or 8 bits) '4 therefore put wire at 4, 5, 6 and 7 of LCD

DEFINE LCD_LINES 2 ' Set number of lines on LCD
DEFINE LCD_COMMANDUS 2500
DEFINE LCD_DATAUS 250
DEFINE CHAR_PACING 2000
pause 2000


TRISB = %00000000 ' Set PORTB to all output
TRISA = %11111111 ' Set PORTA to all input


'///////////////////////////////////////////////
'// Variable Declaration and initialization //
'///////////////////////////////////////////////
Output_Pot var byte
OldOutput_Pot var byte
Revolution var word
counter var byte

revolution = 0
Output_Pot = 0
OldOutput_Pot = 0
counter = 0
'Get initil value
ADCON0.2 = 1 'Start Conversion
ADCIN 1, OldOutput_Pot 'analog pin 1 (RA1) get the 8 bit result
pause 50
if OldOutput_Pot > 127 then
OldOutput_Pot =1
endif
if OldOutput_Pot < 128 then
OldOutput_Pot =0
endif

Mainloop:

[lerameur]

Jerson,

this is very simple encoder. I have light to voltage chip, reading the encoder, the encoder is divided into 4 sections, 2 white and two black, read black show ADC below 127 and white ADC above 127.

ken

[mackrackit]

Jerson,

this is very simple encoder. I have light to voltage chip, reading the encoder, the encoder is divided into 4 sections, 2 white and two black, read black show ADC below 127 and white ADC above 127.

ken

So black is 0 volts and white is 5 volts?

[skimask]

I have light to voltage chip,

That's a SOLAR CELL!

reading the encoder, the encoder is divided into 4 sections, 2 white and two black, read black show ADC below 127 and white ADC above 127.

I get the feeling you might end up making a small program just to test the ability of your sensor to read the black/white patches in the first place rather than assuming your sensor/PIC will read everything the way you hope it will. Something like this:

........setup.........
ledout var port...some port here
main: adcon0.2=1 'Start Conversion
waitonadc: if adcon0.2 = 1 then waitonadc
oldoutput_pot = adresh *256 + adresl
if oldoutput_pot > 127 then
     ledout = 1
else
     ledout = 0
endif
goto main

Change the value 127 above to find a 'trip point' for the counter itself.
See what happens with that. If that works for you, then you should be all set.
(Also, you may want to check the manual for your use of the ADCIN command)

[Acetronics2]

That's a SOLAR CELL!

Not compulsory ...

OPB 608/704 / CNY 70 i.e. are reflective Opto-couplers ...

Alain

[lerameur]

I just want to count the revolution, so even if the trip point is not on the 'dot' it do not matter. What matters here is that I want to be able to calculate the transitions from black to white and white to black. After four transistions I get a revolution .
The problem in my program is that it is not showing anything on the LCD.

ken

[Jerson]

Jerson,

this is very simple encoder. I have light to voltage chip, reading the encoder, the encoder is divided into 4 sections, 2 white and two black, read black show ADC below 127 and white ADC above 127.

ken

Precisely. Depending on the way you've wired the sensor, you could see a logic 1 for black or a logic 0 for black. You can just read the digital input after configuring the pins tris register for input mode. Easier than reading the ADC and all its associated overhead. This overhead would eventually cause you to lose counts. I will still prod you into looking at the interrupt option.

What you've done will work, but at speeds relatively slower than the speed at which you read the ADC.

A simple routine could have an interrupt set up possibly on RB0. And the interrupt code would do something as simple as this

CounterISR:
     dummyread = PortB      ' clear the cause of the interrupt
     Counter = Counter+1
     return                        ' from interrupt

This code will ensure that you catch each and every pulse that comes its way irrespective of the Pauses in your mainline code.

This code is just a guide, please dont hold me to it.

JF

[lerameur]

OOo I get the digital part now, no need for ADC.
I have never used interrupt, can you explain the code snippet you provided above?


should this work?

Mainloop:

'Calculate the distance
Output_Pot = PortB.3

if OldOutput_Pot == Output_Pot then
goto Mainloop
endif
if OldOutput_Pot != Output_Pot then
counter = counter +1 'If oldOutput_pot is different then Output_pot
OldOutput_Pot = Output_Pot
if counter =4 then
Revolution = Revolution + 1
counter =0
endif
endif

lcdout $FE,1, "Counter:",dec counter
lcdout $FE,$C0, "Revolution:",dec Revolution
pause 150

GOTO Mainloop
end

ken

[lerameur]

still nothing showing on the lcd...

k