Atemga16 Bascom Shiftin Problem PINA.0

[karsten (Gast)]

Hallo,

ich habe ein Problem. und zwar.

ich habe insgesammt 6 PINs am Atmega16 die ich mittels Shiftin abfrage.
an PortC habe ich keine Probleme.
PortC. 0,2,4,6

wenn ich jetzt aber PortA.0 & 2 Abfrage geht PortA.0 "anscheinend" 
nicht.
"anscheinend" weil ich PortA.2 zuvor abfrage auf Signale um 
festzustellen ob was angeschlossen ist.

ich habe auch schon einen anderen µC versucht.

weiß einer rat bzw. hat einer eine idee?

[Alex S. (thor368)]

Tach karsten,

was heißt "geht nicht"? Poste erstmal den code und dann sehen wir mal 
weiter.

Thor

[karsten (Gast)]

"geht nicht" soll heißen das die am PIN ankommenden daten immer gleich 
sind.
signale kommen aber am Pin an und ändern sich auch

$regfile = "m16def.dat"                                     'definieren des verwendeten Chips

$crystal = 16000000

$hwstack = 32
$swstack = 40
$framesize = 40

Config Watchdog = 1024                                      'Watchdog Wert ca. 1sec

Ddra = &B00001010
Porta = &B00000000

Ddrc = &B10101010
Portc = &B00000000

Ddrd = &B00000000
Portd = &B00000000

'########### Variablen #########################################################
Dim L As Long


'########### L C D #############################################################


Dim ___lcdno As Byte

Config Lcd = 40 * 2

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , E2 = Portb.3 , Rs = Portb.0

___lcdno = 0
Initlcd
Cls
Cursor Off

___lcdno = 1
Initlcd
Cls
Cursor Off


'##### S T A R T B E D I N G U G E N ###########################################
Porta.1 = 0
Porta.3 = 0
'Portc.1 = 0
'Portc.3 = 0


'##### M A I N L O O P #########################################################
Main:                                                       'Hauptprogramm

Do


   Start Watchdog
   L = 0
   Shiftin Pina.0 , Pina.2 , L , 7 , 24
   Reset Watchdog

   ___lcdno = 0
   Locate 2 , 1
   Lcd Str(l)
   Waitms 10

'   Start Watchdog
'   L = 0
'   Shiftin Pinc.0 , Pinc.2 , L , 7 , 24
'   Reset Watchdog

'   ___lcdno = 0
'   Locate 1 , 1
'   Lcd Str(l)
'   Waitms 10

Loop

Ich habe nur eine hardware bis jetzt. deshalb klammer ich aus und steck 
diese um. am PortC funktioniert alles. nur an PortA nicht.

[Alex S. (thor368)]

Die DDRs sind gesetzt? Damit sind die portbits Ausgänge. Du kannst sie 
natürlich noch lesen aber was dabei rum kommt ist meist das was du ins 
Port geschrieben hast.

Thor

[karsten s. (kask)]

ja klar sind die DDRs gesetzt. und richtig auch noch ;)
sonst würde es an Port C ja nicht gehen.

wie gesagt am Port C geht alles. nur an PortA nicht. An die Anderen 
Ports kann ich layout massig nicht mehr ran :(

[Alex S. (thor368)]

Grmpf, nein sie sind nicht gesetzt. Ich bin in der Zeile verrutscht. 
Sorry.

Was ich mir noch vorstellen könnte: Du importierst doch da eine LCD 
library. Die sind sehr speicherintensiv. Insbesondere im stack. Versuch 
mal den stack drastisch zu vergrößern. 128byte minimum. Vielleicht hast 
du ja einen Stapelüberlauf.

Thor

[karsten s. (kask)]

funktioniert immer noch nicht.
ich habe absolut keinen plan woran es scheitert.
die signale kommen definitiv an den pins an. sind auch soweit recht 
sauber.
der wert ist immer der selbe der angezeigt wird. aber was rein geht ist 
unterschiedlich :(

[MWS (Gast)]

Der erzeugte Maschinencode ist in Ordnung und entspricht wenn auf PortC 
konfiguriert exakt dem Code für PortA, mit Ausnahme der Registeradressen 
natürlich.

Wenn die Bascom-Version alt ist, dann auf die neueste Version updaten, 
ansonsten nach einem Hardwareproblem schauen, z.B. AVCC nicht 
angeschlossen oder 2tes GND vergessen.

karsten schrieb:
> weil ich PortA.2 zuvor abfrage auf Signale um
> festzustellen ob was angeschlossen ist.

Davon ist im Code nichts zu sehen. Auch hat in solchem Testcode ein WD 
nichts zu suchen, also wirf den raus.

[karsten s. (kask)]

was ist WD?

zweite GND und AVCC ist angeschlossen.

Aber das Problem hat sich geklärt. Auch wenn nicht Aufgeklärt.

Habe den Hardwareteil neu aufgebaut und nun geht es an PortA4-7. keine 
Ahnung wieso das nicht ging bzw. geht.

ich denke eventuell EMV.

danke für die Mühen.
gruß karsten