3.142.200.247 |
| Pagina printen - kies Landscape |
Zoeken in de WeetHet pagina's |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| WeetHet is being updated! - Current articles will slowly move to www.tweaking4all.com Voor uitstekende webhosting welke zowel betrouwbaar als betaalbaar is adviseren wij: LiquidWeb |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Op deze pagina ...
Overzicht
Hoe verbind ik het LCD met de Basic Stamp II Hieronder zie je hoe je dat moet doen. Ik heb daarvoor 2 tabellen gemaakt, tabel 1 met de correcte weergave van gegevens en tabel 2 voor de ongeduldigen onders ons (net als ik dus). Maak de volgende verbindingen:
De snelle manier voor de ongeduldigen onder ons:
Merk op: de pin out is gebaseerd op Jon z'n LCDDEMO1.BAS. Het oorspronkelijke schema van Jon werkt echter niet (maar heeft me wel heel goed op weg geholpen) en wel om de volgende redenen:
In PBasic kunnen we de poorten (P0 ... P5) als volgt activeren voor output: Init: DirL = %00111111 ' set (lower 8) pins 0-5 as outputs
Outs = $0000 ' clear the pins
OK, het display zit nu aan onze Basic Stamp 2. Hoe besturen we nu de parallel aangestuurde lijnen naar het LCD scherm met maar 6 lijnen? Het antwoord is eigenlijk eenvoudig (met dank aan Jon): het LCD scherm kan met 8- of 4-bits aangestuurd worden. 4-bit mode werkt hetzelfde als de 8-bit mode mode, met het verschil dat we de 8-bits in 2 stappen van 4-bits versturen. Eerst sturen de 4 hoge bits, dan de 4 lage bits. Praktisch voorbeeld: Stel we willen de letter 'A' sturen. Dat is in binaire
code: Als eerste moeten we de bovenste 4 bits (4 bits = nibble,
8 bits = byte) sturen (ik weet dat het wat verwarrend kan werken, maar
daar wen je vanzelf aan), gevolgd door de 4 lage bits. 0100 Dit resulteerd in een 'A' op het LCD display. Dit ziet er allemaal erg moeilijk uit maar met behulp van wat gosub-routines lossen we dit eenvoudig op. Stel een karakter neemt een byte in beslag (=8 bits) en we hebben daarvoor een variable gedefinieerd. In Pbasic ziet dat er als volgt uit: char VAR Byte ' character sent to LCD Hier definieren we de variable ('var'-statement)
genaamd 'char' van het type 'Byte'. OutA = char.HIGHNIB ' output high nibble Soortgelijk zien we dat voor de 4 lage bits: OutA = char.LOWNIB ' output lower nibble Om het display nu te laten weten dat we iets verstuurd hebben zullen we de 'E'-pin van het LCD display kort hoog moeten maken. We hebben deze aan pin5 van de Basic Stamp 2 gemaakt. Hier zien we weer een sterke kan van PBasic. Het simpelweg sturen van een 'hoog' (=1) naar pin5 doet men als volgt: PULSOUT 5, 1 ' strobe the Edge Enable line Om aan te geven aan het display dat we data sturen, en niet een instructie (!), zullen we de 'RS'-pin van het display hoog moeten zetten. Het verschil met de vorige pin is dat we deze nu hoog laten. Waarom we dat doen zien we straks. In PBasic ziet dat er als volgt uit: HIGH 4 ' goto write-character mode Dat is alles wat we moeten doen om een enkele karakter naar biten te sturen. Om nu een hoop geheugen en vooral type werk te besparen hebben we een kleine subroutine gemaakt. Hier vind je de gosub-routine voor het versturen van karakters: ' =-=-=-=-=-=-=-=-=-=-=-= ' Write ASCII char to LCD ' =-=-=-=-=-=-=-=-=-=-=-= LCDwr: OutA = char.HIGHNIB ' output high nibble PULSOUT 5, 1 ' strobe the Enable line OutA = char.LOWNIB ' output low nibble PULSOUT 5, 1 HIGH 4 ' return to character mode RETURN Besturen - Sturen van stuurcode's (instructies) Het sturen van instructies is eigenlijk hetzelfde als het sturen van een karakter met als verschil dat we nu pin4 (RS van het display) LAAG moeten brengen i.p.v. HOOG. Het LCD display gebruikt dit om onderscheid te maken tussen karakter (tekst) en stuurcode (instructie). Het LAAG zetten van de RS-pin is ook weer simpel: LOW 4 ' enter command mode Nu we weten hoe we een instructie kunnen versturen, zullen we natuurlijk moeten weten WAT voor instructies we kunnen versturen. Met behulp van de volgende gosub-routine kunnen we dat doen: ' =-=-=-=-=-=-=-=-=-=-=-=- ' Write instruction to LCD ' =-=-=-=-=-=-=-=-=-=-=-=- LCDcmd: LOW RS ' enter command mode LCDsendchar ' then write the character De beschikbare instructies vind je hier:
' LCD control characters ' ClrLCD CON %00000001 ' clear the LCD CrsrHm CON $00000010 ' move cursor to home position CrsrLf CON $00010000 ' move cursor left CrsrRt CON $00010100 ' move cursor right DispLf CON $00011000 ' shift displayed chars left DispRt CON $00011100 ' shift displayed chars right DDRam CON $10000000 ' Display Data RAM control Hoe gebruiken we nou deze instructies? Uitgaande van de voor gedefinieerd waarde wordt dat relatief eenvoudig: Praktisch voorbeeld: Scherm wissen: Char = ClrLCD GOSUB LCDcmd Cursor 1 stap naar links verplaatsen: Char = CrsrLf GOSUB LCDcmd Nu zou je kunnen denken dat je er bent, niets is minder waar. Het display moet namelijk na het aanzetten geinitialiseerd worden. Besturen - Initialiseren van het LCD display De gosub-routines die we hiervoor gedefineerd hebben zijn nu erg handig voor het initialiseren van het LCD display. Vergeet niet dat we in 4-bit mode moeten werken. Gebaseerd op de handleiding van Hitachi, zou dit in de volgende stappen gedaan moeten worden:
* = Gebruik bovenstaande tabel
voor eigen aanvullingen
LCDini: pause 50 ' Wait for LCD init ' ================================= ' STANDARD HITACHI 44780 4-BIT INIT ' ================================= char=%00000011 ' Set 8-bit mode (1) GOSUB LCDcmd char=%00000011 ' Set 8-bit mode (2) GOSUB LCDcmd char=%00000011 ' Set 8-bit mode (3) GOSUB LCDcmd char=%00000010 ' Set 4-bit mode GOSUB LCDcmd char=%00101111 ' Set duty cycle 11xx = 5x11 matrix GOSUB LCDcmd ' 10xx = 5x8 matric char=%00000000 ' Display control mode GOSUB LCDcmd char=%00001000 ' Set display OFF, cursor OFF, blink OFF GOSUB LCDcmd char=%00000000 ' Display control mode GOSUB LCDcmd char=%00001111 ' Set display ON, cursor ON, blink ON GOSUB LCDcmd ' 11CB -> C=1 cursor on, B=1 blink on char=%00000000 ' Entry control mode GOSUB LCDcmd char=%00000110 ' Set cursor right, no display shift GOSUB LCDcmd ' 01IS -> I=1 cursor right, S=1 shift display char = ClrLCD ' Clear LCD GOSUB LCDcmd Zowel de LCD FAQ als de handleiding van Hitachi spreekt veel over de uitvoer tijd: bij de Basic Stamp maakt dit blijkbaar niets uit. OPTREX DMC2034 en DMC50400 - Een 4x20 LCD layout Ik heb gebruik gemaakt van de Optrex 4x20 LCD display-types, met beiden een Hitachi 44780 controller. De pin-layout van dergelijke display is standaard voor alle Hitachi-gebaseerde LCD displays. Dat geldt ook voor de LCD karakter layout. Voor 4x20 LCD's zie je in het algemeen 2 soorten layouts, de recentere display hebben het volgende display layout:
Als je karakters blijft sturen, start links boven in de hoek, dan wordt alles netjes in aangegeven volgorde gevuld en eindig je rechts onder. Oudere 4x20 LCD displays, zoals mijn Optrex werken net even anders:
Merk op dat hier de lijnen 1 en 3 een enkele regel vormen. Zo vormen de regels 2 en 4 ook een enkele regel. Bij het vullen van het scherm wordt dus eerst regel 1, dan regel 3, dan regel 2 en uiteindelijk regel 4 gevuld. Een voorbeeld hoe je daar mee om kunt gaan zie je hier (zie ook de demo's): ' ============================
' Write char at position (X,Y)
' ============================
' Usage:
' X=10 ' horizontal position or column (X)
' Y=2 ' vertical position or line (Y)
' char="A" ' character to write
' GOSUB LCDpos ' position cursor and write char
'
LCDpos:
char2=char ' Save char
char=CrsrHm ' Set cursor to home location
GOSUB LCDcmd
counter=%00000000 ' Reset counter (=position 0)
IF Y=1 THEN done ' 4x20: row1 starts at position 0
IF Y=2 THEN pos_row2
IF Y=3 THEN pos_row3
IF Y=4 THEN pos_row4
pos_row2: ' 4x20: row2 starts at position 64
counter=%01000000
GOTO position
pos_row3: ' 4x20: row3 starts at position 20
counter=%00010100
GOTO position
pos_row4: ' 4x20: row4 starts at position 84
counter=%01010100
GOTO position
position:
counter=counter+X-1 ' Add X to Y position minus 1 (pos 1 = 0)
char=%10000000+counter
GOSUB LCDcmd
done: char=char2 ' restore old char
GOSUB LCDwr ' and write it
RETURN
Pin layout Hitachi 44780 Hitachi gebaseerde LCD display hebben een standaard aansluiting naar de buyitenwereld:
Dit is een aanpassing op de code van Jon Williams (http://members.aol.com/jonwms) zijn LCDDEMO1.BS2. Het initialiseerd het display en stuurt (herhaaldelijk) een tekst naar het display (download hier): ' -----[ Constants ]-------------------------------------------------------
' Ports used
RS CON 4 ' Register Select (1 = char)
E CON 5 ' LCD Enable pin (1 = enabled)
' LCD control characters
'
ClrLCD CON $01 ' clear the LCD
CrsrHm CON $02 ' move cursor to home position
CrsrLf CON $10 ' move cursor left
CrsrRt CON $14 ' move cursor right
DispLf CON $18 ' shift displayed chars left
DispRt CON $1C ' shift displayed chars right
DDRam CON $80 ' Display Data RAM control
' -----[ Variables ]-------------------------------------------------------
'
char VAR Byte ' character sent to LCD
index VAR Byte ' loop counter
' -----[ EEPROM Data ]-----------------------------------------------------
'
Msg DATA "BASIC Stamp 2 LCD in action" ' preload message
' -----[ Initialization ]--------------------------------------------------
'
Init: DirL = %00111111 ' set pins 0-5 as outputs
Outs = $0000 ' clear the pins
' Initialize the LCD (Hitachi HD44780 controller)
'
LCDinit: pause 500 ' Wait for LCD init
' =================================
' STANDARD HITACHI 44780 4-BIT INIT
' =================================
char=%00000011 ' Set 8-bit mode (1)
GOSUB LCDcmd
char=%00000011 ' Set 8-bit mode (2)
GOSUB LCDcmd
char=%00000011 ' Set 8-bit mode (3)
GOSUB LCDcmd
char=%00000010 ' Set 4-bit mode
GOSUB LCDcmd
char=%00101111 ' Set duty cycle 11xx = 5x11 matrix
GOSUB LCDcmd ' 10xx = 5x8 matric
char=%00000000 ' Display control mode
GOSUB LCDcmd
char=%00001000 ' Set display OFF, cursor OFF, blink OFF
GOSUB LCDcmd
char=%00000000 ' Display control mode
GOSUB LCDcmd
char=%00001111 ' Set display ON, cursor ON, blink ON
GOSUB LCDcmd ' 11CB -> C=1 cursor on, B=1 blink on
char=%00000000 ' Entry control mode
GOSUB LCDcmd
char=%00000110 ' Set cursor right, no display shift
GOSUB LCDcmd ' 01IS -> I=1 cursor right, S=1 shift display
char = ClrLCD ' Clear LCD
GOSUB LCDcmd
' -----[ Main Code ]-------------------------------------------------------
'
Start:
FOR index = 0 TO 39
READ Msg + index, char ' get character from memory
GOSUB LCDwr ' write it to the LCD
NEXT
PAUSE 1000 ' wait 2 seconds char = ClrLCD ' clear the LCD
GOSUB LCDcmd
PAUSE 500
GOTO Start ' do it all over
' -----[ Subroutines ]-----------------------------------------------------
'
' Send command to the LCD
'
LCDcmd: LOW RS ' enter command mode
'
' Write ASCII char to LCD
'
LCDwr:
OutA = char.HIGHNIB ' output high nibble
PULSOUT E, 1 ' strobe the Enable line
OutA = char.LOWNIB ' output low nibble
PULSOUT E, 1
HIGH RS ' return to character mode
RETURN
In dit voorbeeld laat ik een balkje op-en-neer lopen, een aardige demo hoe je de cursor kunt sturen (de volgende demo doet dat veel beter). ' -----[ Constants ]-------------------------------------------------------
' Ports used
RS CON 4 ' Register Select (1 = char)
E CON 5 ' LCD Enable pin (1 = enabled)
' LCD control characters
'
ClrLCD CON $01 ' clear the LCD
CrsrHm CON $02 ' move cursor to home position
CrsrLf CON $10 ' move cursor left
CrsrRt CON $14 ' move cursor right
DispLf CON $18 ' shift displayed chars left
DispRt CON $1C ' shift displayed chars right
DDRam CON $80 ' Display Data RAM control
' -----[ Variables ]-------------------------------------------------------
'
char VAR Byte ' character sent to LCD
char2 VAR Byte ' Duplicate character store
index VAR Byte ' loop counter
counter VAR Byte ' 2nd counter
X VAR Byte ' X position
Y VAR Byte ' Y position
'-----[ Initialization ]--------------------------------------------------
'
Init: DirL = %00111111 ' set pins 0-5 as outputs
Outs = $0000 ' clear the pins
'=================================
' STANDARD HITACHI 44780 4-BIT INIT
' =================================
LCDinit: pause 500 ' Wait for LCD init
char=%00000011 ' Set 8-bit mode (1)
GOSUB LCDcmd
char=%00000011 ' Set 8-bit mode (2)
GOSUB LCDcmd
char=%00000011 ' Set 8-bit mode (3)
GOSUB LCDcmd
char=%00000010 ' Set 4-bit mode
GOSUB LCDcmd
char=%00101111 ' Set duty cycle 11xx = 5x11 matrix
GOSUB LCDcmd ' 10xx = 5x8 matric
char=%00000000 ' Display control mode
GOSUB LCDcmd
char=%00001000 ' Set display OFF, cursor OFF, blink OFF
GOSUB LCDcmd
char=%00000000 ' Display control mode
GOSUB LCDcmd
char=%00001100 ' Set display ON, cursor ON, blink ON
GOSUB LCDcmd ' 11CB -> C=1 cursor on, B=1 blink on
char=%00000000 ' Entry control mode
GOSUB LCDcmd
char=%00000110 ' Set cursor right, no display shift
GOSUB LCDcmd ' 01IS -> I=1 cursor right, S=1 shift display
char = ClrLCD ' Clear LCD
GOSUB LCDcmd
PAUSE 500
'-----[ Main Code ]-------------------------------------------------------
'
Start:
Y=2
FOR X=6 TO 15
char="0"+X-6
GOSUB LCDPos
NEXT
start2:
Y=1
char=255
FOR X=6 to 15
GOSUB LCDPos
pause 50
NEXT
char=" "
FOR X=6 to 15
GOSUB LCDPos
pause 50
NEXT
goto start2
'-----[ Subroutines ]-----------------------------------------------------
Dit voorbeelddoet hetzelfde als het voorgaande voorbeel maar door beter sturing van de cursor positie is deze beter en vooral sneller. ' -----[ Constants ]-------------------------------------------------------
' ports used
RS CON 4 ' Register Select (1 = char)
E CON 5 ' LCD Enable pin (1 = enabled)
Mijn mini BOE - Board Of Education Hier zie je hoe ik de zogenaamde mini BOE (Board Of Education) gebouwd heb voor test doeleinden. Onderdelen 1x DIL 40 chip voetje Als eerste heb ik het IC-voetje over de lengte doorgezaagd zodat ik een mooi voetje had voor het plaatsen van het OEM Basic Stamp 2 printje. De tweede helft heb ik gebruikt om een stekker te maken voor de aansluitingen van het display. Ik heb deze aan de onderkant van het printje gesoldeerd zodat de pinnen aan de andere kant van het experimeteerboard uitsteekt. Deze pinnen heb ik vervolgens genummerd (8 in totaal) en aan de connector voor de OEM Basic Stamp 2 gemaakt en wel als volgt:
Op de foto pagina kun je een afbeelding zien van hoe het e.e.a. eruit ziet. |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
