Continue to Site
That sentence makes ZERO sense, since two LEDs in parallel must be on any time a port pin is asserted.
Live in hope. Not gonna happen.
If you search on C149872, which is the part number for a 100 ohm resistor, guess what you'll find?
No, it's just the same length as a single 1206 but not as wide as four single 1206s due to the fact it's an array. If we convert 1206 to metric we get 3.1 X 1.65. Four next to each other (touching) will be 3.1 x 6.2 - the same height and only 0.9 mm longer (or wider if you prefer) than the package dimensions.
{
*****************************************************************************
* Name : UNTITLED.BAS *
* Author : [select VIEW...EDITOR OPTIONS] *
* Notice : Copyright (c) 2022 [select VIEW...EDITOR OPTIONS] *
* : All Rights Reserved *
* Date : 5/18/2022 *
* Version : 1.0 *
* Notes : 70 total LEDs blue and white *
* : thoughts to improve = add a counter and increase then decrease
: the delay just for one color = white? *
*****************************************************************************
}
'Program: CHRISTMAS STAR:
Device = 18F43K22
Clock = 8
// int osc and IO pin libraries
Include "intosc.bas"
#option DIGITALIO_INIT = true // automatically call setalldigital
Include "setdigitalio.bas"
// hardware
DIM Counter AS WORD
dim Counter_up as word
dim Counter_down as word
Dim m As Byte
Dim w As Byte
Dim x As Byte
Dim y As Byte
Dim z As Byte
{
Dim LED0 As PORTA.0
Dim LED1 As PORTA.1
Dim LED2 As PORTA.2
Dim LED3 As PORTA.3
Dim LED4 As PORTA.4
Dim LED5 As PORTA.5
Dim LED6 As PORTA.6
Dim LED7 As PORTA.7
Dim LED8 As PORTB.0
Dim LED9 As PORTB.1
Dim LED10 As PORTB.2
Dim LED11 As PORTB.3
Dim LED12 As PORTB.4
Dim LED13 As PORTB.5
Dim LED14 As PORTB.6
Dim LED15 As PORTB.7
Dim LED16 As PORTC.0
Dim LED17 As PORTC.1
Dim LED18 As PORTC.2
Dim LED19 As PORTC.3
Dim LED20 As PORTC.4
Dim LED21 As PORTC.5
Dim LED22 As PORTC.6
Dim LED23 As PORTC.7
Dim LED24 As PORTD.0
Dim LED25 As PORTD.1
Dim LED26 As PORTD.2
Dim LED27 As PORTD.3
Dim LED28 As PORTD.4
Dim LED29 As PORTD.5
Dim LED30 As PORTD.6
Dim led31 As PORTD.7
Dim led31 As PORTE.0
Dim led32 As PORTE.1
Dim led33 As PORTE.2
}
//-------------------------------------
// start of main program
//-------------------------------------
main:
// init hdw
// LED port - all outputs 2 LEDs per port in parallel 330 ohm resistor
trisa = 0
trisb = 0
trisc = 0
trisd = 0
TRISE = 0
counter = 100
counter_up = 150
counter_down = 150
setalldigital
While true
For m = 0 To 7
for z = 0 to 2
PORTE.bits(z)=1 // only 3 pair of LEDS
DelayuS(counter)
PORTE.bits(z)=0
DelayuS(counter)
porta.bits(m)=1
portb.bits(m)=1
portc.bits(m)=1
portd.bits(m)=1
delayus(counter_up)
porta.bits(m)=0
portb.bits(m)=0
portc.bits(m)=0
portd.bits(m)=0
delayus(counter-10)
'counter_up = (counter_up - 10)
'if counter_up <100
'then
'counter_down = (counter_down+10)
'end if
next
next
Wend
