من چند روز پیش یک ماژول التراسونیک با مشخصات زیر خریدم :
نام محصول:ماژول التراسونیک MINI
مشخصات:
حساسیت بالا
رنج عملکرد موثر وسیع(4متر)
کالیبراسیون فرکانسی فوق العاده(40.00KHz)
دارای ورودی تریگر
پاسخ دهی خروجی به صورت پالس با لبه پایین رونده
قابلیت تنظیم محدوده عملکرد به صورت دستی
سازگار با منطق TTL
مصرف پایین (<10mA)
موارد استفاده این بورد عبارتند از :
اندازه گیری فاصله
تشخیص مانع
تشخیص جابجایی اجسام
کنترل سطح مایعات
عملکرد پایه ها:
T تریگر ورودی
+ تغذیه 5 ولت
R خروجی پاسخ
- زمین
(نوشته شده از روی برگه ی راهنمای ماژول)
**************************************
برای این ماژول برنامه ی زیر را نوشتم :
$regfile = "m16def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Single
Dim A4 As Single
Dim A5 As Single
Config Porta = Output
Config Pinb.0 = Input
Config Timer2 = Timer , Async = On , Prescale = 1
Z2:
A1 = 0
A2 = 0
A3 = 0
A4 = 0
A5 = 0
Timer2 = 0
Enable Interrupts
Timer2 = A2
Enable Timer2
On Timer2 Z3
Start Timer2
Set Porta.0
Do
Debounce Pinb.0 , 1 , Z1
Loop
End
Z1:
Stop Timer2
Reset Porta.0
A3 = A1 * 0.0078125
A5 = A3 * 340
Locate 1 , 1
Lcd A5
Waitms 40
Goto Z2
Z3:
Incr A1
Return
*************************************
ولی جواب درستی نگرفتم، حالا نمی دونم برنامم ایراد داره یا سخت افزارم
لطفا کمکم کنید
نام محصول:ماژول التراسونیک MINI
مشخصات:
حساسیت بالا
رنج عملکرد موثر وسیع(4متر)
کالیبراسیون فرکانسی فوق العاده(40.00KHz)
دارای ورودی تریگر
پاسخ دهی خروجی به صورت پالس با لبه پایین رونده
قابلیت تنظیم محدوده عملکرد به صورت دستی
سازگار با منطق TTL
مصرف پایین (<10mA)
موارد استفاده این بورد عبارتند از :
اندازه گیری فاصله
تشخیص مانع
تشخیص جابجایی اجسام
کنترل سطح مایعات
عملکرد پایه ها:
T تریگر ورودی
+ تغذیه 5 ولت
R خروجی پاسخ
- زمین
(نوشته شده از روی برگه ی راهنمای ماژول)
**************************************
برای این ماژول برنامه ی زیر را نوشتم :
$regfile = "m16def.dat"
$crystal = 16000000
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Single
Dim A4 As Single
Dim A5 As Single
Config Porta = Output
Config Pinb.0 = Input
Config Timer2 = Timer , Async = On , Prescale = 1
Z2:
A1 = 0
A2 = 0
A3 = 0
A4 = 0
A5 = 0
Timer2 = 0
Enable Interrupts
Timer2 = A2
Enable Timer2
On Timer2 Z3
Start Timer2
Set Porta.0
Do
Debounce Pinb.0 , 1 , Z1
Loop
End
Z1:
Stop Timer2
Reset Porta.0
A3 = A1 * 0.0078125
A5 = A3 * 340
Locate 1 , 1
Lcd A5
Waitms 40
Goto Z2
Z3:
Incr A1
Return
*************************************
ولی جواب درستی نگرفتم، حالا نمی دونم برنامم ایراد داره یا سخت افزارم
لطفا کمکم کنید
دیدگاه