Can someone help me make a code for this: [Archive]

joseph

- 30th April 2009, 12:21

http://img147.imageshack.us/img147/2536/randomi.jpg

Can someone teach/help me make a code for a random led effects
the code supposed to be like this:

light 3 leds every 5 seconds in a random way which means every 5 seconds different sets of 3 should light

TIA!

rsocor01

- 1st May 2009, 04:55

Joseph,

Try to write the program by yourself and then if you have questions post your code and we will try to help you. I think that you should try to do it first. There are many books and tutorials out there. The following book, I use it as a guide and it has a few examples with LEDs very similar to what you want.

http://www.amazon.com/PIC-Basic-Projects-using-BASIC/dp/0750668792/ref=sr_1_2?ie=UTF8&s=books&qid=1240150464&sr=8-2

sayzer

- 1st May 2009, 13:38

This one may work for you.
Just work on this sample code.

'@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT, WDT_OFF, PWRT_OFF, MCLR_OFF,PROTECT_ON,CPD_ON, BOD_OFF, LVP_OFF

DEFINE OSC 4

CMCON = 7
PAUSE 1
VRCON = 0
PAUSE 1

TRISA = 0
TRISB = 0
PORTA = 0
PORTB = 0

OPTION_REG.5 = 0 ' Internal clk.
OPTION_REG.3 = 0 ' Prescaler assigned to TMR0.
OPTION_REG.2 = 0 '
OPTION_REG.1 = 0 '
OPTION_REG.0 = 0 ' 1:1

PAUSE 10

Led1 VAR PORTA.0 'Assign leds.
Led2 VAR PORTA.1
Led3 VAR PORTA.2
Led4 VAR PORTA.3
Led5 VAR PORTA.4

Led6 VAR PORTB.0
Led7 VAR PORTB.1
Led8 VAR PORTB.2
Led9 VAR PORTB.3
Led10 VAR PORTB.4
Led11 VAR PORTB.5
Led12 VAR PORTB.6
Led13 VAR PORTB.7
Led14 VAR PORTA.7
Led15 VAR PORTA.6

Index VAR BYTE
LookForThree VAR BYTE
Val VAR WORD
Result VAR BYTE
PAUSE 100

Start:

LookForThree = 0
WHILE LookForThree <> 3 ' Look for three "SET"s.
RANDOM Val ' Get a random value.
PAUSEUS TMR0 ' To get a good random number, have a changing value using TMR0 or TMR1.

LookForThree = 0
FOR Index = 0 TO 15 ' Scan through the bits.
IF Val.0[Index] = 1 THEN LookForThree = LookForThree + 1 'Count "SET"s.
NEXT Index

WEND

GOSUB SetPins
PAUSE 5000

GOTO Start

SetPins:

Led1 = Val.0
Led2 = Val.1
Led3 = Val.2
Led4 = Val.3

Led5 = Val.4
Led6 = Val.5
Led7 = Val.6
Led8 = Val.7
Led9 = Val.8
Led10 = Val.9
Led11 = Val.10
Led12 = Val.11
Led13 = Val.12
Led14 = Val.13
Led15 = Val.14
RETURN

END

joseph

- 2nd May 2009, 03:15

Joseph,

Try to write the program by yourself and then if you have questions post your code and we will try to help you. I think that you should try to do it first. There are many books and tutorials out there. The following book, I use it as a guide and it has a few examples with LEDs very similar to what you want.

http://www.amazon.com/PIC-Basic-Projects-using-BASIC/dp/0750668792/ref=sr_1_2?ie=UTF8&s=books&qid=1240150464&sr=8-2

I tried, but i just can't work it out :confused:

@sayzer

WOW thanks for the sample code it looks a bit clearer for me :)

joseph

- 2nd May 2009, 10:12

This one may work for you.
Just work on this sample code.

'@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT, WDT_OFF, PWRT_OFF, MCLR_OFF,PROTECT_ON,CPD_ON, BOD_OFF, LVP_OFF

DEFINE OSC 4

CMCON = 7
PAUSE 1
VRCON = 0
PAUSE 1

TRISA = 0
TRISB = 0
PORTA = 0
PORTB = 0

OPTION_REG.5 = 0 ' Internal clk.
OPTION_REG.3 = 0 ' Prescaler assigned to TMR0.
OPTION_REG.2 = 0 '
OPTION_REG.1 = 0 '
OPTION_REG.0 = 0 ' 1:1

PAUSE 10

Led1 VAR PORTA.0 'Assign leds.
Led2 VAR PORTA.1
Led3 VAR PORTA.2
Led4 VAR PORTA.3
Led5 VAR PORTA.4

Led6 VAR PORTB.0
Led7 VAR PORTB.1
Led8 VAR PORTB.2
Led9 VAR PORTB.3
Led10 VAR PORTB.4
Led11 VAR PORTB.5
Led12 VAR PORTB.6
Led13 VAR PORTB.7
Led14 VAR PORTA.7
Led15 VAR PORTA.6

Index VAR BYTE
LookForThree VAR BYTE
Val VAR WORD
Result VAR BYTE
PAUSE 100

