اسیلوسکوپ با AVR

[h0x00i]

سلام به همه

بچه من یه اسیلوسکو طراحی کردم (البته با یه مقدار کپی برداری)ولی یک سر مشکلات داشتم هم توی برنامه نویسی هم تو مدارش .

اولین مشکلام اینکه خیلی نویز دارم

دومی اینکه مدار برای بالا پایین کردن دامنه سیگنال لازم دارم البته چندتایی پیدا کردم ولی دقیق نیستن (می خوام این پروژه عملی کنم)

سومی چرا توی پرتئوس نمی تونم این مدار هارو اجرا کنم فکر کنم از این باشه که از متن توی lcd استفاده می کنم وقتی کد

کد:

$regfile = "M32def.dat"
$crystal = 8000000
$lib "glcdKS108.LBX"
$include "my6_8.font"
$include "Font5x5.font"
$hwstack = 64
$swstack = 64
$framesize = 64

Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , _
Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 4 , Enable = 5 , Mode = 8
Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Portd = Input
'*******************************************************************************
Dim A As Word , B As Word , C As Word , D As Bit , E As Bit , Fr1 As Single
Dim Fr2 As Single , V1 As Single , V2 As Single , Speed As Word , F As Word
Dim Wiat As Word
Dim Aa As Long , Bb As Byte , Ii As Long
Config Single = Scientific , Digits = 1

'********************************timer *****************************************
Config Timer1 = Counter , Edge = Rising
Ddra.1 = 0
Porta.1 = 1
Config Timer1 = Timer , Prescale = 1024
Enable Timer1
Enable Timer0
Enable Interrupts
'*******************************************************************************

Bb = 0
D = 0
E = 0
Speed = 1
Setfont Font5x5
Cls Graph
Cls
Do

Cls
Showpic 0 , 0 , Pic0
Wait 4
Exit Do
Loop
'surc
Cls Graph

Do
'*******************control****************************
Showpic 0 , 0 , Pic1
If Pind.2 = 1 And Speed < 1000 Then
Incr Speed
Lcdat 32 , 50 , "speed :" ; Speed , 1
End If
If Pind.3 = 1 And Speed > 0 Then
Decr Speed
Lcdat 32 , 50 , "speed :" ; Speed , 1
End If
If Pind.4 = 1 And Wiat < 2000 Then
Incr Wiat
Lcdat 32 , 50 , "time :" ; Wiat , 1
End If
If Pind.5 = 1 And Wiat > 0 Then
Decr Wiat
Lcdat 32 , 50 , "time :" ; Wiat , 1
End If
'*********************select ch1/ch2*******************
If Pind.0 = 1 And D = 0 Then
D = 1
Showpic 97 , 1 , Ch1 , 1
While Pind.0 = 1
Wend
Elseif Pind.0 = 1 And D = 1 Then
D = 0
Showpic 97 , 1 , Ch1
While Pind.0 = 1
Wend
Elseif D = 0 Then
Showpic 97 , 1 , Ch1
End If
If Pind.1 = 1 And E = 0 Then
E = 1
Showpic 112 , 1 , Ch2 , 1
While Pind.1 = 1
Wend
Elseif Pind.1 = 1 And E = 1 Then
E = 0
Showpic 112 , 1 , Ch2
While Pind.1 = 1
Wend
Elseif E = 0 Then
Showpic 112 , 1 , Ch2
End If
'*********************show signal**********************
'---------------------------line 1----------------------
If D = 1 Then
For A = 0 To 96
F = Getadc(0)
B = F / 16
B = 64 - B
V1 = F / 204.6
Pset A , B , 255
For C = 1 To Speed
Waitus 1
Next C
Next A
End If
'-----------------------line 2---------------------
If E = 1 Then
For A = 0 To 96
F = Getadc(4)
B = F / 16
B = 64 - B
V2 = F / 204.6
Pset A , B , 255
For C = 1 To Speed
Waitus 1
Next C
Next A
End If
'********************show other objct******************
Line(96 , 12) -(128 , 12) , 255
Lcdat 3 , 97 , "F1:"
Lcdat 4 , 97 , Fr1 ; "Hz"
Lcdat 5 , 97 , "F2:"
Lcdat 6 , 97 , Fr2 ; "Hz"
Lcdat 7 , 97 , "V1:" ; V1
Lcdat 8 , 97 , "V2:" ; V2

Waitms Wiat
Loop

Pic0:
$bgf "arm.bgf"
Pic1:
$bgf "as.bgf"
Ch1:
$bgf "Ch1.bgf"
Ch2:
$bgf "ch2.bgf"

