Spanning, stroomsterkte en temperatuur meten met PIC

Galaxy:
Hoe doe je dit met de Ampere? is die 1R weerstand de shunt?
Zo ja ik heb nog wel een 5W 0.1R liggen.. kan dit ook?

En die potmeters moeten ook 10 slagen zijn?

EDIT:
Ik heb even een 16F88 besteld..
Dan als je code vandaag op CO of per mail komt kan ik hem programeren!
Bedankt galaxy!
Alleen nu nog even weten hoe het met de A moet

[Bericht gewijzigd door Technojunk op ]

Hier komt ie dan.

Allereerst het schema :

http://home.casema.nl/galaxy/VAT.jpg

Zoals gezegd: E1 is je voeding. Deze mag niet meer dan +30V leveren, anders krijgt je ADC een overflow, en is de controller de kluts kwijt.

Verder hebben we R1. Deze kan aardig wat voltjes wegkauwen bij een flinke belasting. Te weten: 1 volt per ampere.
Deze weerstand kan dus gaan stoken, dus nemen we hiervoor een 10 watt type.

C1 is voor verdere stabilisatie, en moet worden aangepast aan de stroom die de voeding kan leveren. (vuistregel: 1000 uF per ampere).

R8 en R9 zijn toegevoegd, omdat ik de interne pullups in de controller toch niet helemaal vertrouw.

Dan het met smart verwachte progje:


Device=16F88
Config INTRC_OSC_NOCLKOUT, CP_OFF, WDT_OFF, PWRTE_ON, LVP_OFF,  BODEN_off 
DelayMS 200

EData 67,82,69,65,84,69,68,32,66,89,32,84,72,69,79,46,65,78,68,32,68,69,70,73,78,73,84,76,89,32,32,32,78,79,84,32,66,89,32,78,73,69,76,83
ALL_DIGITAL true
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_LINES 2

Declare SCL_PIN PORTB.0
Declare SDA_PIN PORTB.1

Cls

Dim volts As Word
Dim amps As Word
Dim decvolts As Byte
Dim decamps As Byte
Dim temp As Word
Dim q As Byte


For q=0 To 15
    Print ERead q
Next
Print $fe,$c0
For q=16 To 31
    Print ERead q
Next
DelayMS 2000
Cls
Print $fe,2
For q=32 To 43
    Print ERead q
Next
For q=0 To 20
    Print At 2,1,"************"
    DelayMS 200
    Print At 2,1,"            "
    DelayMS 200
Next
Cls


ANSEL=3
ADCON0=%11000101
ADCON1=128

Main:

volts=ADIn 0
DelayMS 10
volts=volts*10
volts=volts/35
decvolts=volts//10

amps=ADIn 1
DelayMS 10
amps=amps*10
amps=amps/35
amps=amps-volts
decamps=amps//10

BusIn %10010001,170,[temp]              ;read T-sensor
BusOut %10010000,[238]                  ;start a new temperature conversion


Print At 1,1,DEC2 volts/10,".",DEC1 decvolts," VOLT"
Print At 2,1, DEC1 amps/10,".",DEC1 decamps, " AMP"

Print At 1,11,DEC2 temp.HighByte
If temp.LowByte=0 Then
    Print ".0"
Else
    Print ".5"
End If

Print 223,"C"
Print At 2,8,""
For q=1 To 8
    If q<=amps Then
        Print 255
    Else
        Print 32
    End If
Next
DelayMS 100

GoTo Main

Over het programma:

Er is voorzien in een bescheiden welkomst-tekst, welke ca. 4 seconden duurt.

Rechts van de Amp uitlezing is een kleine bargraph zichtbaar die de stroomsterkte weergeeft.
Nu in de simulatie niet zichtbaar, omdat de belasting immers 0 is.
Edit: in de huidige configuratie heb je 100 mA per bardeel, dus max. 800 mA.

