Hallo,
ich baue derzeit mit ein paar Kommilitonen im Rahmen einer Projektarbeit an einem FTS. Die Steuerung ist so ziemlich dem Asuro nachempfunden. Um die Drehzahl der asynchron Motoren genau regeln zu können, verwenden wir dabei Taktscheiben (120er Teilung). Das Problem ist, dass wir dabei eine viel zu hohe Anzahl an Pulsen bekommen. So haben wir z.B. bei 44 upm über 50000 Pulse/min gemessen (per Pin-Change Interrupt / beide Flanken). Wenn ich richtig rechne müssten es eigentlich 240 * 44 = 10560 sein. Wir haben mit dem Oszilloskop das Signal am Pin gemessen und haben eine recht saubere Rechteckspannung. Prinzipiell ist das für uns eigentlich kein Problem, weil Drehzahl und Pulse trotzdem gleichmäßig ansteigen - doppelte Drehzahl = doppelt soviele Pulse. Allerdings finden wir es jetzt nicht so wirklich schön 
Wir verwenden einen Atmega 2560 und programmieren mit Bascom. Hier ist mal ein "Testprogramm" von uns, allerdings misst dieses nur noch eine Flanke (zumindest soll es das) und gibt die Drehzahl sekündlich aus... Sieht evtl. etwas wild aus, weil wir momentan nur "rumprobieren" (wir haben erst vor 3 Wochen angefangen uns damit zu beschäftigen)
Code:
$prog , 255 , &B11011001
$regfile = "m2560def.dat"
$hwstack = 120
$framesize = 100
$swstack = 100
$crystal = 16000000
'Timer für Zeitbezug (1 Sekunde)
Config Timer1 = Timer , Prescale = 256
Enable Timer1
On Timer1 Timing
Timer1 = 3036
'-----------------------------------
'Pin Change Interrupt
'Motor links
Config Pink.4 = Input
Portk.4 = 1
'Motor rechts
Config Pink.5 = Input
Portk.5 = 1
Enable Interrupts
Pcmsk2 = &B00110000
On Pcint2 Test
Enable Pcint2
'Variablen für Inkremente
Dim Inkr_links As Word
Dim Inkr_rechts As Word
'Variablen für vorherigen Zustand um Flanke feststellen zu können
Dim Tmp_links As Bit
Dim Tmp_rechts As Bit
Inkr_links = 0
Inkr_rechts = 0
Tmp_links = 0
Tmp_rechts = 0
'---------------------------
'PWM für beide Motoren
Config Pinc.2 = Output
Config Pinc.3 = Output
Config Pinb.4 = Output
Config Pinc.0 = Output
Config Pinc.1 = Output
Config Pinh.6 = Output
Config Timer2 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 1
Portc.2 = 0
Portc.3 = 1
Pwm2a = 60
Portc.0 = 1
Portc.1 = 0
Pwm2b = 20
'------------------------------------
Do
Loop
End
'--------------------------------------
'Interrupt für Pulse
Test:
If Pink.4 = 1 And Tmp_links = 0 Then
Incr Inkr_links
Tmp_links = Pink.4
End If
If Pink.5 = 1 And Tmp_rechts = 0 Then
Incr Inkr_rechts
Tmp_rechts = Pink.5
End If
Tmp_links = Pink.4
Tmp_rechts = Pink.5
Return
'-------------------------------------
'Timer für Zeitbezug (Umdrehungen/Sekunde) und Ausgabe
Timing:
Print Inkr_links ; " " ; Inkr_rechts
Inkr_links = 0
Inkr_rechts = 0
Return
Ich bin für jeden Tipp dankbar...
Zitieren
Lesezeichen