hossein6355
تازه وارد
ارسالها: 13
موضوعها: 5
تاریخ عضویت: بهمن ۱۳۹۰
تشکرها : 2
( 0 تشکر در 0 ارسال )
|
مشكل در برنامه ارتباط بين دو ميكرو
سلام به همگي
يه سوالي داشتم اگه ممكنه كمكم كنيد
من ميخوام وقتي عددي رو ميفرستم در گيرنده led مخصوص به همون عدد روشن شود كه بفهمم آن عدد ارسال شده است(مثلا از 1 تا 30)
فرستنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Print "start"
Config Int0 = Low Level
Config Portc = Input
Config Portb.0 = Output
Config Portd.4 = Output
Enable Int0
Enable Interrupts
On Int0 Int0_isr
Print "power down"
Dim B As Byte , A As Byte , S As String * 5
Do
Powerdown
Loop
End
Int0_isr:
B = Pinc
For A = 1 To 10
Print "mnt" ; B
Next A
Wait 1
Return
گيرنده:
$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
Config Portc = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , _
Db7 = Portc.0 , Rs = Portc.5 , E = Portc.4
Cursor Off
Dim A As String * 10 , Ss As String * 10 , B As Byte
Dim P As Byte , X As String * 10 , S As String * 10
Cls
Do
Input S
S = Mid(s , 2 , 5)
Ss = Left(s , 3)
If Ss = "mnt"then
A = Mid(s , 4 , 3)
P = Val(a)
Locate 1 , 1 : Lcd A ; " "
Wait 2
Cls
End If
Loop
به نظرتون بايد چه تغييري بايد در برنامم ايجاد كنم؟ به نظرم بايد از لچ استفاده كنم درسته؟
ممنون ميشم
|
|
۱۷-اسفند-۱۳۹۰, ۲۰:۰۰:۵۲ |
|
تشکر شده توسط : |
|
hossein6355
تازه وارد
ارسالها: 13
موضوعها: 5
تاریخ عضویت: بهمن ۱۳۹۰
تشکرها : 2
( 0 تشکر در 0 ارسال )
|
RE: مشكل در برنامه ارتباط بين دو ميكرو
كسي نميتونه كمكم كنه
|
|
۱۸-اسفند-۱۳۹۰, ۱۴:۲۱:۳۹ |
|
تشکر شده توسط : |
|
EBKA
مخترع
ارسالها: 1,099
موضوعها: 89
تاریخ عضویت: آذر ۱۳۸۸
تشکرها : 1655
( 2792 تشکر در 982 ارسال )
|
RE: مشكل در برنامه ارتباط بين دو ميكرو
سلام..
دوسته عزیز شما برای ارسال از دستور
printbin var
و برای دریافت
inputbin var
استفاده کن...
خیلی اسون میتونی این کار رو انجام بدی.... ولی اگه میخوای بیسیم بفرستی باید یه سری تغییرات بدی که اطلاعات رو درست و بدون نویز دریافت کنه...
ابراهیم خوانین زاده
ساعت کار بدن انسان بیشتر وقتها, کمتر از 657.000 ساعت است و بعد از آن از کار می افتد :():کمی فکر کنیم.....
259-734
[/url]
وبلاگ من
وب سایت من
[url=http://www.ebka-intelligent.com/]
آموزش کار با rfm12b,آموزش کامل ای سی ds1307, آموزش اتصال ماژول em18,سنسور رنگ ,سنسور گاز, و ... در وبلاگ من خواهید دید
|
|
۱۸-اسفند-۱۳۹۰, ۲۲:۴۸:۴۵ |
|
تشکر شده توسط : |
abbasalifix |
hossein6355
تازه وارد
ارسالها: 13
موضوعها: 5
تاریخ عضویت: بهمن ۱۳۹۰
تشکرها : 2
( 0 تشکر در 0 ارسال )
|
RE: مشكل در برنامه ارتباط بين دو ميكرو
در گيرنده ميتونم از لچ استفاده كنم؟
ممنوم ميشم
در گيرنده ميتونم از لچ استفاده كنم؟
ممنوم ميشم
در گيرنده ميتونم از لچ استفاده كنم؟
ممنوم ميشم
در گيرنده ميتونم از لچ استفاده كنم؟
ممنوم ميشم
(آخرین ویرایش در این ارسال: ۲۱-اسفند-۱۳۹۰, ۰۱:۳۰:۴۷، توسط hossein6355.)
|
|
۲۱-اسفند-۱۳۹۰, ۰۱:۲۸:۵۵ |
|
تشکر شده توسط : |
|
hossein6355
تازه وارد
ارسالها: 13
موضوعها: 5
تاریخ عضویت: بهمن ۱۳۹۰
تشکرها : 2
( 0 تشکر در 0 ارسال )
|
RE: مشكل در برنامه ارتباط بين دو ميكرو
ميتونيد بفرماييد با استفاده از لچ بايد چه تغييري در برنامم بدم
يك دنيا ممنون ميشم
|
|
۲۱-اسفند-۱۳۹۰, ۱۵:۰۰:۴۹ |
|
تشکر شده توسط : |
|