Add files via upload

210401_WiLeTo_sekundaer.bas

@@ -0,0 +1,99 @@
+'Pedelegalizer 0.9
+$regfile = "attiny85.dat"
+$crystal = 8000000
+$hwstack = 32                                               ' default use 32 for the hardware stack
+$swstack = 10                                               ' default use 10 for the SW stack
+$framesize = 40                                             ' default use 40 for the frame space
+
+'Analog in initialisieren
+
+Config Adc = Single , Prescaler = Auto , Reference = Avcc
+Start Adc
+
+'Timer für PWM initialisieren
+
+
+
+Config Timer0 = Pwm , Pwm = On , Prescale = 1 , Compare A Pwm = Clear up , Compare B Pwm = Clear up
+Enable Timer0
+Start Timer0
+Ocr0a = 128
+
+'Ein- und Ausgänge initialisieren
+
+
+
+Config Portb.3 = Input                                      'PB3 für Drehmoment einlesen
+Config Portb.4 = Output                                     'PB4 Ausgang für Blinkfrequenz der LEDs
+Config Portb.0 = Output                                     'PWM Ausgang für Nullpunktseinstellung
+
+
+
+'Interrupts initialisieren
+
+
+OCR1C = 127                                                 'für CTC auf Timer1 muß OCR1C gesetzt werden, nicht OCR1A, nach langem Lesen herausgefunden :-)
+
+
+
+Config Timer1 = TIMER , Prescale = 8 , CLEAR_TIMER = 1 , Compare A = Disconnect
+
+
+On Oc1a Tick
+Enable Oc1a
+Start Timer1
+
+Enable Interrupts
+
+'Variablen definieren
+
+Dim Flagtime As Bit                                         'Flag für Timerinterrupt
+Dim Timetic  As Word                                        'Zähler für Taktung Drehmoment Messung
+Dim Torquetic As Word                                       'Zähler für Pulsfrequenz Drehmomentsignal
+Dim Torqueneu As Word                                       'Analogwert Drehmoment
+Dim Torque As Word                                          'Analogwert Drehmoment
+Dim Pulsdauer As Word                                       'Vorgabewert Pulsdauer
+Dim Temp As Word                                            'zwischenspeicher für Berechnungen
+Dim 2xPulsdauer as Word
+'Variablen initialisieren
+
+Flagtime = 0
+Pulsdauer = 10
+2xPulsdauer = Pulsdauer *2
+Timetic=0
+
+waitms 2000
+'Nullpunkt einstellen
+
+Torqueneu = Getadc(3)
+while Torqueneu<82                                          'so lange Signal kleiner 0,4V (5V bei 10bit Auflösung) PWM erhöhen
+      incr Ocr0a
+      waitms 10
+      Torqueneu = Getadc(3)
+Wend
+
+while Torqueneu>164                                         'so lange Signal größer 0,8V (5V bei 10bit Auflösung) PWM reduzieren
+      decr Ocr0a
+      waitms 10
+      Torqueneu = Getadc(3)
+Wend
+
+
+
+'Start Hauptschleife
+
+Do
+waitms 100
+Temp = Getadc(3)/4
+'Ocr0a = 255
+
+OCR1C = Temp
+Loop
+
+
+
+
+Tick:
+                                              'interruptroutine für Timer1
+toggle portb.4
+Return

210403_WiLeTo_primaer.bas

