Stromverbrauch ermitteln

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Um ehrlich zu sein ist es mir egal ob er 0,5µ oder 9,9µA (10 würde ich messen können) braucht. Es liegt unter der Selbstendladung der Akkus. Das würde erst interessant bei Feuermeldern o.ä.
      In dem anderen Fallen fällt es kaum ins Gewicht ob er 1mW oder 1W verbraucht während er 3KW Motoren oder Heizungen schaltet. Selbst ein einzelnes Relais braucht schon mehr
      Das mit dem Goldcap ist eine gut Idee, ich hätte 100k davor gehangen.

      zaubara schrieb:

      Im Endeffekt hilft aber nur messen welche Methode wirklich etwas bringt
      Sicher, daher der Leerversuch. Leider habe ich im Moment kein Platinchen da mit dem ich einen Mega 8 o.ä. beschreiben kann ohne Nebenverbraucher die das Ergebniss unbrauchbar machen. Die nächste wird teilbestückt für Probemessungen.
      PS ich bin die Appnote mal überflogen die haben PIC's ?
    • ES IST CHIPABHÄNGIG.
      Ich habe gerade eine Mega8 probiert und da ist es genau andersherum. Alle Ausgange Low <1µA . a_64_3a718cae
      Alle Ausgänge High 12,1mA a_59_ac03eae5

      Quellcode

      1. $regfile = "m8def.dat"
      2. $crystal = 8000000 'interner RC
      3. $hwstack = 64
      4. $swstack = 64
      5. $framesize = 64
      6. '$baud = 9600 'aktiviert den usart und brauchte 0,4mA
      7. '$sim
      8. Config Base = 0
      9. Ddrb = $ff
      10. Ddrc = $ff
      11. Ddrd = $ef 'd4 ist Taste zu Vdd / 10K as Pulldown
      12. 'd5 ist LED 270R zu Gnd
      13. Config Timer1 = Timer , Prescale = 1024
      14. 'Enable Interrupts
      15. Portb = $ff
      16. Portc = $ff
      17. Portd = $ff
      18. Reset Portd.4
      19. Dim A As Integer , B As Byte , L As Byte , T As Byte
      20. Do
      21. If Pind.4 = 1 Then
      22. Set Portd.5
      23. If L = 0 Then
      24. L = 1
      25. Portb = $ff
      26. Portc = $ff
      27. Portd = $ef
      28. Timer1 = 0
      29. Else
      30. L = 0
      31. Portb = 0
      32. Portc = $40 'Reset High lassen (unnötig)
      33. Portd = 0
      34. End If
      35. Else
      36. Reset Portd.5
      37. End If
      38. If Timer1 > 65000 Then
      39. Portd = Portb
      40. Config Powermode = Powerdown
      41. End If
      42. Waitms 200
      43. Set Portd.5 'flackert bis zum schlaf
      44. Waitms 50
      45. Reset Portd.5
      46. Loop
      Alles anzeigen
    • Es ist schon sehr schade, dass das Datenblatt nicht darauf eingeht. So bekommt @Pluto25 meine Anerkennung für die Grundlagenforschung. :thumbsup:
      Raum für Notizen

      -----------------------------------------------------------------------------------------------------

      -----------------------------------------------------------------------------------------------------