Pic Volt Ampére meter

Geschreven door Tinus

zaterdag, 27 november 2010 22:27

Iedere hobbyist maakt wel eens een lab voeding dat kan bijna niet missen.
Maar een lab voeding zonder Volt en Ampère meter kan natuurlijk niet.
Men wil er natuurlijk een mooie meter in die zo wel Volt en ampère toont.
Nou dat is de onder staande schakeling misschien wel iets voor U.

Klik op het schema voor een grotere versie.

Mocht u verder nog problemen hebben met het maken van deze schakeling mail dan a.u.b. even.

De PicBaric code:

'****************************************************************
'* Name    : Pic V/A meter                                     *
'* Author : Tinus de Boer                                     *
'* Notice : Copyright (c) 2010 www.electronicavantinus.nl     *
'*          : All Rights Reserved                               *
'* Date    : 19-12-2010                                        *
'* Version : 1.5                                               *
'* Notes   : Verzie 1.5. In 1.0 zat nog een fout               *
'*          :                                                   *
'****************************************************************
DEVICE = 16F876A               ; 16F876a PIC
CONFIG WDT_OFF, PWRTE_ON, LVP_OFF, HS_OSC
XTAL = 20                     ; 20MHz kristal

ALL_DIGITAL TRUE              ; Alle ingangen digitaal

DECLARE ADIN_RES 10           ; Resultaat in 10Bit
DECLARE ADIN_TAD FRC          ; Occsilator kiezen
DECLARE ADIN_DELAY 50         ; 50µS sample time

DECLARE LCD_DTPIN PORTB.0     ; Data vanaf B.0
DECLARE LCD_ENPIN PORTB.4     ; EN pin op B.4
DECLARE LCD_RSPIN PORTB.5     ; RS pin op B.5

DIM VOLTS   AS FLOAT
DIM AMPS    AS FLOAT
DIM WATT    AS FLOAT

DIM Short AS BYTE
DIM adval AS WORD
DIM adval1 AS WORD
DIM x      AS WORD
DIM x1     AS WORD

;        76543210             <<
TRISA = %00001100
TRISB = %00000000
TRISC = %00000000

PORTA = %00000000
PORTB = %00000000
PORTC = %00000000

ADCON0= %10100101
ADCON1= %10000000

CLS
DELAYMS 200
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, Inleiding
;1234567890123456
PRINT AT 1, 1, " Power Supply "
PRINT AT 2, 1, " 0/30V 0/1.5A "

DELAYMS 2000

CLS

AGAIN:
;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, Voltmeting
adval1=0
FOR x1=1 TO 10
adval1 = adval1 + ADIN 2
NEXT
adval1 = adval1 / 10

VOLTS = adval1 * 0.0048828125

;'''''''''''''''''''''''''''''' Stroommeting
adval=0
FOR x=1 TO 10
adval = adval + ADIN 3
NEXT
adval = adval / 10
AMPS = adval * 0.0048828125

VOLTS = VOLTS * 7              ; De gemeten spannig maal 7 doen. (kan max 35 V meten op deze manier)
AMPS = AMPS / 2.5          ; De gemeten stroom delen door 2.5 kan perciea 1.5 ampere meten.
WATT = VOLTS * AMPS            ; Vermogen is spanning maal stroom

PRINT AT 1, 2, DEC3 VOLTS, "V    "   ; Print Spanning
PRINT AT 2, 2, DEC2 AMPS, "A     "        ; Print Stroom
PRINT AT 2, 12, DEC1 WATT, "W     "       ; Print Vermogen

GOTO AGAIN

END

Visits today:	4
Visits in this month:	958
Visits in this year:	4649
Visits total:	7610
Max.daily visits:	170
Bots today:	28

	75.9%	Netherlands (3233)
	12.7%	Belgium (540)
	3.2%	China (135)
	2.0%	Germany (85)
	1.4%	Russian Federation (61)
	<1.0%	United Kingdom (30)
	<1.0%	Seychelles (25)
	<1.0%	Slovak Republic (21)
	<1.0%	Brazil (14)
	<1.0%	Ukraine (13)

HOOFDMENU

Wie is online

bezoekersaantallen: