PCINT > Attiny24a > Bascom

[frager (Gast)]

Ich muss mit dem Attiny24a 2 unabhängige Interrupte verwenden.
Da dieser nur einen int0 hat aber 12 PCint's muss ich mich damit 
vergnügen.

Da ich irgendwie wenig im internet finde das mir hilft, habe ich nun 
folgenden schnipsel:

Enable Pcint0
Enable Pcint1
Pcmsk0 = &B00000001
Pcmsk1 = &B00000001
On Pcint0 Golauter
On Pcint1 Goleiser

So wie ich verstehe habe ich zwar 12 PCint pins, aber kann damit nur 2 
Interrupte aktivieren.
Pcint0 der von PORTA.0 bis .7 geht
Pcint1 der von PORTB.0 bis .3 geht

Ich brauche pro Interrupt nur jeweils 1 pin. Also PINA.0 und PINB.0.
Das nachträgliche kontrollieren der PINs wäre zu viel aufwand. Da ich 
bei jeder Flankenänderung eine aktion will.
Brauche ich noch "Enable Interrupts" ?

Danke

[Peter D. (peda)]

frager schrieb:
> Das nachträgliche kontrollieren der PINs wäre zu viel aufwand.

Warum?
Was ist an einem EXOR so schlimm?

Du kannst aber auch den ICP1 als externen Interrupt benutzen.
Oder den Analog-Komparator mit 1,1V als Schwelle.

[Jerri (Gast)]

frager schrieb:
> Brauche ich noch "Enable Interrupts" ?

Ja!

[frager (Gast)]

Aber sonst passt alles?

[Jerri (Gast)]

frager schrieb:
> Aber sonst passt alles?

Was soll das denn jetzt? Das Programm ist schon mal unvollständig!

Probier es aus und wenn es nicht geht, poste 'ne Fehlerbeschreibung. Bis 
dahin verschwende zumindest ich keine weitere Minute daran, was "alles" 
in dem Projekt nicht passen könnte.

[Oldie (Gast)]

Da du nur jeweils einen PinChange-Eingang von PCI0 und PCI1
nimmst und freigegeben hast, ist die Sache doch schon fast
eindeutig.

"Enable Interrupts" muss sein, sonst tut sich nix.

Mich würde aber stören, dass EIN Tastendruck schon mindestens (!)
zweimal den jeweiligen Interrupt auslöst: Taste gedrückt UND
Taste losgelassen ändert jeweils den Pegel. (Pin CHANGE!)
Das unvermeidliche Prellen von Tasten kann den Interrupt auch
20 mal auslösen...

Das nachträgliche Kontrollieren der PINs wäre dir zu viel
Aufwand? - Dann lass es sein:
Das Entprellen der Tasten erfordert mehr Aufwand, als nur das
simple Erkennen des auslösenden Pins. ;-)

[frager (Gast)]

$regfile = "attiny24.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

   $sim

Config Porta.1 = Output                                     'leiser
Config Porta.2 = Output                                     'lauter
Config Porta.3 = Output                                     'I/O
Config Porta.4 = Output                                     'naechste
Config Porta.5 = Output                                     'vorherige
Config Porta.6 = Output                                     'mute
Config Pina.0 = Input                                       'Drehgeber A in
Config Pinb.0 = Input                                       'Drehgeber B in
Config Portb.1 = Output                                     'Drehgeber A out
Config Portb.2 = Output                                     'Drehgeber B out


Enable Pcint0                                               'PCint0-7
Enable Pcint1                                               'PCint8-11
Pcmsk0 = &B00000001                                         'PCint0
Pcmsk1 = &B00000001                                         'PCint8
On Pcint0 Golauter
On Pcint1 Goleiser



Dreha Alias Portb.1
Drehb Alias Portb.2


Enable Interrupts

Do
...
Loop

End


Golauter:
Disable Interrupts
Toggle Dreha
Waitms 10
Toggle Drehb
Enable Interrupts
Return

Goleiser:
Disable Interrupts
Toggle Drehb
Waitms 10
Toggle Dreha
Enable Interrupts
Return

Folgenden Code habe ich. (Hauptprogramm mal rausgenommen)

Laufen tut der Tiny mit 3.3V @8mhz. Funktioniert aber nicht.
Es geht hier um einen Drehimpulsgeber. Dieser ist an dem Tiny 
angeschlossen. Wird daran gedreht, wird ein interrupt ausgelöst und gibt 
praktisch diesen weiter. Sollte er zumindest.

Wenn ich einen Taster an Pina.0 anschließe (mit Pullup widerstand) 
passiert auch nichts. Ich denke es liegt an den Interrupt?

[spess53 (Gast)]

Hi

>Es geht hier um einen Drehimpulsgeber. Dieser ist an dem Tiny
>angeschlossen. Wird daran gedreht, wird ein interrupt ausgelöst und gibt
>praktisch diesen weiter. Sollte er zumindest.

Vergiss Intrups.

http://www.mikrocontroller.net/articles/Drehgeber

MfG Spess

[Oldie (Gast)]

Tut mir leid, von Bascom hab ich NULL Ahnung.

