سلام به همه .
من با ماژول های HMT و HMR فرکانس 915 یه فرستنده درست کردم ولی دو تا مشکل دارم:
1. برد کم.
2. نویز پذیری بالا .
مشکل دوم خیلی مهم تره چون یه بار کد گیرنده رو طوری نوشتم که هر چی از ماژول گرفت مستقیما رو LCD بزاره .
اول فکر کردم که هر از گاهی یه کاراکتر الکی بنویسه ولی دیدم نه .
اونقدر داده رو پشت سر هم به ال سی دی می داد که ال سی دی وقت نمی کرد خودشو رفرش کنه .
برنامه رو هم گذاشتم.
برنامه :
فرستنده:
گیرنده:
من با ماژول های HMT و HMR فرکانس 915 یه فرستنده درست کردم ولی دو تا مشکل دارم:
1. برد کم.
2. نویز پذیری بالا .
مشکل دوم خیلی مهم تره چون یه بار کد گیرنده رو طوری نوشتم که هر چی از ماژول گرفت مستقیما رو LCD بزاره .
اول فکر کردم که هر از گاهی یه کاراکتر الکی بنویسه ولی دیدم نه .
اونقدر داده رو پشت سر هم به ال سی دی می داد که ال سی دی وقت نمی کرد خودشو رفرش کنه .
برنامه رو هم گذاشتم.
برنامه :
فرستنده:
کد:
$regfile = "m8def.dat" $crystal = 8000000 $baud = 4800 Dim I As Integer Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.5 , Db6 = Portb.7 , Db7 = Portb.6 , Rs = Portb.0 , E = Portd.7 Cls '============================================================ Do For I = 1 To 100 Print "$" ; I Waitms 1 Next I Loop
کد:
$regfile = "m8def.dat" $crystal = 8000000 $baud = 4800 Config Adc = Single , Prescaler = Auto , Reference = Avcc Dim A1 As Word , A2 As Word , A3 As Word , A4 As Word , A0 As Word , A5 As Word , S As String * 16 Start Adc Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.5 , Db6 = Portb.7 , Db7 = Portb.6 , Rs = Portb.0 , E = Portd.7 Cls '=============================================================================== Do Cls Home Input S Lcd S Loop
دیدگاه