@@ -0,0 +1,141 @@
+
+'Wireless torque sensor at crank of Chainwheel
+$regfile = "attiny85.dat"
+$crystal = 8000000
+$hwstack = 32                                               ' default use 32 for the hardware stack
+$swstack = 10                                               ' default use 10 for the SW stack
+$framesize = 40                                             ' default use 40 for the frame space
+
+
+
+'Timer0 für PWM initialisieren
+
+
+
+Config Timer0 = Pwm , Pwm = On , Prescale = 1 , Compare A Pwm = Clear up , Compare B Pwm = Clear up
+
+Enable Timer0
+Start Timer0
+On Ovf0 Tick
+Ocr0a = 127
+
+'Timer1 für das Auszählen des OP-Signals initialisieren
+
+
+Config Timer1 = Timer , Prescale = 8 , Clear Timer = 0 , Compare A = Disconnect
+
+Enable Timer1
+
+Start Timer1
+On Ovf1 Tim1Ovf
+
+'Ein- und Ausgänge initialisieren
+
+
+
+
+Config Portb.0 = Output                                     'PWM Ausgang für analogen Ausgang Torquesignal
+Config Portb.2 = Input                                      'PB2 für Einlesen Pulsfolge von OP über externen Interrupt
+Config Portb.3 = Output                                     'PB3 Ausgang zum Debuggen
+Config Portb.4 = Output                                     'PB4 Ausgang für PAS Signal
+
+On Int0 ExtInterrupt                                             'externen Interrupt auf PB2 (INT0) einstellen und aktivieren
+Config Int0 = Falling
+Enable Int0
+
+Enable Interrupts
+
+'Variablen definieren
+
+
+Dim Timetic  As Word                                        'Zähler für OP-Signal
+Dim PAStic  As Word                                         'Dauer zwischen zwei PAS-Signalen
+Dim PASticCumulated  As Word                                'Zur Filterung aufaddierte Dauer zwischen zwei PAS-Signalen
+Dim PAScounter  As Word                                     'Zähler für PAS-Signal
+Dim Torquecounter As Word                                   'Zähler für Torque-Signal
+Dim TorqueCumulated As Word                                   'zur filterung aufaddierter Zähler für Torque-Signal
+Dim Temp As Word                                            'Zwischenvariable für Mehrfacharithmetik
+Dim Torque As Word                                          'Ausgang für analoges Torquesignal PWM auf PB0
+Dim ExtFlag As Bit
+'Variablen initialisieren
+
+
+
+Timetic=0
+Torque=0
+PAStic=32000
+Torquecounter=0
+PAScounter=0
+
+
+'Start Hauptschleife
+
+Do
+
+If ExtFlag = 1 Then
+
+   If Timetic < 2 Then                                 'Hier nachdenken, anpassen.
+      Temp =  TorqueCumulated/4
+      TorqueCumulated = TorqueCumulated - Temp
+      Temp = Timetic * 256
+      Temp = Temp + Torquecounter
+      ' hier noch Plausicheck einfügen...
+      TorqueCumulated = TorqueCumulated + Temp
+      Torque =  TorqueCumulated/8
+      Ocr0A =   Torque mod 255
+      if Torque > 255 then                           'Durch toggle im Sender zählt Empfänger bei gleicher Timereinstellung doppelt so viel Werte
+     ' toggle Portb.3
+      endif
+   Else
+      Temp = PASticCumulated/3
+      PASticCumulated = PASticCumulated - Temp           'PAS Signal über drei Werte Filtern, da jede dritte Lücke schmaler ist.
+      PASticCumulated = PASticCumulated + PAScounter
+      PAStic =  PASticCumulated/3
+      PAScounter = 0
+      toggle Portb.3
+
+   Endif
+
+   'PAS-Pin setzen
+   Temp = PAStic/2
+   If PAScounter < Temp then
+      Portb.4 = 0
+   Else
+      Portb.4 = 1
+   Endif
+
+
+   'Ocr0B = Torquecounter
+   ExtFlag = 0                                         'Flag vom externen Interrupt zurücksetzen
+   Timetic = 0                                         'Timer1 overflowzähler zurücksetzen, Zähler wird inkrementiert, wenn die Torquepulsfolge nicht anliegt.
+EndIf
+
+
+
+Loop
+
+
+
+
+Tick:
+                                              'interruptroutine für Timer0
+If PAScounter < 32000 Then
+incr PAScounter
+Endif
+
+Return
+
+
+ExtInterrupt:
+Torquecounter= Timer1
+Timer1=0
+ExtFlag = 1
+
+Return
+
+Tim1Ovf:
+
+If Timetic < 32000 Then
+incr Timetic
+Endif
+Return