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

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

'-------------------------------------------------------------------------------
'                      rainbow_ws2812_Knightrider.bas
'                      based on sample from Galahat
'-------------------------------------------------------------------------------

$regfile = "m88pdef.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
$lib "Rainbow.lib"


Config Rainbow = 1 , Rb0_len = 8 , Rb0_port = Portb , Rb0_pin = 0
'                                                   ^ connected to pin 0
'                                       ^------------ connected to portB
'                         ^-------------------------- 8 leds on stripe
'              ^------------------------------------- 1 channel


'Global Color-variables
Dim Color(3) As Byte
R Alias Color(_base) : G Alias Color(_base + 1) : B Alias Color(_base + 2)

'CONST
Const Numleds = 8

'----[MAIN]---------------------------------------------------------------------
Dim N As Byte

Rb_selectchannel 0                                          ' select first channel
R = 50 : G = 0 : B = 100                                    ' define a color
Rb_setcolor 0 , Color(1)                                    ' update leds
Rb_send

Do
  For N = 1 To Numleds -1
    Rb_shiftright 0 , Numleds                               'shift to the right all leds except the last one
    Waitms 100
    Rb_send
  Next
  For N = 1 To Numleds -1
    Rb_shiftleft 0 , Numleds                                'shift to the left all leds except the last one
    Waitms 100
    Rb_send
  Next
  Waitms 500                                                'wait a bit
Loop

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

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 8
$framesize = 24

Config Lcd = 16 * 2
  Config Lcdpin = Pin , Db4 = Portd.7 , Db5 = Portb.0 , Db6 = Portb.1 , Db7 = Portb.2 , E = Portd.6 , Rs = Portd.5
Initlcd

Cls
Cursor Off

Locate 1 , 1
Lcd "Hello,"
Lowerline
Lcd "world!"

End

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

' WO1602F-TMI

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32


Config Lcd = 16x2
Config Lcdpin = Pin , Port = Portb , E = Portc.0 , Rs = Portc.1

Initlcd
Cursor On
'Cursor Off Noblink
'Cls

Locate 1 , 1
Lcd "Hello world!"
Locate 2 , 1
Lcd "0123456789ABCDEF"

Do

Loop

End