Travis M. Best

12-15-2009, 10:25 AM

I am trying to figure out how to split my program in two parts and be able to transfer my A/D Data between the two maybe by using a cog???

CON

_CLKMODE = XTAL1 + PLL16X

_XINFREQ = 5_000_000

OBJ

ADC : "CD_LTC1298"

PWM : "PWM_32_v2"

PUB MAIN | Temp,Temp1,Temp2,smpcnt,dimled,briled,midled,offle d,offdim,dim,dimdled,leda,ledb,ledc,ledd,lede,ledf ,ledg,ledh,ledchange,dimdim

adc.start(0)

PWM.Start

dim := 0

repeat

repeat until smpcnt > 59

Temp1 := adc.GetADC(0)

Temp2 := Temp2 + Temp1

smpcnt := smpcnt + 1

Temp := Temp2 / 60

offled := 0

offdim := 1

dimled := 30

midled := 40

briled := 100

smpcnt := 0

temp1 := 0

temp2 := 0

If Temp =< 81

If ledh < 100

ledchange := 100

dimdim := 30

ledh := 0

ledb := 0

ledc := 0

ledd := 0

lede := 0

ledf := 0

ledg := 0

PWM.Duty(4,briled,5000)

PWM.Duty(7,offled,5000)

PWM.Duty(9,dimled,5000)

PWM.Duty(13,dimled,5000)

PWM.Duty(14,dimled,5000)

PWM.Duty(22,dimled,5000)

PWM.Duty(23,offdim,5000)

PWM.Duty(25,offdim,5000)

PWM.Duty(26,offdim,5000)

ledh :=ledh + 1

If Temp => 82

If Temp =< 107

If leda < 100

ledchange := 100

dimdim := 30

ledb := 0

ledc := 0

ledd := 0

lede := 0

ledf := 0

ledg := 0

ledh := 0

PWM.Duty(4,offled,5000)

PWM.Duty(7,briled,5000)

PWM.Duty(9,briled,5000)

PWM.Duty(13,dimled,5000)

PWM.Duty(14,dimled,5000)

PWM.Duty(22,dimled,5000)

PWM.Duty(23,dimled,5000)

PWM.Duty(25,dimled,5000)

PWM.Duty(26,dimled,5000)

leda :=leda + 1

CON

_CLKMODE = XTAL1 + PLL16X

_XINFREQ = 5_000_000

OBJ

ADC : "CD_LTC1298"

PWM : "PWM_32_v2"

PUB MAIN | Temp,Temp1,Temp2,smpcnt,dimled,briled,midled,offle d,offdim,dim,dimdled,leda,ledb,ledc,ledd,lede,ledf ,ledg,ledh,ledchange,dimdim

adc.start(0)

PWM.Start

dim := 0

repeat

repeat until smpcnt > 59

Temp1 := adc.GetADC(0)

Temp2 := Temp2 + Temp1

smpcnt := smpcnt + 1

Temp := Temp2 / 60

offled := 0

offdim := 1

dimled := 30

midled := 40

briled := 100

smpcnt := 0

temp1 := 0

temp2 := 0

If Temp =< 81

If ledh < 100

ledchange := 100

dimdim := 30

ledh := 0

ledb := 0

ledc := 0

ledd := 0

lede := 0

ledf := 0

ledg := 0

PWM.Duty(4,briled,5000)

PWM.Duty(7,offled,5000)

PWM.Duty(9,dimled,5000)

PWM.Duty(13,dimled,5000)

PWM.Duty(14,dimled,5000)

PWM.Duty(22,dimled,5000)

PWM.Duty(23,offdim,5000)

PWM.Duty(25,offdim,5000)

PWM.Duty(26,offdim,5000)

ledh :=ledh + 1

If Temp => 82

If Temp =< 107

If leda < 100

ledchange := 100

dimdim := 30

ledb := 0

ledc := 0

ledd := 0

lede := 0

ledf := 0

ledg := 0

ledh := 0

PWM.Duty(4,offled,5000)

PWM.Duty(7,briled,5000)

PWM.Duty(9,briled,5000)

PWM.Duty(13,dimled,5000)

PWM.Duty(14,dimled,5000)

PWM.Duty(22,dimled,5000)

PWM.Duty(23,dimled,5000)

PWM.Duty(25,dimled,5000)

PWM.Duty(26,dimled,5000)

leda :=leda + 1