Versuch es erstmal mit einem Minimalprogramm, wo du
nur die Reaktion auf Tasten (nach Masse) an PinA-0 und PinB-0
(mit PullUp) auf irgendwelchen anderen Ausgängen sichtbar machst.

[frager (Gast)]

Danke für den Tipp, aber ich habe mich in C noch nicht so reingelesen. 
Deswegen, und auch weil ich bisher eigentlich alles mit Bascom 
realisieren konnte, würde ich gerne mit Bascom weiter machen.

Ich versuche das erst mit dem Interrupt. Vorallem denke ich nicht das 
der Controller damit überlastet wird :D.

Wenn ich im simulator den Interrupt aktiviere, funktioniert alles 
perfekt. Ändere ich allerdings den PINA.0 oder PINB.0 dann passiert 
nichts.

[Bastler6 (Gast)]

Lese dir das mal durch:

http://www.roboternetz.de/community/threads/11849-PCINT-beim-Mega88

[frager (Gast)]

Oldie schrieb:
> Versuch es erstmal mit einem Minimalprogramm, wo du
> nur die Reaktion auf Tasten (nach Masse) an PinA-0 und PinB-0
> (mit PullUp) auf irgendwelchen anderen Ausgängen sichtbar machst.

Wenn du meinst in Real, das habe ich versucht.

Im Simulator habe ich:

$regfile = "attiny24.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32

$sim

Config Pina.0 = Input
Config Pinb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output

Porta.0 = 1
Portb.0 = 1

Enable Pcint0                                               'PCint0-7
Enable Pcint1                                               'PCint8-11
Pcmsk0 = &B00000001                                         'PCint0
Pcmsk1 = &B00000001                                         'PCint8
On Pcint0 Golauter
On Pcint1 Goleiser

Enable Interrupts

Do
nop
Loop

Golauter:

Toggle Portb.1


Return

Goleiser:
Toggle Portb.2

Return

versucht, funktioniert aber auch nicht.
Ich weiß nicht was ich falsch mache.
Löse ich im simulator den Interrupt so aus, funktioniert alles so wies 
gehört, nur wenn ich eben den pin ändere, funktioniert nichts. Genau so 
auch wenn ichs mit dem richtigen Attiny24 mache.

Bastler6 schrieb:
> Lese dir das mal durch:
>
> http://www.roboternetz.de/community/threads/11849-PCINT-beim-Mega88

Habe mal zum testen den kompletten code aus post 2 kopiert. Im Simulator 
funktioniert dieser auch nicht.

[Norbert S. (norberts)]

Hi,

ich fürchte den Simulator kannst Du hier vergessen. Ich habe erst 
kürzlich was mit den PinChange Interrupts in Bascom gemacht und bin mir 
sicher, daß das so gehen müsste.
Ist leider nicht so selten, daß im Simulator nicht alles funktioniert, 
vor allem etwas neuere Dinge (wobei "Neu" heisst, war in den allerersten 
AVR vor Tiny und Mega nicht drin, wie z.B. Timer2).
Im Simulator kann man mal banale Dinge ausprobieren, Laufzeiten simpler 
Programmschnipsel testen usw...

Da es in der realen Schaltung auch nicht geht, hast Du da ev. ein 
Hardware-Problem. Schaltet der Drehgeber z.B. nach Plus? Dann passiert 
da natürlich nichts. Ändert sich der Pegel am Pin wirklich? Oszi?

Gruß,
Norbert

[frager (Gast)]

Norbert S. schrieb:
> Ich habe erst
> kürzlich was mit den PinChange Interrupts in Bascom gemacht und bin mir
> sicher, daß das so gehen müsste.

Oke, also so wie ich das hab müsste das funktionieren? GIMSK z.B. brauch 
ich nicht?
Ich werde dann mal das programm brennen, und dann testen. Per Taster.

Norbert S. schrieb:
> Da es in der realen Schaltung auch nicht geht, hast Du da ev. ein
> Hardware-Problem. Schaltet der Drehgeber z.B. nach Plus? Dann passiert
> da natürlich nichts. Ändert sich der Pegel am Pin wirklich? Oszi?

Ändern tut der sich wirklich. Habe es ja auch versucht mit einem taster.

[Norbert S. (norberts)]

Hi,

GIMSK macht Bascom mit dem "Enable Pcint0".
Das kannst Du auch im Simulator sehen, das Bit wird gesetzt. Wenn das da 
funktioniert, geht das real sicher. Umgekehrt ist es nicht sicher.

Wie hast Du das mit nem Taster probiert? Schaltplan?

Generell:
Vergiss die Config Pin usw, mach das mit den Registern.
Also DdrX.n = 1 -> Output.
Als Eingang brauchst Du nichts zu machen, den Pullup schaltest Du dann 
mit PortX.n ein.
PinX.n ist immer der tatsächliche Pegel.
"Config PinX.n = Input" macht exakt nichts oder schreibt da 
schlimmstenfalls ne 0 in DdrX.n.
Auch für andere Dinge nutze die "höheren" Funktionen von Bascom nur, 
wenn Du Dir sicher bist, was da abgeht.
Bascom macht es dem User teilweise sehr einfach aber verdaddelt dabei 
auch Zeit.
Für eine Aquariensteuerung mag das egal sein aber bei zeitkritischen 
Dingen kann man das auch in Bascom alles sehr performant per Ints und 
direkt über die Register machen.