Er is niet voorzien in negatieve temperaturen, dus zet je de voeding in in de vriezer, dan kan je vreemde resultaten verwachten..

Theo

Hartelijk bedankt!
Hoe kan ik de welkomstekst aanpassen? (Kan het zo gouw niet vinden..)
Alles ga ik 1% types gebruiken.. is i.p.v. 1R 0.1R 5W ook goed?

Zo te zien staat de tekst als Ascii tekens in de EData regel:

EData 67,82,69,65,84,69,68,32,66.....
C,R,E,A,T,E,D, ,B....

EData 67,82,69,65,84,69,68,32,66,89,32,84,72,69,79,46,65,78,68,32,68,69,70,73,78,73,84,76,89,32,32,32,78,79,84,32,66,89,32,78,73,69,76,83
ALL_DIGITAL true

Waar zie jij dat staan?
Dit zie ik wel staan.. kun je die tekst van createt b.. eens dik maken?

[Bericht gewijzigd door Technojunk op ]

Is ASCII code, decimaal genoteerd. (67=C, 82=R, 69=E, 65=A,....)

CD :)

Op 31 mei 2007 07:42:36 schreef Technojunk:
kun je die tekst van createt b.. eens dik maken?

Je wil toch niet de naam in jouw naam veranderen he? Als je die code niet zelf hebt geschreven vindt ik het erg ongepast als je wel je eigen naam erboven zet (heb ik een pagina terug ook al gezien, code met commentaar in het engels terwijl je klaagt dat je geen engels kunt en dan wel je naam erboven...)

Weet niet veel van basic, maar van die created by, blijf je gewoon af, jij hebt het prog niet gemaakt, en zet je welkomsttekst hier ofzo... (denk toch dat dit de bedoeling is?)


For q=0 To 20
    Print At 2,1,"************"
    DelayMS 200
    Print At 2,1,"            "
    DelayMS 200
Next

Op 31 mei 2007 07:42:36 schreef Technojunk:

EData 67,82,69,65,84,69,68,32,66,89,32,84,72,69,79,46,65,78,68,32,68,69,70,73,78,73,84,76,89,32,32,32,78,79,84,32,66,89,32,78,73,69,76,83
ALL_DIGITAL true

Waar zie jij dat staan?
Dit zie ik wel staan.. kun je die tekst van createt b.. eens dik maken?

Shit is dat he, dat je op een gegeven moment toch zelf moet denken...

Als je mijn prog zelfstandig kan hacken, dan heb je je diploma verdient..

Theo

Eerder niet !!!

Ok. komtie:

CREATED BY THEO.AND DEFINITLY NOT BY Niels

Zo dat was het.. Klopt het een beetje? hahaha

ik maak er dit van: 68,65,78,75,93,69,33

Ken je dit uit je kop?

[Bericht gewijzigd door Technojunk op ]

Dat hahaha had je moeten weglaten.
Volgende code komt in HEX...
Of er komt uberhaupt geen code meer.
Dat ene woordje is duits...

Theo

Edit: verkeerde reactie van mij. Als je dit echt zelf hebt uigepluist, dan in elk geval een pluim in je reet...

Dubbel edit: Heb je er wat van geleerd om ASCII om te zetten in mensentaal ?

Zoja, dan ben ik dubbel tevreden.

[Bericht gewijzigd door ~Galaxy op ]

Kan dit minder een jeuzeltopic worden?
En @Technojunk: Haal die vinger toch eens uit je h*l... doe zelf eens wat.

Locken maar. Ik reply niet meer.

Op 31 mei 2007 21:44:26 schreef Henry S.:
Kan dit minder een jeuzeltopic worden?
En @Technojunk: Haal die vinger toch eens uit je h*l... doe zelf eens wat.

Danku en amen.

Nu wachten op mn PIC
iig bedankt iedereen voor de hulp!
En speciaal galazy!
En ja helemaal zelf uitgepluist!

