میکرو الکترونیک

طراحی آموزش مشاوره

 
hmt & hmr
نویسنده : مصطفی نادری - ساعت ۸:٥٦ ‎ب.ظ روز ۱۳٩٠/۳/٢٩
 

امروز در مورد ماژول hmt و hmr  یه مقدار توضیح میدم + یک نمونه برنامه برای این ماژول http://images.persianblog.ir/392996_ZQEMVfUm.jpg


راه اندازی این ماژول خیلی خیلی راحته فقط کافیه چند تا نکته رعایت کنید

 برای راه اندازی از کریستال استفاده کنید ! وقتی میشه مطمئن کار کرد دلیلی برای گرفتن روزه شک دار وجود نداره !(11059200)

 این ماژول خیلی زود به استند بای میره پس واسه بیدار کردنش حتما اطلاعات تو یه حلقه قرار بدین و بفرستین

 اطلاعات کد کنید و بفرستید ساده ترین کار هم اینه یه اسم قبل از ارسال اطلاعات بنویسید بعد اونو بفرستین اگه در گیرنده دریافت شد بعد اطلاعات پشت سرشو بخونین ترجیحا به صورت رشته باشه

 بعد از ارسال رشته برای بار دوم که اطلاعات ارسال میشه 1 کاراکتر به مجموع کارکتر های ارسالی اضافه میشه که باید حذفش کنید شبیه نویز سیستم

خوب همین چند تا مورد می تونه به شما کمک کنه تا سریع تر به هدفتون برسید

البته رعایت باود ریت هم که نباید فراموش کرد

تو برنامه ایی که میزارم یک عدد از یک طرف که توسط 2 کلید کم و زیاد میشه به طرف دیگه ارسال میشه

فرستنده:

$regfile = "m16def.dat" : $crystal = 11059200
$baud = 4800
Config Portb = Input
Dim A As Byte , B As Byte
Do

     Debounce Pinb.0 , 0 , Afzayesh , Sub
     Debounce Pinb.1 , 0 , Kahesh , Sub

     Loop

Afzayesh:
Incr A
Gosub Send
Return


Kahesh:
Decr A
Gosub Send
Return

Send:
For B = 1 To 15
If A < 10 Then Print "mnt" ; "00" ; A
If A > 9 And A < 100 Then Print "mnt" ; "0" ; A
If A > 99 Then Print "mnt" ; A
Next
Return

گیرنده:

 

$regfile = "m16def.dat" : $crystal = 11059200
$baud = 4800
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db7 = Portc.2 , Db6 = Portc.3 , Db5 = Portc.4 , Db4 = Portc.5
Cursor Off
Config Portb = Output
Config Porta.0 = Input
Dim S As String * 20 , Ss As String * 20 , B As Byte
Dim P As Byte , X As Byte


Do
   Input S

   B = Len(s) : Ss = Left(s , 3)

   If Ss = "mnt" And B = 6 Then :
     Ss = Mid(s , 4 , 3)
     P = Val(ss)
     Locate 1 , 1 : Lcd Ss ; "        "

     End If


   S = Mid(s , 2 , 20)
   B = Len(s) : Ss = Left(s , 3)

   If Ss = "mnt" And B = 6 Then :
      Ss = Mid(s , 4 , 3)
      P = Val(ss)
      Locate 1 , 1 : Lcd Ss ; "        "

      End If



    Portb = P

Loop