دوستان من خیلی تو انجمن گشتم چند تا مدار فاصله سنج هم پیدا کردم ولی همه مدارها مشکل داشتن
از دوستانی که آلتراسونیک کار کردن خواهش می کنم کمک کنن باید زود این پروژه رو تحویل بدم . مدار فاصله تا 2 متر رو اندازه بگیره کافیه فقط حتماً باید با atmega باشه .
:cry2:
دیروز هم یه مدار پیدا کردم و بستم ولی رو lcd هیچی نمی نویسه! برنامش اینه :
این هم شماتیک مداره
http://fupload.ir/images/9ucenq2gksv13mx30co.jpg
دوستان خواهش می کنم راهنمایی کنید :cry:
خیلی ممنون
از دوستانی که آلتراسونیک کار کردن خواهش می کنم کمک کنن باید زود این پروژه رو تحویل بدم . مدار فاصله تا 2 متر رو اندازه بگیره کافیه فقط حتماً باید با atmega باشه .
:cry2:
دیروز هم یه مدار پیدا کردم و بستم ولی رو lcd هیچی نمی نویسه! برنامش اینه :
$regfile="m8def.dat"
$crystal=8000000
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Timer1 = Timer , Prescale = 8
Config Int1 = Rising
Enable Interrupts
Enable Int1
On Int0 Receive
Dim A As Single , B As Single
Config Pind.6 = Output
Cls
Cursor Off
Do
Start Timer1
Set Portd.6
Waitms 500
Reset Portd.6
Waitms 100
Loop
End
Receive:
Stop Timer1
Reset Portd.6
A = Timer1
B = A
If a > 8000 Then
Cls
Home
Lcd "OUT OF RANGE"
Goto Down
End If
A = A / 100
Cls
Home
Lcd A
Locate 2 , 1
Lcd B
Down:
Timer1 = 0
A = 0
B = 0
Return
$crystal=8000000
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , Db6 = Pinc.4 , Db7 = Pinc.5 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2
Config Timer1 = Timer , Prescale = 8
Config Int1 = Rising
Enable Interrupts
Enable Int1
On Int0 Receive
Dim A As Single , B As Single
Config Pind.6 = Output
Cls
Cursor Off
Do
Start Timer1
Set Portd.6
Waitms 500
Reset Portd.6
Waitms 100
Loop
End
Receive:
Stop Timer1
Reset Portd.6
A = Timer1
B = A
If a > 8000 Then
Cls
Home
Lcd "OUT OF RANGE"
Goto Down
End If
A = A / 100
Cls
Home
Lcd A
Locate 2 , 1
Lcd B
Down:
Timer1 = 0
A = 0
B = 0
Return
این هم شماتیک مداره
http://fupload.ir/images/9ucenq2gksv13mx30co.jpg
دوستان خواهش می کنم راهنمایی کنید :cry:
خیلی ممنون
دیدگاه