گیرنده و فرستنده hmt ,r

[live_1389]

پاسخ : گیرنده و فرستنده hmt ,r

سلام

با تشکر از دوستان.

من اینطوری کد بندی کردم :biggrin: و خداروشکر تا فاصله 50 متر بدون خطا جواب داد کافیم بود دیگه :-)، بیشتر امتحان نکردم.

گیرنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim C1 As Byte , T1 As Byte
Config Portb.3 = Output
Config Portb.2 = Output
Config Portb.0 = Output
Config Portd.7 = Output
T1 = 20
Main:
 Do
 C1 = 253
 Inputbin C1
 If C1 = 1 Then
  Waitms T1
  Inputbin C1
  If C1 = 0 Then
  Waitms T1
  Inputbin C1
  If C1 = 1 Then
   Waitms T1
   Inputbin C1
   If C1 = 0 Then
   Waitms T1
   Inputbin C1
   If C1 = 1 Then
    Waitms T1
    Inputbin C1
    If C1 = 0 Then
    Waitms T1
    Inputbin C1
    Else
    Goto Main
    End If
   Else
    Goto Main
   End If
   Else
   Goto Main
   End If
  Else
   Goto Main
  End If
  Else
  Goto Main
  End If
 'Else
  'Goto Main
 End If
 Loop
 End                            'end program
Chanal1:
 Set Portb.0
 Set Portb.2
 Waitms 300
 Reset Portb.0
 Reset Portb.2
 Waitms 300
 C1 = 253
 Goto Main

فرستنده:

$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim C1 As Byte , T1 As Byte
Dim A As Integer
Config Portb.0 = Output
Config Portb.2 = Input
Config Portb.1 = Input
Declare Sub Chanal1
Declare Sub Chanal2
T1 = 20
Main:
 Do
 Debounce Pinb.1 , 1 , Chanal1 , Sub

 Loop
End
Sub Chanal1 : Goto Chan1 : End Sub
Sub Chanal2 : Goto Chan2 : End Sub

Chan1:
 For A = 1 To 5
 Printbin 1
 Waitms T1
 Printbin 0
 Waitms T1
 Printbin 1
 Waitms T1
 Printbin 0
 Waitms T1
 Printbin 0
 Waitms T1
 Next A
 Set Portb.0
 Waitms 300
 Reset Portb.0
 Waitms 300
 Goto Main

گفتم زکاتش رو پرداخت کرده باشم :-)