Spanning, stroomsterkte en temperatuur meten met PIC

dim var_waar_uitkomst_in_moet as byte (of word of long of whatever you want)

var_waar_uitkomst_in_moet = var_met_waarde * 2

var_waar_uitkomst_in_moet = var_met_waarde / 3

heel simpel dus

Dus het gaat zo:


var_waar_uitkomst_in_moet = var_met_waarde * 2

?

Wat moet ik bij waar uit komst in moet.. wat moet ik daar invullen?

Stel dat de variabele 'Spanning' de waarde 5 heeft en je wilt dat dit dubbel moet zijn.
Spanning = Spanning * 2

[Evil grin mode]

In nog geen 2 uurtjes tijd, schema, code, en simulatie ontworpen. Een PCB zou nog een uurtje kosten.
(verveelde me. zit te wachten op componenten).

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

[/Evil grin mode]

Theo

Op 10 mei 2007 13:51:39 schreef Technojunk:
Hallo,
Ik wil in mn nieuwe labvoeding de spanning en de stroom en de tempratuur gaan meten, en uit lezen met een display

Heb je die al ?

@ Galaxy: Dat heb je snel voor elkaar!
In welke taal heb je de code geschreven? (Ik zoek nog een basisprogje met LCDaansturing in assembler :P )

Ik programmeer in Proton+
De compiler genereert gewoon een ASM-file hoor.
Wil ik je best melen, maar ik kan het adres in je profiel niet bereiken.

Stuur mij anders een meeltje, dan reply ik met de ASM.

Edit: Je gaat toch niet met ASM klooien. Dat kost dagen.
In een hogere programmeertaal ben je in een uurtje klaar...

Theo

[Bericht gewijzigd door ~Galaxy op ]

Dat lukt niet, je meeladres staat "niet openbaar" :D
BTW, Het mijne zou gewoon moeten werken...

EDIT: Ik ken alleen maar ASM :D
Een perfecte taal, ben ermee "opgevoed".
Ik snap niet dat die andere talen "hogere programmeertalen" worden genoemd, ze staan verder van de processor af dus zijn 't lagere programmeertalen :+

[Bericht gewijzigd door Zonnepaneeltje op ]

Probeer het eens met:

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

Ik snap niet dat die andere talen "hogere programmeertalen" worden genoemd, ze staan verder van de processor af dus zijn 't lagere programmeertalen

P+ wordt internationaal geroemd om de superschone code die het procuduceert. Dus, waarom dagenlang klooien op een klus die in in een paar uurtjes geregeld kan zijn...

Theo

galaxy:
Wat is E1? en je hebt mail!
En maak jij ook nog een PCB? of doe je dat niet?

[Bericht gewijzigd door Technojunk op ]

Ik zie het.

Zou jij mij die code eens kunnen sturen voor de ADC on display?
PS: zou jij misschien een balkje met blokjes en dan er boven: Laden....
als dat klaar is Klaar met laden als dat klaar is sucses! en als dat klaar is de temp. + A + V? Ik kan alleen schrijven in picbasic..

Euhh... moet ik nu met mijn hakken gaan klappen ?

Kijk nog eens naar pagina 1 van dit topic.
Toen heb ik iets gezegd over het uurtarief in de ICT.
Stuur me dus maar een opdracht en een factuuradres.

En nee, ik heb al een voeding, dus er komt geen PCB.
Maar ik wel er best een extra post op de factuur bijmaken hoor...

Wat heb je inmiddels zelf aan code geproduceert ?
Post het eens. Mag in picbasic hoor.
Ook daarmee kan je met de ADC een simpele potmeter uitlezen.

Misschien raak ik dusdanig onder de indruk van je code dat mijn hartje smelt, en ik alsnog code verstrek.

Hier de code:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : Niels Kloppenburg                                 *
'*  Notice  : Copyright (c) 2007 N@co initials-Varel            *
'*          : All Rights Reserved                               *
'*  Date    : 27-5-2007                                         *
'*  Version : 2.4                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device 16F876A                  'PIC type is een 16F876A
Declare XTAL 4                  'We gebruiken een 4Mhz kristal

DECLARE ADIN_RES 10             ' 10-bit result required 
DECLARE ADIN_TAD FRC            ' RC OSC chosen 
DECLARE ADIN_STIME 50           ' Allow 50us sample time 

Declare LCD_TYPE 0                     ' Type of LCD Used is Alpha
Declare LCD_DTPIN PORTB.4       ' The control bits B4,B5,B6,B7
Declare LCD_RSPIN PORTB.2       ' RS pin on B2
Declare LCD_ENPIN PORTB.3       ' E pin on B3
Declare LCD_INTERFACE 4         ' Interface method is 4 bit

