Stromzähler

[bluelight_electronic]

Hi,

also das Display würd ich maximal alle Sekunde Updaten...

dann hat sich ein kleiner tipp fehler in den kommentaren eingeschlichen.

"gestartet, bei 32,25kHz ist er nach genau einer halben Sekunde bei 15625
Stop Timer1 "

also beim Prescaler von 256 hast 31,25khz und und nicht 32 =) (das mal nur so am rande *g*)

da ich mich mit basecom null auskenne kann ich dir zu den fehlern nicht helfen.

Zum Fehler in Line 38, du versuchst nen String und nen Word zu addieren, das klappt nicht ^^ (ich hoffe mal auch in Basic nicht )

Als ich mal in Basecom was getestet hatte musst ich "Enable Timer1" zum starten nutzen ist das mittlerweile anders ?

[YaNnIk]

So, hier jetzt meine zweite Version, die sich auch ohne Fehler kompilieren lässt :

$regfile = "m8def.dat"                                      'Definieren des Chips
$crystal = 8000000                                          'Frequenz

Config Adc = Single , Prescaler = Auto , Reference = Off    'ADC konfigurieren mir Aref als Referenzspannung
Start Adc

Config Lcd = 16 * 1                                         'LCD konfigurieren
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4
Config Lcdbus = 4

Cls

Config Timer1 = Timer , Prescale = 256                      'Timer1 (16-bit) konfigurieren
Start Timer1                                                'Mit dem Prescaler ergibt es 31250Hz
Stop Timer1


Dim Strom2 As Single                                        'Strom 1,5*10^-45 bis 3,4*10^38
Dim Strom As Single                                         'Strom2 1,5*10^-45 bis 3,4*10^38
Dim Strom_wert As Word                                      'Strom_wert 0 bis 65.536
Dim Verbraucht As Word                                      'Verbraucht 0 bis 65.536


Do

   Gosub Hauptprogramm                                      ' Verweis auf Subroutine

Loop

End

Hauptprogramm:

   Timer1 = 0
   Start Timer1                                             'Timer1 Starten

   Strom_wert = Getadc(5)                                   'ADC an Portc.5 auslesen (Werte 0 bis 1024)
   Strom = Strom + Strom_wert                               'Gemessener Wert wird in jedem Durchgang addiert
   Strom2 = Strom * 100000                                  'Umrechnung des Wertes in den realen Amperewert (in mAh)
   Strom2 = Strom2 / 4096                                   'Umrechnung des Wertes in den realen Amperewert (in mAh)
   Verbraucht = Strom2 / 3600                               'Umrechnung wie viel mA in einer halben Sekunde verbraucht werden

      If Verbraucht < 10 Then
         Locate 1 , 4
      End If

      If Verbraucht < 100 Then
         Locate 1 , 3
      End If

      If Verbraucht < 1000 Then
         Locate 1 , 2
      Else
         Locate 1 , 1
      End If

      Lcd Verbraucht ; " mAh"                               'die bisher verbrauchten mAh werden angezeigt

   Strom2 = Strom_wert * 100                                'Aktueller Stromverbrauch (in A) ausrechnen
   Strom2 = Strom2 / 4096

      If Strom2 < 10 Then
         Locate 1 , 14
      Else
         Locate 1 , 13
      End If

      Lcd Strom2                                            'Am Ende des Displays wird der aktuelle Stromverbrauch angezeigt
      Locate 1 , 16
      Lcd "A"

   Gosub Warten                                             'Jetzt ist der Auswertung fertig und der AVR soll warten bis ne halbe Sekunde rum ist

Return


Warten:

   If Timer1 > 31249 Then                                   'Wir errinnern uns - am anfang wurde der Timer gestartet, bei 32,25kHz ist er nach genau einer halben Sekunde bei 15625
      Stop Timer1
      Gosub Hauptprogramm                                   'Dann wird das Hautprogramm wieder gestartet und die Werte werden Aktualisiert
   Else
      Gosub Warten                                          'Wenn der Wert noch nicht erreicht ist Wird die Subroutine so lange wiederholt, bis der Wert erricht wird
   End If

Return

Ich habe die Updaterate jetzt wieder auf eine Sekunde erhöht..

Werde die Hardware bei Zeiten mal aufbauen und die SOftware testen.. Ich werde dann berichten