Searching \ for 'help pls -1st pbc program' in subject line. ()
Make payments with PayPal - it's fast, free and secure! Help us get a faster server
FAQ page: www.piclist.com/techref/index.htm?key=help+pls+1st+pbc
Search entire site for: 'help pls -1st pbc program'.

Truncated match.
PICList Thread
'help pls -1st pbc program'
1999\02\10@075313 by Glen

flavicon
face
hi & thanks for sparing the time !
this is my 1st project using the 16f84 , my first attempt to write a
basic program using picbasic(pbc)
!!!! You will laugh , i probly would. !!!!
any way , its a sunset switch prog., by the way.

i am testing this sensor input by simple applying a 1 or 0 to the input.

i will replace this with an ldr (cost)then using the vin-vo level  to
control counters
next step.i will also try cap with ldr next.
i'm not sure which will be the best untill i test the midpoint
hysterisis of the i/p pin

couple of problems
-it won't go on initially for the 10secs & go off.(???)
-when it's high it times out for the 20secs & lamps on , like it should
(ok)
-but when i change the input pin to low the lamps wont go off  .i don't
know if it is timing out !(???)
i'm not sure if the delay(del) lamp on & off timers are reseting either.

if night, keep delay counting (del) if a 0  or if day = 1 reset
delay(del) & start day delay(del1) &
visaversa

any help / advice would be greatly appreciated with my 1st project.
i need to get this working correct so i can then use pin 8 to
synchronise to AC LINE ( 0 crossing)
i would like to upgrade from a relay to use a triac to control some
fluro lts
, i would like be able to control the firing angle of the triac.

i can build this out of discreet components (no problem),but , software
control (a challenge)

below is my program attempt.

thanks , once again.
glen



' Title  ltsw.bas
'date   990204
'-------------- Progran Description -------------------
'using the 16f84 pic
'at startup , outputs on for 10 secs, sense an ldr for night or day,
'sense ldr pin change & if pin same input after 20 secs , output on
'
' pic connections
'
' pin 1 - ra2
' pin 2 - ra3
' pin 3 - ra4/toc1
' pin 4 - !mlcr           resistor to 5v
' pin 5 - vss             to gnd
' pin 6 -  rb0/int
' pin 7 -  rb1
' pin 8 -  rb2            ac input
' pin 9  - rb3            sensor input
' pin 10 - rb4            out1a
' pin 11 - rb5            out1b
' pin 12 - rb6            out2a
' pin 13 - rb7            out2b
' pin 14 - vdd            to 5v
' pin 15 - osc1/clkin
' pin 16 - osc2/clkout
' pin 17 - ra0
' pin 18 - ra1

'----------- Constants -----

symbol sensor = 9         'senses ldr changes
symbol  out1a = 10        'assign pin 10 for label output
symbol  out1b = 11        'assign pin 11 for label output
symbol  out2a = 12        'assign pin 12 for label output
symbol  out2b = 13        'assign pin 13 for label output
symbol  ac = 8            'assign pin 8 for label ac (line sensing)

symbol night = 0         'sensor pin 9 i/p = 0 , night
symbol day = 1           'sensor pin 9 i/p = 1 , day

'----------- Variables -------------

symbol  sense = b0        'temporary variable  lights on night
symbol  sense1 = b1       'temporary variable  lights off day
'------------ Iniialisation ---------

'pins  131211109876
'bits = 76543210
dirs = %00001100           'direction pins for portb(0=op,1=ip)
'pins = 0C                    '13,12,11,10 outputs.9,8 inputs.7,6
outputs
'*** pin 8 for AC LINE sychronise ***

'------------ Main Code ----------

start:     gosub lton                'turn the 4 output pins on
           pause 10000          'delay for 10 seconds
           gosub lton            'turn the 4 output pins off
           pause 1000
           goto main

main:     if sensor = night then del     'if sensor=0 go to on_timeout
loop
            if sensor = day then del1    'if sensor=1 go to
off_timeoutloop

del:        for sense = 1 to 20
            pause 1000
            next sense
            gosub lton
            goto main

del1:     for sense1 = 1 to 10
            pause 1000
            next sense1
            gosub ltoff
            goto main

'  end
'------------ Sub routines -----------
lton:       high out1a
            high out1b
            high out2a
            high out2b
            return

ltoff:      low out1a
            low out1b
            low out2a
            low out2b
            return
'----------------

1999\02\10@102104 by Claudio Rachiele IW0DZG

flavicon
face
Glen,
I don't know your PIC basic compiler, but it look like it follows the Parallax
Basic Stamp Language.

If it is true you misunderstood the meaning off PIN statement.

The number after the pin is referred to the portb pin it mean that the PIC pin
#6, that is RB0, is PIN0 for basic, and so on.

In your program in first IF you compare NUMBER 9 with NUMBER 0 and in the
second IF you compare NUMBER 9 with NUMBER 1. Both not compare and you execute
'del' and branch back to main.