PS: waar compil je die code mee?
Bij Proton IDE full versie krijg ik een eror:
Dat iets met de fuses iets niet goed is
Deze geeft een fout over de interne occ.

Ben er nu achter dat je basic schrijft?
Zoek alleen een compiler hier voor..

[Bericht gewijzigd door Technojunk op ]

Hier compiled ie prima met Proton IDE.
Komt waarschijnlijk omdat ik een betaalde versie heb..
Anders wil ik hem wel voor je compileren hoor :D

Wel zie ik net dat ik niet kan programmen.
De programmer (bumblebee) ondersteund de 16F88 niet.

Zou ik toch maar even checken.

Ik heb dan de verse die hier liever niet word besproken..
Zou jij hem eens kunnen compilen?

Zou jij hem kunnen compilen?
Je krijgt hem via de mail

Chek je mail!

pfff.. ik word helemaal "vol" in de bol. Er zijn zoveel topics / mades / reacties / circuits over digitaal U en I metingen in een labvoeding, ik weet zelf ook niet welke ik moet kiezen.

Ik ben namelijk ook bezig met digitaal display in labvoeding maar niet met een PIC, die zijn traag :+

Haha
Pak een FPGA ;)

Ik kan je iig deze site advizeren: http://users.tpg.com.au/gramo/Site/adc.htm

[Bericht gewijzigd door Technojunk op ]

Galaxy: Is dit je mail? http://home.casema.nl/galaxy/meeladres.jpg

Ik ben namelijk ook bezig met digitaal display in labvoeding maar niet met een PIC, die zijn traag

En dan heb ik er nog expres een delay in moeten bouwen, zodat de snelheid beperkt blijft tot 10 samples/sec.

Wat heb je aan 100- of 1000 samples/sec. ??

Galaxy:
Heb je mail ontvangen?

Je zit gewoon mijn prog te vern**ken.

For q=0 To 20
Print At 2,1,"Klaar met laden!"
DelayMS 200
Print At 2,1,"Succes!"
DelayMS 200
Next

- Ten eerste heb je je tekst binnen een loop geplaatst.
Zo wordt er 20 keer dezelfde tekst op dezelfde plaats neergestampt. Lijkt me niet zo functioneel.

- Ten tweede komt er feitelijk te staan:
"Succes!et laden!"

- Ten derde wil ik helemaal nix met Bin Laden te maken hebben.

Ik zal gewoon een functioneel VTA prog compilen, en zowel jouw als mijn ongein eruit laten.
Verder niet meer zeuren...


