Форум РадиоКот

Код: Выделить всё

    ' USART Control and Status Register C
    ' [ Регистр управления UCSRC ][ATtiny2313]
    '         00000110 - Initial Value
    UCSRC = &B00000110
    '         ||||||||
    '         |||||||+- 0, rw, UCPOL:    - Clock Polarity
    '         ||||||+-- 1, rw, UCSZ0: -+ - Character Size
    '         |||||+--- 2, rw, UCSZ1: _|
    '         ||||+---- 3, rw, USBS:     - Stop Bit Select
    '         |||+----- 4, rw, UPM0:  -+ - Parity Mode
    '         ||+------ 5, rw, UPM1:  _|
    '         |+------- 6, rw, UMSEL:    - USART Mode Select
    '         +-------- 7, r: 0
    '  Примечание:

Код: Выделить всё

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 64
$framesize = 124
$baud = 38400

Declare Sub Send_frame_800(byval Number_of_ic As Byte)
Dim Led_buffer(255) As Byte
Dim Lch As Byte
Dim Lcl As Byte
Sdi Alias Portb.0
Config Portb.0 = Output

Dim R As Word
Dim G As Word
Dim B As Word
Dim I As Byte
Dim J As Byte
Dim Ledg As Byte
Dim Ledr As Byte
Dim Ledb As Byte
Dim Wheel As Word
Dim Wheel2 As Byte

Const Liczba_led = 14

Do

For J = 1 To 255
   For I = 1 To Liczba_led
      Wheel = I - 1
      Wheel = Wheel * 255
      Wheel = Wheel / Liczba_led
      Wheel = Wheel + J
      Wheel2 = Wheel


      If Wheel2 >= 0 And Wheel2 <= 85 Then
         R = Wheel2 * 3
         G = Wheel2 * 3
         G = 255 - G
         B = 0
      End If
      If Wheel2 >= 86 And Wheel2 <= 170 Then
         R = Wheel2 * 3
         R = 255 - R
         R = 255 + R
         G = 0
         B = Wheel2 * 3
         B = B - 255
      End If
      If Wheel2 >= 171 And Wheel2 <= 255 Then
         R = 0
         G = Wheel2 * 3
         G = G - 255
         G = G - 255

         B = Wheel2 * 3
         B = 255 - B
         B = B + 255
         B = B + 255
      End If

      Ledb = I * 3
      Ledr = Ledb - 1
      Ledg = Ledr - 1

      Led_buffer(ledg) = G
      Led_buffer(ledr) = R
      Led_buffer(ledb) = B

Next I

Call Send_frame_800(liczba_led)
Waitms 10
Next J

Loop

Sub Send_frame_800(byval Number_of_ic As Word)
Local Last_channel As Word
Last_channel = Number_of_ic * 3
Lch = High(last_channel)
Lcl = Low(last_channel)
Sdi = 0
'Waitms 1
Waitus 500
push r0
push r16
push r17
push r24
push r25
lds r25 , {lch}
lds r24 , {lcl}
Loadadr Led_buffer(1) , X
Channel_loop_800:
ld r0,x+
ldi r16,8
Bit_loop_800:
lsl r0
brcc BIT_0_800
Bit_1_800:
sbi PORTb,0
Nop
nop
nop
nop
nop
nop
nop
nop
nop
cbi PORTb,0
rjmp Next_bit_800
Bit_0_800:
sbi PORTb,0
nop
nop
nop
nop
nop
cbi PORTb,0
nop
nop
nop
nop
nop
Next_bit_800:
dec r16
cpi r16,0
brne BIT_LOOP_800
sbiw R24,1
brne CHANNEL_LOOP_800
pop r25
pop r24
pop r17
pop r16
pop r0

End Sub

Код: Выделить всё

$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600
$lib "Rainbow.lib"
$external Ws2812b

