univerzalni mjerni paneli

Projekti naših članova foruma koji su još uvijek u fazi izrade.

Moderators: pedja089, stojke369, [eDo], trax

Post Reply
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

univerzalni mjerni paneli

Post by morski_pas »

kako sam dosad koristio razne panele za mjerenje voltaže i struje u raznim projektima pronašao sam zgodne šeme istih ,koji se mogu primjeniti pri izradi ispravljača i drugih sklopova.
primjeri su sa PIC i AVR mikrokontrolerima trenutno sam u izradi sa PIC mikrokontrolerom i to u verziji sa 7 segmentnim lcd i 1x16 ili 2x16 LCDdisplejom
evo linkova i slika,svaka sugestija dobrodošla i svakako iskustvo ako je to netko već radio...
voltmetar PIC16F676 0 - 30 V
Image
http://electronics-diy.com/digital-volt ... 16f676.php

voltampermetar PIC16F676 sa jednim displejem
Image
Image
http://c2.at.ua/1_M/vapDC_V_A/vapDCr.gif
http://dmitrstas.ucoz.ru/publ/chasy/izm ... 6/9-1-0-42

voltamper metar PIC16F676
Image
Image
http://c2.at.ua/load/pic/voltampermetr_ ... /12-1-0-30
http://rexmill.ucoz.ru/forum/64-150-1
http://www.youtube.com/watch?feature=pl ... 3YWPJKQc94

voltamper metar PIC16F676 sa LCD displejom
Image
Image
User avatar
WhiteHead
Pravi forumaš
Pravi forumaš
Posts: 1627
Joined: 28-06-2007, 18:36
Location: 75,35k; B&H

Re: univerzalni mjerni paneli

Post by WhiteHead »

Dobra tema, bogami si se potrudio da to sve pronađeš, ja nisam imao toliko uspjeha.
Naime prije par sedmica sam pravio volt-ampermetar sa PIC16F876 (s LCD) sa neke turske stranice i otvorenim kodom i prilično sam zadovoljan.
Mislim to skompat s napajanjem od ATX-a da bih dobio solidno LAB-napajanje.
Ako kaniš pobijediti, ne smiješ izgubiti
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

Re: univerzalni mjerni paneli

Post by morski_pas »

Ima toga još ali prije svega gledao sam da je cijeli sklop napravljen od jeftinijih komponenti i jednostavan za izradu,kao i da se koriste mikrokontroleri PIC i AVR serije.
PIC16F676 je dosta jeftin, a ima ADC 10 bitni ,probat ću uz pomoć ostalih da se naprave primjeri u PICBASIC ili BASCOM programima za te primjere,ako imaš dobro iskustvo sa tim VA metrom stavi ovdje link da drugi mogu to koristiti :)
User avatar
bob4
Stariji član
Stariji član
Posts: 2572
Joined: 31-01-2010, 16:12
Location: Kutina

Re: univerzalni mjerni paneli

Post by bob4 »

Odlično....Ja bi pratio neki atmega; napon, struja projekt (nikako da to prebacim na digitaliju od svoje mature)
i još k tome kod mene jeftini (2,00kn) 7 segmentni displej
User avatar
WhiteHead
Pravi forumaš
Pravi forumaš
Posts: 1627
Joined: 28-06-2007, 18:36
Location: 75,35k; B&H

Re: univerzalni mjerni paneli

Post by WhiteHead »

morski_pas wrote:ako imaš dobro iskustvo sa tim VA metrom stavi ovdje link da drugi mogu to koristiti :)
Nemam nekog iskustva, al evo ovo sto sam radio :
voltamp.zip
(118.63 KiB) Downloaded 557 times
Ako kaniš pobijediti, ne smiješ izgubiti
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

Re: univerzalni mjerni paneli

Post by morski_pas »

naravno bob4 evo slika i linkova za početak sa ATEMEGA8, modul se može koristit za razne namjene ovisno o softveru koji je na stranici linka

Image
Image
Image
http://tuxgraphics.org/electronics/2007 ... eter.shtml
http://tuxgraphics.org/common/src2/article07061/
šema
http://qmsslab.com/avr/MiniVmtr/sch.png
pločica u PDF-u
http://qmsslab.com/avr/MiniVmtr/Mini%20Voltmeter.pdf
HEX
http://qmsslab.com/avr/MiniVmtr/main_pre.hex

verzija AV metra sa odvojenim 7segment displejima
Image
http://bascomavr.3bb.ru/viewtopic.php?id=435&p=2

verzija sa LCD displejom
Image
Image
http://circuitsdiy.com/atmega8-based-vo ... mpmeter-v2

još jedna verzija
Image
http://www.qsl.net/yo6pir/voltlcd.html
http://elfly.pl/multimetr/multimetr_en_DIP.htm

