با عرض سلام خدمت همه اساتید و دوستان عزیز
یه فرستنده 2 پایه و گیرنده 3 پایه به میکرو با نقشه زیر وصل کردم :
این برنامه هم نوشتم :
با این برنامه میخوام که فرستنده دستور 12 رو با فاصله نیم ثانیه بفرسته و اگه تو گیرنده اون دستور دریافت شد یه led چشمک بزنه ، اگه دریافت نشد led روشن بمونه. یه جور سیستم تشخیص مانع با مادون قرمزه.
اما وقتی جلو آینه سطح برق قرارش میدم led چشمک نمیزنه و برنامه کلا توی همون شرط else میمونه :sad: بنظر شما اشکال از کدوم قسمته ؟ برنامه یا بستن مادر ؟ تا حالا مدار زیاد بستم و فکر نکنم اشتباهی انجام داده باشم ، بجای ترانزیستور 516 از 558 استفاده کردم که فرق خاصی هم نداره.
یه فرستنده 2 پایه و گیرنده 3 پایه به میکرو با نقشه زیر وصل کردم :
این برنامه هم نوشتم :
$regfile = "m16def.dat"
$Crystal=1000000
$hwstack=40
$swstack=16
$framesize=32
Config Rc5 = Pind.2
Config Pina.7 = output
Porta.7 = 0
Dim Togbit As Byte , Command As Byte , Address As Byte , Command2 As Byte , Address2 As Byte
Command = 12
Togbit = 0
Address = 0
Do
Waitms 500
Rc5send Togbit , Address , Command
Getrc5(address2 , Command2)
If Command2 = 12 Then
Toggle Porta.7
Else
Porta.7 = 1
End If
Loop
End
$Crystal=1000000
$hwstack=40
$swstack=16
$framesize=32
Config Rc5 = Pind.2
Config Pina.7 = output
Porta.7 = 0
Dim Togbit As Byte , Command As Byte , Address As Byte , Command2 As Byte , Address2 As Byte
Command = 12
Togbit = 0
Address = 0
Do
Waitms 500
Rc5send Togbit , Address , Command
Getrc5(address2 , Command2)
If Command2 = 12 Then
Toggle Porta.7
Else
Porta.7 = 1
End If
Loop
End
با این برنامه میخوام که فرستنده دستور 12 رو با فاصله نیم ثانیه بفرسته و اگه تو گیرنده اون دستور دریافت شد یه led چشمک بزنه ، اگه دریافت نشد led روشن بمونه. یه جور سیستم تشخیص مانع با مادون قرمزه.
اما وقتی جلو آینه سطح برق قرارش میدم led چشمک نمیزنه و برنامه کلا توی همون شرط else میمونه :sad: بنظر شما اشکال از کدوم قسمته ؟ برنامه یا بستن مادر ؟ تا حالا مدار زیاد بستم و فکر نکنم اشتباهی انجام داده باشم ، بجای ترانزیستور 516 از 558 استفاده کردم که فرق خاصی هم نداره.
دیدگاه