(۱۳-بهمن-۱۳۹۰, ۱۶:۴۱:۰۵)abbasalifix نوشته است: [ -> ]آره اما اگه میخوای مطمن شی بهتره بازم سرچ کنی
من همین امروز با هاتل اینجوری فیوزبیت هارو تنظیم کردم
نه دوست خوبم ،نتظیم کریستال رو همونطور که شما گفتین انجام دادم و جواب داد،تشکر ویژه.
باید ببینم با ماژول هم درست کار می کنه.
با سلام.
خب دوستان بزرگوار بالاخره اتم شکافته شده و من تونستم با Hm-tr یه کد بفرستم
و چند متر اونطرفتر بگیرمش.اما مشکل اینجاست که خطا زیاد داره.
طرف گیرنده گفتم به ازای هر بار ارسال 123 یک ledرو روشن و خاموش کن و طرف گیرنده هم گفتم به ازای هر بار گرفتن 123 یک led رو روشن و خاموش کن.مثلاً اگه 15 دفعه چراغ فرستنده روشن بشه طرف گیرنده فقط 2 بار چراغ روشن میشه،راه حل رفع این خطا چیه؟
abbasalifix جان،بیا که انتطار به پایان رسید
دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟
با دستور printbin ارسال کن
سلام
امدم- خیلی خوشهالم که تونستی درستش کنی
بهت تبریک میگم
(۱۴-بهمن-۱۳۹۰, ۰۰:۴۷:۰۴)maxn@morteza نوشته است: [ -> ]دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟
با دستور printbin ارسال کن
متشکر از تشویقتون.
همون مقدار کریستال خارجی که گذاشتم یعنی 11059200
از waitkey استفاده کردم و کد ارسالیمم word .
با printbin هم امتحان میکنم.
(۱۴-بهمن-۱۳۹۰, ۰۰:۴۹:۵۴)abbasalifix نوشته است: [ -> ]سلام
امدم- خیلی خوشهالم که تونستی درستش کنی
بهت تبریک میگم
قربانت ممنون.
بله به لطف شما.
(۱۴-بهمن-۱۳۹۰, ۰۰:۴۷:۰۴)maxn@morteza نوشته است: [ -> ]دوست عزیز کریستالل تو فرستنده و گیرنده چقدره ؟ با چه دستوری ارسال و دریافت میکنی ؟
با دستور printbin ارسال کن
دوستم من گل کاشتین،عالی شد،تواین فاصله که خطا نداره.
خیلی متشکر.
سلام دوستان.
به نظرتون چه اشتباهی تواین برنامه پیچیده دارم؟
کد:
$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
![[تصویر: di-3XJ4.jpg]](http://www.irfreeup.com/di-3XJ4.jpg)
مشخصه دیگه،می خوام با 1 شدن a0 یه دونه led روشن بشه.
دوست عزیز توی بسکام .قتی یک پایه رو ورودی تعریف میکنی یا به عنوان ورودی توی دستور شرت قرار میدی باید از دستور 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
(۱۴-بهمن-۱۳۹۰, ۱۱:۰۹:۰۹)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
باید ببخشید هنگ کردم با کدویژن اشتباه گرفتم.
متشکر
جمله بالایی رو تصحیح میکنم:توکدویژن هم با پین مقایسه ها انجام میشه.
دوستان من از این کد انتظار دارم که چه کدی رو از فرستنده دریافت کنه و چه دریافت نکنه در هر صورت پین شماره صفر 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
سلام
برنامه (به نظر من) درسته اما بهتره این دو سه تا کاری که میگم رو اینجوری بنویسید و تست کنید!
کد php:
config Porta.0=output
config Portb.0=output
درضمن من فکر میکنم این فرمان inputbin رو هرجا که شرط برقرار بشه میره ادامه برنامه رو اجرا میکنه!!!!!!!!!
با فرمان input هم میشه اطلاعات رو از پورت خوند
