کمک در مورد برنامه نویسی برای HM-TR

[Modj]

سلام
درایو موتور ارتباطی با HM-TR نداره. تاپیک جدیدی ایجاد کنین و اونجا پیگیر باشین

[hossein-ab]

سلام
من اومدم يه متن رو با ماژول hm-r وhm-t بفرستم و مدارو بستم ولي كار نميكنه نمي دونم اشكال از چيه؟ نميدونم پايه tx ميكرو اطلاعات رو به ماژول
ميده تا بفرسته؟ چيكار كنم كه مطمئن شوم اطلاعات رو مي فرسته؟؟؟؟ و گيرنده اونو در يافت ميكنه؟

ممنون ميشم اگه كمكم كنيد

[Modj]

مجددا این تاپیک برای HM-TR هست و برای HM-t  و HM-R بهتر هست تاپیک مجزا بزنین. کم بودن فعالیت انجمن دلیل بر بی نظمی در اون نمیشه.
فقط همینقدر که توو این ماژول که میگین در صورتی که فرستنده برای مدتی سیگنالی ارسال نکنه گیربنده شروع به دریافت نویز میکنه ، برای همین یکی از روش ها ارسال ممتد یک بایت مشخص و استفاده نشونده هست. در صورتی که بایتی جز اون ارسال شد یعنی اطلاعات جدید هست.
کار دیگه هم ارسال چند بار پشت سر هم اطلاعات هست

[hossein-ab]

سلام اگر ماژول HMTR ارسال را انجام بده بايد led سبز بايد بر اساس تاخيري كه ايجاد كرديم روشن خاموش بشه آيا درسته؟
اين برنامه فرستنده هست آيا درسته؟
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
Config Portb.1 = Output
Dim S As String * 6
Enable_majol Alias Portb.1
Set Enable_majol
Do
Print "SOBHAN"
Waitms 75
Loop
End
در من ميخوام به اي 8mhz يك كريستال خارجي 11.0592 بذارم آيا درسته كه جلوي كريستال تو برنامه بنويسم 11059200 ؟
ممنون ميشم

[reza_h2010]

سلام
من اگر جاي شما بودم براي موفقيت چندكار رو انجام ميدادم
نوع HMTR شما TTL هستش يا RS232?
 
بهتره اول با ميكرو و كامپيوتر يك ارتباط سريال ايجاد بكنيد
اگر HMTR شما RS232 مستقيم اونو كامپيوتر وصل بكنيد(دوتا ماژولتون رو به دو سيستم مجزا متصل بكنيد) و سعي بكنيد بين اونا دوتا ارتباط سريال بيسيم رو ايجاد بكنيد
اگه ماژولتون TTL هستش ميتونيد مابين كامپيوتر و ماژول از يك مدار مبدل با آي سي max232 درست بكنيد
 
شما احتمالا نياز داريد بعد از اتصال ماژول به كامپيوتر اقدام به پيكره بندي دوباره ماژول بكنيد
هر دو ماژول بايد داري پيكره بندي يكساني باشن
 
 
پس
1- اتصال ميكرو به كامپيوتر(هدف برنامه نويسي سريال ميكروو ارسال داده از ميكرو به PC و مشاهده داده ها داخل يك محيط Terminal مثل Hyper Terminal)
2-  اتصال درست HMTR به PC و انجام عمل پيكره بندي و ارسال داده بين دو ماژول (نكته مهم اين مرحله چگونگي تغييرات درست سخت افزاري و وارد كردن ماژول به مد پيكره بندي و انجام عمل پيكره بندي با نرم افزار مخصوص اينكار HM-TR Setup  و خارج كردن درست ماژول از اين مد و استفاده از ماژول
توجه بكنيد كه فقط براي يكبار به پيكره بندي نياز داريد)
 
اگه اين دوتا كار درست انجام بشه
فقط كافيه ماژول رو به ميكرو متصل بكنيد و از كار لذت ببريد
 
 

[hossein-ab]

 سلام من با برنامه اي كه نوشتم موتور dc رو از راه دور كنترل ميكنم(چپ گرد وراست گرد) من ميدونم كه براي كنترل سرعت موتور بايد ازpwm استفاده كنم
 ولي نميدونم بايد برنامشو چه جوري بنويسم؟
 لطفا كمكم كنيد
 ممنون

[Modj]

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

[hossein-ab]

