ولتمتر با AVR و بسکام

[electroavr]

سلام_______________دوستان
نماز و روزه همه قبول
من یک برنامه ولتمتر با بیسکام ای وی ار و atmega8 میخوام راستش هر کاری
کردم نتوانستم از پنج ولت بیشتر نتیجه بگیرم
چون من بین صفر تا سی ولت می خوام
ممنون میشوم اگر کمک کنید

[t3r!p3000]

سلام مهندس

اينو يه نگاه كن .


دريافت فايل ولمتر و آمپرمتر با ساعت و دماسنج با AVR تحت بسكام به همرا فايل پروتئوس و اصل برنامه

ولتمتر و آمپرمتر با AVR به همراه دماسنج و ساعت .
ايراد برنامه اين است كه فقط ولتاژ و جريان مستقيم با رعايت قطبيت مي تونه اندازه بگيره .
دقت هم بدك نيست .


محدوده آمپرمتر : 0.005 - 5

کد:

0.005 A - 5 A

در يك رنج


محدوده ولتمتر :

کد:

0.003 v - 2 v
0.03 v - 20 v
0.3 v - 255 v

در سه رنج با تنظيم اتومات .

فايل پروتئوس موجود است و يه تست كن و اگه جايي سوال داشتي در خدمت هستيم .

تنظيم ساعت هم مثل بقيه مدارت ساعت من هستش . دكمه set و + و -


دريافت فايل ولمتر و آمپرمتر با ساعت و دماسنج با AVR تحت بسكام به همرا فايل پروتئوس و اصل برنامه


منبع : http://forum.iranled.com/showthread.php?tid=8031

[t3r!p3000]

ادامه از پست قبلي



برنامه در هر يك ثانيه ورودي ها را مي خواند . البته براي ولتمتر مقدار را خوانده و اگر از مقدار مورد نظر بيشتر باشد با تنظيم مولتي پلكسر ولتاژ ورودي را تقسيم بر ده كرده و 0.25 ثانيه بعد دوباره مي خواند . در صورت بيشتر بودن مقدار ولتمتر اين بار نيز ورودي را 10 برابر كمتر كرده و 0.25 ثانيه بعد دوباره ورودي ولتمتر را مي خواند .


تنظيم ساعت هم به فرم زير است :

در حالت کار معمول هنگامي که کليد SET براي چند ثانيه ( حدود 5 ثانیه ) فشارداده شود برنامه به برچسب CC رفته و مي توان با استفاده از کليد هاي + و - ساعت را تنظيم کرد . با دوباره فشاردادن دادن کليد به برچشب MM رفته و در اينجا نيز با استفاده از کليد هاي + و - مي توان دقيقه را تنظيم کرد با دوباره فشاردادن کليد SET به بر چسب SS براي تنظيم ثانيه پرش مي کند . در اينجا با فشردن کليد - ثانيه صفر مي شود و با زدن کليد + اگر ثانيه بين 30 تا 59 باشد ابتدا به دقيقه يک واحد افزوده شده و سپس ثانيه صفر مي شود و اگر ثانيه کمتر از 30 باشد فقط ثانيه صفر مي شود .
با فشردن دوباره کليد SET برنامه به بر چسب star و حالات كار معمول دستگاه بر مي گردد .

ايراد برنامه اين است كه فقط ولتاژ و جريان مستقيم با رعايت قطبيت را مي تواند اندازه بگيرد .



با تشكر
A.N.T


اصل برنامه و نقشه و تست پروتئوس رو مي تونيد از زير دريافت كنيد .

[electroavr]

سلام_______________دوستان
از شما مهندس عزیز که به سوال من پاسخ داد^، ممنونم
اما مدار در پروتوس درست کار می کنه ولی در روی بردبورد کار نمی کنه
امااگر پایه 9 ایسی mega8 رو با دست بگیری کار می کنه با کریستال هم
مدار کار نکرد با ایسی نو هم همین تو بود ببخشید که سرتان را به درد اوردم
ممنون میشوم اگر دوباره برنامه رو چک کنید

[t3r!p3000]

اما مدار در پروتوس درست کار می کنه ولی در روی بردبورد کار نمی کنه

نمي دونم .
مطمئني درست بستي و همه چيز رو رعايت كردي .

