Parsi Coders

Full Version: پروژه ولت متر ،امپر متر ،اهم متر و وات متر با avr
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
برنامه به زبان بیسیک :
PHP Code:
$regfile "m16def.dat"

$crystal 8000000

$hwstack 
32

$swstack 
20

$framesize 
32

Config Lcdpin 
Pin Rs Portb.2 Portb.3 Db4 Portb.4 Db5 Portb.5 Db6 Portb.6 Db7 Portb.7

Config Lcd 
16 2

Cursor Off Noblink

Cls

Dim Adcv 
As Word Volt As Single

Dim Adca 
As Word Amp As Single

Dim P 
As Single ';Power (P)

Dim R As Single '
;Resistance (R)

Const 
Dif 1024

Const Volt_div 0.152519

Const Amp_div 0.21978 ';0.0048828125 - Adc Div 5 / 1024

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Do

Adcv = Getadc(0) '
;read portA.0 for volt

Adca 
Getadc(1';read portA.1 for Ampre

Waitms 50

'
;Calculate

Volt 
Adcv Dif

Amp 
Adca Dif

Volt 
Volt Volt_div

Amp 
Amp Amp_div

Volt Amp

Volt Amp

';show

Locate 1 , 1

If Volt < 10 Then Lcd " "

Lcd Fusing(volt , "##.##") ; " V"

Locate 1 , 12

If P < 100 Then Lcd " "

If P < 10 Then Lcd " "

Lcd Fusing(p , "###.##") ; " W"

Locate 2 , 1

If Amp < 10 Then Lcd " "

Lcd Fusing(amp , "##.##") ; " A"

Locate 2 , 12

If R < 100 Then Lcd " "

If R < 10 Then Lcd " "

Lcd Fusing(r , "###.##") ; " R"

Waitms 150

Loop

End 
------ 

 [attachment=555]

 
pcb baraye in file ha nemizarid ? 
درود
ندارم  ولی اگر وقت داشتم طراحی میکنم براتون