راه اندازی ماژول التراسونیک HC-SR04 با بسکام؟؟!!!

[sina1359]

سلام دوستان و اسادید گرامی
از دوستان کسی میتونه منو راهنمایی کنه و یک نمونه برنامه با بسکام
همراه با شماتیکش قرار بده برای
راه اندازی ماژول التراسونیک HC-SR04 .....
ممنون میشم که من را راهنمایی کنید.....


دلیل: ادغام دو پست برای جلوگیری از اسپم

مثلا فاصله را تا مانع بسنجه و عدد را روی LCD کاراکتری نشون بده....

[yousef55]

پاسخ : راه اندازی ماژول التراسونیک HC-SR04 با بسکام؟؟!!!

$regfile = "m8def.dat" $crystal = 8000000 Config Portd.7 = Output Lighta Alias Portd.7 Config Portb.0 = Output Lightk Alias Portb.0 Config Portc.4 = Output Pota Alias Portc.4 Config Portc.2 = Output Potk Alias Portc.2 Lightk = 0 Lighta = 1 Pota = 1 Potk = 0 Config Portb.1 = Output Trigger Alias Portb.1 Trigger = 0 '-------------------------------------------- Config Portb.3 = Input Ddrb.3 = 0 Portb.3 = 1 '------------------------------------ Cls Waitms 100 Lcd " Ali Haddad" Locate 2 , 1 Lcd " DIGIT METER " Wait 5 Dim A As Word Dim S As Single '-------------------------------------------- Const K = 0.1725 Waitms 50 Do Trigger = 1 Waitus 15 Trigger = 0 Waitus 10 Pulsein A , Pinb , 3 , 1 S = A * K Waitms 1 Cls Lcd Fusing(s , "###.#") Locate 1 , 8 Lcd " cm " Locate 2 , 1 Lcd " >--------

دلیل: ادغام دو پست برای جلوگیری از اسپم

http://s8.picofile.com/file/8294037368/01_sr04.bas.html

[sina1359]

پاسخ : راه اندازی ماژول التراسونیک HC-SR04 با بسکام؟؟!!!

سلام دوست عزیز
ممنون برای لطفی که کردین ..... بینهایت ممنون و متشکرم
پ.ن: ببخشید این موضوع را عرض میکنم ... ولی وقتی دیدم که به زحمت افتادید
و کدها را در فایل قرار دادید و آپلود کردید .... این را مینویسم :
برای قرار دادن کد در کامنتتون - متن کدها را را کپی پیست کرده و با رایت کلیک کدها
را آبی کرده و بعد روی # کلیک کنید تا کدها در تاپیک درست قرار گیرند....

$regfile = "m8def.dat"
$crystal = 8000000

Config Portd.7 = Output
Lighta Alias Portd.7

Config Portb.0 = Output
Lightk Alias Portb.0

Config Portc.4 = Output
Pota Alias Portc.4

Config Portc.2 = Output
Potk Alias Portc.2

Lightk = 0
Lighta = 1
Pota = 1
Potk = 0


Config Portb.1 = Output
Trigger Alias Portb.1
Trigger = 0
'--------------------------------------------
Config Portb.3 = Input
Ddrb.3 = 0
Portb.3 = 1
'------------------------------------
Cls
Waitms 100
Lcd "   Ali Haddad"
Locate 2 , 1
Lcd " DIGIT  METER "

Wait 5



Dim A As Word
Dim S As Single
'--------------------------------------------

Const K = 0.1725
Waitms 50
Do
Trigger = 1
Waitus 15
Trigger = 0
Waitus 10
Pulsein A , Pinb , 3 , 1
S = A * K
 Waitms 1

 Cls
Lcd Fusing(s , "###.#")
Locate 1 , 8
Lcd " cm "
Locate 2 , 1
Lcd "  >--------<"

 Waitms 400
 Loop


End

دلیل: ادغام دو پست برای جلوگیری از اسپم

یک سوال ؟
مقدار عدد S در برنامه بالا بین چه اعدادی میتواند باشد؟ تغییر هر عدد بیانگر چند سانتیمتر است

[yousef55]

پاسخ : راه اندازی ماژول التراسونیک HC-SR04 با بسکام؟؟!!!

تشکر از راهنمایی
متغیر S از نوع سینگل هست که به صورت اعشاری و بازه ی بسیار زیادی رو پوشش میده
در کل هر چقدر ماژول شما عدد بزرگتری به برنامه تحویل دهد مقدار S بیشتر میشه