-
-
Ich habe das Polin Board mir dem neuen Addon.Board verbunden.
So funktioniert es bei mir.
$regfile = "m16def.dat" 'definieren des verwendeten Chips
$crystal = 8000000 'definieren des verwendeten externen Quarz (8MHz)
Dim A As Byte 'dimensionieren der verwendeten Variablen
Dim B As Byte
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portb.0 , Rs = Portb.2
Ddrd = &B11100000 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)
Ddra = &B11111111 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Porta = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)
Ddrb = &B11111111 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portb = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)
Cls
Initlcd 'initialisiert das LCD
Cls
'Locate 1 , 1
Lcd "PortA 4-7 B1-B3 "
Lowerline
Lcd "Polin AddonBoard"
usw.
Die Anschlüsse PA5-Pa7 wurden auf PB5 - PB7 verbunden.
PB1 an R/W, PB0 an E und PB2 an RS
Gruß
Kurt
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen