Frage zu ATmega 8

Thorsten Sch.

Hallo forum und bastler
hab mal ne frage zu ATMEGA 8
hier mal meine belegung des atmegas

Code

Anschluss der Digitalen Klingelanlage
 
 
  Belegung
  Atmega 8



 
 



  


  


  


 
 
  LCD
  an
  ATMEGA8



 
 



  


  


  


 
 
  LCD - DP4



  PC.0



 
 
  LCD - DP5



  PC.1



 
 
  LCD - DP6



  PC.2



 
 
  LCD - DP7



  PC.3



 
 
  LCD - E



  PC.4



 
 
  LCD - RS



  PC.5



 
 
  LCD - R/W



  GND



 
 
  LCD - Hinter.



  PB.0



 
 



  


  


  


 
 
  REALIS



  


  


 
 



  


  


  


 
 
  REALIS 1



  PD.4



 
 
  REALIS 2



  PD.5



 
 
  REALIS 3



  PD.6



 
 
  REALIS 4



  PD.7



 
 



  


  


  


 
 
  Optokopler



  


  


 
 



  


  


  


 
 
  EIN 1



  PD.0



 
 
  EIN 2



  PD.1



 
 
  EIN 3



  PD.2



 
 
  EIN 4



  PD.3



 
 



  


  


  


 
 
  Ausgang TEST



  


  


 
 



  


  


  


 
 
  LED



  PB.3



 
 
  Taster Wartung



  PB.2

Alles anzeigen

Zum testen der baugruppen besitze ich das programier Board von Pollin und das addon von Pollin...
hier wird das LCD nicht angesprochen setzte dafür ein atmega16 ein mit richtigen code dann kommt auch as beim LCD.

so aber warum kommt nichts beim ATmega8 nicht auf den LCD???

Bitte um Rat
Mit Freundlichen Grüßen
Thorsten sch.

keiang

Was für ein LCD verwendest du, HD44780 oder kompatibles ?

Prüfe bitte als erstes mal die Verdrahtung (speziell die Kontrastleitung). Kannst du über die Poti den Kontrast am LCD beeinflussen also z.B. wie auf dem Bild ein schwarzen Balken erzeugen ?
[Blockierte Grafik: http://www.keiang.de/media/images/PCcool/Anleitung/PIC00327.jpg]

Thorsten Sch.

ja hi kaihang
wie gesagt benutze das addons bord von pollin hab es mit 1xmit ein ATtiny2313 mit lcd laufen lassen alles bestens.
code gändert auf ATmega8 und nicht tut sich beim lcd?

ist es nicht egal welche ports ich nutze für das LCD?

Mit Freundlichen grüßen
Thorsten Sch.

keiang

Zitat

wie gesagt benutze das addons bord von pollin...

Pollin hat viele Boards/LCDs, deswegen bitte genauen Typ hier nennen oder besser verlinken.

Thorsten Sch.

hab eben noch mal den code vonPC0-5 auf den port PD0-5 gelegt da geht das lcd?????

DAS LCD IST EIN ( Pollin) BEST-NR.-LCD TC1602E-01 LINK hier......

keiang

Zitat von Thorsten Sch.

hab eben noch mal den code vonPC0-5 auf den port PD0-5 gelegt da geht das lcd?????

Portarchitektur des ATmega8 ist identisch für die Ports PCx <-> PDx (Ausnahme Port-C6: Reset-Eingang. Aber den verwendest du ja nicht.) , sollte also auch an dem PortC funktionieren. Da das LCD an dem PortD funktioniert scheint also die Verdrahtung und auch die Kontrastleitung ok zu sein -> würde deswegen das Problem in der Firmware suchen.

Sind die Ports PC0 - PC5 alle richtig initialisiert und werden die nicht noch wonders in der Firmware verwendet ? (AD-Wandler, I2C-Bus, Optokopler: EIN 1 PD.0 / EIN 2 PD.1 / EIN 3 PD.2 / EIN 4 PD.3 )

Thorsten Sch.

ich poste mal code

Code

$regfile "m8def.dat"                                    	'ATmega8
$crystal = 8000000                                      	'8Mhz Intern
$hwstack = 100
$swstack = 100
$framesize = 100
'Ports als ausgang setzten
Ddrb = &B00111111                                       	'PB6-PB5-PB4-PB3-PB2-PB1 = Reserve Ausgänge
Ddrd = &B00001111                                       	'PD7-PD6-PD5-PD4 = Realis
Ddrc = &B00011111                                       	'PC5-PC4-PC3-PC2-PC1-PC0 = LCD anschluss


Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , _
Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
Initlcd
Cursor Off
Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "PRIVAT-PENSION"


Config Pind.0 = Input                                   	'IN1
Portd.0 = 1
Config Pind.1 = Input                                   	'IN2
Portd.1 = 1
Config Pind.2 = Input                                   	'IN3
Portd.2 = 1
Config Pind.3 = Input                                   	'IN4
Portd.3 = 1
Config Pinb.1 = Input                                   	'Taster (LED/REALIS = TEST)
Portb.1 = 1
Config Pinb.2 = Input                                   	'Schalter Wartung
Portb.2 = 1
Config Portd.4 = Output                                 	'REALIS 1
Config Portd.5 = Output                                 	'REALIS 2
Config Portd.6 = Output                                 	'REALIS 3
Config Portd.7 = Output                                 	'REALIS 4
Config Portb.0 = Output                                 	'LCD Hintergrund Beleuchtung
Config Portb.3 = Output                                 	'LED - REALIS 1-4 Geschaltet


Declare Sub Ein1
Declare Sub Ein2
Declare Sub Ein3
Declare Sub Ein4
Declare Sub Test
Dim I As Word


Do


If I = 0 Then
Portb.0 = 0
Waitms 1
Else
Decr I
End If
If Pind.0 = 1 Then Gosub Ein1
If Pind.1 = 1 Then Gosub Ein2
If Pind.2 = 1 Then Gosub Ein3
If Pind.3 = 1 Then Gosub Ein4
If Pinb.1 = 1 Then Gosub Test


Loop


End


Sub Ein1
Cls
Locate 1 , 1
Lcd "Klnigelmelder"
Locate 2 , 1
Lcd "EIN1"
Portb.0 = 1
I = 7500
Waitms 10
Portd = &B00010000                                      	'Realis 1 An
Waitms 400
Portb.3 = 1                                             	'LED - REALIS 1-4 Geschaltet
Waitms 400
Portd = &B00000000                                      	'Realis 1 Aus
Waitms 800
Portb.3 = 0
Waitms 400


Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "EIN1"
End Sub Ein1


Sub Ein2


Cls
Locate 1 , 1
Lcd "Klingelmelder"
Locate 2 , 1
Lcd "EIN2"
Waitms 10
Portb.0 = 1
I = 7500
Portd = &B00100000                                      	'Realis 2 An
Waitms 400
Portb.3 = 1                                             	'LED - REALIS 1-4 Geschaltet
Waitms 500
Portd = &B00000000                                      	'Realis 2 Aus
Waitms 400
Portb.3 = 0
Waitms 400


Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "EIN2"


End Sub Ein2


Sub Ein3


Cls
Locate 1 , 1
Lcd "Klingelmelder"
Locate 2 , 1
Lcd "EIN3"
Waitms 10
Portb.0 = 1
I = 7500
Portd = &B01000000                                      	'Realis 3 An
Waitms 400
Portb.3 = 1                                             	'LED - REALIS 1-4 Geschaltet
Waitms 500
Portd = &B00000000                                      	'Realis 3 Aus
Waitms 400
Portb.3 = 0
Waitms 400


Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "EIN3"
End Sub Ein3


Sub Ein4
Cls
Locate 1 , 1
Lcd "Klingelmelder"
Locate 2 , 1
Lcd "EIN4"
Waitms 10
Portb.0 = 1
I = 7500
Portd = &B10000000                                      	'Realis 4 An
Waitms 400
Portb.3 = 1                                             	'LED - REALIS 1-4 Geschaltet
Waitms 500
Portd = &B00000000                                      	'Relais 4 Aus
Waitms 400
Portb.3 = 0
Waitms 400


Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "EIN4"
End Sub Ein4


Sub Test
Cls
Locate 1 , 3
Lcd "-TESTLAUF-"
Locate 2 , 1
Lcd "TEST AUSGANG 1"
Portb.0 = 1
I = 7500
Portd = &B00010000
Waitms 1000
Portd = &B00000000
Waitms 500
Portd = &B00010000
Waitms 1000
Cls
Locate 1 , 3
Lcd "-TESTLAUF-"
Locate 2 , 1
Lcd "TEST AUSGANG 2"
Portd = &B00100000
Waitms 1000
Portd = &B00000000
Waitms 500
Portd = &B00100000
Waitms 1000
Cls
Locate 1 , 3
Lcd "-TESTLAUF-"
Locate 2 , 1
Lcd "TEST AUSGANG 3"
Portd = &B01000000
Waitms 1000
Portd = &B00000000
Waitms 500
Portd = &B01000000
Waitms 1000
Cls
Locate 1 , 3
Lcd "-TESTLAUF-"
Locate 2 , 1
Lcd "TEST AUSGANG 4"
Portd = &B10000000
Waitms 1000
Portd = &B00000000
Waitms 500
Portd = &B10000000
Waitms 1000
Cls
Locate 1 , 3
Lcd "-TESTLAUF-"
Locate 2 , 6
Lcd "ENDE"
Portd = &B00000000
Waitms 2000


Cls
Locate 1 , 1
Lcd "klingelmelder"
Locate 2 , 1
Lcd "RUHE-Bereit"
End Sub Test


End


Return

Alles anzeigen

verleicht sieht da jemand den fehler???? bitte um rat.....
danke Thorsten Sch.

Thorsten Sch.

HAB DEN FEHLER GEFUNDEN <- NEIN DOCH NICHT

Auf den Pollin Board ist der AREF nicht angeschlossen jetzt kommt was auf den LCD was an den port C angeschlossen ist....

keiang

Zitat von Thorsten Sch.

HAB DEN FEHLER GEFUNDEN <- NEIN DOCH NICHT

Wenn wir schon bei nicht angeschlossenen Pins sind, ist der Pin "AVCC" angeschlossen (also mit VCC verbunden) ?

Thorsten Sch.

NU ABER HAB ICH DEN FEHLER GEFUNDEN
Hab die schaltung mal auf mein steckboard gesteckt und sehe da es geh, alle meine PORT wie beschrieben funktinoiert WUNDERBAR....
weis nicht warum es nicht bei (POLLIN ADDONS BOARD) es nicht ging?!? Keine Ahnung....
DANKE FÜR DIE TIPPS und HILFE....

Mit Freundlichen Grüßen
Thorsten sch.