DRehzahlmessung

Hi Leute,
weiß von euch jemand wei ich das Beispielprogramm Für Drehzahlsensoren von Robotikhradware aändern muss, dass ich die Drehzahl an einem T1 Pin des AtMega32 messen kann?


Original Code(Robotikhardware):
Config Int0 = Falling

Config Timer1 = Timer, Prescale = 256
Const Timervorgabe = 3036
Const Markierungenproscheibe = 120

Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer

Print
Print "* RN-CONTROL 1.4 *"
Print "Drehzahl Messung"; ""



Zaehlerirq0 = 0
On Int0 Irq0
Enable Int0

On Timer1 Timer_irq
Enable Timer1

Enable Interrupts


Do
Print
Print "Impulse Sek: "; Impulseprosekunde
Impulseprominute = Impulseprosekunde * 60
Umdrehungenprominute = Impulseprominute / Markierungenproscheibe
Print "Umdreh. Min: "; Umdrehungenprominute
Wait 3
Loop

End




'Pro Impuls (Markierung auf Scheibe) ein Aufruf
Irq0:
Incr Zaehlerirq0
Return


'Pro Sekunde ein Aufruf
Timer_irq:
Timer1 = Timervorgabe
Impulseprosekunde = Zaehlerirq0
Zaehlerirq0 = 0
Return

MFG
Sven

Der T1-Pin ist ein Zählereingang und Int0 ist ein Interrupteingang. Das kann man nicht einfach ändern.

felack

Hi,
ich wollte eigentlich nur wissen ob man das Programm so abändern kann, dass eine Drehzahlmessung auch am T1-Pin möglich ist und wenn ja wie man das ändern müsste.


Sven