univerzalni mjerni paneli
Moderators: pedja089, stojke369, [eDo], trax
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
univerzalni mjerni paneli
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
http://electronics-diy.com/digital-volt ... 16f676.php
voltampermetar PIC16F676 sa jednim displejem
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
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
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
http://electronics-diy.com/digital-volt ... 16f676.php
voltampermetar PIC16F676 sa jednim displejem
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
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
Re: univerzalni mjerni paneli
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.
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
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: univerzalni mjerni paneli
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
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
Re: univerzalni mjerni paneli
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
i još k tome kod mene jeftini (2,00kn) 7 segmentni displej
Re: univerzalni mjerni paneli
Nemam nekog iskustva, al evo ovo sto sam radio :morski_pas wrote:ako imaš dobro iskustvo sa tim VA metrom stavi ovdje link da drugi mogu to koristiti
Ako kaniš pobijediti, ne smiješ izgubiti
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: univerzalni mjerni paneli
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
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
http://bascomavr.3bb.ru/viewtopic.php?id=435&p=2
verzija sa LCD displejom
http://circuitsdiy.com/atmega8-based-vo ... mpmeter-v2
još jedna verzija
http://www.qsl.net/yo6pir/voltlcd.html
http://elfly.pl/multimetr/multimetr_en_DIP.htm
sa AVR ATTiny26 3-ch Voltmeter
http://qmsslab.com/avr/3chVA26/default.html
mislim da će za početak biti dovoljno
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
http://bascomavr.3bb.ru/viewtopic.php?id=435&p=2
verzija sa LCD displejom
http://circuitsdiy.com/atmega8-based-vo ... mpmeter-v2
još jedna verzija
http://www.qsl.net/yo6pir/voltlcd.html
http://elfly.pl/multimetr/multimetr_en_DIP.htm
sa AVR ATTiny26 3-ch Voltmeter
http://qmsslab.com/avr/3chVA26/default.html
mislim da će za početak biti dovoljno
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: univerzalni mjerni paneli
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
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: univerzalni mjerni paneli
ovo je primer u BASCOM-u za ATMEGA8 7 segmentni displej
link:http://www.avrprojects.info/avr-project ... voltmeter/
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
'------------------------------------------------- --------------------------------
- morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: univerzalni mjerni paneli
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)
Re: univerzalni mjerni paneli
http://www.elektronika.ba/forum/viewtop ... f=6&t=7910
crveni, zeleni, zajednička anoda; ima nešto sitno i katode
crveni, zeleni, zajednička anoda; ima nešto sitno i katode