انتقال دیتا در بسکام -کمک

[Topless]

سلام دوستان.
من می خوام که بین دو میکرو ارتباط برقرار کنم،خیلی هم تلاش کردم اما جواب نگرفتم.
خدمتتون باید عرض کنم که من دم دستم lcd,atmega8,atmega16,keypad,و ... دارم.
راستش من یک برنامه ساده نوشتم که وقتی یکی از پایه های آی سی 1 شد،متن "text" رو به آی سی دیگه انتقال بده و اون آی سی هم این متن رو روی lcd نمایش بده.
مشکل اینجاست که هیچ دیتایی به دست آی سی دومی نمی رسه تا اونو نمایش بده.
اینم کد فرستنده:

$regfile = "m8adef.dat"
$crystal = 1000000                     ' 1mhz
$baud = 9600

Config Portb.0 = Input

Do
  If Pinb.0 = 1 Then
  Print "test"
  End If
Waitms 200
Loop
End

اینم کد گیرنده:

$regfile = "m8adef.dat"
$crystal = 1000000                     ' 1mhz
$baud = 9600
Config Lcd = 16 * 1a

Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 , E = Pinb.1 , Rs = Pinb.0

Dim A As String * 10

Do
 A = Inkey()
 Cls : Home : Lcd A
Waitms 200
Loop
End

لطفا کمک کنید دوستان.
من سر این موضوع انتقال دیتا میکرو به میکرو و میکرو به کامپیوتر تو اینترنت و کتابها چرخیدم که دیگه مریض شدم! :redface:

[Topless]

پاسخ : انتقال دیتا در بسکام -کمک

دوستان لطفا کممممممممممممممککککککککککک!!!

[Topless]

پاسخ : انتقال دیتا در بسکام -کمک

یعنی کسی اینجا نیست؟!؟! oo:
کمممممممممممککککککککککککککک

[Topless]

پاسخ : انتقال دیتا در بسکام -کمک

:-(( :-(( :-((

[محمد مومنی22]

پاسخ : انتقال دیتا در بسکام -کمک

سلام دوستان.
من می خوام که بین دو میکرو ارتباط برقرار کنم،خیلی هم تلاش کردم اما جواب نگرفتم.
خدمتتون باید عرض کنم که من دم دستم lcd,atmega8,atmega16,keypad,و ... دارم.
راستش من یک برنامه ساده نوشتم که وقتی یکی از پایه های آی سی 1 شد،متن "text" رو به آی سی دیگه انتقال بده و اون آی سی هم این متن رو روی lcd نمایش بده.
مشکل اینجاست که هیچ دیتایی به دست آی سی دومی نمی رسه تا اونو نمایش بده.
اینم کد فرستنده:

$regfile = "m8adef.dat"
$crystal = 1000000                     ' 1mhz
$baud = 9600

Config Portb.0 = Input

Do
  If Pinb.0 = 1 Then
  Print "test"
 Waitms 200
  End If
Loop
End

اینم کد گیرنده:

$regfile = "m8adef.dat"
$crystal = 1000000                     ' 1mhz
$baud = 9600
Config Lcd = 16 * 1a

Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 , E = Pinb.1 , Rs = Pinb.0

Dim A As String * 10

Do
 A = Inkey()
 Cls : Home : Lcd A
Waitms 200
  End If
Loop
End

لطفا کمک کنید دوستان.
من سر این موضوع انتقال دیتا میکرو به میکرو و میکرو به کامپیوتر تو اینترنت و کتابها چرخیدم که دیگه مریض شدم! :redface:

سلام
سخت افزارتون درست بستید؟
پایه txبهrx و rx به tx
ضمنا شما این کار رو بکن:

$regfile = "m8adef.dat"
$crystal = 8000000
$baud = 9600

Config Portb.0 = Input
Pinb.0 = 0
Do
  If Pinb.0 = 1 Then
  Print "1011"
  End If
Waitms 200
Loop
End

$regfile = "m8adef.dat"
$crystal = 8000000
$baud = 9600
Config Lcd = 16 * 1a

Config Lcdpin = Pin , Db4 = Pinb.2 , Db5 = Pinb.3 , Db6 = Pinb.4 , Db7 = Pinb.5 , E = Pinb.1 , Rs = Pinb.0

Dim A As Byte

Do
 A = Inkey()
 If A = "1011" Then

 Cls : Home : Lcd "test"
Waitms 200
Loop
End

[محمد مومنی22]

پاسخ : انتقال دیتا در بسکام -کمک

و اینکه پایه ای از میکرو که قراره بزنید به کلید با یک مقاومت 10 کیلو به زمین بزنید(پول دان کنید)

[Topless]

پاسخ : انتقال دیتا در بسکام -کمک

خیلی ممنون.حتمآ امتحان میکنم.
ولی من فقط پایه tx اولی رو به rx دومی وصل کردم!
راستی به صورت نرم افزاری هم اگه بخوام همین کاررو انجام بدم باید هم rxو tx رو توی دو تا میکرو تعریف و به هم وصل کنم؟یا فقط اونایی رو که نیاز دارم؟

[محمد مومنی22]

پاسخ : انتقال دیتا در بسکام -کمک

خیلی ممنون.حتمآ امتحان میکنم.
ولی من فقط پایه tx اولی رو به rx دومی وصل کردم!
راستی به صورت نرم افزاری هم اگه بخوام همین کاررو انجام بدم باید هم rxو tx رو توی دو تا میکرو تعریف و به هم وصل کنم؟یا فقط اونایی رو که نیاز دارم؟

اگر بخوای در هم عمل فرستندگی و هم گیرندگی یعنی ارتباط دو طرفه داشته باشی مسلما باید tx وrx هر دو میکرو به هم متصل باشن.
اما اگر فقط میخوای ارسال کنی کافیه tx فرستنده به rx گیرنده متصل کنی
ضمنا اول برنامه فرستنده بنویس:
Enable Utxc
و اول برنامه گیرنده:
Enable Urxc
چه نرم افزاری چه سخت افزای فقط همونهای که نیازه وصل کن

[Topless]

پاسخ : انتقال دیتا در بسکام -کمک

آقا دستت درد نکنه.جواب گرفتم!!!!!
ببخشید اینقدر سوال میپرسم.
فاصله دو میکرو در این ارتباط حداکثر باید چقدر باشه؟
و اینکه با ارتباط بین کامپیوتر هم به همین روش برنامه بنویسم(فرستنده) عمل میکنه؟یعنی به جز مدار max232 نیاز به کریستال و از این حرفا نداره؟