Pic12f683 Cmcon0 = 7

[StoneColdFuzzy]

Hello,
Edited.

INTCON = %10001000 'internal oscillator
OSCCON = %01110000 ' 8mHz
CMCON0 = 7 'Comparators off
GPIO = %00000000 'outputs low
TRISIO = %00010000 'GP4 as input
ANSEL = %00111000 'AN3 analog

'Define ADCIN parameters
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
'Define CCP1_REG GPIO 'PWM Output on gpio
'Define CCP1_BIT 2 'Bit 2

' Variables
Posit var Word
Speed var byte
Pause 100

Scan:
ADCIN 3, Posit ' Read channel AN3 to Posit
Speed = Posit/4
HPWM 1,Speed,1000
Pause 10
Goto Scan
End

OK, I'm still trying to understand this and use code, so I thought that I would revive this thread.

Above, the code has "ANSEL = %00111000 'AN3 analog" To me it looks like AN4 and 5 are also made analog. Is this needed? if it is not needed, I should be able to use:

ANSEL = %00001000  ' AN3 analog

~ Dave

[Archangel]

OK, I'm still trying to understand this and use code, so I thought that I would revive this thread.

Above, the code has "ANSEL = %00111000 'AN3 analog" To me it looks like AN4 and 5 are also made analog. Is this needed? if it is not needed, I should be able to use:

ANSEL = %00001000  ' AN3 analog

~ Dave

For the 12F683 there is no AN4 and AN5, those bits control the data conversion clock. see the Data sheet page 33.

[StoneColdFuzzy]

For the 12F683 there is no AN4 and AN5, those bits control the data conversion clock. see the Data sheet page 33.

OK, yes, I see that now. Are they to be set to 1 for this application? Where may I find more information in layman's terms to help me understand what that is?

~ Dave

[astouffer]

This may help you a bit. I've been playing with the 12F683.

@	__CONFIG _INTOSCIO & _FCMEN_OFF & _IESO_OFF & _BOD_OFF & _BOD_OFF & _CP_OFF & _MCLRE_ON & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF

DEFINE OSC 8           ' Internal 8MHz
DEFINE ADC_BITS 8      ' 8-bit resolution
DEFINE ADC_CLOCK 2     ' Set clock source to Frc/32
DEFINE ADC_SAMPLEUS 50 ' Sample time in uS before A/D conversion is started

CMCON0 = 7   			'Comparators off
ADCON0 = %00000001		'ADC enabled and right justified
ANSEL = %00001000		'GPIO.0 and GPIO.1 analog input
INTCON = 0				'INTERRUPTS off
OSCCON = %01110000		'8 Mhz
TRISIO = %111011		'GPIO2 output
GPIO = %00010000 		' All outputs = 0 on boot

[StoneColdFuzzy]

astouffer, thank you.

What's wrong when I can compile multiplication but not division? I get this error "macro div?ctb not found in macro file."

This compiles OK:

width = 510 * mon

This will not compile:

width = 510 / mon

~ Dave

[StoneColdFuzzy]

I've been playing with this code to change HPWM depending on a monitored voltage. The original code at the top of this thread works, but it's erratic.

I've changed things around a bit to fit my needs and it runs a little bit better, but it's still erratic, probably due to refreshing the duty cycle all of the time. I'm looking for suggestions to make this run a little more smooth. Any suggestions?

~ Dave

Mon var Word
Width var byte
Pause 100

Main:
    ADCIN 3, mon ' Read channel AN3 to Mon
    width = mon*1
    if width <= 2 then OneP
    if width > 2 then twoP
    
OneP:
    hpwm 1,255,2000
    pause 1000
    goto main
    
TwoP:
    hpwm 1,32,2000
    pause 1000
    goto main
    
end

[StoneColdFuzzy]

I've been playing with this code to change HPWM depending on a monitored voltage. The original code at the top of this thread works, but it's erratic.

I've changed things around a bit to fit my needs and it runs a little bit better, but it's still erratic, probably due to refreshing the duty cycle all of the time. I'm looking for suggestions to make this run a little more smooth. Any suggestions?

~ Dave

Mon var Word
Width var byte
Pause 100

Main:
    ADCIN 3, mon ' Read channel AN3 to Mon
    width = mon*1
    if width <= 2 then OneP
    if width > 2 then twoP
    
OneP:
    hpwm 1,255,2000
    pause 1000
    goto main
    
TwoP:
    hpwm 1,32,2000
    pause 1000
    goto main
    
end

Anyone?

~ Dave