اين مدار رو گرفتي ديگه : http://forum.iranled.com/attachment.php?aid=1531

امااگر پایه 9 ایسی mega8 رو با دست بگیری کار می کنه

منطقي نيست .
فكر مي كنم كرستالت خرابه .
آخه اين پايه كه ورودي تايمر دو يه .

با کریستال هم مدار کار نکرد

اون كريستال واسه ساعته و اگه نباشه مدار كلا كار نمي كنه . چون برنامه همه كارهارو تو زمان وقفه تايمر دو انجام مي ده واون كريستال هم مربوط به ورودي تايمر دو هستش .
ببين فيوز بيت ها رو چجور تنظيم كردي . شايد رو كريستال خارجي تنظيم كردي .



در كل هر چي فكر ميكنم مي بينم هيچي منطقي نيستش .

[electroavr]

سلام_______________دوستان
سلام مهندس عزیز عید شما مبارک
درست شد ممنونم اگر بازهم مشکلی پیش امد مزاحمتون میشوم

[mahbooob]

درست شد ممنونم اگر ..

سلام.نمیخوای بگی دلیلش چی بود که کار نمیکرد؟چی شد که درست شد؟

[electroavr]

سلام___________دوستان مهندس
دلیل کار نکردن مدار این بود که کریستال خراب بود
راستی اقای terip2008 اگر یه خورده درمورد اینکه مدار ولتمتر رو
چه جوری به منبع تغذیه وصل کنیم توضیح بدید مثلا همین منبع
تغذیه توی اینترنت که با سه تا ای سی TL081 درست شده
چون من به این منبع تغذیه که گفتم وصل کردم ولت رو نشون میده
اما وقتی پایه امپر سنج رووصل می کنم به دلیل اینکه هردو GND ها
به هم وصل هستند ولتاژ قطع می شه در ضمن اینکه تغذیه هر دو مدار از هم جداست
ممممممممممممنونم

[t3r!p3000]

همین منبع تغذیه توی اینترنت که با سه تا ای سی TL081 درست شده

نمي دونم داري در مورد چي داري صحبت مي كني .
نميشه به جاي سه تا TL081 از يك TL084 استفاده كرد .

پيشنهاد من اينه منبع تغذيه رو با 723 درست كن .
عملكرد و امكانات خوب و قابل قبولي داره و تست خودشو پس داده .

اما وقتی پایه امپر سنج رووصل می کنم به دلیل اینکه هردو GND ها به هم وصل هستند ولتاژ قطع می شه در ضمن اینکه تغذیه هر دو مدار از هم جداست

مطمئني دو تا تغذيه گذاشتي .
فكر كنم مدار زير رو گذاشتي




در صورتي كه بايد از مدار زير استفاده كني .

[bozonghare]

1 سلام آقای مدیر ممکنه یکم درباره این مدار پایینی که گفتین توضیح بدین؟
2 برای تغییرات در فایل هگز آی سی چکار باید کرد؟ من میخام بجای ساعت تاریخ رو نشون بده و با اون کلیدا تاریخ ست بشه.
3 همچنین میخام تا 20 آمپر رو با دقت دو رقم اعشار اندازه بگیره که الان تا 5 آمپر رو بیشتر اندازه نمیگیره با تقسیم مقاومتی در سخت افزار میشه ولی باید برنامه نرم افزار رو هم تغییر داد که هر وقت ورودی آی سی 5 ولت (حداکثر )شد رو LCD 20 آمپر نشان دهد (بازم تغییر برنامه داریم)!
الان قسمت ولتاژ درست است
با تشکر منتظر جواب هستم

[t3r!p3000]

توضيحات برنامه رو شب مي دم . ( الان بايد برم مدرسه )

بعد خود برنامه اصلي رو گذاشتم . فايل V&I.BAS برنامه فوق تحت بسكام مي باشد . ( من هيچ وقت فقط فايل هكز رو نمي ذارم و حتما برنامه رو هم مي ذارم )

اين هم برنامه اش :

کد:

$regfile = "M8DEF.dat" : $crystal = 2000000

Config Lcdpin = Pin , Db4 = Pinb.3 , Db5 = Pinb.2 , Db6 = Pinb.1 , Db7 = Pinb.0 , E = Pinb.4 , Rs = Pinb.5
Config Lcd = 16 * 2 : Cursor Off : Cls

