|
Hi, Mel
my prehistorics datings ( 14 Carbide ...) are V2.21 ...
of course it's impossible you knew it, may be your grand'dad ...Code:mainloop: ADCON0.2 = 1 ' Start Conversion notdone: Pause 5 If ADCON0.2 = 1 Then notdone ' Wait for low on bit-2 of ADCON0, conversion finished adval = ADRESH ' Move high byte of result to adval
I suspect " Pause 5 " here for 10,000 microns handcarved silicium "1650" processor ( PIC's ancester )...
Regards
Alain
Last edited by Acetronics2; - 16th October 2009 at 17:19.
************************************************** ***********************
Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
************************************************** ***********************
IF there is the word "Problem" in your question ...
certainly the answer is " RTFM " or " RTFDataSheet " !!!
*****************************************
|
I am back...
Well after reading all of your posts and did some research on the 16f88 datasheet I applied some changes to my own program that looks it has improved. With all channels 0 to 3 straight to ground I got channels 2 and 3 to 0 and channels 0 and 1 to some value of 14. I am adding the program listing for your evaluation. Thank you in advance.
@ __config _CONFIG1, _INTRC_IO & _WDT_ON & _LVP_OFF & _CP_OFF
INCLUDE "modedefs.bas"
ANSEL = %00001111 'set RA0-RA3 as analog inputs
ADCON1 = %10000000 'Right Justifies 10-bit value
OSCCON = $60 'Sets the internal oscillator to 4 Mhz
CMCON = 7 'Comparators off
DEFINE ADC_BITS 10 ' Sets the number of bits in the result to 10
ti var byte
ti = 50 '20 MILLISECONDS DELAY'
A VAR word
B VAR word
C VAR word
D VAR word
TRISA = %00001111
TRISB = 0 'TURN PORT B as outputs but RB1 WHEN USE ICD FOR COMMUNICATION
'* * * * * MAIN PROGRAM START HERE * * * * * * * *
PAUSE 1000
Serout PORTB.1, 0, [254,1]
Serout PORTB.1, 0, [254,2]
PAUSE 20
READSENSORS:
ADCON0 = %00000001 'Turn ON CHAN 0
GOSUB ADCON
A.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR
SEROUT PORTB.1 , 0, ["Ch 0= ",# A.LOWBYTE]
pause 20
ADCON0 = %00001001 'Turn ON CHAN 1
GOSUB ADCON
B.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR
SEROUT PORTB.1 , 0, [" Ch 1= ",# B.LOWBYTE]
PAUSE 20
SEROUT PORTB.1,0,[$FE,$C0]
ADCON0 = %00010001 'Turn ON CHAN 2
GOSUB ADCON
C.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR
SEROUT PORTB.1 , 0, ["Ch 2= ",# C.LOWBYTE]
PAUSE 20
ADCON0 = %00011001 'Turn ON CHAN 3
GOSUB ADCON
D.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR
SEROUT PORTB.1 , 0, [" Ch 3= ",# D.LOWBYTE]
PAUSE 1000
Serout PORTB.1, 0, [254,1]
GOTO READSENSORS ' PROVISIONAL LOOP TO CHECK THE A/D CONVERTION.
'* * * * * * * * * SELECTING THE MOTOR MOVEMENT * * * * * * * *
IF A =0 and D =0 or C =0 and b =0 THEN GOTO READSENSORS 'IT IS DARK
IF ABS (A-D)<10 OR ABS (B-C)<10 THEN GOTO READSENSORS 'IT IS ALIGNED
If (B>D) OR (A>C) Then gosub Front
IF (A>B) OR (C>D) THEN GOsub Left
IF (C>A) OR (D>B) THEN GOsub Back
IF (D>C) OR (B>A) THEN GOsub Right
GOTO READSENSORS 'STAY FOR EVER LOOPING
'* * * * * * * * * MOTOR'S MOVEMENTS SUBRUTINES * * * * * * * *
Front:
Serout PORTA.6, 0, ["FRONT ",# ABS (B-D)," ",# ABS (A-C)]
SEROUT PORTA.6, 0, [$FE,$C0]
PORTB = 1 'GOING FRONT
PAUSE TI
PORTB = 2
PAUSE TI
PORTB = 4
PAUSE TI
PORTB = 8
PAUSE TI
Return
LEFT:
Serout PORTA.6, 0, ["LEFT ",# ABS (a-b)," ",# ABS (C-D)]
SEROUT PORTA.6, 0, [$FE,$C0]
PORTB = 128 'GOING LEFT
PAUSE TI
PORTB = 64
PAUSE TI
PORTB = 32
PAUSE TI
PORTB = 16
PAUSE TI
Return
Back:
Serout PORTA.6, 0, ["BACK ",# ABS(C-A)," ",# ABS(D-B)]
SEROUT PORTA.6, 0, [$FE,$C0]
PORTB = 8 'GOING BACK
PAUSE TI
PORTB = 4
PAUSE TI
PORTB = 2
PAUSE TI
PORTB = 1
PAUSE TI
Return
RIGHT:
Serout PORTA.6, 0, ["RIGHT ",# ABS(D-C)," ",# ABS(B-A)]
SEROUT PORTA.6, 0, [$FE,$C0]
PORTB = 16 'GOING RIGHT
PAUSE TI
PORTB = 32
PAUSE TI
PORTB = 64
PAUSE TI
PORTB = 128
PAUSE TI
Return
ADCON:
ADCON1 = %10000000 'SET FOR 10 BITS
ADCON0.2 = 1 'IT'S ONE TILL IT READS
WHILE ADCON0.2 = 1 : WEND
RETURN
END
|
I am probably missing something but give this a shot.
This is what I am basing the sequence on. From the data sheet.Code:@ __config _CONFIG1, _INTRC_IO & _WDT_ON & _LVP_OFF & _CP_OFF INCLUDE "modedefs.bas" ANSEL = %00001111 'set RA0-RA3 as analog inputs OSCCON = $60 'Sets the internal oscillator to 4 Mhz CMCON = 7 'Comparators off ti var byte ti = 50 '20 MILLISECONDS DELAY' A VAR word B VAR word C VAR word D VAR word TRISA = %00001111 TRISB = 0 'TURN PORT B as outputs but RB1 WHEN USE ICD FOR COMMUNICATION '* * * * * MAIN PROGRAM START HERE * * * * * * * * PAUSE 1000 Serout PORTB.1, 0, [254,1] Serout PORTB.1, 0, [254,2] PAUSE 20 READSENSORS: ADCON1 = %10000000 'SET FOR 10 BITS ADCON0 = %00000001 'Turn ON CHAN 0 GOSUB ADCON A.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, ["Ch 0= ",# A.LOWBYTE] pause 20 ADCON1 = %10000000 'SET FOR 10 BITS ADCON0 = %00001001 'Turn ON CHAN 1 GOSUB ADCON B.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, [" Ch 1= ",# B.LOWBYTE] PAUSE 20 SEROUT PORTB.1,0,[$FE,$C0] ADCON1 = %10000000 'SET FOR 10 BITS ADCON0 = %00010001 'Turn ON CHAN 2 GOSUB ADCON C.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, ["Ch 2= ",# C.LOWBYTE] PAUSE 20 ADCON1 = %10000000 'SET FOR 10 BITS ADCON0 = %00011001 'Turn ON CHAN 3 GOSUB ADCON D.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, [" Ch 3= ",# D.LOWBYTE] PAUSE 1000 Serout PORTB.1, 0, [254,1] GOTO READSENSORS ' PROVISIONAL LOOP TO CHECK THE A/D CONVERTION. '* * * * * * * * * SELECTING THE MOTOR MOVEMENT * * * * * * * * '* * * * * * * * * MOTOR'S MOVEMENTS SUBRUTINES * * * * * * * * ADCON: ADCON0.2 = 1 'IT'S ONE TILL IT READS WHILE ADCON0.2 = 1 : WEND RETURN END
I am pretty sure this sequence needs to be followed. I am not at the shop so I can not test your code now.1. Configure the A/D module:
• Configure analog/digital I/O (ANSEL)
• Configure voltage reference (ADCON1)
• Select A/D input channel (ADCON0)
• Select A/D conversion clock (ADCON0)
• Turn on A/D module (ADCON0)
Dave
Always wear safety glasses while programming.
|
Hi, Dave and Tim
I had a look to the TEST section of this program ... It gave that, with a " classic " PBP use. :
I just commented out original lines for comparison ...Code:'Config @ __CONFIG _CONFIG1, _CP_OFF & _CCP1_RB3 & _DEBUG_OFF & _WRT_PROTECT_OFF & _CPD_OFF & _LVP_OFF & _BODEN_OFF & _MCLR_ON & _PWRTE_ON & _WDT_ON & _INTRC_IO @ __CONFIG _CONFIG2, _IESO_OFF & _FCMEN_OFF '@ __config _CONFIG1, _INTRC_IO & _WDT_ON & _LVP_OFF & _CP_OFF DEFINE ADC_BITS 10 ' Sets the number of bits in the result to 10 ANSEL = %00001111 'set RA0-RA3 as analog inputs 'ADCON1 = %10000000 'Right Justifies 10-bit value 'OSCCON = $60 'Sets the internal oscillator to 4 Mhz OSCCON = %01101110 'Internal RC w/ I/Os INTCON = 0 PIE1 = 0 PIE2 = 0 CMCON = 7 'Comparators off CVRCON = 0 INCLUDE "modedefs.bas" ti var byte ti = 50 '20 MILLISECONDS DELAY' A VAR word B VAR word C VAR word D VAR word _A CON 0 _B CON 1 _C CON 2 _D CON 3 TRISA = %00001111 TRISB = 0 'TURN PORT B as outputs but RB1 WHEN USE ICD FOR COMMUNICATION '* * * * * MAIN PROGRAM START HERE * * * * * * * * PAUSE 1000 Serout PORTB.1, 0, [254,1] Serout PORTB.1, 0, [254,2] PAUSE 20 READSENSORS: 'ADCON0 = %00000001 'Turn ON CHAN 0 'GOSUB ADCON ADCIN _A, A 'A.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, ["Ch 0= ",# A.LOWBYTE] pause 20 'ADCON0 = %00001001 'Turn ON CHAN 1 'GOSUB ADCON ADCIN _B, B 'B.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, [" Ch 1= ",# B.LOWBYTE] PAUSE 20 SEROUT PORTB.1,0,[$FE,$C0] 'ADCON0 = %00010001 'Turn ON CHAN 2 'GOSUB ADCON ADCIN _C, C 'C.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, ["Ch 2= ",# C.LOWBYTE] PAUSE 20 'ADCON0 = %00011001 'Turn ON CHAN 3 'GOSUB ADCON ADCIN _D, D 'D.LOWBYTE = ADRESL 'PLACES THE LOW BYTE INTO VAR SEROUT PORTB.1 , 0, [" Ch 3= ",# D.LOWBYTE] PAUSE 1000 Serout PORTB.1, 0, [254,1] GOTO READSENSORS ' PROVISIONAL LOOP TO CHECK THE A/D CONVERTION.
Hope it Helps
Alain
Last edited by Acetronics2; - 20th October 2009 at 09:02.
************************************************** ***********************
Why insist on using 32 Bits when you're not even able to deal with the first 8 ones ??? ehhhhhh ...
************************************************** ***********************
IF there is the word "Problem" in your question ...
certainly the answer is " RTFM " or " RTFDataSheet " !!!
*****************************************
|
Problem solved.
I did the two editing of my program as Acetronics and as Mackrackit subjected. I ran both versions and ran with the same faulty results. I can’t understood how three persons could be wrong so I started again a check of my hardware. I found the problem on the breadboard. At the two power lines that runs on the outside of the board (-,+) the + line had 50 ohms! from one end to the other. I found a fault connection and restored it with a new line, problem goes. Now every input goes to zero. I want to thanks all of you including Melanie. Every time I come across an obstacle there is a reason to learn. Thanks.
|
COOL!!!
At least now you have a couple different ways to read the ADC.
Have FUN!!!
Dave
Always wear safety glasses while programming.
|
I had fun.
Thank you. Yes I had a lot of fun with every project. I had to unassembled the breadboard and run a soldered copper line under all around it to ensure a good contact. That’s part of the fun also. Thanks.
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks