Hello,
I have trouble in making a stick with leds for displaying message like this example below (this picture is not mine: it was found in internet).
<img src=http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1627&stc=1&d=117907003 3">
Instead of 7 LEDs, I have only 4 to display letters; but it should work not too bad...
Currently, I have split one caracter into five sequences (or colons) and light them up for 3ms and then I wait 12ms before I repeat the same letter.
For test purposes, I repeat the same letter 50 times.
Does anyone have some example on how he did?
Thank you.
This is my actual code
Code:' Fuses @ DEVICE PIC16F690,FCMEN_OFF @ DEVICE PIC16F690,IESO_OFF @ DEVICE PIC16F690,BOD_OFF @ DEVICE PIC16F690,CPD_OFF @ DEVICE PIC16F690,PROTECT_OFF @ DEVICE PIC16F690,MCLR_OFF @ DEVICE PIC16F690,PWRT_OFF @ DEVICE PIC16F690,WDT_OFF @ DEVICE PIC16F690,INTRC_OSC_NOCLKOUT '------------------------------------------------------------------------------- ' Registers CM1CON0 = %00000000 'Comparator 1 is OFF CM2CON0 = %00000000 'Comparator 2 is OFF ANSEL = %00000000 'Disable analog inputs ANSELH = %00000000 'Disable analog inputs ADCON0 = %00000000 'ADC is OFF OPTION_REG = %10000000 'Pull-Ups disabled... TRISB = %00000000 'All PORTBs are Outputs PORTB = %00000000 'All PORTBs are Low WPUB = %00000000 'All Weak Pullups on PORTB are Bisabled '------------------------------------------------------------------------------- ' Defines '------------------------------------------------------------------------------- ' Variables LED4 var PORTB.4 LED5 var PORTB.5 LED6 var PORTB.6 LED7 var PORTB.7 Counter_A var byte LED_interval var byte LED_interval = 3 Letter_interval var byte Letter_interval = 12 '------------------------------------------------------------------------------- ' Program LOOP: for counter_a = 0 to 50 gosub letter_A PORTB = 0 next pause Letter_interval for counter_a = 0 to 50 gosub letter_M PORTB = 0 next pause Letter_interval for counter_a = 0 to 50 gosub letter_I PORTB = 0 next pause Letter_interval goto loop end '------------------------------------------------------------------------------- ' Message LETTER_A: led4 = 0 led5 = 0 led6 = 1 led7 = 1 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 0 pause Led_interval led4 = 1 led5 = 0 led6 = 1 led7 = 0 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 0 pause Led_interval led4 = 0 led5 = 0 led6 = 1 led7 = 1 pause Led_interval return LETTER_M: led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval led4 = 0 led5 = 1 led6 = 0 led7 = 0 pause Led_interval led4 = 0 led5 = 0 led6 = 1 led7 = 0 pause Led_interval led4 = 0 led5 = 1 led6 = 0 led7 = 0 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval return LETTER_I: led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval led4 = 1 led5 = 1 led6 = 1 led7 = 1 pause Led_interval return



If I'm stuck, I'll ask you again.

Bookmarks