البته کامل نیست هنوز فرکانس مترو ننوشتم (درمورد اونم مشکل دارم)
video

http://www.injairane.ir/uplodfile/IMAG0017.jpg

[ha_60]

به نظر من که خوب اومد
برای بالا و پایین کردن باید یه ولتاژ رو باهاش جمع کنی که می تونی با یه opamp‌ اینکارو بکنی که گین هم بهت می ده
برای کوپلینگ ها هم کافیه یه خازن سر راهش بزاری و یا اتصال کوتاهش کنی
برای نویز هم اول یه ولتاژ بدون نوبز بهش بده ببین چی می شه فکر کنم دستت رو گذاشته بودی بهش خود اسکوپ عادی هم نویز می گیره اینجوری
بین نقاط هم باید خط بکشی نه اینکه فقط نقاط رو نشون بدی
و باید PCB‌هم داشته باشه اینجوری نیم شه نویزش رو بررسی کرد

[h0x00i]

مرسی آقا هادی

الان یکی از مشکلاتم اینه که نمی تونم فرکانس محاسبه کنم توی این خیلی مشکل دارم هرکری می کنم نمی تونم باعث اختلال روی کار نمایش میشه نمی دونم چی کار کنم ؟؟؟

یه مشکل اساسی دیگمم اینکه برنامرو که نوشتم وقتی توی پرتئوس اجرا می کنم پر تئوس خطا میده
منظورتون نفهمیدم بین نقاط باید خط بکشم


یعنی بین این نقاط

---

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

[h0x00i]

این برنامه پرتئوس
مشکل پرتئوس هم حل شود باید فونت آخر برنامه تعریف می کردم

کد

کد:

$regfile = "M32def.dat"
$crystal = 8000000
$lib "glcdKS108.LBX"

$hwstack = 64
$swstack = 64
$framesize = 64

Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , _
Ce = 0 , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 4 , Enable = 5 , Mode = 8
Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Portd = Input
'*******************************************************************************
Dim A As Word , B As Word , C As Word , D As Bit , E As Bit , Fr1 As Single
Dim Fr2 As Single , V1 As Single , V2 As Single , Speed As Word , F As Word
Dim Wiat As Word
Dim Aa As Long , Bb As Byte , Ii As Long
Config Single = Scientific , Digits = 1

'********************************timer *****************************************
Config Timer1 = Counter , Edge = Rising
Ddra.1 = 0
Porta.1 = 1
Config Timer1 = Timer , Prescale = 1024
Enable Timer1
Enable Timer0
Enable Interrupts
'*******************************************************************************

Bb = 0
D = 0
E = 0
Speed = 1
Setfont Font5x5
Cls Graph
Cls
Do

   Cls
   Showpic 0 , 0 , Pic0
   Wait 4
   Exit Do
Loop
'surc
Cls Graph

Do
'*******************control****************************
    Showpic 0 , 0 , Pic1

    If Pind.2 = 1 And Speed < 1000 Then
      Incr Speed
    End If
    If Pind.3 = 1 And Speed > 0 Then
      Decr Speed
    End If
    If Pind.4 = 1 And Wiat < 2000 Then
      Incr Wiat
    End If
    If Pind.5 = 1 And Wiat > 0 Then
      Decr Wiat
    End If
    Showpic 0 , 0 , Pic1

'*********************select ch1/ch2*******************
    If Pind.0 = 1 And D = 0 Then
    D = 1
    Showpic 97 , 1 , Ch1 , 1
    While Pind.0 = 1
    Wend
    Elseif Pind.0 = 1 And D = 1 Then
    D = 0
    Showpic 97 , 1 , Ch1
    While Pind.0 = 1
    Wend
    End If
    '////////////////////
    If Pind.1 = 1 And E = 0 Then
    E = 1
    Showpic 112 , 1 , Ch2 , 1
    While Pind.1 = 1
    Wend
    Elseif Pind.1 = 1 And E = 1 Then
    E = 0
    Showpic 112 , 1 , Ch2
    While Pind.1 = 1
    Wend
    End If
'*********************show signal**********************
'---------------------------line 1----------------------
    If D = 1 Then
      For A = 0 To 96
      F = Getadc(0)
      B = F / 16
      B = 64 - B
      V1 = F / 204.6
      Pset A , B , 255
      For C = 1 To Speed
         Waitus 1
      Next C
      Next A
     End If
     '-----------------------line 2---------------------
     If E = 1 Then
      For A = 0 To 96
      F = Getadc(4)
      B = F / 16
      B = 64 - B
      V2 = F / 204.6
      Pset A , B , 255
      For C = 1 To Speed
         Waitus 1
      Next C
      Next A
     End If