Config Portd = &B11111000

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

      Deflcdchar 0 , 24 , 24 , 32 , 7 , 4 , 4 , 4 , 7       '.C

'-------------------------------------------------------------------------------
Dim Cc As Byte , Mm As Byte , Ss As Byte , B As Byte , F As Byte , T As Word , Tt As Byte
Dim Ecc As Eram Byte At 5 , Emm As Eram Byte At 10 , Ft As Byte , W As Word , S As Single
Dim A As Single , I As String * 8 , V As String * 8 , Fv As Byte
'-------------------------------------------------------------------------------
   Cc = Ecc : Mm = Emm : Tt = 150

         If Cc > 23 Then Cc = 10
         If Mm > 59 Then Mm = 00
         Gosub Showcc : Gosub Showmm : Gosub Showss

'-------------------------------------------------------------------------------
Config Timer2 = Timer , Prescale = 32 , Async = On
Enable Interrupts : Enable Timer2
On Timer2 Sectic
Start Timer2
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
Star:
      F = 0 : Ft = 0
Do
      Debounce Pind.0 , 1 , Ant
Loop
'-------------------------------------------------------------------------------
Ant:
      For T = 0 To 1200
         If Pind.0 = 0 Then Goto Star
         Waitms 1
      Next
Goto Cc
'------------------------------------------------------------------------------- DESIGN BY A.N.T
'-------------------------------------------------------------------------------
Sectic:
Incr B
Select Case B
Case 1:
            Start Adc : W = Getadc(1) : Stop Adc
            If W > 800 Then : Fv = 1 : Set Portd.6 : Reset Portd.7
            Else : S = W / 400 : S = S + 0.003 : V = Fusing(s , "#.###")
            End If
            Gosub Offlcd
Case 2:
         Ss = Ss + 1 : Toggle Portd.3
         If Ss > 59 Then : Ss = 0 : Mm = Mm + 1 : Emm = Mm
         End If
         If Mm > 59 Then : Mm = 0 : Cc = Cc + 1 : Emm = Mm : Ecc = Cc
         End If
         If Cc > 23 Then : Cc = 0 : Ecc = Cc
         End If
         Gosub Onlcd
         If Fv = 1 Then :
               Start Adc : W = Getadc(1) : Stop Adc
               If W > 800 Then : Fv = 1 : Reset Portd.6 : Set Portd.7
               Else : S = W / 40 : S = S + 0.03 : Fv = 0 : V = Fusing(s , "##.##")
               End If
         End If
Case 3:
         Gosub Offlcd
         Start Adc : W = Getadc(0) : Stop Adc : W = W / 2 : A = W / 2
         If Fv = 1 Then :
               Start Adc : W = Getadc(1) : Stop Adc
               S = W / 4 : Fv = 0 : V = Fusing(s , "###.#")
         End If
Case 4:
         Start Adc : W = Getadc(2) : Stop Adc : S = W / 200 : I = Fusing(s , "#.###")
         B = 0 : Gosub Onlcd : Toggle Portd.3 : Reset Portd.6 : Reset Portd.7 : Fv = 0
End Select
Locate 2 , 22
Return
'------------------------------------------------------------------------------- DESIGN BY A.N.T
'-------------------------------------------------------------------------------
Cc:
         F = 2 : Ft = 0
Do
         Debounce Pind.0 , 1 , Mm
         Debounce Pind.1 , 1 , Cc1
         Debounce Pind.2 , 1 , Cc2
Loop
'-------------------------------------------------------------------------------
Cc1:
         Incr Cc : If Cc > 23 Then Cc = 0
            Gosub Showcc
         For T = 0 To Tt
            If Pind.1 = 0 Then Goto Cc
            Waitms 4
         Next
         Ft = 1
         Do
            Gosub Showcc
            For T = 0 To Tt
               If Pind.1 = 0 Then Goto Cc
               Waitms 1
            Next
            Incr Cc : If Cc > 23 Then Cc = 0
            Gosub Showcc
         Loop