Start:

LookForThree = 0
WHILE LookForThree <> 3 ' Look for three "SET"s.
RANDOM Val ' Get a random value.
PAUSEUS TMR0 ' To get a good random number, have a changing value using TMR0 or TMR1.

LookForThree = 0
FOR Index = 0 TO 15 ' Scan through the bits.
IF Val.0[Index] = 1 THEN LookForThree = LookForThree + 1 'Count "SET"s.
NEXT Index

WEND

GOSUB SetPins
PAUSE 5000

GOTO Start

SetPins:

Led1 = Val.0
Led2 = Val.1
Led3 = Val.2
Led4 = Val.3

Led5 = Val.4
Led6 = Val.5
Led7 = Val.6
Led8 = Val.7
Led9 = Val.8
Led10 = Val.9
Led11 = Val.10
Led12 = Val.11
Led13 = Val.12
Led14 = Val.13
Led15 = Val.14
RETURN

END



i tried to compile the sample code and simulate it using proteus at first it will light 3 leds but next it will only light two of them so i tried compiling it for other pic but it has some error can you please say to me what this line is for:

VRCON = 0

i got error with that when i try to compile it for other pic's ???

sayzer

- 2nd May 2009, 10:21

Delete VRCON = 0, try again.

Also,
VAL is a WORD variable thus it has 16-bits.
But, in the sample code, we have 15 bits (15 LEDS) getting set.
Depending on the pic you are using, add one more led to an appropriate pic pin, and assign it to the last bit of VAL (Val.15) in SetPins subroutine.

-------------------------------

joseph

- 18th May 2009, 20:03

i think the problem is on the configure bits ???

i changed the pause 5000 to 100 and run it on simulation and i noticed that led's connected on RA6 and RA7 is never energized, what could be the problem?

mister_e

- 18th May 2009, 20:18

It all depending of our device in use, some have ADC, some have analog comparator, some have open-drain, and the list is almost endless. But there's less chance that any issues would be caused by a timer.

I suggest you to have a look at this link.
http://www.picbasic.co.uk/forum/showthread.php?t=11116

Remember, datasheet MUST be your friend ;)

joseph

- 18th May 2009, 20:47

I changed the start of the code

@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT, WDT_OFF, PWRT_OFF, MCLR_OFF,PROTECT_ON,CPD_ON, BOD_OFF, LVP_OFF

it was a part of the comments before

and changed

FOR Index = 0 TO 15 ' Scan through the bits.

to

FOR Index = 0 TO 14 ' Scan through the bits.

and the final code:

@ DEVICE PIC16F628A, INTRC_OSC_NOCLKOUT, WDT_OFF, PWRT_OFF, MCLR_OFF,PROTECT_ON,CPD_ON, BOD_OFF, LVP_OFF

DEFINE OSC 4

CMCON = 7
PAUSE 1
VRCON = 0
PAUSE 1

TRISA = 0
TRISB = 0
PORTA = 0
PORTB = 0
T1CON.1 = 0
OPTION_REG.5 = 0 ' Internal clk.
OPTION_REG.3 = 0 ' Prescaler assigned to TMR0.
OPTION_REG.2 = 0 '
OPTION_REG.1 = 0 '
OPTION_REG.0 = 0 ' 1:1

PAUSE 10

Led1 VAR PORTA.0 'Assign leds.
Led2 VAR PORTA.1
Led3 VAR PORTA.2
Led4 VAR PORTA.3
Led5 VAR PORTA.4

Led6 VAR PORTB.0
Led7 VAR PORTB.1
Led8 VAR PORTB.2
Led9 VAR PORTB.3
Led10 VAR PORTB.4
Led11 VAR PORTB.5
Led12 VAR PORTB.6
Led13 VAR PORTB.7
Led14 VAR PORTA.6
Led15 VAR PORTA.7

Index VAR BYTE
LookForThree VAR BYTE
Val VAR WORD
Result VAR BYTE
PAUSE 100

Start:

LookForThree = 0
WHILE LookForThree <> 3 ' Look for three "SET"s.
RANDOM Val ' Get a random value.
PAUSEUS TMR0 ' To get a good random number, have a changing value using TMR0 or TMR1.

LookForThree = 0
FOR Index = 0 TO 14 ' Scan through the bits.
IF Val.0[Index] = 1 THEN LookForThree = LookForThree + 1 'Count "SET"s.

NEXT Index

WEND

GOSUB SetPins
PAUSE 1000

GOTO Start

SetPins:

Led1 = Val.0
Led2 = Val.1
Led3 = Val.2
Led4 = Val.3
Led5 = Val.4
Led6 = Val.5
Led7 = Val.6
Led8 = Val.7
Led9 = Val.8
Led10 = Val.9
Led11 = Val.10
Led12 = Val.11
Led13 = Val.12
Led14 = Val.13
Led15 = Val.14
RETURN

END

it's now working good hooray! :D :cool: thanks for your help pips more power! :D

joseph

- 18th May 2009, 22:03

and oh i forgot i just switched to PIC16F628A

http://img204.imageshack.us/img204/7836/rand.jpg