اشکال در ولتمتر با avr

[alisharifinajad]

با سلام این یک ولتمتر که تا 50ولت تا دو رقم اعشار است اما بیسکام ایراد میگره در ضمن اگه به خوام امپر را اندازه بگیره چه کار باید کرد

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinc.1 , Db5 = Pinc.2 , Db6 = Pinc.3 , Db7 = Pinc.4 , Rs
= Pind.3 , E = Pind.2
Config Adc = Single , Prescaler = Auto
Dim A As Word , B As Single
Config Single = Scientific , Digits = 2
Do
A = Getadc(0(
Locate 1 , 1 : Lcd A" ";
B = A : B = B / 20.46
Locate 2 , 1 : Lcd B" " ;
Loop
End

[mohamad07]

پاسخ : اشکال در ولتمتر با avr

adc کدوم میکرو 50 ولت میگیره ؟

مدار واسط هم حتما دارید دیگه ؟

[saeid_ica]

پاسخ : اشکال در ولتمتر با avr

فایل رو من براتون کامپایل کردم . مشکلی نداره براتون گذاشتم
برای خوندن جریان یه مقاومت با مسیر اصلی جریان در سر منفی سری کنین. مقدار مقاومت زیر 1 اهم و مثلا 2 وات باشه. بعد ولتاژ دو سر مقاومت رو بخونین.
http://www.4shared.com/file/172605547/43802d00/adc.html

[saeid_ica]

پاسخ : اشکال در ولتمتر با avr

در ضمن برای خوندن ولتاژ 50 ولت باید از تقسیم مقاومتی استفده کنید. از یک دیود که سر آندش به vcc و سر کاتدش به پایه adc وصله حتما استفاده کنین که اگه ولتاژ بیشتر از vcc مدار شد دیود از میکرو حفاظت کنه و میکرو نپره!

[alisharifinajad]

پاسخ : اشکال در ولتمتر با avr

دست همه درد نکنه من از یک تضعیف کننده مقاومتی استفاده کردم اما میخوام تا10امپر جریان نشون بده وهمچنین ولتاژ زیر یک ولت به صورت اتوماتیک
با تشکر

[saeid_ica]

پاسخ : اشکال در ولتمتر با avr

یه مقاومت 0.1 اهم ده وات بذاری میتونی 10 آمپرم بخونی

[alisharifinajad]

پاسخ : اشکال در ولتمتر با avr

اقا میشه یکم بیشتر وواضع بگیی اینم مدار :NO:
http://rapidshare.com/files/320689877/volt.rar.html

[khast khodaiebehnam]

پاسخ : اشکال در ولتمتر با avr

این ولتمکر تا 5 ولت تا 3رقم اعشار خودم تستش کردم برو با من

$regfile = "m32def.dat"
$crystal = 10000000
$baud = 9600
'--------------------------------------------------------
Dim C As Byte
Dim B As Byte
Dim A(200) As Word
Dim Mina As Long
Dim Omid As Word
Dim Omid2 As Single
Dim Mega As Byte

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.0 , Rs = Portb.1
Config Lcd = 20 * 4
Enable Interrupts
Config Adc = Single , Prescaler = 2 , Reference = Internal

'---------------------------------------------------------
Deflcdchar 0 , 32 , 32 , 7 , 5 , 7 , 1 , 2 , 4       ' æ
Deflcdchar 1 , 4 , 4 , 4 , 4 , 28 , 32 , 32 , 32      ' á
Deflcdchar 2 , 32 , 12 , 32 , 4 , 31 , 32 , 32 , 32     ' Ê
Deflcdchar 3 , 2 , 2 , 2 , 2 , 3 , 32 , 32 , 32       ' Ç
Deflcdchar 4 , 32 , 4 , 14 , 32 , 4 , 4 , 8 , 16      ' Ò
Cls
Lcd "In The name of God"
Waitms 700
Locate 2 , 14
Lcd ":" ; Chr(4) ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0)
Wait 1
Locate 1 , 1
Lcd "  OMID Habibi  "
Cursor Off Noblink
'-----------------------------------------------
Do

For Mega = 17 To 1 Step -1
Mina = 0
For B = 1 To 200
Start Adc
A(b) = Getadc(0)
Stop Adc
A(b) = A(b) / 4
Mina = Mina + A(b)

Next B
Omid = Mina / 200
Omid2 = Omid / 52

Locate 3 , 1
Lcd "      "
Locate 3 , 1
Lcd Omid2
Locate 3 , 6
Lcd "     "
Locate 3 , 6
Lcd "V"
Locate 4 , 1
Lcd "********************"
Locate 4 , Mega

Lcd "AVR"
Waitms 470
Next

Loop