مشکل باhmtr

[avr66]

اقا یکی کمک کنه
من ماژول رابستم حالا میخوام یک عدد را ارسال کنم تو میکرو دیگه اون عدد دریافت کرد یک ledروشن بشه اما یک عدد دریافت میکنه مقدارش با عدد ارسالی برابر نبست :angry:
ابنم برنامه فرستنده:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Portc = Input
Portc = 255
Dim A As Byte
Dim B As Byte
A = 120
L0:
Do
If Pinc.0 = 0 Then
For B = 0 To 10
Print A
Waitms 20
Next B
End If
Loop
End
برنامه گیرنده:
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Enable Interrupts
Enable Urxc
On Urxc Nam
Config Portb = Output
Dim A As Byte
Dim B As Byte
Dim C As Byte
L0:
Do
Waitms 400
Loop
End
Nam:
B = Udr
If B = 120 Then Toggle Portb.0
Goto L0
Return
:read:

[skiboys]

پاسخ : مشکل باhmtr

سلام من یه برنامه برای سمت گیرندت نوشتم سعی کن یه عدد بفرستی و طرف دیگه هم بااین برنامه بگیری ،موفق باشی

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Portb = Output

Dim Receive As Byte

'----------------------------------------
Enable Interrupts
Enable Urxc
On Urxc Lable
Do

Loop
End
Lable:
Receive = Inkey()
If Receive = 1 Then Toggle Portb.0
Return

[avr66]

پاسخ : مشکل باhmtr

سلام به همه به خصوص اون هایی که راهنمایی می کنند
اقا مشکل من حل نشد :angry: :angry:
میدونید مشکل چیه تو یه اون برنامه که اون بالا گذاشتم برا گیرنده اگر او شرط که تو اینتراپ بردارم if b=120 then toggel portb.0 اونوقت مدار درست کار می کنه ledروشن میشه :eek:
چون به زیر برنامه میره پس گیرنده داره درست کار میکنه :biggrin: اما چون مقدار دریافتی با شرط برار نیست مدار عمل نمی کنه :cry2: هم اکنون نیازمند یاری سبزتان هستیم :applause:

[mohsen p]

پاسخ : مشکل باhmtr

دوست عزیز شما می تونید به این صورت عمل کنید:
در فرستنده :

K1 = "left"
  For B = 1 To 5
  Print K1 ; Chr(13);
  Waitms 20
  Next A 

در گیرنده بدون استفاده از وقفه می تونید بنویسید:

Do
  Input S
  If S = "left" Then Goto L
  If S = "right" Then Goto R
  If S = "front" Then Goto F
  If S = "back" Then Goto B
Loop 

[mahanb]

پاسخ : مشکل باhmtr

baraye hale moshkel bejaye "print" va "input" az "printbin" va "inputbin " estefadeh ****d moshkel hal mishavad .