sa AVR ATTiny26 3-ch Voltmeter
Image
http://qmsslab.com/avr/3chVA26/default.html


mislim da će za početak biti dovoljno :lol: :ohno:
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

Re: univerzalni mjerni paneli

Post by morski_pas »

evo primjer u PICBASIC-u za volt metar sa 16F887, ali uz male prepravke može se upotrijebiti i za druge piceve
  • ' Name : VMETERX.pbp
    ' Compiler : PICBASIC PRO Compiler 2.60
    ' Assembler : PM or MPASM
    ' Target PIC : 40-pin 16F887 or similar
    ' Hardware : LAB-X1 Experimenter Board
    ' Oscillator : 4MHz external
    ' Keywords : ADCIN, LCDOUT
    ' Description : PICBASIC PRO program to measure voltage (0-5VDC)
    ' and display on LCD with 2 decimal places.
    ' This program uses the */ operator to scale the ADC result from 0-1023
    ' to 0-500. The */ performs a divide by 256 automatically, allowing math
    ' which would normally exceed the limit of a word variable.

    ' Connect analog input to channel-0 (RA0)

    ' Define LCD registers and bits
    Define LCD_DREG PORTD
    Define LCD_DBIT 4
    Define LCD_RSREG PORTE
    Define LCD_RSBIT 0
    Define LCD_EREG PORTE
    Define LCD_EBIT 1

    ' Define ADCIN parameters ********************************
    Define ADC_BITS 10 ' Set number of bits in result
    Define ADC_SAMPLEUS 50 ' Set sampling time in uS
    'Define ADC_CLOCK 3 ' This define is inoperative on 16F88x
    ADCON0 = %11000000 ' Set ADC_CLOCK to RC (DEFINE ACD_CLOCK inoperative on the 16F88x)
    ADCON1 = %10000000 ' Right-Justify result in ADRESH:ADRESL registers
    ANSEL = %00000001 ' Set AN0-AN7 to digital with the exeption of AN0
    ANSELH = %00000000 ' Set AN8 and higher channels to digital operation
    '**********************************************************

    adval Var Word ' Create adval to store result

    TRISA = %11111111 ' Set PORTA to all input
    Low PORTE.2 ' LCD R/W line low (W)
    Pause 500 ' Wait .5 second

    mainloop:
    Adcin 0, adval ' Read channel 0 to adval (0-1023)
    adval = (adval */ 500)>>2 ' Equates to: (adval * 500)/1024
    Pause 100 ' Wait .1 second
    LCDOut $FE, $80, "DC Volts= ",DEC (adval/100),".", DEC2 adval ' Display the decimal value
    Goto mainloop ' Do it forever

    End
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

Re: univerzalni mjerni paneli

Post by morski_pas »