:10000000000001308A0071298030A100FE30FE20FE
:100010000130FE207530A70030302629A101A1173C
:10002000AF00FE30FE202F08FE28A401AA00AB017D
:10003000A01124080319A0150530A3002730A9003A
:1000400010302E200330A900E8302E20A9016430A2
:100050002E20A9010A302E202A083528A8002B08B6
:10006000A7002A08A6003A212608A600A303031920
:10007000A011240803193F28230203184628260844
:10008000031DA011A0194628303EFE280800AD002F
:10009000861106118316861106110F30860583120C
:1000A0002D08A01871283E30A7008030262133305B
:1000B000AC0085201330A7008830262185206430CD
:1000C00025218520643025212230AC008520283070
:1000D00070200C30702006307020A0142D0871287C
:1000E0002014AC00201C7F280611033C031C84282C
:1000F00084200730A700D0302621031408002014E4
:10010000FE3C031992280615201C201086150F307E
:1001100086052C08F03986048611AC0E2018852837
:10012000323025212D086C292016201E2012A01AFD
:100130009D28A016D3200318C82820110830A90034
:10014000E420A80DA90BA0282019AD28201AA92861
:10015000F920F320EF20201AC820F62003102808E9
:10016000CF282016201E2012201BBB28FE39A500F8
:1001700020170310CF28A01BC328AC00A017D32042
:100180000318C8282C08D7200318C828201ECF28F9
:10019000F920F3202013A013A0122011F6202E1412
:1001A000031C2E106C29EC202508A01A0138A80089
:1001B0000830A900A80DF6200318DF28F920F32045
:1001C000EF20A90BDA28F620F320E62864000310BC
:1001D00086180314EF200800F620F320F9200610FB
:1001E00083160610FC2883160614FC288316861432
:1001F000FC2886108316861083120800A11B47284E
:10020000A11C04292118B3280800AC00AC0DAC0DCA
:100210002C0D3839C1389F00323025211F151F1988
:100220000F291E08B20083161E088312B1006C2924
:10023000A901A800FF30A807031CA907031C6C290B
:100240000330A700DF3026211A29A701E83EA600C7
:10025000A709FC30031C2F29A60703182C29A60781
:100260000000A70F2C2926183529A61C39290000C3
:1002700039290800AB01AA011030AC00270DAA0DE6
:10028000AB0D2808AA022908031C290FAB0203188A
:1002900050292808AA0729080318290FAB070310BB
:1002A000A60DA70DAC0B3E2926086C291030B00016
:1002B000A701A601AD0CAC0C031C64292808A607F5
:1002C00029080318290FA707A70CA60CAB0CAA0C2A
:1002D000B00B5A292A086C298313831203130000D8
:1002E0000800A001C8308A01182183169B0107303D
:1002F0009C0083128A0104208A01042003308316A3
:100300009B00C53083129F00803083169F008312AC
:1003100000308A010521B3003208B4000A308A0196
:1003200018213408AD003308AC00A9010A30A80038
:100330008A015621B3002B08B4003408A700330803
:10034000A600A9012330A8008A013A21B30027089A
:10035000B4003408A7003308A600A9010A30A80099
:100360008A013A212A08B70001308A010521B50027
:100370003208B6000A308A0118213608AD00350867
:10038000AC00A9010A30A8008A015621B5002B084B
:10039000B6003608A7003508A600A9012330A8003A
:1003A0008A013A21B5002708B6003308B50234089F
:1003B000031C013EB6023608A7003508A600A901B5
:1003C0000A30A8008A013A212A08B80091308A012F
:1003D000B320AA308A01B3208A019620BA008A018C
:1003E0009420B90090308A01B320EE308A01B12008
:1003F0008030A10080308A010E200230A400340831
:10040000A7003308A600A9010A30A8008A013A21F2
:10041000AA002708AB008A0118202E308A01472045
:100420000130A40037088A01162020308A014720B5
:1004300056308A0147204F308A0147204C308A01CC
:10044000472054308A0147208030A100C0308A0103
:100450000E200130A4003608A7003508A600A90127
:100460000A30A8008A013A21AA002708AB008A01B5
:1004700018202E308A0147200130A40038088A0154
:10048000162020308A01472041308A0147204D3014
:100490008A01472050308A0147208030A1008A30ED
:1004A0008A010E200230A4003A088A011620B908F9
:1004B0008A110A12031D652A2E308A014720303026
:1004C0008A0147208A110A126B2A2E308A0147209E
:1004D00035308A014720DF308A01472043308A01C6
:1004E00047208030A100C7308A010E2000308A01E9
:1004F00047200130BB0009303B028A110A12031861
:100500009A2AB6088A110A12031D8C2A3B08350262
:100510008A110A12031C922AFF308A0147208A118D
:100520000A12952A20308A014720BB0A8A110A1232
:0E053000031D7B2A64308A0118218A01872965
:02400E000000B0
:00000001FF

Hartelijk bedankt!
Maar ik wil even weten wat er aan de hand is met mijn progje:

Als ik hem probeer te compileren krijg ik hier een fout in:

Config INTRC_OSC_NOCLKOUT, CP_OFF, WDT_OFF, PWRTE_ON, LVP_OFF,  BODEN_off

Hij geeft deze fout: Invaild Fuse settings [INTRC_OSC_NOCLKOUT]!

Wat is hier fout aan?