من ميخوام با ماژول موتور رو از راه دور كنترل كنم
اين برنامه فرستنده براي موتور dc
$regfile = "m16def.dat"
Config Portd.3 = Input
Config Portd.4 = Input
Config Portd.5 = Input
Ddrd.3 = 0 : Portd.3 = 1
Ddrd.4 = 0 : Portd.4 = 1
Ddrd.5 = 0 : Portd.5 = 1
Dim B As Byte
Do
Debounce Pind.3 , 0 , Right
Debounce Pind.4 , 0 , Left
Debounce Pind.5 , 0 , Stop
Loop
Right:
For B = 1 To 10
Print "Right"
Waitms 50
Next
Return
Left:
For B = 1 To 10
Print "Left"
Waitms 50
Next
Return
Stop:
For B = 1 To 10
Print "Stop"
Waitms 50
Next
Return
End
گيرنده:
$regfile = "m16def.dat"
Config Portd.4 = Output
Config Portd.5 = Output
Dim B As Byte
Do
B = Waitkey()
If B = "Right" Then
Reset Portd.4
Set Portd.5
End If
If B = "Left" Then
Reset Portd.5
Set Portd.4
End If
If B = "Stop" Then
Reset Portd.4
Reset Portd.5
End If
Loop
End
برنامه كار مي كنه لطفا بفرماييد كجاي برنامه pwm رو براي كنترل سرعت موتور اضافه كنم؟؟؟
چه برنامه اي براي pwm بكار ببرم؟؟؟
ممنون ميشم

[Modj]

الان فقط بخش RIGHT برای راست هست، می تونین کد RIGHT2 رو هم در نظر بگیرین و توی اون حرکت به راست با نصف سرعت رو بنویسین. و همینطور هر تعداد سرعتی که مد نظرتون هست اضافه کنین. برای سایر جهت ها هم به همین شکل

[hossein-ab]

من بايد پروژه كنترل از راه دور موتورdc رو به زودي تحويل دهم ولي به يه مشكل بر خوردم
 (چپگرد و راستگرد) موتور رو كنترل ميكنم و مشكل من كنترل سرعت موتور با pwm هست.
 هر برنامه اي كه به نظرم رسيد نوشتم ولي جواب نداد اگه كسي قبلا با pwm موتور رو از راه
 دور كنترل كرده لطفا بهم بگه با چه برنامه اي اين كار رو انجام داده
 يا دنيا ممنون ميشم
 فرستنده:
 $regfile = "m16def.dat"
 Config Portd.3 = Input
 Config Portd.4 = Input
 Config Portd.5 = Input
 Ddrd.3 = 0 : Portd.3 = 1
 Ddrd.4 = 0 : Portd.4 = 1
 Ddrd.5 = 0 : Portd.5 = 1
 Dim B As Byte
 Do
 Debounce Pind.3 , 0 , Right
 Debounce Pind.4 , 0 , Left
 Debounce Pind.5 , 0 , Stop
 Loop
 Right:
 For B = 1 To 10
 Print "Right"
 Waitms 50
 Next
 Return
 Left:
 For B = 1 To 10
 Print "Left"
 Waitms 50
 Next
 Return
 Stop:
 For B = 1 To 10
 Print "Stop"
 Waitms 50
 Next
 Return
 End
 گيرنده:
 $regfile = "m16def.dat"
 Config Portd.4 = Output
 Config Portd.5 = Output
 Dim B As Byte
 Do
 B = Waitkey()
 If B = "Right" Then
 Reset Portd.4
 Set Portd.5
 End If
 If B = "Left" Then
 Reset Portd.5
 Set Portd.4
 End If
 If B = "Stop" Then
 Reset Portd.4
 Reset Portd.5
 End If
 Loop
 End

[hossein-ab]

سلام
 من براي پايان نامه مطلب درباره ماژول HMTR احتياج دارم كسي مي تونه بهم كمك كنه
 ممنون ميشم

[maziar41]

سلام
من با یه مشکل جدید روبرو شدم!
تمام کارهای لازم برا راه اندازیو انجام دادم.
برنامه رو نوشتم و با 3 رشته سیم جواب گرفتم حالا که ماژول hm-tr رو قرار میدم دیتا یه جوری نا منظم فرستاده میشه و قسمتیش هم معمولا از بین میره بدین صورت که مثلا در هایپر ترمینال اگر توسط میکرو کلمه hello رو هر 2 ثانیه بفرستم در برنامه هایپر ترمینال اینجوری دریافت میکنم!
Ho
ll
e
         o   e

H      l
 همینطور که میبینید باد ریت درسته ولی بعضی از حروف یا فرستاده نمیشن یا کلا هیچی فرستاده نمیشه!
چراغ سبز رنگ گیرنده هم سبز کم رنگ روشن میشه و زیاد پر نور نیست
اتصالات هم کاملا درسته!
حالا اگر به جای برنامه هایپر ترمینال از یک میکرو دیگه برا دریافت استفاده کنم کلا هیچ عکس العملی نشون نمیده اینگار هیچ دیتایی فرستاده نمیشه برای میکروی گیرنده.
ممنونمیشم! یک ماهی هست دارم روش کار میکنم:

[Modj]

چند روزی مسافرت بودم. مشکل جدید بیشتر به نظرم از نویز حاصل شده از وسیله الکترونیکی جدید یکی از همسایه ها، مثل تلفن بیسیم یا ... میاد