سلام بر همه.
من با ماژول های hmt و hmr می خوام مقدار یک متغیر رو بفرستم ولی ماسفانه هر کاری کردم نشد. البته قبل اون یک رشته ی ثابت رو می فرستم و قشنگ می تونستم اون رو ببینم ولی تو ارسال متغیر مشکل دارم. در کل فرستنده مقدار یک adc رو میگیره و میفرسته فقط همین. حالا رو نمایشگر در قسمت گیرنده فقط 0 نمایش داده میشه. از دوستان اگر کسی هست کمک کنه ممنون میشم.
برنامه فرستنده :
برنامه گیرنده :
من با ماژول های hmt و hmr می خوام مقدار یک متغیر رو بفرستم ولی ماسفانه هر کاری کردم نشد. البته قبل اون یک رشته ی ثابت رو می فرستم و قشنگ می تونستم اون رو ببینم ولی تو ارسال متغیر مشکل دارم. در کل فرستنده مقدار یک adc رو میگیره و میفرسته فقط همین. حالا رو نمایشگر در قسمت گیرنده فقط 0 نمایش داده میشه. از دوستان اگر کسی هست کمک کنه ممنون میشم.
برنامه فرستنده :
کد:
$regfile = "m8def.dat" $crystal = 8000000 $baud = 9600 '----------------------- Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc Enable Adc '----------------------- Dim A As Word '----------------------- Main: Do A = Getadc(0) Print A Loop End
کد:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600
'-------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.5 , E = Portc.4 , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0
'-------------------------
Dim A As Word
'-------------------------
Main:
Cls
Lcd "no data"
Do
Input A
Cls
Lcd A
Loop
End
دیدگاه