'-------------------------------------------------------------------------------
Cc2:
         Decr Cc : If Cc > 23 Then Cc = 23
            Gosub Showcc
         For T = 0 To Tt
            If Pind.2 = 0 Then Goto Cc
            Waitms 4
         Next
         Ft = 1
         Do
            Gosub Showcc
            For T = 0 To Tt
               If Pind.2 = 0 Then Goto Cc
               Waitms 1
            Next
            Decr Cc : If Cc > 23 Then Cc = 23
            Gosub Showcc
         Loop
'------------------------------------------------------------------------------- DESIGN BY A.N.T
'-------------------------------------------------------------------------------
Mm:
         F = 3 : Ecc = Cc : Ft = 0 : Gosub Showcc
Do
         Debounce Pind.0 , 1 , Ss
         Debounce Pind.1 , 1 , Mm1
         Debounce Pind.2 , 1 , Mm2
Loop
'-------------------------------------------------------------------------------
Mm1:
         Incr Mm : If Mm > 59 Then Mm = 0
            Gosub Showmm
         For T = 0 To Tt
            If Pind.1 = 0 Then Goto Mm
            Waitms 4
         Next
         Ft = 1
         Do
            Gosub Showmm
            For T = 0 To Tt
               If Pind.1 = 0 Then Goto Mm
               Waitms 1
            Next
            Incr Mm : If Mm > 59 Then Mm = 0
            Gosub Showmm
         Loop
'-------------------------------------------------------------------------------
Mm2:
         Decr Mm : If Mm > 59 Then Mm = 59
            Gosub Showmm
         For T = 0 To Tt
            If Pind.2 = 0 Then Goto Mm
            Waitms 4
         Next
         Ft = 1
         Do
            Gosub Showmm
            For T = 0 To Tt
               If Pind.2 = 0 Then Goto Mm
               Waitms 1
            Next
            Decr Mm : If Mm > 59 Then Mm = 59
            Gosub Showmm
         Loop
'-------------------------------------------------------------------------------
Ss:
         Ft = 0 : F = 4 : Emm = Mm : Gosub Showmm : Gosub Showss
Do
         Debounce Pind.0 , 1 , Star
         Debounce Pind.1 , 1 , Ss1
         Debounce Pind.2 , 1 , Ss2
Loop
'-------------------------------------------------------------------------------
Ss1:
            Timer2 = 0 : B = 0
            If Ss > 29 Then : Mm = Mm + 1
            End If
            If Mm = 60 Then : Mm = 0 : Incr Cc
            End If
            If Cc = 24 Then Cc = 0
            Ss = 0 : Goto Ss
'-------------------------------------------------------------------------------
Ss2:
            Timer2 = 0 : Ss = 0 : B = 0 : Goto Ss
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

Onlcd:
   Gosub Showcc : Gosub Showmm : Gosub Showss : Gosub Showa : Gosub Showi
Return
'-------------------------------------------------------------------------------
Offlcd:
         If Ft = 1 Then Return
         If F = 0 Then : Return
         Else :
            If F = 2 Then : Home : Lcd "  "
            Elseif F = 3 Then : Locate 1 , 4 : Lcd "  "
            Else :
               If F = 4 Then : Locate 1 , 7 : Lcd "  "
               End If
            End If
         End If
Return
'------------------------------------------------------------------------------- DESIGN BY A.N.T
'-------------------------------------------------------------------------------
Showa:
   Locate 1 , 12
   If A < 10 Then : Lcd " " ; A ; Chr(0) ; "   "
   Else : Lcd A ; Chr(0) ; "   "
   End If
Return
'-------------------------------------------------------------------------------
Showcc:
   Home
   If Cc < 10 Then : Lcd " " ; Cc
   Else : Lcd Cc
   End If
   Lcd ":"
Return
'-------------------------------------------------------------------------------
Showmm:
   Locate 1 , 4
   If Mm < 10 Then : Lcd "0" ; Mm
   Else : Lcd Mm
   End If
   Lcd ":"
Return
'-------------------------------------------------------------------------------
Showss:
   Locate 1 , 7
   If Ss < 10 Then : Lcd "0" ; Ss
   Else : Lcd Ss
   End If
   Lcd " "
Return
'------------------------------------------------------------------------------- DESIGN BY A.N.T
Showi:
   Home L : Lcd V ; "v    "
   Locate 2 , 10 : Lcd I ; " A     "
Return