کمک برای متر الکترونیکی

[hana.j]

سلام دوستان
پروژه من متر الکترونیکی با سنسور التراسونیک هستش و میکرو avr.کسی میتونه به من کمک کنه برنامه اش رو بنویسم. :sad:

[hess]

پاسخ : کمک برای متر الکترونیکی

سلام .................

زبان برنامه نویسیتون چی هست؟ دقت کارتون چقدر باشه؟ با استفاده از ماژول های اولتراسونیک میخواین این کار رو انجام بدید یا سنسورهاش؟

[hana.j]

پاسخ : کمک برای متر الکترونیکی

باید 5 متر رو با دقت 2درصد اندازه بگیره.با استفاده از سنسور التراسونیک.زبان برنامه نویسی هم میتونه هر چیزی باشه.
من یه برنامه bascom دارم ولی هر کاری میکنم جواب نمیده.

[hamed_online62]

پاسخ : کمک برای متر الکترونیکی

برنامتو می ذاری؟

[hana.j]

پاسخ : کمک برای متر الکترونیکی

فکر کنم برنامه ای که دارم خیلی اشکال داره.من هم اصلا bascom بلد نیستم.بهتر نیست کلا بیخیال شم با c بنویسم؟

[hamed_online62]

پاسخ : کمک برای متر الکترونیکی

حالا برنامه رو بذار . ما هم یه نگاهی بندازیم.
حداقل شاید بشه یه ایده گرفت :biggrin:

[hana.j]

پاسخ : کمک برای متر الکترونیکی

سلام ببخشید دیر شد.چند روزه خیلی سرم شلوغ بود.
برنامه ای که دارم اینه.

$bound = 2400
$crystal = 8000000
$regfile = "ml6def.dat"
Config Timer1 = Timer, Prescale = 8
Config Lcdpin = Pin , Db4 = Porta.4, Db5 = Porta.5, Db6 = Porta.6, Db7 = Porta.7 , E = Porta.2, Rs = Porta.0
Config Pina.1 = Output
Porta.1 = 0
Cls
Ultrasonicen Alias Portb.0
Ultrasonicecho Alias Pinb.1
Config Pinb.0 Output
Config Pinb.1 = Input
Portb.1 = 1
Dim Limitbit As Byte
Dim Datareadtimer As Word
Enable Interrupts
Enable Timer1
On Ovf1 Ovflimit
Do
Gosub Ultratest
Waitms 300
Loop
Ultratest:
Limitbit = 0
Ultrasonicen = 1
Timer1 = 0
Start Timer1
Waitus 300
Ultrasonicen = 0
Waitus 500
While Ultrasonicecho = 1
If Limitbit = 1 Then
Stop Timer1
Cls
Locate 1 , 1
Lcd "OV"
Limitbit = 0
Goto Endprg
End If
Wend
Stop Timer1
Datareadtimer = Timer1
Datareadtimer = Datareadtimer / 65
Cls
Locate 1 , 1
Lcd Datareadtimer ; " cm"
Endprg:
Return
Ovflimit:
Stop Timer1
Limitbit = 1
Timer1 = 0
Return


میکرو رو با این برنامه پروگرم کردم ولی lcd هیچی نشون نمیداد.