ovo je primer u BASCOM-u za ATMEGA8 7 segmentni displej
link:http://www.avrprojects.info/avr-project ... voltmeter/
  • $regfile = "m8def.dat"
    $crystal = 4000000

    '$ baud = 2400

    Config Timer0 = Timer, Prescale = 8

    Dim Timecount As Word: Timecount = 0
    Config Adc = Single, Prescaler = Auto, Reference = Internal


    Enable Interrupts
    Enable Ovf0
    On Ovf0 Overflow_isr
    Tcnt0 = &H19

    Dim I As Byte
    Config Pinc.5 = Input

    Config Portd = Output
    Portd = 0
    Config Pinb.0 = Output
    Portb.0 = 0
    Config Pinb.1 = Output
    Portb.1 = 0
    Config Pinb.2 = Output
    Portb.2 = 0
    Config Pinb.3 = Output
    Portb.3 = 0

    Dim L (10) As Byte
    L(1) = &B11111100
    L(2) = &B10001001
    L(3) = &B10011000
    L(4) = &B10110100
    L(5) = &B10010010
    L(6) = &B10000010
    L(7) = &B11111000
    L(8) = &B10000000
    L(9) = &B10010000
    L(10) = &B11000000
    Dim Le(10) As Byte
    Le(1) = &B01111100
    Le(2) = &B00001001
    Le(3) = &B00011000
    Le(4) = &B00110100
    Le(5) = &B00010010
    Le(6) = &B00000010
    Le(7) = &B01111000
    Le(8) = &B00000000
    Le(9) = &B00010000
    Le(10) = &B01000000
    Dim Channel As Byte
    Dim W As Long
    Dim Ss As Byte
    Dim Ad As Long
    Dim S (4) As String * 1
    Dim Sa As String * 5

    Dim Sl (4) As Byte 'Show variables

    Do

    '------------------------------------ Battery voltage detection
    W = 0
    Ss = 1
    Ad = 0
    For Ss = 1 To 20
    Start Adc
    Channel = 5
    W = Getadc (channel)
    Stop Adc
    Ad = Ad + W
    Next Ss
    Ad = Ad / 20
    Ad = Ad * 2560
    Ad = Ad / 1023
    Ad = Ad * 10



    If Ad <1000 Then
    Sa = Str (ad)
    Sa = Format (sa, "000")

    S (1) = Mid (sa, 3, 1)
    S (2) = Mid (sa, 2, 1)
    S (3) = Mid (sa, 1, 1)
    'S (4) = Mid (sa, 1, 1)
    I = Val (s (1))
    If I = 0 Then
    Sl (1) = L (10)
    Else
    Sl (1) = L (i)
    End If

    I = Val (s (2))
    If I = 0 Then
    Sl (2) = L (10)
    Else
    Sl (2) = L (i)
    End If

    I = Val (s (3))
    If I = 0 Then
    Sl (3) = L (10)
    Else
    Sl (3) = L (i)
    End If


    Sl (4) = Le (10)

    End If



    If Ad> = 1000 And Ad <10000 Then
    Sa = Str (ad)
    Sa = Format (sa, "0000")

    S (1) = Mid (sa, 4, 1)
    S (2) = Mid (sa, 3, 1)
    S (3) = Mid (sa, 2, 1)
    S (4) = Mid (sa, 1, 1)
    I = Val (s (1))
    If I = 0 Then
    Sl (1) = L (10)
    Else
    Sl (1) = L (i)
    End If

    I = Val (s (2))
    If I = 0 Then
    Sl (2) = L (10)
    Else
    Sl (2) = L (i)
    End If

    I = Val (s (3))
    If I = 0 Then
    Sl (3) = L (10)
    Else
    Sl (3) = L (i)
    End If

    I = Val (s (4))
    If I = 0 Then
    Sl (4) = Le (10)
    Else
    Sl (4) = Le (i)
    End If

    End If

    If Ad> = 10000 And Ad <100000 Then
    Sa = Str (ad)
    Sa = Format (sa, "0000")

    S (1) = Mid (sa, 4, 1)
    S (2) = Mid (sa, 3, 1)
    S (3) = Mid (sa, 2, 1)
    S (4) = Mid (sa, 1, 1)
    I = Val (s (1))
    If I = 0 Then
    Sl (1) = L (10)
    Else
    Sl (1) = L (i)
    End If

    I = Val (s (2))
    If I = 0 Then
    Sl (2) = L (10)
    Else
    Sl (2) = L (i)
    End If

    I = Val (s (3))
    If I = 0 Then
    Sl (3) = Le (10)
    Else
    Sl (3) = Le (i)
    End If

    I = Val (s (4))
    If I = 0 Then
    Sl (4) = L (10)
    Else
    Sl (4) = L (i)
    End If
    End If

    Waitms 200
    '------------------------------------
    Loop

    End




    Overflow_isr:

    Tcnt0 = &H19
    Incr Timecount
    If Timecount = 15 Then '1 m 502 = 1s 4m 2008 = 1s
    Timecount = 0
    Portb.0 = 1
    Portd = Sl (1)
    Waitms 5
    Portb.0 = 0
    Portb.1 = 1
    Portd = Sl (2)
    Waitms 5
    Portb.0 = 0
    Portb.1 = 0
    Portb.2 = 1
    Portd = Sl (3)
    Waitms 5
    Portb.0 = 0
    Portb.1 = 0
    Portb.2 = 0
    Portb.3 = 1
    Portd = Sl (4)
    Waitms 5
    Portb.3 = 0

    End If
    Return
    '------------------------------------------------- --------------------------------
User avatar
morski_pas
Odlično uznapredovao
Odlično uznapredovao
Posts: 639
Joined: 07-03-2011, 23:58
Location: Rijeka

Re: univerzalni mjerni paneli

Post by morski_pas »

bob4 wrote:Odlično....Ja bi pratio neki atmega; napon, struja projekt (nikako da to prebacim na digitaliju od svoje mature)
i još k tome kod mene jeftini (2,00kn) 7 segmentni displej

koji su to displeji veličina ,vrsta i boja (zajenička anoda ili katoda),dal ih imaš u više dimenzija ili samo jednoj nabaci koju sliku sa karakteristikama,pa da mi pošalješ određenu veću količinu(od tri komada ha ha šala mala) :lol:
User avatar
bob4
Stariji član
Stariji član
Posts: 2572
Joined: 31-01-2010, 16:12
Location: Kutina

Re: univerzalni mjerni paneli

Post by bob4 »

http://www.elektronika.ba/forum/viewtop ... f=6&t=7910
crveni, zeleni, zajednička anoda; ima nešto sitno i katode
User avatar
Khaderah
Odlično uznapredovao
Odlično uznapredovao
Posts: 967
Joined: 17-04-2012, 16:10
Location: Zagreb, Hrvatska

Re: univerzalni mjerni paneli

Post by Khaderah »

Post Reply