S65 Display Lib für Bascom

[Andreas (Gast)]

Hallo, ich habe die angehangene Bascom.Lib mal runtergeladen, und wollte 
mal fragen ob sie einer getestet hat. Ich hab mir mal das Basic-programm 
angesehen, und festgestellt, das es wohl teilweise Russisch enthällt. 
Ich habe nur mal die ersten zeilen in mein Programm eingebaut, was aber 
nicht läuft. Könnte mir da wohl jemand helfen ?

$regfile = "m8def.dat"
$crystal = 7372800

$lib "ls020.lbx"

Config Graphlcd = Color , Controlport = Portb , Cs = 2 , Rs = 7 , Scl = 
5 , Sda = 3 , Reset = 6

Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Up 
, Compare B Pwm = Disconnect

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

Const Blue = 51                                             '&B00000011
Const Yellow = 215                                          '&B11001111 
'11111100
Const Red = 210                                             '&B11100000
Const Green = 69                                            '&B00011100
Const Black = 0                                             '&B00000000
Const White = 255 
'&B1111111111111111
Const Brightgreen = 15                                      '&B00111110
Const Darkgreen = 12                                        '&B00010100
Const Darkred = 200                                         '&B10100000
Const Darkblue = 48                                         '&B00000010
Const Brightblue = 55                                       '&B00011111
Const Orange = 212                                          '&B11111000
Const Violett = 176
Const Brown = 128

Pwm1a = 128

Cls

Circle(30 , 30) , 26 , Brightblue

Wait 2



Do
Loop

[Avr N. (avrnix)]

Hat schon einer ne Lösung ?