![]() ![]() INFO - FAQ - CC2-Forum - CCPro-Forum |
|
' ============================================================================ ' Interne Bandgap-Spannungsreferenz auf der Open-Maxi nutzen ' In OCBASIC 1.12a_e1 von Dietmar Harlos am 9. Dezember 2018 ' ============================================================================ ' Der AW60-Controller, auf dem die Open-Maxi basiert, besitzt eine interne ' Bandgap-Spannungsreferenz. Sie kann genutzt werden, um die Betriebsspannung ' zu überwachen. Der folgende Sourcecode demonstriert, wie auf der Open-Maxi ' die aktuelle Betriebsspannung als Kommazahl auf der Seriellen Schnittstelle ' ausgegeben werden kann. Außerdem wird eine Möglichkeit vorgestellt, mit ' der eine Multiplikation mit der Kommazahl 1.2 durchgeführt wird. ' --- Definitionen für das System -------------------------------------------- INCLUDE "omax.def" 'Definitionen für die Open-Maxi ' --- Definitionen des Anwenders --------------------------------------------- DIM z BYTE DIM w1,w2 WORD DIM Internal_Bandgap AD[36] 'Internal Bandgap (typ. 1.20 Volt +/- 15 mV) DIM VREFH AD[38] 'UREF=VREFH (per Jumper auf: VDD, Betriebsspannung) ' --- Das Hauptprogramm ------------------------------------------------------ POKE SPMSC1,PEEK(SPMSC1) OR 1 '"Bandgap Buffer Enable" ADC1CFG=&b01001000 'AD-Wandler auf gerundete 10 Bit WHILE TRUE PRINT "AD[36]=Internal_Bandgap=";Internal_Bandgap PRINT "AD[38]=VREFH=";VREFH 'Die aktuelle Betriebsspannung kann mit folgender Formel ermittelt werden: 'UB = 1.2 * VREFH / Internal_Bandgap 'Deshalb wird hier mit 1.2=6/5 multipliziert: 'UB = (6*VREFH) / (5*Internal_Bandgap) w1=6*VREFH w2=5*Internal_Bandgap 'Jetzt die aktuelle Betriebsspannung als Kommazahl ausgeben: PRINT "Betriebsspannung: ";w1/w2;"."; FOR z=1 TO 4 w1=(w1 MOD w2)*10 PUT w1/w2+ASC("0") NEXT z PRINT " Volt (+/- 1.25 %)" PAUSE 25 WEND End2Host=ON 'Nach Programmende in den Host-Modus END 'Programmende, Neustart mit der Enter-Taste ' --- Programmende ---------------------------------------------------------- Passender Link: Bedienungsanleitung zur Open-Macro und Open-Maxi Meine Homepage: http://ccintern.dharlos.de |
Antwort schreiben |