GlcdR7565R/de

== (**COPIED FROM ENGLISH PAGE**) ==he glcdR7565R.lib is intended to be used with 128x64  displays using the ST7565R chip.

'----------------------------------------------------------------
' (c) 1995-2011, MCS
' xm128A1-ST7565R.bas
' This sample demonstrates the ST7565R chip with an Xmega128A1
' Display used : 64128N SERIES from DisplayTech
' this is a parallel display with read/write options
'-----------------------------------------------------------------
 
$regfile = "xm128a1def.dat"
$crystal = 32000000
$hwstack = 64
$swstack = 40
$framesize = 40
 
'include the following lib and code, the routines will be replaced since they are a workaround
$lib "xmega.lib"
$external _xmegafix_clear
$external _xmegafix_rol_r1014
 
'first enable the osc of your choice
Config Osc = Enabled , 32mhzosc = Enabled
 
'configure the systemclock
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1
 
Config Com1 = 38400 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
$lib "glcdST7565r.lbx" ' specify the used lib
$lib "glcd.lbx" ' and this one of you use circle/line etc
 
'the display was connected with these pins
Config Graphlcd = 128 * 64eadogm ,dataport=portj, Cs1 = Porth.0 , A0 = Porth.2 , rst= Porth.1 , wr = Porth.3 , Rd = Porth.4,c86=porth.6
 
cls
 
Setfont Font8x8tt ' set font
 
dim y as byte
 
'You can use locate but the columns have a range from 1-128
'When you want to show somthing on the LCD, use the LDAT command
'LCDAT Y , COL, value
Lcdat 1 , 1 , "11111111"
Lcdat 2 , 1 , "ABCDEFGHIJKL1234"
Lcdat 3 , 1 , "MCS Electronics" , 1 ' inverse
Lcdat 4 , 1 , "MCS Electronics"
 
Waitms 3000
Setfont My12_16 ' use a bigger font
 
Cls
Lcdat 1 , 1 , "112345678" 'a bigger font
Waitms 3000 ' wait
 
Line(0 , 0) -(127 , 64) , 1 'make line
Waitms 2000 'wait 2 secs
Line(0 , 0) -(127 , 64) , 0 'remove line by inverting the color
 
For Y = 1 To 20
 Circle(30 , 30) , Y , 1 ' growing circle
 Waitms 100
Next
 
End
 
 
$include "font8x8TT.font"
$include "my12_16.font"

Languages	English • Deutsch