'********************show other objct******************
    Line(96 , 12) -(128 , 12) , 255
    Lcdat 3 , 97 , "F1:"
    Lcdat 4 , 97 , Fr1 ; "Hz"
    Lcdat 5 , 97 , "F2:"
    Lcdat 6 , 97 , Fr2 ; "Hz"
    Lcdat 7 , 97 , "V1:" ; V1
    Lcdat 8 , 97 , "V2:" ; V2

    Waitms Wiat
Loop


   $include "Font5x5.font"
Pic0:
   $bgf "arm.bgf"
Pic1:
   $bgf "as.bgf"
Ch1:
   $bgf "Ch1.bgf"
Ch2:
   $bgf "ch2.bgf"

[h0x00i]

کسی نیست کمک کنه ؟؟؟؟

من در مورد اندازه گیری فرکانس مشکل دارم و همین طور مدار کنترل دامنه

[sharin]

سلام.

من هنوز برنامه رو نخوندم ، اما مي خونم ...
فركانس رو چطور مي خواي اندازه بگيري ؟ مي خواي به صورت عدد نشون داده بشه ؟
براي اينكار مي توني از timer استفاده كني يا از يه تابع استفاده كني ( اسمش يادم نيست !! )
كنترل دامنه مي خواي به چه صورت باشه ؟ منظورت stretch كردن هست يا pan كردن ؟
براي pan اگر مدام در حال نمونه گيري هست ، كه بايد يه مقدار DC رو باهاش جمع كني (با مدار جمع كننده ي اپ امپ ) ،
اما اگر بعد از نمونه گيري ذخيره مي شه و ديگه نمونه گيري نمي كنه ، با استفاده از دستورات lcd فكر مي كنم بشه ...

براي حالت DC/AC هم ( همونطور كه خودت مي دوني ) از يك خازن متناسب با فركانس بايد استفاده كني ، كه اگر در مدار باشه ، مي شه AC و اگر نباشه ، مي شه DC ...

موفق باشي.
يا علي.

[ha_60]

برای اندازه گیری فرکانس ۲ راه داری یکی شمردن تعداد پالس ها توی یک زمان مشخص مثلا یک دهم ثانیه و یکی هم اندازه گیری زمان بین ۲ عبور از یک نقطه مشخص اونم مثلا بالا رونده
روش اول توی فرکانس های بالا و روش دوم توی فرکانس های پایین جواب می ده
از روی زمانه نمونه برداری م یتونه روش رو انتخاب کنی
برای هر دو روش باید عبور از اون نقطه رو تشخیص بدی که یه if می خواد
در کل هر دوروش برای شکل موج های پیچیده جواب نمی ده
یه روش دیگه که هست ۲ تا خط روی صفحه نشون می دن که کار بر می برتشون روی ابتدا و انتهای شکل موج دیگه کاری به شکل موج ندارن از اون ۲ تا خط و زمان نمونه گیری فرکانش رو حساب می کنن

[h0x00i]

مرسی آقا هادی

فکر کنم روش اخر خوب باشه اینجوری جالب تر هم میشه ......
فقط باید این کار کنم دیگه :

دوتا خط تعریف می کنم که روی محور X حر کت میکنه بعد از مکان یابی دقیق ..وقتی اون ردیف پیکسل 1 شود تایمر شروع به کار میکنه و تازمانی که به انتهایی برسه میشماره و 1 تقسیم بر این زمان میشه فر کانس ...

[ha_60]

نه دیگه تایمر نمی خواد
شما سرعت نمونه برداری رو می دونی چون خودت تنظیم کردی مثلا هر نمونه (پیکسل) توی یک میلی ثانیه گرفته می شه دو تا خط رو هم که خودمون کشیدیم مثلا یکی روی پیکسل ۲۵ اون یکی روی ۷۵ یعنی ۵۰ پیکسل بین ۲ خط فاصله هست که می شه ۵۰ میلی ثانیه پس فرکانش می شه ۱/۵۰ کیلو

[DELBAGTE]

سلام میتونی فایل پروتئوس این برنامه رو برای بفرستی .شدیدا لازم دارم

---

اینم ایمیلم
abasihamid40@gmail.com

[h0x00i]

در پست شماره 4 وجود دارد