• 55 Vote(s) - 2.49 Average
  • 1
  • 2
  • 3
  • 4
  • 5
پروژه ولت متر ،امپر متر ،اهم متر و وات متر با avr
#1
برنامه به زبان بیسیک :
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 
------ 

 
.jpg   pw_display.JPG (Size: 1.17 KB / Downloads: 26)

 


برای ورود بر روی تصویر کلیک کنید.
www.avrprj.ir
  Reply
#2
pcb baraye in file ha nemizarid ? 
  Reply
#3
درود
ندارم  ولی اگر وقت داشتم طراحی میکنم براتون

 


برای ورود بر روی تصویر کلیک کنید.
www.avrprj.ir
  Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  پروژه قفل رمز 8 رقمی به زبان بیسیک a.mehran 0 1,691 08-29-2014، 08:41 PM
Last Post: a.mehran

Forum Jump:


Users browsing this thread: 1 Guest(s)