سلام
من یه hmt و یه hmr دارم ،وفتی دیتا رو به صورت باینری(printbin) میفرستم و به صورت باینری(printbin) هم میگیرم موردی نداره و کار میکنه ولی وقتی با دستور(print ) میفرستم و با همین دستور یا به صورت هگز و اسکی دریافت میکنم کار نمیکنه
لطفا راهنمایی کنید خیلی گیر این موردم :cry2:
برنامه ای که کار مکینه:
فرستنده:
گیرنده :
برنامه ای که کار نمیکنه:
فرستنده:
گیرنده:
من یه hmt و یه hmr دارم ،وفتی دیتا رو به صورت باینری(printbin) میفرستم و به صورت باینری(printbin) هم میگیرم موردی نداره و کار میکنه ولی وقتی با دستور(print ) میفرستم و با همین دستور یا به صورت هگز و اسکی دریافت میکنم کار نمیکنه
لطفا راهنمایی کنید خیلی گیر این موردم :cry2:
برنامه ای که کار مکینه:
فرستنده:
کد:
$regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 Dim Xx As Word Do Xx = 200 Printbin Xx Loop End
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Portb = Output $baud = 9600 Dim Xx As Word Do Inputbin Xx If Xx = 200 Then Set Portb.0 Set Portb.2 Goto A End If Set Portb.0 Reset Portb.2 Waitms 35 Reset Portb.0 Set Portb.2 Waitms 35 A: Loop End
برنامه ای که کار نمیکنه:
فرستنده:
کد:
$regfile = "m16def.dat" $crystal = 8000000 $baud = 9600 Dim Xx As Word Do Xx = 200 Print Xx Loop End
کد:
$regfile = "m8def.dat" $crystal = 8000000 Config Portb = Output $baud = 9600 Dim Xx As Word Do Input Xx If Xx = 200 Then Set Portb.0 Set Portb.2 Goto A End If Set Portb.0 Reset Portb.2 Waitms 35 Reset Portb.0 Set Portb.2 Waitms 35 A: Loop End
دیدگاه