Gruß,
Norbert

[frager (Gast)]

Vielen dank.

Habe eben den Attiny nochmal getestet. Nun funktioniert er. Denke also 
es lag an der Versorgungsspannung im Radio.

Ich verwende aber schon immer "Config PINx.n = Input" das funktionierte 
eigentlich immer.

Muss aber noch den Pullup aktivieren. Hatte das vergessen.

[Norbert S. (norberts)]

Hi,

"Config PINx.n = Input" ist das Gleiche wie "DdrX.n = 0" und diese 
Register sind nach dem Start alle NULL!
Alles was nicht explizit als Output ("DdrX.n = 1) definiert ist, ist 
immer input.
Das kannst Du Dir also schenken.

Aber selbst meine C-Kollegen schreiben da ne Null rein, ich habs 
aufgegeben...

Ausnahme ist natürlich, wenn das im Programm geändert werden soll.
Am Start macht das aber überhaupt keinen Sinn.

Gruß,
Norbert

[frager (Gast)]

Achso, ja klingt einleuchtend :D. Danke

Nun ist das so. Ich habe auf der Platine am Radio ja eigentlich einen 
drehgeber. Also folgende Pins: A - GND - B
Beim drehen geht entweder zuerst A oder zuerst B auf low, bzw "liegt in 
der luft".

Mein problem ist nun, das ich das ja per Attiny machen möchte.
Löte ich mir jetzt ein Kabel an A und an B und halte diese abwechselnd 
an A danach an B, tut sich was. Also es können auch sekunden dazwischen 
liegen.

Schließe ich aber nun A und B an den Tiny an, passiert nichts. Egal ob 
ich PORTB also Ausgang setze und dann entweder high oder low anlege, 
oder ob ich ihn als ausgang setzte, also low, und um "in der luft" zu 
liegen als input setze.

Variante A:
Toggle PORTB.1
waitms 10
Toggle PORTB.2

Variante B:
Toggle DDRB.1
waitms
Toggle DDRB.2

Wie realisiere ich das?
Messe ich an GND und z.B. PIN B vom Drehimpulsgeber auf der Platine, 
habe ich 5 Volt. Heißt das jetzt ich hab sicher 5 Volt, oder messe ich 
damit den Pullup nicht mit?

[frager (Gast)]

So folgenden Code habe ich nun:

,8$regfile = "attiny24.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32


   $sim

Config Porta.1 = Output                                     'leiser
Config Porta.2 = Output                                     'lauter
Config Porta.3 = Output                                     'I/O
Config Porta.4 = Output                                     'naechste
Config Porta.5 = Output                                     'vorherige
Config Porta.6 = Output                                     'mute
Config Pina.0 = Input                                       'Drehgeber A in
Config Pinb.0 = Input                                       'Drehgeber B in
Config Portb.1 = Output                                     'Drehgeber A out
Config Portb.2 = Output                                     'Drehgeber B out

Porta.0 = 1                                                 'pullup
Portb.0 = 1                                                 'pullup


Config Adc = Single , Prescaler = Auto , Reference = Internal       'adc einstellungen
Start Adc                                                   'adc starten

Enable Pcint0                                               'PCint0-7
Enable Pcint1                                               'PCint8-11
Pcmsk0 = &B00000001                                         'PCint0
Pcmsk1 = &B00000001                                         'PCint8
On Pcint0 Golauter
On Pcint1 Goleiser



Enable Interrupts


do
...
loop



Golauter:
Disable Pcint0
Disable Pcint1
Toggle Portb.1
Wait 1
Toggle Portb.2
Enable Pcint0
Enable Pcint1
Return

Goleiser:
Disable Pcint0
Disable Pcint1
Toggle Portb.2
Wait 1
Toggle Portb.1
Enable Pcint0
Enable Pcint1
Return

Der Interrupt wird nun auch ausgeführt. Allerdings funktioniert "wait 1" 
nicht
An den Fuses liegts nicht, der ist auch auf 8mhz programmiert, habe ich 
mit einem anderen miniprogramm getestet.

Gelesen habe ich das man Wait 1 in einem Interrupt nicht so verwenden 
sollte, aber was anstelle?

[frager (Gast)]

Keiner ne idee?

[frager (Gast)]

",8" am anfang is nur n versehen beim kopieren gewesen

[Norbert S. (norberts)]

Hi,

das mit dem nicht funktionierendem "Wait 1" ist das $sim.
Wait in einer ISR ist wirklich "Bäh", setze ein Flag und mach das in der 
Hauptschleife.

Gruß,
Norbert

[frager (Gast)]

Hallo, habe das problem in ein anderes Forum gepostet. Bekam da nach 
paar Minuten auch diese antwort. Hätte ich das mal schon früher gewusst 
:D. Dachte $sim ist lediglich für den internen Simulator gedacht :/.

Danke