'# Rainbow0
 Const Rainbow0_len = 12                                    'NEOPIXEL 12 LED RING
 Const Rainbow0_port = Portd                                'PORT D SETUP
 Const Rainbow0_pin = Pd2                                   'OUT D2
 Declare Sub Select_rainbow(byval Channel As Byte)
 Declare Sub Set_color(byval Lednr As Word , Color() As Byte)
 Declare Sub Settablecolor(byval Lednr As Word , Byvalindex As Byte) : $external Use_settablecolor
 Declare Sub Send()



 '---- [MAIN] ---------------------------------------------------------------------

Call Select_rainbow(0)                                      'select Rainbow

Do

Call Settablecolor(0 , 4)                                   'LED 1 YELLOW

Loop
End

Rainbow_Colors:
      'R, G, B
      Data &HFF , &H00 , &H00                               'Red 0
      Data &H00 , &HFF , &H00                               'Green 1
      Data &H00 , &H00 , &HFF                               'Blue 2
      Data &HFF , &HA5 , &H00                               'Orange 3
      Data &HFF , &HFF , &H00                               'Yellow 4
      Data &HFF , &H69 , &HB4                               'HotPink 5

Код: Выделить всё

'чтобы комменты были на русском, нужно копировать в русской раскладке
$regfile = "m328pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$baud = 9600

$lib "Rainbow1.21.lib"
$external Ws2812b

Declare Sub Select_rainbow(byval Channel As Byte)
Declare Sub Setcolor(byval Lednr As Word , Color() As Byte)
Declare Sub Send()

Declare Sub Settablecolor(byval Lednr As Word , Byvalindex As Byte) : $external Use_settablecolor

'# Rainbow0
 Const Rainbow0_len = 12                                    'NEOPIXEL 12 LED RING
 Const Rainbow0_port = Portd                                'PORTD SETUP
 Const Rainbow0_pin = Pd2                                   'OUT D2

Dim Color(3) As Byte
R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)
Call Select_Rainbow(0)

 '---- [MAIN] ---------------------------------------------------------------------

Do

Call Settablecolor(0 , 4)                                   'LED 1 YELLOW

Loop
End

Rainbow_Colors:
      'R,     G     ,B
Data &HFF , &H00 , &H00                               'Red 0
Data &H00 , &HFF , &H00                               'Green 1
Data &H00 , &H00 , &HFF                               'Blue 2
Data &HFF , &HA5 , &H00                               'Orange 3
Data &HFF , &HFF , &H00                               'Yellow 4
Data &HFF , &H69 , &HB4                               'HotPink 5

Код: Выделить всё

 $Regfile = "m328pdef.dat"
 $Crystal = 16000000
 $hwstack = 40
 $swstack = 16
 $framesize = 32
 '__________________________________
 '----[IMPLEMENT RAINBOW]--------------------------------------------------------

$lib "Rainbow1.21.lib"
 $external WS2812b

 Declare Sub Select_Rainbow(byval Channel As Byte)
 Declare Sub SetColor(byval LedNr As Word , Color() as Byte)
 Declare Sub Send()
 Declare Sub Shift_Left(byval Left_index As Word , Byval Width As Word) : $external USE_Shift_Left
 Declare Sub Shift_Right(byval Left_index As Word , Byval Width As Word) : $external USE_Shift_Right

 '#Rainbow0
Const Rainbow0_len = 12
Const Rainbow0_port = Portc
Const Rainbow0_pin = Pc3

 'Gloabal Color-variables
 Dim Color(3) as Byte
 R alias Color(_base) : G alias Color(_base + 1) : B alias Color(_base + 2)

 '__________________________________
 '----[MAIN]---------------------------------------------------------------------

Dim n as Byte

 Call Select_Rainbow(0)       'select Rainbow

 R = 255 : G = 255 : B = 255       'define a color

 Call SetColor(0 , color())
 Call Send()

 Do
    For n = 1 to 11
       Call Shift_right(0 , 12)
       Waitms 100
       Call Send()
    Next

    For n = 1 to 11
       Call Shift_left(0 , 12)
       Waitms 100
       Call Send()
    Next
 Loop

 End