<table><td><img SRC="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1629&stc=1&d=117919107 7"></td>
<td>- Jar of mustard = +5V
- RCK 1, RCK 2 = Gnd
- GCB1, GCB2, GCB3 = LED + 330 OHM Resistor
- PIC16F84 = something that should be removed from the market since 10 years, can happilly be replace by a 16F628. If you do it, remove the crystal + both 22pF capacitor and try the code bellow
</td></table>
Code:
<font color="#000000"> <font color="#008000">'
' Pic Configuration
' =================
'
' Here we will set the PIC configuration fuses
' to use the internal PIC oscillator and disable the MCLR
' pin.
</font>@ __CONFIG _INTRC_OSC_NOCLKOUT & _MCLRE_OFF & _LVP_OFF & _WDT_OFF & _PWRTE_ON & _BODEN_ON
<font color="#008000">'
' This assume you're using MPASM to compile your code
' For detailed information about Configuration fuse setting,
' have a look to "Presetting Configuration Fuses (PIC Defines)" thread
' in the forum FAQ section.
' http://www.picbasic.co.uk/forum/showthread.php?t=543
'
' Hardware assignment
' ===================
</font>GCB_1 <font color="#000080">VAR </font>PORTB.0
GCB_2 <font color="#000080">VAR </font>PORTB.1
GCB_3 <font color="#000080">VAR </font>PORTB.2
<font color="#008000">'
' Hardware configuration
' ======================
</font>TRISB = 0 <font color="#008000">' Configure all PORTB i/o to output
'
' Software/Hardware initialisation
' ================================
</font>PORTB = 0
<font color="#008000">'------------------------------< Main program >-----------------------------------
'
</font>Start: <font color="#008000">'
' Here will do the 'buckets of grass clippings' light show
' using a simple method... not the best
'
</font>GCB_1 = 1
<font color="#000080">PAUSE </font>500
GCB_2 = 1
<font color="#000080">PAUSE </font>500
GCB_3 = 1
<font color="#000080">PAUSE </font>500
GCB_1 = 0
<font color="#000080">PAUSE </font>500
GCB_2 = 0
<font color="#000080">PAUSE </font>500
GCB_3 = 0
<font color="#000080">PAUSE </font>500
<font color="#000080">GOTO </font>Start
<font color="#008000">'
'---------------------------------------------------------------------------------
</font>
Steve
It's not a bug, it's a random feature.
There's no problem, only learning opportunities.
Bookmarks