Try to use  the constants below and LMK.

'----------- Constants -----

symbol sensor = PIN3      'senses ldr changes
symbol  out1a = PIN4      'assign pin 10 for label output
symbol  out1b = PIN5      'assign pin 11 for label output
symbol  out2a = PIN6      'assign pin 12 for label output
symbol  out2b = PIN7      'assign pin 13 for label output
symbol  ac    = PIN2      'assign pin 8 for label ac (line sensing)

On http://www.parallaxinc.com there is the possibility of subscribe to a PIC Basic
list that is more
appropriate for your needs.

ciao

                      Claudio Rachiele IW0DZG



PICLIST @ MITVMA.MIT.EDU
10/02/99 01:51
Please respond to spam_OUTPICLISTTakeThisOuTspamMITVMA.MIT.EDU

To: PICLIST @ MITVMA.MIT.EDU
cc:
Subject: help pls -1st pbc program

hi & thanks for sparing the time !
this is my 1st project using the 16f84 , my first attempt to write a
basic program using picbasic(pbc)
!!!! You will laugh , i probly would. !!!!
any way , its a sunset switch prog., by the way.

i am testing this sensor input by simple applying a 1 or 0 to the input.

i will replace this with an ldr (cost)then using the vin-vo level  to
control counters
next step.i will also try cap with ldr next.
i'm not sure which will be the best untill i test the midpoint
hysterisis of the i/p pin

couple of problems
-it won't go on initially for the 10secs & go off.(???)
-when it's high it times out for the 20secs & lamps on , like it should
(ok)
-but when i change the input pin to low the lamps wont go off  .i don't
know if it is timing out !(???)
i'm not sure if the delay(del) lamp on & off timers are reseting either.

if night, keep delay counting (del) if a 0  or if day = 1 reset
delay(del) & start day delay(del1) &
visaversa

any help / advice would be greatly appreciated with my 1st project.
i need to get this working correct so i can then use pin 8 to
synchronise to AC LINE ( 0 crossing)
i would like to upgrade from a relay to use a triac to control some
fluro lts
, i would like be able to control the firing angle of the triac.

i can build this out of discreet components (no problem),but , software
control (a challenge)

below is my program attempt.

thanks , once again.
glen



' Title  ltsw.bas
'date   990204
'-------------- Progran Description -------------------
'using the 16f84 pic
'at startup , outputs on for 10 secs, sense an ldr for night or day,
'sense ldr pin change & if pin same input after 20 secs , output on
'
' pic connections
'
' pin 1 - ra2
' pin 2 - ra3
' pin 3 - ra4/toc1
' pin 4 - !mlcr           resistor to 5v
' pin 5 - vss             to gnd
' pin 6 -  rb0/int
' pin 7 -  rb1
' pin 8 -  rb2            ac input
' pin 9  - rb3            sensor input
' pin 10 - rb4            out1a
' pin 11 - rb5            out1b
' pin 12 - rb6            out2a
' pin 13 - rb7            out2b
' pin 14 - vdd            to 5v
' pin 15 - osc1/clkin
' pin 16 - osc2/clkout
' pin 17 - ra0
' pin 18 - ra1

'----------- Constants -----

symbol sensor = 9         'senses ldr changes
symbol  out1a = 10        'assign pin 10 for label output
symbol  out1b = 11        'assign pin 11 for label output
symbol  out2a = 12        'assign pin 12 for label output
symbol  out2b = 13        'assign pin 13 for label output
symbol  ac = 8            'assign pin 8 for label ac (line sensing)

symbol night = 0         'sensor pin 9 i/p = 0 , night
symbol day = 1           'sensor pin 9 i/p = 1 , day

'----------- Variables -------------

symbol  sense = b0        'temporary variable  lights on night
symbol  sense1 = b1       'temporary variable  lights off day
'------------ Iniialisation ---------

'pins  131211109876
'bits = 76543210
dirs = %00001100           'direction pins for portb(0=op,1=ip)
'pins = 0C                    '13,12,11,10 outputs.9,8 inputs.7,6
outputs
'*** pin 8 for AC LINE sychronise ***

'------------ Main Code ----------

start:     gosub lton                'turn the 4 output pins on
           pause 10000          'delay for 10 seconds
           gosub lton            'turn the 4 output pins off
           pause 1000
           goto main

main:     if sensor = night then del     'if sensor=0 go to on_timeout
loop
            if sensor = day then del1    'if sensor=1 go to
off_timeoutloop

del:        for sense = 1 to 20
            pause 1000
            next sense
            gosub lton
            goto main

del1:     for sense1 = 1 to 10
            pause 1000
            next sense1
            gosub ltoff
            goto main

'  end
'------------ Sub routines -----------
lton:       high out1a
            high out1b
            high out2a
            high out2b
            return

ltoff:      low out1a
            low out1b
            low out2a
            low out2b
            return
'----------------



More... (looser matching)
- Last day of these posts
- In 1999 , 2000 only
- Today
- New search...