PORTB_PULLUPS True

Dim Result1 As Float
Dim Result2 As Float

Dim Last_Result1 As Float
Dim Last_Result2 As Float

Symbol Input1 = PORTA.0
Symbol Input2 = PORTA.1 

TRISA = %00000011               ' Configure AN0 (PORTA.0+1) as an input 

ADCON1 = %10000000              ' Set analogue input, Vref is Vdd

Main:

Result1 = ADIN 0                ' Grab A0's digital value
Delayus 1                       ' Allow internal capacitors to charge
Result2 = ADIN 1                ' Grab A1's digital value

Result1 = Result1 * 5 / 1023    ' Scale it to volts
Result2 = Result2 * 5 / 1023
Result1 = Result1 * 10          'Doe de spanning *10

If Last_Result1 <> Result1 Then             ' Check if value has changed
    Print At 1, 1, Dec2 Result1, "V "       ' If it has, display new data
    Last_Result1 = Result1                  ' and update last value
EndIf

If Last_Result2 <> Result2 Then              ' Check if value has changed
    Print At , 1, Dec2 Result2, "A "        ' If it has, display new data
    Last_Result2 = Result2                   ' and update last value
EndIf

Goto Main                                    ' Ga altijdt door

Ik weet geen mooie code en hier smelt je hart ook niet van!
Maar hij werkt!

Ik dacht: je had niks te doen dus je maakte die code;
en dacht dat je hem ook wel aan mij kwijt wou..

Ik ben diep onder de indruk.
Mijn gemoed schiet vol.
Woorden schieten hier te kort.
Waar heb je dat dan weer vandaan gejat.

Morgen zal ik hier de code publiceren, met starttekst.
Snap niet wat je precies met "loading" enzo precies wil, want er valt gewoon niets te "loaden"

Ik zal de starttekst naar eigen interpretatie aanpassen, en deze zo toepasselijk mogelijk maken.

BTW: E1 is een simulatiemodel van een spanninggestuurde spanninsbron. ofwel: je voeding...

Zet wel een dikke elco (2200 uF) achter je weerstand van 1R, want die gaat voltjes slurpen als je flink stroom gaat trekken.

En gebruik voor je meetweerstanden het liefst 1% weerstanden.

Ja.. euh,, OK
Nou dan bestel ik die 16F88 wel!
Is dit niet aan te passen voor een 876A? want deze heb ik nog liggen..

Verder alles 1/4e 1%?
En E1 is dus je voeding.. En die ronde dingetjes met volt en ampere er in met een klein displaytje er in wasda?

[Bericht gewijzigd door Technojunk op ]

En die ronde dingetjes met volt en ampere er in met een klein displaytje er in wasda?

Ook simulatiemodelletjes, gebruikt om de LCD te ijken.
Komt in het werkelijke schema niet voor.

Maar het zou dus niet in een 16F876A kunnen?

Is dit niet aan te passen voor een 876A? want deze heb ik nog liggen..

Tuurlijk. Alles kan. Je kent het tarief...

OK
Als ik de code heb dan pas ik zelf de device wel even aan :D
En lees de datasheet even door voor de pinnen..
Kan dit? of moet ik nog meer aanpassen?

PS: Je bent er 2 minuut mee bezig dus dat is 4.-
Voor dat geld wil ik het wel doen! accoord?

En morgen zette je het hierneer? of meelde je het mij

[Bericht gewijzigd door Technojunk op ] 

N@co initials-Varel

waar komt dat vandaan, daar werk ik namelijk ook :-)
Alleen dat schrijf je iets anders...

Sorry effe offtoppic

Mn oom werkt daar :D moest toch wat verzinnen
Ja het is initial-varel :)
Hij werkt in hengeloooo

[Bericht gewijzigd door Technojunk op ]

hahaha, leuk. Ik zag het al op je site, doe de groeten aan John. Zeg maar van Marco uit Zwolle, weet hij genoeg.

Nu weer ontoppic

Weer de groeten terug Marco ;)

Maargoed.. hij vond het wel leuk.. :D

Galaxy:
OK
Als ik de code heb dan pas ik zelf de device wel even aan:D
En lees de datasheet even door voor de pinnen..
Kan dit? of moet ik nog meer aanpassen?

PS: Je bent er 2 minuut mee bezig dus dat is 4.-
Voor dat geld wil ik het wel doen! accoord?

En morgen zette je het hierneer? of meelde je het mij

Ik werk inderdaad in A'dam en woon overal....
Maar zal nu verder je topic niet verpesten. Sorry Mod's

[Bericht gewijzigd door marcob op ]