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

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

$regfile = "m328pdef.dat"
 $Crystal = 16000000
 $hwstack = 40
 $swstack = 16
 $framesize = 32

 Config Debounce = 75                                        'время задержки в мс
 '__________________________________


 Config Pind.6 = Input
 Button Alias Pind.6                                        'Присвоение КНОПКА для PIND.6


 '----[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
 Declare Sub Settablecolor(byval Lednr As Word , Byval Index As Byte) : $external Use_settablecolor
 Declare Sub Fill_colors(color() As Byte) : $external Use_fill
 Declare Sub Fill_stripe(color() As Byte) : $external Use_fill_stripe



 '#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)

 Dim Click As Byte


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

 Call Select_rainbow(0)                                     'select Rainbow
 R = 255 : G = 255 : B = 255                                'define a color
 Call Send()

Do
Debounce Button , 0 , Changecolor , Sub                     'ПЕРЕХОД К МЕТКЕ ДЛЯ ВЫБОРА ЦВЕТА


 Loop

 '/// ---> МЕНЯЕМ ЦВЕТА ПО НАЖАТИЮ НА КНОПКУ
Changecolor:
Waitms 50

If Button = 0 Then
Incr Click
End If

If Click => 4 Then
Click = 1
End If


If Click = 1 Then
 Call Settablecolor(0 , 0)                                  'КРАСНЫЙ СОГЛАСНО ПАЛИТРЕ ЦВЕТОВ
 'Call Fill_stripe(color(1))                                'СВЕТИТ БЕЛЫМ - КАКОЙ-ТО ПРОИЗВОЛЬНЫЙ ЦВЕТ. ОТКУДА ОН?
 Call Send()
End If


If Click = 2 Then
 Call Settablecolor(0 , 1)                                  'ЗЕЛЕНЫЙ СОГЛАСНО ПАЛИТРЕ ЦВЕТОВ
 'Call Fill_stripe(color(2))                                 'СВЕТИТ ЖЕЛТЫМ - КАКОЙ-ТО ПРОИЗВОЛЬНЫЙ ЦВЕТ. ОТКУДА ОН?
 Call Send()
End If

If Click = 3 Then
 Call Settablecolor(0 , 2)                                  'СИНИЙ СОГЛАСНО ПАЛИТРЕ ЦВЕТОВ
 'Call Fill_stripe(color(3))                                 'СВЕТИТ КРАСНЫМ - КАКОЙ-ТО ПРОИЗВОЛЬНЫЙ ЦВЕТ. ОТКУДА ОН?
 Call Send()
End If

Bitwait Button , Set
Waitms 50
Return



  End



Rainbow_colors:
      '       R  ,  G  ,  B                    index
      Data 255 , 0 , 0                                      'Red         0
      Data 0 , 255 , 0                                      'Green       1
      Data 0 , 0 , 255                                      'Blue        2
      Data 255 , 160 , 0                                    'Orange      3
      Data 255 , 255 , 00                                   'Yellow      4
      Data 190 , 0 , 255                                    'HotPink     5
      Data 255 , 255 , 255                                  'HotPink     6