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

[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

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

[mstkmn]

سلام
فکر کنم اول باید پورت رو تعریف کنی
config com رو تو help نگاه کن

[ghiasvand]

سلام مشکل از برنامه فرستنده است. پایه شما به عنوان ورودی تعریف نشده. باید config pinb.0 =input تعریف شود.

[naimir47]

با سلام خدمت دوستان
من یه مشکل در برنامه نویسی بسکام دارم بدین شرح که میخاهم از طریق یک کلید در ورودی میکرو, خروجی مثلا portb.0را set کنم وبعد با زدن همان کلیدهمان خروجی را صفر یا reset کنم لطفا کمکم کنید و کد برنامه نویسی را قرار دهید لطفا

[mstkmn]

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

portb.0=!portb.0;

[naimir47]

داداش اینم وارد کردم ولی نشد بزار موضوع رو کامل برات باز کنم

من میخام با استفاده از ماژول بلوتوث hc05 چند وسیله رو روشن و خاموش کنم اما در برنامه گوشی به علت محدود بودن شستی ها میخاهم با فرستادن حرف A پورت b0 رو فعال و دوباره با فرستادن همان حرف A پورت b0 رو غیر فعال شود برنامه ای هم خودم نوشتم اما ارور میده و نمیدونم علت ارورش چیه برنامه به این صورته

$regfile = "M8adef.dat"
$crystal = 8000000
$baud = 9600
Dim A As String * 2
Enable Interrupts
Enable Urxc
Enable Utxc
Config Portd = Output
Config Portb = Output

Do
A = Inkey()

A = "A" And Portb.0 = 0
Set Portb.0
Print "on"
A = "A" And Portb.0 = 1
Reset Portb.0
Print "1"
لطفا راهنمایی کنید

[mstkmn]

if A='A' then Toggle portb.0