$hwstack = 256
$swstack = 256
$framesize = 256

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200

$lib "LCD-SIEMENS_S65_LS020_256_W1.LBX"                     'Siemens S65 LS020 color display support Wide

Config Graphlcd = Color , Controlport = Portc , Cs = 2 , Rs = 4 , Scl = 1 , Sda = 0 , Reset = 3

Declare Sub Bars()

Dim I As Byte
Dim K As Byte
Dim L As Byte
Dim Usb_data(18) As Byte

'256 8-áèòíûå öâåòà vvv
Const Red = &B11100000
Const Orange = &B11110000
Const Yellow = &B11111100
Const Green = &B00011100
Const Blue = &B00000011
Const Cian = &B11100011
Const Black = &B00000000
Const White = &B11111111

'-------------------------------------------------------------------------------
Cls

Do

For K = 64 To 0 Step -8
   For L = 1 To 18
      Usb_data(l) = K
   Next L
   Gosub Bars
Next K

Loop

End

Sub Bars():
Local X1 As Byte
Local Y1 As Byte
Local X2 As Byte

For I = 1 To 18
   Y1 = Usb_data(i)
   X1 = I * 7 : X1 = X1 - 5
   X2 = X1 + 7
   Y1 = 130 - Y1
   If I = 1 Or I = 7 Or I = 13 Then Box(x1 , Y1) -(x2 , 130) , Red
   If I = 2 Or I = 8 Or I = 14 Then Box(x1 , Y1) -(x2 , 130) , Orange
   If I = 3 Or I = 9 Or I = 15 Then Box(x1 , Y1) -(x2 , 130) , Yellow
   If I = 4 Or I = 10 Or I = 16 Then Box(x1 , Y1) -(x2 , 130) , Green
   If I = 5 Or I = 11 Or I = 17 Then Box(x1 , Y1) -(x2 , 130) , Blue
   If I = 6 Or I = 12 Or I = 18 Then Box(x1 , Y1) -(x2 , 130) , Cian
   Box(x1 , 66) -(x2 , Y1) , White
Next I
End Sub

$hwstack = 256
$swstack = 256
$framesize = 256

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 19200








$lib "LCD-SIEMENS_S65_LS020_256_W1.LBX"
Config Graphlcd = Color , Controlport = Portb , Cs = 4 , Rs = 2 , Scl = 5 , Sda = 6 , Reset = 3
Config Porta = Input
Config Portb = Input
Config Adc = Single , Prescaler = 128 , Reference = Avcc

Dim N As Byte
Dim Color As Byte
Dim Colorbac As Byte

Dim Acp0 As Integer
Dim Acp1 As Integer
Dim Kn As Byte

Const Blue = &B00000011                                     ''predefined contants are making programming easier
Const Yellow = &B11111100
Const Red = &B11100000
Const Green = &B00011100
Const Black = &B00000000
Const White = &B11111111
Const Brightgreen = &B00111110
Const Darkgreen = &B00010100
Const Darkred = &B10100000
Const Darkblue = &B00000010
Const Brightblue = &B00011111
Const Orange = &B11111000
Const Violett = 199
Const Brown = 192                                           '128


Cls
Do
Disable Interrupts                                      
Start Adc                                                  
   Acp0 = Getadc(0)
   Acp1 = Getadc(1)                                        
Stop Adc
Enable Interrupts

Kn = Pinb.7
Setfont Color8x8
Lcdat 1 , 0 , "  АЦП 0=" ; Acp0 ; "   " , White , Black
Lcdat 8 , 0 , "  АЦП 1=" ; Acp1 ; "   " , White , Black
Lcdat 16 , 0 , "portb7=" ; Kn , White , Black


Waitms 200








Loop

'Plaatje:
'$bgf "mcsez.bgc"


$include "color8x8wRus.font"
$include "color16x16wRus.font"

$regfile = "m32def.dat"
$Crystal=4000000
$hwstack=40
$swstack=16
$framesize=32