ايران ويج

سلام
به ایرن ویج خوش امدید.
:PULSEOUT دستور
فرم کلی اين دستور به شکل زير است:
PULSEOUT PORT , PIN , PERIOD
دلخواه بر حسب PERIOD دلخواه با زمان تناوب PIN و پايه PORT با اين دستور ميتوان يک پالس بر روی پورت
ميکرو ثانيه ايجاد کرد(پينی که پالس بر روی ان ايجاد ميشود بايد به عنوان خروجی تعريف شود)(در صورتی که از حلقه
استفاده نکنيد ، دستور فقط يک با اجرا ميشود ، اين پالس مربعی است ( در واقع و ضعيت پايه از صفر به يک يا بلعکس
تغيير ميکند)).مانند
$regfile = "m16def.dat"
$crystal = 12000000
Config Portc.0 = Output
W:
Pulseout Portc , 0 , 60000
Goto W
End
99
:PULSEIN دستور
توسط اين دستور ميتوان زمان تناوب يک پالس مربعی را اندازه گرفت ، فرم کلی اين دستور به شکل زير است:
PULSEIN var , PINX , PIN , STATE
باشد word که بايد از جنس var دلخواه را در متغير PIN و پين PINX اين دستورزمان تناوب پالس اعمال شده به پورت
قرار ميدهد.
شما ميتوانيد مشخص کنيد که زمان بين از صفر به يک رفتن يا از يک به صفر رفتن پالس اندازه گرفته شود ، برای حالت
يک قرار دهيد مانند STATE صفر و برای حالت دوم به جای STATE اول به جای
$regfile = "m16def.dat"
$crystal = 12000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 =
Portd.3 , E = Portd.4 , Rs = Portd.5
Dim X As Word
Config Portc.0 = Input
Do
Pulsein X , Pinc , 0 , 1
Locate 1 , 1
Waitms 500
Lcd X
Loop
End
lcd اعمال شده در هر 500 ميلی ثانيه اندازه گرفته ميشود و سپس بر روی c. در مثال بالا زمان تناوب پالسی که به پين 0
نمايش داده ميشود.(زمان تناوب نبايد از 65.535 ميلی ثانيه بيشتر باشد ، اين دستور از تايمر های ميکرو استفاده نميکند)
و
دستور config single=Scientific,digits=1 هم تعداد اعشار کل متغیر های single که در برنامه استفاده شده است را نشان می دهد.
سخت افزار سنسور هم توی دیتاشیتش کامل نوشته شده.
دیتاشیت srf05

سلام.
این هم به زبان C که پین هارو خودتون تو کد تغییر بدید.
اگر هم میخواید 2 تا از ماژول رو استفاده کنید فقط اسم متغیر ها و پین ها رو تغییر بدید.
[attachment=8866]