Externe Ereignisse zählen mit Timer0 = Counter...

**RCO** · 12.10.2004, 22:53

Also ich will Ereignisse Zählen, die an einem Pin Anliegen (Flanken).

[glow=red:914904f99d]Also ein Counter![/glow:914904f99d]

Leider weiß ich nur soviel, als das ich den Timer0 als Counter deklarieren muss. Weiter nix. Ich bitte euch mir ein wenig Code zu schicken.

MFG Moritz

**harryup** · 12.10.2004, 23:15

hi,

nach dem deklarieren kannst du timer0 direkt auslesen, da haste dann die gezählten flanken drinne. läuft aber bei 256 über, tät ich über 'nen interrupt machen.

dim 256_flanken as word ' der zähler
enable interrupts
enable timer0

on timer0 t0_isr

' ab hier programm
do
.
dein code
irgendwannmal: gosub anzeige
.
loop

end
' -------------------------------------

sub anzeige
256_flanken = 256_flanken * 256 ' der wird nur um 1 erhöht je überlauf
256_flanken = 256_flanken + timer0 ' momentaner zählerstand dazu
lcd "Counts: " ; 256 flanken ' Zähler anzeigen
return
end sub anzeige
' -----------------------------------

to_isr
incr 256_flanken
return
' -----------------------------------

ist saugrob, ich weiss, aber so geht's mal
- wenn kein fatal error drinne is

gruss, harry

**RCO** · 13.10.2004, 08:53

Danke ich werds mal ausprobieren, allerdings immernoch meine Frage. An welchen Pins zähle ich den jetzt?

UNd was bedeutet 'incr'? heißt das sowas wie 256_flanken++ (also +1)

MFG moritz

**harryup** · 13.10.2004, 09:28

genau das bedeutet es. x++ kenn ich nur von c, geht das unter Bascom auch? gezählt wird der t0-pin.
gruss, harry

**RCO** · 13.10.2004, 09:48

Sorry, aber ich habs immer noch net gerafft.
t0-pin?
Aber welcher ist das? Ist der vorbestimmt, oder kann man den wählen, wenn ja, wie gebe ich ihn an?
Ich benutze einen 90S2313, nur so zur Info.

MFg moritz

**maw_hn** · 13.10.2004, 10:10

Also wenn ich ehrlich bin hab ich die Version von HarryUp auch net ganz kapiert. Ich arbeite zwar mit nem andern Controller müsst aber auch bei dir gehen:
Ich hätte den externen Takt- Eingang des Timers (soweit bei deinem uC vorhanden) mißbraucht, indem du an ihn die Leitung anlegst von der die Flanken gezählt werden sollen. Dann zählt er bei jeder Flanke eins weiter. Müsstest natürlich noch einen eventuellen Overflow abfangen (ich weis ja net in welchen Bereichen zu zählen willst).

**RCO** · 13.10.2004, 10:31

Also der Bereich ist nicht so hoch, aber nach dem Code oben klappt das ja auch, oder (also der Overflow).
welcher ist denn der Takt-Eingang?
Ich schätze Harry meinte mit t0-Pin den Eingang für Timer 0, aber welcher ist das? Hab nen AT90S2313, oder kann man den beliebig ändern?

MFG Moritz

**RCO** · 13.10.2004, 11:15

Damit habe ich meine Frage selbst beantwortet:

(muss ich den T0 oder Int0 benutzen)
bzw. für welche Anwendungen benutze ich die INT- und für welche T-Ausgänge?

**RCO** · 13.10.2004, 21:18

Also der Code lieferte ungefähr 9 Fehlermeldungen! Ich geb mich mal ran.

Fertig! Soviel wars garnicht.
Hier ein netter Code:

Code:

Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portb.0 , Db6 = Portb.1 , Db7 = Portb.2 , E = Portb.3 , Rs = Portb.4       ' Natürlich so wie es wirklich angeschlossen ist (4-Bit-Modus)
Config Lcd = 16 * 2
Initlcd
Display On
Cursor Off
Config Timer0 = Counter , Edge = Rising
Dim 256_flanken As Word                                     ' der zähler
Declare Sub Anzeige
Enable Timer0
Enable Interrupts
On Timer0 T_isr

' -----------------------------------

Cls
Do
Home
Lcd "Cnt.= " ; Timer0 ; "  "
Lowerline
Lcd "Overflow = " ; 256_flanken ; "  "
Waitms 100
Loop

' -----------------------------------

T_isr:
incr 256_flanken
Return

' -----------------------------------

Danke für die Hilfe

MFG Moritz