در مورد hm-tr...

[Ambassador]

آره اما اگه میخوای مطمن شی بهتره بازم سرچ کنی
من همین امروز با هاتل اینجوری فیوزبیت هارو تنظیم کردم

نه دوست خوبم ،نتظیم کریستال رو همونطور که شما گفتین انجام دادم و جواب داد،تشکر ویژه.
باید ببینم با ماژول هم درست کار می کنه.

[abbasalifix]

منتظریم!

[Ambassador]

با سلام.
خب دوستان بزرگوار بالاخره اتم شکافته شده و من تونستم با Hm-tr یه کد بفرستم و چند متر اونطرفتر بگیرمش.اما مشکل اینجاست که خطا زیاد داره.
طرف گیرنده گفتم به ازای هر بار ارسال 123 یک led‌رو روشن و خاموش کن و طرف گیرنده هم گفتم به ازای هر بار گرفتن 123 یک led رو روشن و خاموش کن.مثلاً اگه 15 دفعه چراغ فرستنده روشن بشه طرف گیرنده فقط 2 بار چراغ روشن میشه،راه حل رفع این خطا چیه؟
abbasalifix جان،بیا که انتطار به پایان رسید

[maxn@morteza]

دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟

با دستور printbin ارسال کن

[abbasalifix]

سلام
امدم- خیلی خوشهالم که تونستی درستش کنی
بهت تبریک میگم

[Ambassador]

دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟

با دستور printbin ارسال کن

متشکر از تشویقتون.
همون مقدار کریستال خارجی که گذاشتم یعنی 11059200
از waitkey استفاده کردم و کد ارسالیمم word .
با printbin هم امتحان میکنم.

---

سلام
امدم- خیلی خوشهالم که تونستی درستش کنی
بهت تبریک میگم

قربانت ممنون.
بله به لطف شما.

---

دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟

با دستور printbin ارسال کن

دوستم من گل کاشتین،عالی شد،تواین فاصله که خطا نداره.
خیلی متشکر.

[Ambassador]

سلام دوستان.
به نظرتون چه اشتباهی تواین برنامه پیچیده دارم؟

کد:

$regfile = "m32def.dat"
$crystal = 11059200
Config Portb = Output
Config Porta = Input
Do
If Porta.0 = 1 Then
Set Portb.0
Waitms 100
Reset Portb.0
Waitms 100
End If
Loop
End 'end program

مشخصه دیگه،می خوام با 1 شدن a0 یه دونه led روشن بشه.

[maxn@morteza]

دوست عزیز توی بسکام .قتی یک پایه رو ورودی تعریف میکنی یا به عنوان ورودی توی دستور شرت قرار میدی باید از دستور pin به جای port استفاده کنی

کد:

$regfile = "m32def.dat"
$crystal = 11059200
Config Portb = Output
Config pina = Input
Do
If pina.0 = 1 Then
Set Portb.0
Waitms 100
Reset Portb.0
Waitms 100
End If
Loop
End 'end program

[Ambassador]

دوست عزیز توی بسکام .قتی یک پایه رو ورودی تعریف میکنی یا به عنوان ورودی توی دستور شرت قرار میدی باید از دستور pin به جای port استفاده کنی

کد:

$regfile = "m32def.dat"
$crystal = 11059200
Config Portb = Output
Config pina = Input
Do
If pina.0 = 1 Then
Set Portb.0
Waitms 100
Reset Portb.0
Waitms 100
End If
Loop
End 'end program

باید ببخشید هنگ کردم با کدویژن اشتباه گرفتم.
متشکر

جمله بالایی رو تصحیح میکنم:توکدویژن هم با پین مقایسه ها انجام میشه.

[Ambassador]

دوستان من از این کد انتظار دارم که چه کدی رو از فرستنده دریافت کنه و چه دریافت نکنه در هر صورت پین شماره صفر B رو مداوم روشن و خاموش کنه،ولی فقط وقتی که کدی رو از گیرنده می گیره و شرط برقرار میشه این پین یک دفعه فقط روشن میشه،قضیه چیه؟

کد:

گیرنده:
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Dim C1 As Byte
Config Porta = Output
Config Portb = Output
Main:
Do
  Set Portb.0
  Waitms 1500
  Reset Portb.0
  Waitms 1500
  Inputbin C1
  If C1 = 123 Then Goto Car1
Loop
Car1:
Set Porta.0
Waitms 1500
Reset Porta.0
Waitms 1500
C1 = 0
Goto Main
End                                                         'end program

[abbasalifix]

سلام
برنامه (به نظر من) درسته اما بهتره این دو سه تا کاری که میگم رو اینجوری بنویسید و تست کنید!

کد php:

config Porta.0=output
config Portb.0=output 


درضمن من فکر میکنم این فرمان inputbin رو هرجا که شرط برقرار بشه میره ادامه برنامه رو اجرا میکنه!!!!!!!!!

---

با فرمان input هم میشه اطلاعات رو از پورت خوند